$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($In::Opt{"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 cutNs($$)
{
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 $In::Opt{"AffectLimit"}) {
$LIMIT = $In::Opt{"AffectLimit"};
}
my %SymSel = ();
foreach my $Kind (sort keys(%{$Kinds_Locations}))
{
my @Locs = sort {(index($a, "retval")!=-1) cmp (index($b, "retval")!=-1)} sort {length($a)<=>length($b)} sort keys(%{$Kinds_Locations->{$Kind}});
foreach my $Loc (@Locs)
{
foreach my $Method (keys(%{$TypeProblemsIndex{$Level}{$Target_TypeName}{$Kind}{$Loc}}))
{
if($Method eq ".client_method") {
next;
}
if(not defined $SymSel{$Method})
{
$SymSel{$Method}{"Kind"} = $Kind;
$SymSel{$Method}{"Loc"} = $Loc;
}
}
}
}
my $Total = keys(%SymSel);
if(not $Total) {
return "";
}
my $Affected = "";
my $SNum = 0;
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 .= "".getSignature($Method, 1, "HTML|Italic|Param|Class|Target=".$Pos)."
";
$Affected .= "".$Desc."
\n";
if(++$SNum>=$LIMIT) {
last;
}
}
if($Total>$LIMIT) {
$Affected .= " ...\n
\n"; # and others ...
}
$Affected = "".$Affected."
";
if($Affected)
{
my $Per = showNum($Total*100/keys(%CheckedMethods));
$Affected = $ContentDivStart.$Affected.$ContentDivEnd;
$Affected = $ContentSpanStart_Affected."[+] affected methods: $Total ($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 = getType($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 '".getSignature($New_Value, 2, "Class|HTML|Italic")."' will be called instead of this method in a client program.";
}
elsif($CompatRules{$Level}{$Kind}{"Kind"} eq "Types")
{
my %MInfo = %{$MethodInfo{1}{$Method}};
if($Location eq "this") {
return "This$ABSTRACT_M $METHOD_TYPE is from \'".specChars($Type_Name)."\'$ABSTRACT_C $Type_Type.";
}
my $TypeID = undef;
if($Location=~/retval/)
{ # return value
if($Location=~/\./) {
push(@Sentence_Parts, "Field \'".specChars($Location)."\' in the return value");
}
else {
push(@Sentence_Parts, "Return value");
}
$TypeID = $MInfo{"Return"};
}
elsif($Location=~/this/)
{ # "this" reference
push(@Sentence_Parts, "Field \'".specChars($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 \'".specChars($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, "is of type \'".specChars($Type_Name)."\'.");
}
else {
push(@Sentence_Parts, "has base type \'".specChars($Type_Name)."\'.");
}
}
return join(" ", @Sentence_Parts);
}
sub getParamPos($$$)
{
my ($Name, $Method, $LVer) = @_;
if(defined $MethodInfo{$LVer}{$Method}
and defined $MethodInfo{$LVer}{$Method}{"Param"})
{
my $Info = $MethodInfo{$LVer}{$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, $LVer) = @_;
my @Fields = split(/\./, $Location);
foreach my $Name (@Fields)
{
my $TInfo = getBaseType($TypeId, $LVer);
foreach my $N (keys(%{$TInfo->{"Fields"}}))
{
if($N eq $Name)
{
$TypeId = $TInfo->{"Fields"}{$N}{"Type"};
last;
}
}
}
return $TypeId;
}
sub writeReport($$)
{
my ($Level, $Report) = @_;
my $RPath = getReportPath($Level);
writeFile($RPath, $Report);
}
sub createReport()
{
if($In::Opt{"JoinReport"}) {
writeReport("Join", getReport("Join"));
}
elsif($In::Opt{"DoubleReport"})
{ # default
writeReport("Binary", getReport("Binary"));
writeReport("Source", getReport("Source"));
}
elsif($In::Opt{"BinaryOnly"})
{ # --binary
writeReport("Binary", getReport("Binary"));
}
elsif($In::Opt{"SourceOnly"})
{ # --source
writeReport("Source", getReport("Source"));
}
}
sub getCssStyles($)
{
my $Level = $_[0];
my $CssStyles = readModule("Css", "Report.css");
if($Level eq "Join" or $In::Opt{"ExternCss"}) {
$CssStyles .= readModule("Css", "Tabs.css");
}
return $CssStyles;
}
sub getJsScript($)
{
my $Level = $_[0];
my $JScripts = readModule("Js", "Sections.js");
if($Level eq "Join" or $In::Opt{"ExternJs"}) {
$JScripts .= readModule("Js", "Tabs.js");
}
return $JScripts;
}
sub getReport($)
{
my $Level = $_[0];
my $CssStyles = getCssStyles($Level);
my $JScripts = getJsScript($Level);
if(defined $In::Opt{"ExternCss"}) {
writeFile($In::Opt{"ExternCss"}, $CssStyles);
}
if(defined $In::Opt{"ExternJs"}) {
writeFile($In::Opt{"ExternJs"}, $JScripts);
}
if($Level eq "Join")
{
my $Title = $In::Opt{"TargetTitle"}.": ".$In::Desc{1}{"Version"}." to ".$In::Desc{2}{"Version"}." compatibility report";
my $Keywords = $In::Opt{"TargetTitle"}.", compatibility";
my $Description = "Compatibility report for the ".$In::Opt{"TargetTitle"}." library between ".$In::Desc{1}{"Version"}." and ".$In::Desc{2}{"Version"}." versions";
my ($BSummary, $BMetaData) = getSummary("Binary");
my ($SSummary, $SMetaData) = getSummary("Source");
my $Report = "\n\n".composeHTML_Head($Level, $Title, $Keywords, $Description, $CssStyles, $JScripts)."";
$Report .= getReportHeader("Join");
$Report .= "
\n";
$Report .= "\n$BSummary\n".getReportAdded("Binary").getReportRemoved("Binary").getReportProblems("High", "Binary").getReportProblems("Medium", "Binary").getReportProblems("Low", "Binary").getReportProblems("Safe", "Binary").getSourceInfo()."
";
$Report .= "\n$SSummary\n".getReportAdded("Source").getReportRemoved("Source").getReportProblems("High", "Source").getReportProblems("Medium", "Source").getReportProblems("Low", "Source").getReportProblems("Safe", "Source").getSourceInfo()."
";
$Report .= getReportFooter();
$Report .= "\n