276 строки
8.8 KiB
Perl
Исполняемый файл
276 строки
8.8 KiB
Perl
Исполняемый файл
#!/usr/bin/perl
|
|
|
|
# Currently, we implement only the directory option
|
|
# The following features have been requested for
|
|
#
|
|
# 1. Get the name of the directory and produce a
|
|
# statistic for all the files which have been touched
|
|
# in all the subdirectories starting from that
|
|
# directory
|
|
#
|
|
# 2. Since gcov spits out a statistic for all the header
|
|
# files included by all the source files, we need to
|
|
# aggregate them somehow into a single file. This might
|
|
# have to be done manually by going through all the lines
|
|
# which have been executed in that file since a header
|
|
# file may have multiple inclusions meaning that they
|
|
# might have multiple .gcov files in different directories
|
|
#
|
|
# 3. Support command line parsing of arguments
|
|
#
|
|
# 4. Support giving a listing of all the files which have
|
|
# been covered less than a certain percentage, say for
|
|
# eg., all files which have been covered less that 5%
|
|
#
|
|
|
|
use strict;
|
|
use Switch;
|
|
use File::Basename;
|
|
|
|
#global variables
|
|
my $index = 0;
|
|
my $num_args = scalar(@ARGV);
|
|
my $percentage = 0.0;
|
|
my $ret1 = 0;
|
|
my $ret2 = 0;
|
|
my $dir_list_given = 0;
|
|
my $req_list_given = 0;
|
|
|
|
$ret1 = open(DIR_FILE, "dir_list.txt");
|
|
$ret2 = open(REQ_FILE, "req_list.txt");
|
|
|
|
if ($ret1 < 0 || $ret2 < 0) {
|
|
print "ERROR: opening dir_list.txt or req_list.txt\n";
|
|
exit(3);
|
|
}
|
|
|
|
# check the error condition
|
|
if (0 == ($num_args % 2)) {
|
|
} else {
|
|
print "ERROR: the number of arguments has to be even\n";
|
|
exit(3);
|
|
}
|
|
|
|
# process the arguments
|
|
while($num_args > 0) {
|
|
switch ($ARGV[$index]) {
|
|
case "-d" {
|
|
print DIR_FILE $ARGV[$index+1];
|
|
$index += 2;
|
|
$num_args -= 2;
|
|
$dir_list_given = 1;
|
|
}
|
|
case "-f" {
|
|
my $filename = `find . -name $ARGV[$index+1]`;
|
|
print REQ_FILE $filename;
|
|
$index += 2;
|
|
$num_args -= 2;
|
|
$req_list_given = 1;
|
|
}
|
|
case "-p" {
|
|
$percentage = $ARGV[$index];
|
|
$index += 2;
|
|
$num_args -= 2;
|
|
}
|
|
else {
|
|
print "ERROR: Incorrect command line option\n";
|
|
exit(3);
|
|
}
|
|
}
|
|
}
|
|
|
|
close(DIR_FILE);
|
|
close(REQ_FILE);
|
|
|
|
# when nothing is specified, everything defaults to just "src"
|
|
if (0 == $dir_list_given && 0 == $req_list_given) {
|
|
print "WARN: No directory or file has been requested\ndefaulting to src directory\n";
|
|
system("echo src > dir_list.txt");
|
|
$dir_list_given = 1;
|
|
}
|
|
|
|
#Now, we have both the requested file list and the directory list
|
|
#So simply call the procedure generate_stats with the required arguments
|
|
if (1 == $dir_list_given) {
|
|
get_file_list("./dir_list.txt",
|
|
"touched_files.txt",
|
|
"untouched_files.txt");
|
|
|
|
generate_stats("touched_files.txt", # file_list
|
|
"coverage_stats.txt",# generic coverage numbers
|
|
"percent_stats.txt", # files below a certain %
|
|
$percentage, # percentage below which we report
|
|
1); # 1 to report
|
|
}
|
|
|
|
if (1 == $req_list_given) {
|
|
generate_stats("req_list.txt", # file_list
|
|
"req_stats.txt",# generic coverage
|
|
"", # no percentage coverage required
|
|
0, # not required
|
|
0); # 0 to not report percentages
|
|
}
|
|
|
|
sub get_file_list {
|
|
my ($input, $touched, $untouched) = @_;
|
|
my $ret = open(DIRFILES, "< $input");
|
|
if ($ret < 0) {
|
|
print "ERROR: could not open directory listing\n";
|
|
exit(3);
|
|
}
|
|
|
|
while(<DIRFILES>) {
|
|
chomp();
|
|
my $c_files = `find $_ -name \"*.c\"`;
|
|
my $cc_files = `find $_ -name \"*.cc\"`;
|
|
|
|
$cc_files =~ s/\.cc//g;
|
|
$c_files =~ s/\.c//g;
|
|
$c_files = $c_files . $cc_files;
|
|
my @C_FILES = split(/\n/, $c_files);
|
|
|
|
my $da_files = `find $_ -name \"*.da\" -o -name \"*.gcda\"`;
|
|
$da_files =~ s/\.gcda//g;
|
|
$da_files =~ s/\.da//g;
|
|
my @DA_FILES = split(/\n/, $da_files);
|
|
|
|
open (TEMP1, "> temp1");
|
|
open (TEMP2, "> temp2");
|
|
print TEMP1 $c_files;
|
|
print TEMP2 $da_files;
|
|
close(TEMP1);
|
|
close(TEMP2);
|
|
|
|
# Now do the manual diff
|
|
open(TEMP1, "< temp1");
|
|
open(UNTOUCHED_FILES, ">> $untouched");
|
|
open(TOUCHED_FILES, ">> $touched");
|
|
|
|
while(<TEMP1>) {
|
|
my $c_file = $_;
|
|
my $found = 0;
|
|
my $file_name;
|
|
my $dir_name;
|
|
my $file_ext;
|
|
my $search_file;
|
|
($file_name, $dir_name, $file_ext) = fileparse($c_file, ('\.c') );
|
|
|
|
# For our libtool build, every .gcda and .gcno file lands in the .libs dir.
|
|
$search_file = $dir_name . ".libs/" . $file_name;
|
|
|
|
open(TEMP2, "< temp2");
|
|
while(<TEMP2>) {
|
|
if ($search_file eq $_) {
|
|
$found = 1;
|
|
}
|
|
}
|
|
close(TEMP2);
|
|
if ($found == 0) {
|
|
print UNTOUCHED_FILES $c_file;
|
|
} else {
|
|
chomp($c_file);
|
|
$c_file = $c_file . ".c\n";
|
|
print TOUCHED_FILES $c_file;
|
|
}
|
|
}
|
|
close(UNTOUCHED_FILES);
|
|
close(TOUCHED_FILES);
|
|
close(TEMP1);
|
|
system("rm temp1 temp2");
|
|
}
|
|
close(DIRFILES);
|
|
#Now to print the stats of all the files which are touched
|
|
system("sort $touched -o temp; uniq temp $touched");
|
|
system("sort $untouched -o temp; uniq temp $untouched");
|
|
}
|
|
|
|
|
|
# This is the function which generates the statistics and dumps it out
|
|
# to a file. Details are pretty straightforward at this point
|
|
sub generate_stats {
|
|
my ($input_file, $coverage_file, $percent_file, $percentage, $calculate) = @_;
|
|
my $k = 0;
|
|
my $l = 0;
|
|
|
|
open (INPUT, "< $input_file");
|
|
open (COVERAGE, "> $coverage_file");
|
|
if ($calculate == 1) {
|
|
open (PERCENT, "> percent_coverage.txt");
|
|
}
|
|
|
|
print COVERAGE "#Index Directory Filename Usage(%)\n";
|
|
print COVERAGE "#======================================================================================================\n";
|
|
|
|
if ($calculate == 1) {
|
|
print PERCENT "#Index Directory Filename Usage(%)\n";
|
|
print PERCENT "#======================================================================================================\n";
|
|
}
|
|
|
|
my $average = 0.0;
|
|
my $num_files = `wc -l touched_files.txt`;
|
|
|
|
print "num_files:", $num_files;
|
|
|
|
while (<INPUT>) {
|
|
#generate the gcov file for this particular file
|
|
#1. Get the directory name and filename seperately
|
|
#2. Invoke gcov on the file
|
|
#3. Print the statistic onto a file
|
|
|
|
chomp();
|
|
my $full_name = $_;
|
|
my $dir_name;
|
|
my $file_name;
|
|
my $file_ext;
|
|
my $file_gcda;
|
|
my $found_file;
|
|
($file_name, $dir_name, $file_ext) = fileparse($full_name, ('\.c') );
|
|
$file_gcda = $file_name . ".gcda";
|
|
|
|
open(RESULT, "cd $dir_name; gcov $file_gcda -o .libs 2> /dev/null | ");
|
|
while (<RESULT>) {
|
|
if (/Creating/) { $found_file = 0; }
|
|
else {
|
|
# print "check: ", $_;
|
|
# Do not check including the file_extension; might be .c or .cc or .C
|
|
if (/^File '$file_name/) {
|
|
# print "Found File:\n", $_;
|
|
$found_file = 1;
|
|
}
|
|
|
|
#Now we are doing the right line. Search for this file
|
|
if (/^Lines/ && $found_file == 1) {
|
|
# print "Found Lines:\n", $_;
|
|
s/([\s,0-9]*\.[0-9]+\%)\.*/$1/;
|
|
my $val = $1;
|
|
$average += $val;
|
|
$k++;
|
|
my $print_string = sprintf("%4d %40s %40s %3.2f\n", $k, $dir_name, $file_name, $val);
|
|
if ($calculate == 1) {
|
|
if ($val <= $percentage) {
|
|
$l++;
|
|
my $zero_string = sprintf("%4d %40s %40s %3.2f\n", $l, $dir_name, $file_name, $val);
|
|
print PERCENT $zero_string;
|
|
}
|
|
}
|
|
print COVERAGE $print_string;
|
|
|
|
# Need to detect the next round
|
|
$found_file = 0;
|
|
}
|
|
}
|
|
}
|
|
close(RESULT);
|
|
}
|
|
if ($num_files != 0){
|
|
print COVERAGE "==============================================================\n";
|
|
print COVERAGE "Average coverage was: ", $average/$num_files, " \n";
|
|
print COVERAGE "==============================================================\n";
|
|
}
|
|
close(INPUT);
|
|
close(COVERAGE);
|
|
if ($calculate == 1) {
|
|
close(PERCENT);
|
|
}
|
|
}
|