blob: ad1fba0fcdce18f544228c1921217b829e46ae97 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
#!/usr/bin/perl
# $Id$
use Switch;
# Check usage
#
if ($#ARGV < 1) {
print "Usage: pylint_global.pl <pylint_global.txt> <Pylint.result>\n";
exit;
}
$inFile = $ARGV[0];
$batchNumber = $ARGV[1];
$outFile = $ARGV[2];
$A_F_link = "<a href=\"pylint_global.0.html\">A-F</a>";
$G_L_link = "<a href=\"pylint_global.1.html\">G-L</a>";
$M_R_link = "<a href=\"pylint_global.2.html\">M-R</a>";
$S_X_link = "<a href=\"pylint_global.3.html\">S-X</a>";
$Y_Z_link = "<a href=\"pylint_global.4.html\">Y-Z</a>";
$dna_model_link = "<a href=\"pylint_global.5.html\">dna_model</a>";
$dna_updater_link = "<a href=\"pylint_global.6.html\">dna_updater</a>";
$exprs_link = "<a href=\"pylint_global.7.html\">exprs</a>";
$gui_link = "<a href=\"pylint_global.8.html\">gui</a>";
$model_link = "<a href=\"pylint_global.9.html\">model</a>";
$PM_link = "<a href=\"pylint_global.10.html\">PM</a>";
$startup_link = "<a href=\"pylint_global.11.html\">startup</a>";
$utilities_link = "<a href=\"pylint_global.12.html\">utilities</a>";
print "<h3>Pylint Results<br>\n";
print "<font style=\"font-size: small; font-weight: normal\">Back to the <a href=\"/Engineering/\">SEMBot</a></font>\n";
print "</h3>\n";
print "<p>\n";
print "Module Batches<br>\n";
print "$A_F_link | $G_L_link | $M_R_link | $S_X_link | $Y_Z_link\n";
print "<p>\n";
print "Packages<br>\n";
print "$dna_model_link | $dna_updater_link | $exprs_link | $gui_link | ";
print "$model_link | $PM_link | $startup_link | $utilities_link\n";
print "<pre>\n";
$fragOpen = 0;
open (INFILE, $inFile) || die "Can't open $inFile: $!\n";
while ($line = readline(INFILE)) {
if ($fragOpen == 1) {
if ($line =~ /Messages/) {
$fragOpen = 0;
print $line
} else {
# |atombasetests |53.14 |11.21 |27.52 |6.53 |
if ($line =~ /^\|(\S+)(\s+.+)/) {
print "|<a href=\"pylint_$1.txt\">$1</a>$2\n";
#&sortMessages($1)
} else {
print $line
}
}
} else {
# |module |error |warning |refactor |convention |
if ($line =~ /^\|module\s+\|error/) {
$fragOpen = 1;
} elsif ($line =~ /Your code has been rated at (\S+)\//) {
$outFile = "> $outFile";
open (OUTFILE, $outFile) || die "Can't open $outFile for writing: $!\n";
print OUTFILE $1;
close (OUTFILE);
}
print $line
}
}
print "</pre>\n";
unlink"tmp.txt";
#
# SUBROUTINE: sortMessages
#
# TODO: This needs to keep the code snipits associated with some lines, with
# the line.
#
sub sortMessages {
local ($module) = pop(@_);
system "sort -r -k 2 SVN-D/cad/src/pylint_$module.txt > tmp.txt";
system "mv tmp.txt SVN-D/cad/src/pylint_$module.txt";
}
|
