[prev in list] [next in list] [prev in thread] [next in thread]
List: kde-commits
Subject: [websites/quality-kde-org] apidox/src: doxylog2html.pl - Git commits instead of SVN revisions. add m
From: Allen Winter <winter () kde ! org>
Date: 2016-05-01 0:15:25
Message-ID: E1awf2j-00084I-95 () scm ! kde ! org
[Download RAW message or body]
Git commit 6abf69bf501e1d29cc8ae0fd290a66892207950d by Allen Winter.
Committed on 01/05/2016 at 00:14.
Pushed by winterz into branch 'master'.
doxylog2html.pl - Git commits instead of SVN revisions. add more checks
M +72 -51 apidox/src/doxylog2html.pl
http://commits.kde.org/websites/quality-kde-org/6abf69bf501e1d29cc8ae0fd290a66892207950d
diff --git a/apidox/src/doxylog2html.pl b/apidox/src/doxylog2html.pl
index 33a2ef9..67a7c59 100755
--- a/apidox/src/doxylog2html.pl
+++ b/apidox/src/doxylog2html.pl
@@ -2,7 +2,7 @@
###############################################################################
# Converts doxygen log files into pretty HTML for the EBN. #
-# Copyright (C) 2006-2007,2009-2014 by Allen Winter <winter@kde.org> #
+# Copyright (C) 2006-2007,2009-2014,2016 by Allen Winter <winter@kde.org> #
# #
# This program is free software; you can redistribute it and/or modify #
# it under the terms of the GNU General Public License as published by #
@@ -47,7 +47,7 @@ use HTML::Entities;
use POSIX qw (strftime strtod);
my($Prog) = 'doxylog2html.pl';
-my($Version) = '1.98 + doxygen1.8.7';
+my($Version) = '1.985 + doxygen1.8.7';
my($help) = '';
my($explain) = '';
@@ -59,8 +59,8 @@ my($rev) = '';
exit 1
if (!GetOptions('help' => \$help, 'version' => \$version,
- 'explain' => \$explain,'export=s' => \$export,
- 'title=s' => \$title, 'cms=s' => \$cms, 'rev=s' => \$rev));
+ 'explain' => \$explain,'export=s' => \$export,
+ 'title=s' => \$title, 'cms=s' => \$cms, 'rev=s' => \$rev));
&Help() if ($help);
if ($#ARGV < 0){ &Help(); exit 0; }
@@ -121,8 +121,7 @@ sub initIssues() {
$Issues{'UNDOC'}{'files'} = '';
###
- $Issues{'NORET'}{'issue'} = 'Check for methods with undocumented return types
-';
+ $Issues{'NORET'}{'issue'} = 'Check for methods with undocumented return types';
$Issues{'NORET'}{'explain'} = 'Make sure to document the return value for all \
methods.'; $Issues{'NORET'}{'count'} = 0;
$Issues{'NORET'}{'files'} = '';
@@ -278,6 +277,18 @@ sub initIssues() {
$Issues{'GARBAGE'}{'files'} = '';
###
+ $Issues{'MULTILABEL'}{'issue'} = 'Check for using a section label more than once';
+ $Issues{'MULTILABEL'}{'explain'} = 'You are re-using a section label.';
+ $Issues{'MULTILABEL'}{'count'} = 0;
+ $Issues{'MULTILABEL'}{'files'} = '';
+
+ ###
+ $Issues{'NOMATCHDIR'}{'issue'} = 'Check for bad use of the @dir command';
+ $Issues{'NOMATCHDIR'}{'explain'} = 'You are using the @dir command incorrectly.';
+ $Issues{'NOMATCHDIR'}{'count'} = 0;
+ $Issues{'NOMATCHDIR'}{'files'} = '';
+
+ ###
$Issues{'UNKNOWN'}{'issue'} = 'Check for Unknown errors';
$Issues{'UNKNOWN'}{'explain'} = 'An unknown error was encountered. Please contact \
<mailto:winter@kde.org> to report this.'; $Issues{'UNKNOWN'}{'count'} = 0;
@@ -341,29 +352,29 @@ sub processFile() {
exit 1;
} else {
if ($result && $line) {
- $line =~ s+::++;
- $line =~ s,^\w+[Ww]arning:,:,;
- ($fname,$fline) = split(":",$line);
- if ($fname eq "" || $fname =~ m/warning$/) {
- my($t1, $t2);
- ($t1,$fname,$t2) = split("'",$line);
- }
- if ($fname eq "") {
- $fname = "no file name available";
- }
- if ($fline) {
- ($fline) = split(" ",$fline);
- ($linenumber,$unparsed) = strtod($fline);
- $fname =~ s+.*/srv/sources/++; # basename($fname);
- $fname =~ s+$cms+.+;
- if (exists($Issues{$result}{$fname})) {
- $Issues{$result}{$fname} .= ",$linenumber";
- } else {
- $Issues{$result}{'files'} .= "$fname,";
- $Issues{$result}{$fname} = "$linenumber";
- }
- $Issues{$result}{'count'}++;
- }
+ $line =~ s+::++;
+ $line =~ s,^\w+[Ww]arning:,:,;
+ ($fname,$fline) = split(":",$line);
+ if ($fname eq "" || $fname =~ m/warning$/) {
+ my($t1, $t2);
+ ($t1,$fname,$t2) = split("'",$line);
+ }
+ if ($fname eq "") {
+ $fname = "no file name available";
+ }
+ if ($fline) {
+ ($fline) = split(" ",$fline);
+ ($linenumber,$unparsed) = strtod($fline);
+ $fname =~ s+.*/srv/sources/++; # basename($fname);
+ $fname =~ s+$cms+.+;
+ if (exists($Issues{$result}{$fname})) {
+ $Issues{$result}{$fname} .= ",$linenumber";
+ } else {
+ $Issues{$result}{'files'} .= "$fname,";
+ $Issues{$result}{$fname} = "$linenumber";
+ }
+ $Issues{$result}{'count'}++;
+ }
}
}
}
@@ -397,20 +408,20 @@ sub printResults() {
$rline .= " (Not counted in total)" if ($guy eq "GARBAGE");
&printCheck($cline,$rline);
if ($guy ne "GARBAGE") {
- $Issues{$guy}{'files'} =~ s/,$//;
- (@files) = split(",",$Issues{$guy}{'files'});
- print "\n<ul>\n" if ($export ne "text");
- foreach $f (sort @files) {
- print "<li>" if ($export ne "text");
- print "\t$f";
- $tot += &printLines($Issues{$guy}{$f});
- print "\n";
- print "</li>\n" if ($export ne "text");
- }
+ $Issues{$guy}{'files'} =~ s/,$//;
+ (@files) = split(",",$Issues{$guy}{'files'});
+ print "\n<ul>\n" if ($export ne "text");
+ foreach $f (sort @files) {
+ print "<li>" if ($export ne "text");
+ print "\t$f";
+ $tot += &printLines($Issues{$guy}{$f});
+ print "\n";
+ print "</li>\n" if ($export ne "text");
+ }
}
print "</ul>\n" if ($export ne "text");
if ($explain) {
- &printExplain(wrap(" ", " ", $Issues{$guy}{'explain'}));
+ &printExplain(wrap(" ", " ", $Issues{$guy}{'explain'}));
}
} else {
&printCheck($cline,"okay!");
@@ -456,11 +467,11 @@ sub printLines() {
$i++;
if ($item > 0) {
if ($i == 1) {
- print ": ";
+ print ": ";
}
print "$item";
if($seen{$item} > 1) {
- print "[$seen{$item}]";
+ print "[$seen{$item}]";
}
}
if ($i <= $#uniq){
@@ -480,19 +491,19 @@ sub analyze() {
if ($line =~ m+[Ww]arning:+) {
if ($line =~ m+^<.*>:+) {
if ($line !~ m+return type of member+ &&
- $line !~ m+parameters of member+ &&
- $line !~ m+is not documented+) {
+ $line !~ m+parameters of member+ &&
+ $line !~ m+is not documented+) {
print "GARBAGE=>$line\n";
- return "GARBAGE";
+ return "GARBAGE";
} else {
- return "";
+ return "";
}
}
if ($line =~ m+not documented+) {
if ($line =~ m+return type+) {
- return "NORET";
+ return "NORET";
} else {
- return "UNDOC";
+ return "UNDOC";
}
}
if ($line =~ m+are not \(all\) documented+) {
@@ -592,6 +603,16 @@ print "GARBAGE=>$line\n";
if ($line =~ m+unexpected end of comment block while parsing the argument of \
command copybrief+) { return "BADBRIEF";
}
+ if ($line =~ m+multiple use of section label+) {
+ if ($line !~ m/index:/) {
+ return "MULTILABEL";
+ } else {
+ return "";
+ }
+ }
+ if ($line =~ m+ No matching directory found for command+) {
+ return "NOMATCHDIR";
+ }
return "UNKNOWN";
}
return "";
@@ -652,7 +673,7 @@ sub printHeader{
print "No Issues Found!";
}
print " ...as of "; print &asOf();
- print " (SVN revision $rev)" if ($rev);
+ print " (Git commit $rev)" if ($rev);
print "</p>\n";
my($bf) = basename($f);
print "<p>For more details, please read the <a href=\"$bf\">doxygen logfile</a> \
used to generate this report.</p>\n"; @@ -671,7 +692,7 @@ sub printHeader{
print "No Issues Found!";
}
print " ...as of "; print &asOf();
- print " (SVN revision $rev)" if ($rev);
+ print " (Git commit $rev)" if ($rev);
print "</p>\n";
print "<ol>\n";
} else {
@@ -683,7 +704,7 @@ sub printHeader{
print "No Issues Found!";
}
print " ...as of "; print &asOf();
- print " (SVN revision $rev)" if ($rev);
+ print " (Git commit $rev)" if ($rev);
print "\n\n";
}
}
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic