$ProblemNum ";
}
$TYPE_PROBLEMS .= $ContentSpanEnd."
\n";
$TYPE_PROBLEMS .= $ContentDivStart."";
$TYPE_PROBLEMS .= " | Change | Effect | ";
$TYPE_PROBLEMS .= "
$TYPE_REPORT
".$Affected."
$ContentDivEnd\n";
}
}
$TYPE_PROBLEMS .= "
";
}
}
if($TYPE_PROBLEMS)
{
$TYPE_PROBLEMS = insertIDs($TYPE_PROBLEMS);
my $Title = "Problems with Data Types, $TargetSeverity Severity";
if($TargetSeverity eq "Safe")
{ # Safe Changes
$Title = "Other Changes in Data Types";
}
if($OldStyle) {
$TYPE_PROBLEMS = "$Title ($ProblemsNum)
\n".$TYPE_PROBLEMS;
}
else {
$TYPE_PROBLEMS = "$Title $ProblemsNum
\n".$TYPE_PROBLEMS;
}
$TYPE_PROBLEMS = "\n".$TYPE_PROBLEMS;
$TYPE_PROBLEMS .= $TOP_REF."
\n";
}
return $TYPE_PROBLEMS;
}
sub cut_Namespace($$)
{
my ($N, $Ns) = @_;
$N=~s/(\W|\A)\Q$Ns\E\.(\w)/$1$2/g;
return $N;
}
sub getAffectedMethods($$$)
{
my ($Level, $Target_TypeName, $Kinds_Locations) = @_;
my $LIMIT = 10;
if(defined $AffectLimit) {
$LIMIT = $AffectLimit;
}
my @Kinds = sort keys(%{$Kinds_Locations});
my %KLocs = ();
foreach my $Kind (@Kinds)
{
my @Locs = sort {$a=~/retval/ cmp $b=~/retval/} sort {length($a)<=>length($b)} sort keys(%{$Kinds_Locations->{$Kind}});
$KLocs{$Kind} = \@Locs;
}
my %SymLocKind = ();
foreach my $Method (sort keys(%{$TypeProblemsIndex{$Target_TypeName}}))
{
if($Method eq ".client_method") {
next;
}
foreach my $Kind (@Kinds)
{
foreach my $Loc (@{$KLocs{$Kind}})
{
if(not defined $CompatProblems{$Method}{$Kind}{$Loc}) {
next;
}
my $Type_Name = $CompatProblems{$Method}{$Kind}{$Loc}{"Type_Name"};
if($Type_Name ne $Target_TypeName) {
next;
}
$SymLocKind{$Method}{$Loc}{$Kind} = 1;
last;
}
}
}
%KLocs = (); # clear
if(not keys(%SymLocKind)) {
return "";
}
my %SymSel = ();
my $Num = 0;
foreach my $Method (sort keys(%SymLocKind))
{
LOOP: foreach my $Loc (sort {$a=~/retval/ cmp $b=~/retval/} sort {length($a)<=>length($b)} sort keys(%{$SymLocKind{$Method}}))
{
foreach my $Kind (sort keys(%{$SymLocKind{$Method}{$Loc}}))
{
$SymSel{$Method}{"Loc"} = $Loc;
$SymSel{$Method}{"Kind"} = $Kind;
last LOOP;
}
}
$Num += 1;
if($Num>=$LIMIT) {
last;
}
}
my $Affected = "";
foreach my $Method (sort {lc($a) cmp lc($b)} keys(%SymSel))
{
my $Kind = $SymSel{$Method}{"Kind"};
my $Loc = $SymSel{$Method}{"Loc"};
my $Desc = getAffectDesc($Method, $Kind, $Loc, $Level);
my $PName = getParamName($Loc);
my $Pos = getParamPos($PName, $Method, 1);
$Affected .= "".get_Signature($Method, 1, "HTML|Italic|Param|Class|Target=".$Pos)."
";
$Affected .= "".$Desc."
\n";
}
if(keys(%SymLocKind)>$LIMIT) {
$Affected .= " ...\n
\n"; # and others ...
}
$Affected = "".$Affected."
";
if($Affected)
{
my $Num = keys(%SymLocKind);
my $Per = show_number($Num*100/keys(%CheckedMethods));
$Affected = $ContentDivStart.$Affected.$ContentDivEnd;
$Affected = $ContentSpanStart_Affected."[+] affected methods: $Num ($Per\%)".$ContentSpanEnd.$Affected;
}
return ($Affected);
}
sub getAffectDesc($$$$)
{
my ($Method, $Kind, $Location, $Level) = @_;
my %Affect = %{$CompatProblems{$Method}{$Kind}{$Location}};
my $New_Value = $Affect{"New_Value"};
my $Type_Name = $Affect{"Type_Name"};
my @Sentence_Parts = ();
$Location=~s/\.[^.]+?\Z//;
my %TypeAttr = get_Type($MethodInfo{1}{$Method}{"Class"}, 1);
my $Type_Type = $TypeAttr{"Type"};
my $ABSTRACT_M = $MethodInfo{1}{$Method}{"Abstract"}?" abstract":"";
my $ABSTRACT_C = $TypeAttr{"Abstract"}?" abstract":"";
my $METHOD_TYPE = $MethodInfo{1}{$Method}{"Constructor"}?"constructor":"method";
if($Kind eq "Class_Overridden_Method" or $Kind eq "Class_Method_Moved_Up_Hierarchy") {
return "Method '".highLight_Signature($New_Value, 2)."' will be called instead of this method in a client program.";
}
elsif($TypeProblems_Kind{$Level}{$Kind})
{
my %MInfo = %{$MethodInfo{1}{$Method}};
if($Location eq "this") {
return "This$ABSTRACT_M $METHOD_TYPE is from \'".htmlSpecChars($Type_Name)."\'$ABSTRACT_C $Type_Type.";
}
my $TypeID = undef;
if($Location=~/retval/)
{ # return value
if($Location=~/\./) {
push(@Sentence_Parts, "Field \'".htmlSpecChars($Location)."\' in return value");
}
else {
push(@Sentence_Parts, "Return value");
}
$TypeID = $MInfo{"Return"};
}
elsif($Location=~/this/)
{ # "this" reference
push(@Sentence_Parts, "Field \'".htmlSpecChars($Location)."\' in the object");
$TypeID = $MInfo{"Class"};
}
else
{ # parameters
my $PName = getParamName($Location);
my $PPos = getParamPos($PName, $Method, 1);
if($Location=~/\./) {
push(@Sentence_Parts, "Field \'".htmlSpecChars($Location)."\' in ".showPos($PPos)." parameter");
}
else {
push(@Sentence_Parts, showPos($PPos)." parameter");
}
if($PName) {
push(@Sentence_Parts, "\'$PName\'");
}
if(defined $MInfo{"Param"}) {
$TypeID = $MInfo{"Param"}{$PPos}{"Type"};
}
}
push(@Sentence_Parts, " of this$ABSTRACT_M method");
my $Location_T = $Location;
$Location_T=~s/\A\w+(\.|\Z)//; # location in type
my $TypeID_Problem = $TypeID;
if($Location_T) {
$TypeID_Problem = getFieldType($Location_T, $TypeID, 1);
}
if($TypeInfo{1}{$TypeID_Problem}{"Name"} eq $Type_Name) {
push(@Sentence_Parts, "has type \'".htmlSpecChars($Type_Name)."\'.");
}
else {
push(@Sentence_Parts, "has base type \'".htmlSpecChars($Type_Name)."\'.");
}
}
return join(" ", @Sentence_Parts);
}
sub getParamPos($$$)
{
my ($Name, $Method, $LibVersion) = @_;
if(defined $MethodInfo{$LibVersion}{$Method}
and defined $MethodInfo{$LibVersion}{$Method}{"Param"})
{
my $Info = $MethodInfo{$LibVersion}{$Method};
foreach (keys(%{$Info->{"Param"}}))
{
if($Info->{"Param"}{$_}{"Name"} eq $Name)
{
return $_;
}
}
}
return undef;
}
sub getParamName($)
{
my $Loc = $_[0];
$Loc=~s/\..*//g;
return $Loc;
}
sub getFieldType($$$)
{
my ($Location, $TypeId, $LibVersion) = @_;
my @Fields = split(/\./, $Location);
foreach my $Name (@Fields)
{
my %Info = get_BaseType($TypeId, $LibVersion);
foreach my $N (keys(%{$Info{"Fields"}}))
{
if($N eq $Name)
{
$TypeId = $Info{"Fields"}{$N}{"Type"};
last;
}
}
}
return $TypeId;
}
sub writeReport($$)
{
my ($Level, $Report) = @_;
my $RPath = getReportPath($Level);
writeFile($RPath, $Report);
}
sub getRelPath($$)
{
my ($A, $B) = @_;
return abs2rel($A, get_dirname($B));
}
sub createReport()
{
if($JoinReport)
{ # --stdout
writeReport("Join", getReport("Join"));
}
elsif($DoubleReport)
{ # default
writeReport("Binary", getReport("Binary"));
writeReport("Source", getReport("Source"));
}
elsif($BinaryOnly)
{ # --binary
writeReport("Binary", getReport("Binary"));
}
elsif($SourceOnly)
{ # --source
writeReport("Source", getReport("Source"));
}
}
sub getCssStyles()
{
my $CssStyles = "
body {
font-family:Arial, sans-serif;
background-color:White;
color:Black;
}
hr {
color:Black;
background-color:Black;
height:1px;
border:0;
}
h1 {
margin-bottom:0px;
padding-bottom:0px;
font-size:1.625em;
}
h2 {
margin-bottom:0px;
padding-bottom:0px;
font-size:1.25em;
white-space:nowrap;
}
div.symbols {
color:#003E69;
}
div.symbols i {
color:Brown;
}
span.section {
font-weight:bold;
cursor:pointer;
color:#003E69;
white-space:nowrap;
margin-left:5px;
}
span:hover.section {
color:#336699;
}
span.sect_aff {
cursor:pointer;
margin-left:7px;
padding-left:15px;
font-size:0.875em;
color:#cc3300;
}
span.ext {
font-weight:100;
}
span.jar {
color:#cc3300;
font-size:0.875em;
font-weight:bold;
}
div.jar_list {
padding-left:5px;
font-size:0.94em;
}
span.pkg_t {
color:#408080;
font-size:0.875em;
}
span.pkg {
color:#408080;
font-size:0.875em;
font-weight:bold;
}
span.cname {
color:Green;
font-size:0.875em;
font-weight:bold;
}
span.iname_b {
font-weight:bold;
font-size:1.1em;
}
span.iname_a {
color:#333333;
font-weight:bold;
font-size:0.94em;
}
span.sym_p {
font-weight:normal;
white-space:normal;
}
span.sym_p span {
white-space:nowrap;
}
span.attr {
color:Black;
font-weight:100;
}
span.deprecated {
color:Red;
font-weight:bold;
font-family:Monaco, monospace;
}
div.affect {
padding-left:15px;
padding-bottom:10px;
font-size:0.87em;
font-style:italic;
line-height:0.75em;
}
div.affected {
padding-left:30px;
padding-top:10px;
}
table.ptable {
border-collapse:collapse;
border:1px outset black;
line-height:1em;
margin-left:15px;
margin-top:3px;
margin-bottom:3px;
width:900px;
}
table.ptable td {
border:1px solid Gray;
padding: 3px;
font-size:0.875em;
text-align:left;
vertical-align:top;
}
table.ptable th {
background-color:#eeeeee;
font-weight:bold;
color:#333333;
font-family:Verdana, Arial;
font-size:0.875em;
border:1px solid Gray;
text-align:center;
vertical-align:top;
white-space:nowrap;
padding: 3px;
}
table.summary {
border-collapse:collapse;
border:1px outset black;
}
table.summary th {
background-color:#eeeeee;
font-weight:100;
text-align:left;
font-size:0.94em;
white-space:nowrap;
border:1px inset Gray;
padding: 3px;
}
table.summary td {
text-align:right;
white-space:nowrap;
border:1px inset Gray;
padding: 3px 5px 3px 10px;
}
span.mngl {
padding-left:15px;
font-size:0.875em;
cursor:text;
color:#444444;
}
span.color_p {
font-style:italic;
color:Brown;
}
span.param {
font-style:italic;
}
span.focus_p {
font-style:italic;
background-color:#DCDCDC;
}
span.nowrap {
white-space:nowrap;
}
.passed {
background-color:#CCFFCC;
font-weight:100;
}
.warning {
background-color:#F4F4AF;
font-weight:100;
}
.failed {
background-color:#FFCCCC;
font-weight:100;
}
.new {
background-color:#C6DEFF;
font-weight:100;
}
.compatible {
background-color:#CCFFCC;
font-weight:100;
}
.almost_compatible {
background-color:#FFDAA3;
font-weight:100;
}
.incompatible {
background-color:#FFCCCC;
font-weight:100;
}
.gray {
background-color:#DCDCDC;
font-weight:100;
}
.top_ref {
font-size:0.69em;
}
.footer {
font-size:0.75em;
}";
if($JoinReport or $ExternCss)
{
$CssStyles .= "
.tabset {
float:left;
}
a.tab {
border:1px solid Black;
float:left;
margin:0px 5px -1px 0px;
padding:3px 5px 3px 5px;
position:relative;
font-size:0.875em;
background-color:#DDD;
text-decoration:none;
color:Black;
}
a.disabled:hover
{
color:Black;
background:#EEE;
}
a.active:hover
{
color:Black;
background:White;
}
a.active {
border-bottom-color:White;
background-color:White;
}
div.tab {
border-top:1px solid Black;
padding:0px;
width:100%;
clear:both;
}";
}
return $CssStyles;
}
sub getJsScript()
{
my $JScripts = "
function sC(header, id)
{
e = document.getElementById(id);
if(e.style.display == 'none')
{
e.style.display = 'block';
e.style.visibility = 'visible';
header.innerHTML = header.innerHTML.replace(/\\\[[^0-9 ]\\\]/gi,\"[−]\");
}
else
{
e.style.display = 'none';
e.style.visibility = 'hidden';
header.innerHTML = header.innerHTML.replace(/\\\[[^0-9 ]\\\]/gi,\"[+]\");
}
}";
if($JoinReport or $ExternJs)
{
$JScripts .= "
function initTabs()
{
var url = window.location.href;
if(url.indexOf('_Source_')!=-1 || url.indexOf('#Source')!=-1)
{
var tab1 = document.getElementById('BinaryID');
var tab2 = document.getElementById('SourceID');
tab1.className='tab disabled';
tab2.className='tab active';
}
var sets = document.getElementsByTagName('div');
for (var i = 0; i < sets.length; i++)
{
if (sets[i].className.indexOf('tabset') != -1)
{
var tabs = [];
var links = sets[i].getElementsByTagName('a');
for (var j = 0; j < links.length; j++)
{
if (links[j].className.indexOf('tab') != -1)
{
tabs.push(links[j]);
links[j].tabs = tabs;
var tab = document.getElementById(links[j].href.substr(links[j].href.indexOf('#') + 1));
//reset all tabs on start
if (tab)
{
if (links[j].className.indexOf('active')!=-1) {
tab.style.display = 'block';
}
else {
tab.style.display = 'none';
}
}
links[j].onclick = function()
{
var tab = document.getElementById(this.href.substr(this.href.indexOf('#') + 1));
if (tab)
{
//reset all tabs before change
for (var k = 0; k < this.tabs.length; k++)
{
document.getElementById(this.tabs[k].href.substr(this.tabs[k].href.indexOf('#') + 1)).style.display = 'none';
this.tabs[k].className = this.tabs[k].className.replace('active', 'disabled');
}
this.className = 'tab active';
tab.style.display = 'block';
// window.location.hash = this.id.replace('ID', '');
return false;
}
}
}
}
}
}
if(url.indexOf('#')!=-1) {
location.href=location.href;
}
}
if (window.addEventListener) window.addEventListener('load', initTabs, false);
else if (window.attachEvent) window.attachEvent('onload', initTabs);";
}
return $JScripts;
}
sub getReport($)
{
my $Level = $_[0];
my $CssStyles = getCssStyles();
my $JScripts = getJsScript();
if(defined $ExternCss)
{
$CssStyles=~s/\n /\n/g;
writeFile($ExternCss, $CssStyles);
}
if(defined $ExternJs)
{
$JScripts=~s/\n /\n/g;
writeFile($ExternJs, $JScripts);
}
if($Level eq "Join")
{
my $Title = "$TargetTitle: ".$Descriptor{1}{"Version"}." to ".$Descriptor{2}{"Version"}." compatibility report";
my $Keywords = "$TargetTitle, compatibility";
my $Description = "Compatibility report for the $TargetTitle library between ".$Descriptor{1}{"Version"}." and ".$Descriptor{2}{"Version"}." versions";
my ($BSummary, $BMetaData) = get_Summary("Binary");
my ($SSummary, $SMetaData) = get_Summary("Source");
my $Report = "\n\n".composeHTML_Head($Level, $Title, $Keywords, $Description, $CssStyles, $JScripts)."";
$Report .= get_Report_Header("Join")."
";
$Report .= "\n$BSummary\n".get_Report_Added("Binary").get_Report_Removed("Binary").get_Report_Problems("High", "Binary").get_Report_Problems("Medium", "Binary").get_Report_Problems("Low", "Binary").get_Report_Problems("Safe", "Binary").get_SourceInfo()."
";
$Report .= "\n$SSummary\n".get_Report_Added("Source").get_Report_Removed("Source").get_Report_Problems("High", "Source").get_Report_Problems("Medium", "Source").get_Report_Problems("Low", "Source").get_Report_Problems("Safe", "Source").get_SourceInfo()."
";
$Report .= getReportFooter();
$Report .= "\n