Lines Matching defs:GCOV_PERL
33 GCOV_PERL= if (/^File '(?:.*\/)?(\S+)'/) {
34 GCOV_PERL+= $$file = $$1; $$func = "";
35 GCOV_PERL+= } elsif (/^Function '(\S+)'/) {
36 GCOV_PERL+= $$func = $$1;
37 GCOV_PERL+= } elsif (/^Lines executed:(\d+\.\d+)% of (\d+)/ && defined($$file)) {
38 GCOV_PERL+= my ($$percent, $$lines) = ($$1, $$2);
39 GCOV_PERL+= my $$uncovered =
40 GCOV_PERL+= $$percent eq '100.00' ? '0'
41 GCOV_PERL+= : $$file =~ /\.h$$/ ? '?'
42 GCOV_PERL+= : `grep -c '\#\#\#\#\#:' < \$$(basename $$file.gcov)`;
43 GCOV_PERL+= chomp($$uncovered);
44 GCOV_PERL+= printf("%7.2f %4s/%4d %s%s\n",
45 GCOV_PERL+= $$percent, $$uncovered, $$lines, $$file, $$func);
46 GCOV_PERL+= $$file = undef;
47 GCOV_PERL+= }
146 | perl -ne ${GCOV_PERL:Q} \