$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