+ return 0;
+ }
+
+ return 1;
+}
+
+sub showArch($)
+{
+ my $Arch = $_[0];
+ if($Arch eq "arm"
+ or $Arch eq "mips") {
+ return uc($Arch);
+ }
+ return $Arch;
+}
+
+sub getReportTitle($)
+{
+ my $Level = $_[0];
+
+ my $ArchInfo = " on ".showArch($In::ABI{1}{"Arch"})."";
+ if($In::ABI{1}{"Arch"} ne $In::ABI{2}{"Arch"}
+ or $Level eq "Source")
+ { # don't show architecture in the header
+ $ArchInfo = "";
+ }
+ my $Title = "";
+ if($Level eq "Source") {
+ $Title .= "Source compatibility";
+ }
+ elsif($Level eq "Binary") {
+ $Title .= "Binary compatibility";
+ }
+ else {
+ $Title .= "API compatibility";
+ }
+
+ my $V1 = $In::Desc{1}{"Version"};
+ my $V2 = $In::Desc{2}{"Version"};
+
+ if($UsedDump{1}{"DWARF"} and $UsedDump{2}{"DWARF"})
+ {
+ my $M1 = $In::ABI{1}{"LibraryName"};
+ my $M2 = $In::ABI{2}{"LibraryName"};
+
+ my $M1S = $M1;
+ my $M2S = $M2;
+
+ $M1S=~s/(\.so|\.ko)\..+/$1/ig;
+ $M2S=~s/(\.so|\.ko)\..+/$1/ig;
+
+ if($M1S eq $M2S
+ and $V1 ne "X" and $V2 ne "Y")
+ {
+ $Title .= " report for the $M1S ".$In::Opt{"TargetComponent"};
+ $Title .= " between ".$V1." and ".$V2." versions";
+ }
+ else
+ {
+ $Title .= " report between $M1 (".$V1.")";
+ $Title .= " and $M2 (".$V2.") objects";
+ }
+ }
+ else
+ {
+ $Title .= " report for the ".$In::Opt{"TargetTitle"}." ".$In::Opt{"TargetComponent"};
+ $Title .= " between ".$V1." and ".$V2." versions";
+ }
+
+ $Title .= $ArchInfo;
+
+ if($In::Opt{"AppPath"}) {
+ $Title .= " (relating to the portability of application ".getFilename($In::Opt{"AppPath"}).")";
+ }
+ $Title = "".$Title."
\n";
+ return $Title;
+}
+
+sub getCheckedHeaders($)
+{
+ my $LVer = $_[0];
+
+ my @Headers = ();
+
+ foreach my $Path (keys(%{$In::ABI{$LVer}{"Headers"}}))
+ {
+ my $Name = getFilename($Path);
+
+ if(not isTargetHeader($Name, $LVer)) {
+ next;
+ }
+
+ if(skipHeader($Name, $LVer)) {
+ next;
+ }
+
+ push(@Headers, $Path);
+ }
+
+ return @Headers;
+}
+
+sub getSourceInfo()
+{
+ my ($CheckedHeaders, $CheckedSources, $CheckedLibs) = ("", "");
+
+ if(my @Headers = getCheckedHeaders(1))
+ {
+ $CheckedHeaders = "";
+ if($In::Opt{"OldStyle"}) {
+ $CheckedHeaders .= "Header Files (".($#Headers+1).")
";
+ }
+ else {
+ $CheckedHeaders .= "Header Files ".($#Headers+1)."
";
+ }
+ $CheckedHeaders .= "
\n";
+ $CheckedHeaders .= "\n";
+ foreach my $Path (sort {lc($a) cmp lc($b)} @Headers) {
+ $CheckedHeaders .= getFilename($Path)."
\n";
+ }
+ $CheckedHeaders .= "
\n";
+ $CheckedHeaders .= "
$TOP_REF
\n";
+ }
+
+ if(my @Sources = keys(%{$In::ABI{1}{"Sources"}}))
+ {
+ $CheckedSources = "";
+ if($In::Opt{"OldStyle"}) {
+ $CheckedSources .= "Source Files (".($#Sources+1).")
";
+ }
+ else {
+ $CheckedSources .= "Source Files ".($#Sources+1)."
";
+ }
+ $CheckedSources .= "
\n";
+ $CheckedSources .= "\n";
+ foreach my $Path (sort {lc($a) cmp lc($b)} @Sources) {
+ $CheckedSources .= getFilename($Path)."
\n";
+ }
+ $CheckedSources .= "
\n";
+ $CheckedSources .= "
$TOP_REF
\n";
+ }
+
+ if(not $In::Opt{"CheckHeadersOnly"})
+ {
+ $CheckedLibs = "";
+ if($In::Opt{"OldStyle"}) {
+ $CheckedLibs .= "".getObjTitle()." (".keys(%{$In::ABI{1}{"Symbols"}}).")
";
+ }
+ else {
+ $CheckedLibs .= "".getObjTitle()." ".keys(%{$In::ABI{1}{"Symbols"}})."
";
+ }
+ $CheckedLibs .= "
\n";
+ $CheckedLibs .= "\n";
+ foreach my $Library (sort {lc($a) cmp lc($b)} keys(%{$In::ABI{1}{"Symbols"}})) {
+ $CheckedLibs .= $Library."
\n";
+ }
+ $CheckedLibs .= "
\n";
+ $CheckedLibs .= "
$TOP_REF
\n";
+ }
+
+ return $CheckedHeaders.$CheckedSources.$CheckedLibs;
+}
+
+sub getObjTitle()
+{
+ if(defined $UsedDump{1}{"DWARF"}) {
+ return "Objects";
+ }
+
+ return "Libraries";
+}
+
+sub getTypeProblemsCount($$)
+{
+ my ($TargetSeverity, $Level) = @_;
+ my $Count = 0;
+
+ foreach my $Type_Name (sort keys(%{$TypeChanges{$Level}}))
+ {
+ my %Kinds_Target = ();
+ foreach my $Kind (keys(%{$TypeChanges{$Level}{$Type_Name}}))
+ {
+ if($CompatRules{$Level}{$Kind}{"Severity"} ne $TargetSeverity) {
+ next;
+ }
+
+ foreach my $Loc (keys(%{$TypeChanges{$Level}{$Type_Name}{$Kind}}))
+ {
+ my $Target = $TypeChanges{$Level}{$Type_Name}{$Kind}{$Loc}{"Target"};
+
+ if($Kinds_Target{$Kind}{$Target}) {
+ next;
+ }
+
+ $Kinds_Target{$Kind}{$Target} = 1;
+ $Count += 1;
+ }
+ }
+ }
+ return $Count;
+}
+
+sub getSummary($)
+{
+ my $Level = $_[0];
+ my ($Added, $Removed, $I_Problems_High, $I_Problems_Medium, $I_Problems_Low, $T_Problems_High,
+ $C_Problems_Low, $T_Problems_Medium, $T_Problems_Low, $I_Other, $T_Other, $C_Other) = (0,0,0,0,0,0,0,0,0,0,0,0);
+ %{$RESULT{$Level}} = (
+ "Problems"=>0,
+ "Warnings"=>0,
+ "Affected"=>0);
+ # check rules
+ foreach my $Symbol (sort keys(%{$CompatProblems{$Level}}))
+ {
+ foreach my $Kind (keys(%{$CompatProblems{$Level}{$Symbol}}))
+ {
+ if(not defined $CompatRules{$Level}{$Kind})
+ { # unknown rule
+ if(not $UnknownRules{$Level}{$Kind})
+ { # only one warning
+ printMsg("WARNING", "unknown rule \"$Kind\" (\"$Level\")");
+ $UnknownRules{$Level}{$Kind}=1;
+ }
+ delete($CompatProblems{$Level}{$Symbol}{$Kind});
+ }
+ }
+ }
+ foreach my $Constant (sort keys(%{$CompatProblems_Constants{$Level}}))
+ {
+ foreach my $Kind (keys(%{$CompatProblems_Constants{$Level}{$Constant}}))
+ {
+ if(not defined $CompatRules{$Level}{$Kind})
+ { # unknown rule
+ if(not $UnknownRules{$Level}{$Kind})
+ { # only one warning
+ printMsg("WARNING", "unknown rule \"$Kind\" (\"$Level\")");
+ $UnknownRules{$Level}{$Kind}=1;
+ }
+ delete($CompatProblems_Constants{$Level}{$Constant}{$Kind});
+ }
+ }
+ }
+ foreach my $Symbol (sort keys(%{$CompatProblems{$Level}}))
+ {
+ foreach my $Kind (sort keys(%{$CompatProblems{$Level}{$Symbol}}))
+ {
+ if($CompatRules{$Level}{$Kind}{"Kind"} eq "Symbols")
+ {
+ my $Severity = $CompatRules{$Level}{$Kind}{"Severity"};
+ foreach my $Loc (sort keys(%{$CompatProblems{$Level}{$Symbol}{$Kind}}))
+ {
+ if($Kind eq "Added_Symbol") {
+ $Added += 1;
+ }
+ elsif($Kind eq "Removed_Symbol")
+ {
+ $Removed += 1;
+ $TotalAffected{$Level}{$Symbol} = $Severity;
+ }
+ else
+ {
+ if($Severity eq "Safe") {
+ $I_Other += 1;
+ }
+ elsif($Severity eq "High") {
+ $I_Problems_High += 1;
+ }
+ elsif($Severity eq "Medium") {
+ $I_Problems_Medium += 1;
+ }
+ elsif($Severity eq "Low") {
+ $I_Problems_Low += 1;
+ }
+ if(($Severity ne "Low" or $In::Opt{"StrictCompat"})
+ and $Severity ne "Safe") {
+ $TotalAffected{$Level}{$Symbol} = $Severity;
+ }
+ }
+ }
+ }
+ }
+ }
+
+ my %MethodTypeIndex = ();
+
+ foreach my $Symbol (sort keys(%{$CompatProblems{$Level}}))
+ {
+ foreach my $Kind (sort keys(%{$CompatProblems{$Level}{$Symbol}}))
+ {
+ if($CompatRules{$Level}{$Kind}{"Kind"} eq "Types")
+ {
+ my $Severity = $CompatRules{$Level}{$Kind}{"Severity"};
+ if(($Severity ne "Low" or $In::Opt{"StrictCompat"})
+ and $Severity ne "Safe")
+ {
+ if(my $Sev = $TotalAffected{$Level}{$Symbol})
+ {
+ if($Severity_Val{$Severity}>$Severity_Val{$Sev}) {
+ $TotalAffected{$Level}{$Symbol} = $Severity;
+ }
+ }
+ else {
+ $TotalAffected{$Level}{$Symbol} = $Severity;
+ }
+ }
+
+ my $LSK = $CompatProblems{$Level}{$Symbol}{$Kind};
+ my (@Locs1, @Locs2) = ();
+ foreach my $Loc (sort keys(%{$LSK}))
+ {
+ if(index($Loc, "retval")==0 or index($Loc, "this")==0) {
+ push(@Locs2, $Loc);
+ }
+ else {
+ push(@Locs1, $Loc);
+ }
+ }
+
+ foreach my $Loc (@Locs1, @Locs2)
+ {
+ my $Type = $LSK->{$Loc}{"Type_Name"};
+ my $Target = $LSK->{$Loc}{"Target"};
+
+ if(defined $MethodTypeIndex{$Symbol}{$Type}{$Kind}{$Target})
+ { # one location for one type and target
+ next;
+ }
+ $MethodTypeIndex{$Symbol}{$Type}{$Kind}{$Target} = 1;
+
+ $TypeChanges{$Level}{$Type}{$Kind}{$Loc} = $LSK->{$Loc};
+ $TypeProblemsIndex{$Level}{$Type}{$Kind}{$Loc}{$Symbol} = 1;
+ }
+ }
+ }
+ }
+
+ # clean memory
+ %MethodTypeIndex = ();
+
+ $T_Problems_High = getTypeProblemsCount("High", $Level);
+ $T_Problems_Medium = getTypeProblemsCount("Medium", $Level);
+ $T_Problems_Low = getTypeProblemsCount("Low", $Level);
+ $T_Other = getTypeProblemsCount("Safe", $Level);
+
+ # changed and removed public symbols
+ my $SCount = keys(%{$CheckedSymbols{$Level}});
+ if($In::Opt{"ExtendedCheck"})
+ { # don't count external_func_0 for constants
+ $SCount-=1;
+ }
+ if($SCount)
+ {
+ my %Weight = (
+ "High" => 100,
+ "Medium" => 50,
+ "Low" => 25
+ );
+ foreach (keys(%{$TotalAffected{$Level}})) {
+ $RESULT{$Level}{"Affected"}+=$Weight{$TotalAffected{$Level}{$_}};
+ }
+ $RESULT{$Level}{"Affected"} = $RESULT{$Level}{"Affected"}/$SCount;
+ }
+ else {
+ $RESULT{$Level}{"Affected"} = 0;
+ }
+
+ $RESULT{$Level}{"Affected"} = showNum($RESULT{$Level}{"Affected"});
+ if($RESULT{$Level}{"Affected"}>=100) {
+ $RESULT{$Level}{"Affected"} = 100;
+ }
+
+ $RESULT{$Level}{"Problems"} += $Removed;
+ $RESULT{$Level}{"Problems"} += $T_Problems_High + $I_Problems_High;
+ $RESULT{$Level}{"Problems"} += $T_Problems_Medium + $I_Problems_Medium;
+ if($In::Opt{"StrictCompat"}) {
+ $RESULT{$Level}{"Problems"} += $T_Problems_Low + $I_Problems_Low;
+ }
+ else {
+ $RESULT{$Level}{"Warnings"} += $T_Problems_Low + $I_Problems_Low;
+ }
+
+ foreach my $Constant (keys(%{$CompatProblems_Constants{$Level}}))
+ {
+ foreach my $Kind (keys(%{$CompatProblems_Constants{$Level}{$Constant}}))
+ {
+ my $Severity = $CompatRules{$Level}{$Kind}{"Severity"};
+ if($Severity eq "Safe")
+ {
+ $C_Other+=1;
+ }
+ elsif($Severity eq "Low")
+ {
+ $C_Problems_Low+=1;
+ }
+ }
+ }
+
+ if($C_Problems_Low)
+ {
+ if($In::Opt{"StrictCompat"}) {
+ $RESULT{$Level}{"Problems"} += $C_Problems_Low;
+ }
+ else {
+ $RESULT{$Level}{"Warnings"} += $C_Problems_Low;
+ }
+ }
+ if($RESULT{$Level}{"Problems"}
+ and $RESULT{$Level}{"Affected"}) {
+ $RESULT{$Level}{"Verdict"} = "incompatible";
+ }
+ else {
+ $RESULT{$Level}{"Verdict"} = "compatible";
+ }
+
+ my $TotalTypes = keys(%{$CheckedTypes{$Level}});
+ if(not $TotalTypes)
+ { # list all the types
+ $TotalTypes = keys(%{$TName_Tid{1}});
+ }
+
+ my $TotalSymbols = keys(%{$CheckedSymbols{$Level}});
+
+ if($In::Opt{"ExtendedCheck"}) {
+ $TotalSymbols -= keys(%ExtendedSymbols);
+ }
+
+ my $AnyChanged = ($Added or $Removed or $I_Problems_High or $I_Problems_Medium or $I_Problems_Low or $T_Problems_High or
+ $C_Problems_Low or $T_Problems_Medium or $T_Problems_Low or $I_Other or $T_Other or $C_Other);
+
+ my ($Arch1, $Arch2) = ($In::ABI{1}{"Arch"}, $In::ABI{2}{"Arch"});
+ my ($GccV1, $GccV2) = ($In::ABI{1}{"GccVersion"}, $In::ABI{2}{"GccVersion"});
+ my ($ClangV1, $ClangV2) = ($In::ABI{1}{"ClangVersion"}, $In::ABI{2}{"ClangVersion"});
+
+ my ($TestInfo, $TestResults, $Problem_Summary) = ();
+
+ if($In::Opt{"ReportFormat"} eq "xml")
+ { # XML
+ # test info
+ $TestInfo .= " ".$In::Opt{"TargetLib"}."\n";
+ $TestInfo .= " \n";
+ $TestInfo .= " ".$In::Desc{1}{"Version"}."\n";
+ $TestInfo .= " $Arch1\n";
+ if($GccV1) {
+ $TestInfo .= " $GccV1\n";
+ }
+ elsif($ClangV1) {
+ $TestInfo .= " $ClangV1\n";
+ }
+ $TestInfo .= " \n";
+
+ $TestInfo .= " \n";
+ $TestInfo .= " ".$In::Desc{2}{"Version"}."\n";
+ $TestInfo .= " $Arch2\n";
+ if($GccV2) {
+ $TestInfo .= " $GccV2\n";
+ }
+ elsif($ClangV2) {
+ $TestInfo .= " $ClangV2\n";
+ }
+ $TestInfo .= " \n";
+ $TestInfo = "\n".$TestInfo."\n\n";
+
+ # test results
+ if(my @Headers = keys(%{$In::ABI{1}{"Headers"}}))
+ {
+ $TestResults .= " \n";
+ foreach my $Name (sort {lc($a) cmp lc($b)} @Headers) {
+ $TestResults .= " ".getFilename($Name)."\n";
+ }
+ $TestResults .= " \n";
+ }
+
+ if(my @Sources = keys(%{$In::ABI{1}{"Sources"}}))
+ {
+ $TestResults .= " \n";
+ foreach my $Name (sort {lc($a) cmp lc($b)} @Sources) {
+ $TestResults .= " ".getFilename($Name)."\n";
+ }
+ $TestResults .= " \n";
+ }
+
+ $TestResults .= " \n";
+ foreach my $Library (sort {lc($a) cmp lc($b)} keys(%{$In::ABI{1}{"Symbols"}}))
+ {
+ $TestResults .= " $Library\n";
+ }
+ $TestResults .= " \n";
+
+ $TestResults .= " ".$TotalSymbols."\n";
+ $TestResults .= " ".$TotalTypes."\n";
+
+ $TestResults .= " ".$RESULT{$Level}{"Verdict"}."\n";
+ $TestResults .= " ".$RESULT{$Level}{"Affected"}."\n";
+ $TestResults = "\n".$TestResults."\n\n";
+
+ # problem summary
+ $Problem_Summary .= " ".$Added."\n";
+ $Problem_Summary .= " ".$Removed."\n";
+
+ $Problem_Summary .= " \n";
+ $Problem_Summary .= " $T_Problems_High\n";
+ $Problem_Summary .= " $T_Problems_Medium\n";
+ $Problem_Summary .= " $T_Problems_Low\n";
+ $Problem_Summary .= " $T_Other\n";
+ $Problem_Summary .= " \n";
+
+ $Problem_Summary .= " \n";
+ $Problem_Summary .= " $I_Problems_High\n";
+ $Problem_Summary .= " $I_Problems_Medium\n";
+ $Problem_Summary .= " $I_Problems_Low\n";
+ $Problem_Summary .= " $I_Other\n";
+ $Problem_Summary .= " \n";
+
+ $Problem_Summary .= " \n";
+ $Problem_Summary .= " $C_Problems_Low\n";
+ $Problem_Summary .= " \n";
+
+ $Problem_Summary = "\n".$Problem_Summary."\n\n";
+
+ return ($TestInfo.$TestResults.$Problem_Summary, "", $AnyChanged);
+ }
+ else
+ { # HTML
+ # test info
+ $TestInfo = "Test Info
\n";
+ $TestInfo .= "\n";
+
+ if($In::Opt{"TargetComponent"} eq "library") {
+ $TestInfo .= "| Library Name | ".$In::Opt{"TargetTitle"}." |
|---|
\n";
+ }
+ else {
+ $TestInfo .= "| Module Name | ".$In::Opt{"TargetTitle"}." |
|---|
\n";
+ }
+
+ my (@VInf1, @VInf2, $AddTestInfo) = ();
+
+ # CPU arch
+ if($Arch1 eq $Arch2)
+ { # go to the separate section
+ $AddTestInfo .= "| Arch | ".showArch($Arch1)." |
|---|
\n";
+ }
+ else
+ { # go to the version number
+ push(@VInf1, showArch($Arch1));
+ push(@VInf2, showArch($Arch2));
+ }
+
+ if($Level eq "Binary"
+ and $In::Opt{"Target"} ne "windows")
+ {
+ if($GccV1 and $GccV2)
+ { # GCC version
+ if($GccV1 eq $GccV2)
+ { # go to the separate section
+ $AddTestInfo .= "| GCC Version | $GccV1 |
|---|
\n";
+ }
+ else
+ { # go to the version number
+ push(@VInf1, "gcc ".$GccV1);
+ push(@VInf2, "gcc ".$GccV2);
+ }
+ }
+ elsif($ClangV1 and $ClangV2)
+ { # Clang version
+ if($ClangV1 eq $ClangV2)
+ { # go to the separate section
+ $AddTestInfo .= "| Clang Version | $ClangV1 |
|---|
\n";
+ }
+ else
+ { # go to the version number
+ push(@VInf1, "clang ".$ClangV1);
+ push(@VInf2, "clang ".$ClangV2);
+ }
+ }
+ elsif($GccV1 and $ClangV2)
+ {
+ push(@VInf1, "gcc ".$GccV1);
+ push(@VInf2, "clang ".$ClangV2);
+ }
+ elsif($ClangV1 and $GccV2)
+ {
+ push(@VInf1, "clang ".$ClangV1);
+ push(@VInf2, "gcc ".$GccV2);
+ }
+ }
+ # show long version names with GCC version and CPU architecture name (if different)
+ $TestInfo .= "| Version #1 | ".$In::Desc{1}{"Version"}.(@VInf1?" (".join(", ", reverse(@VInf1)).")":"")." |
|---|
\n";
+ $TestInfo .= "| Version #2 | ".$In::Desc{2}{"Version"}.(@VInf2?" (".join(", ", reverse(@VInf2)).")":"")." |
|---|
\n";
+ $TestInfo .= $AddTestInfo;
+
+ if($In::Opt{"ExtendedCheck"}) {
+ $TestInfo .= "| Mode | Extended |
|---|
\n";
+ }
+ if($In::Opt{"JoinReport"})
+ {
+ if($Level eq "Binary") {
+ $TestInfo .= "| Subject | Binary Compatibility |
|---|
\n"; # Run-time
+ }
+ elsif($Level eq "Source") {
+ $TestInfo .= "| Subject | Source Compatibility |
|---|
\n"; # Build-time
+ }
+ }
+ $TestInfo .= "
\n";
+
+ # test results
+ $TestResults = "Test Results
\n";
+ $TestResults .= "";
+
+ if(my @Headers = getCheckedHeaders(1))
+ {
+ my $Headers_Link = "".($#Headers + 1)."";
+ $TestResults .= "| Total Header Files | ".$Headers_Link." |
|---|
\n";
+ }
+
+ if(my @Sources = keys(%{$In::ABI{1}{"Sources"}}))
+ {
+ my $Src_Link = "".($#Sources + 1)."";
+ $TestResults .= "| Total Source Files | ".$Src_Link." |
|---|
\n";
+ }
+
+ if(not $In::Opt{"ExtendedCheck"})
+ {
+ my $Libs_Link = "0";
+ $Libs_Link = "".keys(%{$In::ABI{1}{"Symbols"}})."" if(keys(%{$In::ABI{1}{"Symbols"}})>0);
+ $TestResults .= "| Total ".getObjTitle()." | ".($In::Opt{"CheckHeadersOnly"}?"0 (not analyzed)":$Libs_Link)." |
|---|
\n";
+ }
+
+ $TestResults .= "| Total Symbols / Types | ".$TotalSymbols." / ".$TotalTypes." |
|---|
\n";
+
+ my $META_DATA = "verdict:".$RESULT{$Level}{"Verdict"}.";";
+ if($In::Opt{"JoinReport"}) {
+ $META_DATA = "kind:".lc($Level).";".$META_DATA;
+ }
+
+ my $BC_Rate = showNum(100 - $RESULT{$Level}{"Affected"});
+
+ $TestResults .= "| Compatibility | \n";
+ if($RESULT{$Level}{"Verdict"} eq "incompatible")
+ {
+ my $Cl = "incompatible";
+ if($BC_Rate>=90) {
+ $Cl = "warning";
+ }
+ elsif($BC_Rate>=80) {
+ $Cl = "almost_compatible";
+ }
+
+ $TestResults .= "".$BC_Rate."% | \n";
+ }
+ else {
+ $TestResults .= "100% | \n";
+ }
+ $TestResults .= "
|---|
\n";
+ $TestResults .= "
\n";
+
+ $META_DATA .= "affected:".$RESULT{$Level}{"Affected"}.";";# in percents
+ # problem summary
+ $Problem_Summary = "Problem Summary
\n";
+ $Problem_Summary .= "";
+ $Problem_Summary .= " | Severity | Count |
|---|
";
+
+ my $Added_Link = "0";
+ if($Added>0)
+ {
+ if($In::Opt{"JoinReport"}) {
+ $Added_Link = "$Added";
+ }
+ else {
+ $Added_Link = "$Added";
+ }
+ }
+ $META_DATA .= "added:$Added;";
+ $Problem_Summary .= "| Added Symbols | - | $Added_Link
|---|
\n";
+
+ my $Removed_Link = "0";
+ if($Removed>0)
+ {
+ if($In::Opt{"JoinReport"}) {
+ $Removed_Link = "$Removed"
+ }
+ else {
+ $Removed_Link = "$Removed"
+ }
+ }
+ $META_DATA .= "removed:$Removed;";
+ $Problem_Summary .= "| Removed Symbols | ";
+ $Problem_Summary .= "High | $Removed_Link
|---|
\n";
+
+ my $TH_Link = "0";
+ $TH_Link = "$T_Problems_High" if($T_Problems_High>0);
+ $META_DATA .= "type_problems_high:$T_Problems_High;";
+ $Problem_Summary .= "Problems with
Data Types | ";
+ $Problem_Summary .= "High | $TH_Link
|---|
\n";
+
+ my $TM_Link = "0";
+ $TM_Link = "$T_Problems_Medium" if($T_Problems_Medium>0);
+ $META_DATA .= "type_problems_medium:$T_Problems_Medium;";
+ $Problem_Summary .= "| Medium | $TM_Link
\n";
+
+ my $TL_Link = "0";
+ $TL_Link = "$T_Problems_Low" if($T_Problems_Low>0);
+ $META_DATA .= "type_problems_low:$T_Problems_Low;";
+ $Problem_Summary .= "| Low | $TL_Link
\n";
+
+ my $IH_Link = "0";
+ $IH_Link = "$I_Problems_High" if($I_Problems_High>0);
+ $META_DATA .= "interface_problems_high:$I_Problems_High;";
+ $Problem_Summary .= "Problems with
Symbols | ";
+ $Problem_Summary .= "High | $IH_Link
|---|
\n";
+
+ my $IM_Link = "0";
+ $IM_Link = "$I_Problems_Medium" if($I_Problems_Medium>0);
+ $META_DATA .= "interface_problems_medium:$I_Problems_Medium;";
+ $Problem_Summary .= "| Medium | $IM_Link
\n";
+
+ my $IL_Link = "0";
+ $IL_Link = "$I_Problems_Low" if($I_Problems_Low>0);
+ $META_DATA .= "interface_problems_low:$I_Problems_Low;";
+ $Problem_Summary .= "| Low | $IL_Link
\n";
+
+ my $ChangedConstants_Link = "0";
+ if(keys(%{$CheckedSymbols{$Level}}) and $C_Problems_Low) {
+ $ChangedConstants_Link = "$C_Problems_Low";
+ }
+ $META_DATA .= "changed_constants:$C_Problems_Low;";
+ $Problem_Summary .= "Problems with
Constants | Low | $ChangedConstants_Link
|---|
\n";
+
+ # Safe Changes
+ if($T_Other)
+ {
+ my $TS_Link = "$T_Other";
+ $Problem_Summary .= "Other Changes
in Data Types | - | $TS_Link
|---|
\n";
+ $META_DATA .= "type_changes_other:$T_Other;";
+ }
+
+ if($I_Other)
+ {
+ my $IS_Link = "$I_Other";
+ $Problem_Summary .= "Other Changes
in Symbols | - | $IS_Link
|---|
\n";
+ $META_DATA .= "interface_changes_other:$I_Other;";
+ }
+
+ if($C_Other)
+ {
+ my $CS_Link = "$C_Other";
+ $Problem_Summary .= "Other Changes
in Constants | - | $CS_Link
|---|
\n";
+ $META_DATA .= "constant_changes_other:$C_Other;";
+ }
+
+ $META_DATA .= "tool_version:$TOOL_VERSION";
+ $Problem_Summary .= "
\n";
+
+ return ($TestInfo.$TestResults.$Problem_Summary, $META_DATA, $AnyChanged);
+ }
+}
+
+sub getStyle($$$)
+{
+ my ($Subj, $Act, $Num) = @_;
+ my %Style = (
+ "Added"=>"new",
+ "Removed"=>"failed",
+ "Safe"=>"passed",
+ "Low"=>"warning",
+ "Medium"=>"failed",
+ "High"=>"failed"
+ );
+
+ if($Num>0) {
+ return " class='".$Style{$Act}."'";
+ }
+
+ return "";
+}
+
+sub getReportChangedConstants($$)
+{
+ my ($TargetSeverity, $Level) = @_;
+ my $CHANGED_CONSTANTS = "";
+
+ my %ReportMap = ();
+ foreach my $Constant (keys(%{$CompatProblems_Constants{$Level}}))
+ {
+ my $Header = $Constants{1}{$Constant}{"Header"};
+ if(not $Header) {
+ $Header = $Constants{1}{$Constant}{"Source"};
+ }
+ if(not $Header)
+ { # added
+ $Header = $Constants{2}{$Constant}{"Header"};
+ if(not $Header) {
+ $Header = $Constants{2}{$Constant}{"Source"}
+ }
+ }
+
+ foreach my $Kind (sort {lc($a) cmp lc($b)} keys(%{$CompatProblems_Constants{$Level}{$Constant}}))
+ {
+ if(not defined $CompatRules{$Level}{$Kind}) {
+ next;
+ }
+ if($TargetSeverity ne $CompatRules{$Level}{$Kind}{"Severity"}) {
+ next;
+ }
+ $ReportMap{$Header}{$Constant}{$Kind} = 1;
+ }
+ }
+
+ if($In::Opt{"ReportFormat"} eq "xml")
+ { # XML
+ foreach my $HeaderName (sort {lc($a) cmp lc($b)} keys(%ReportMap))
+ {
+ $CHANGED_CONSTANTS .= " \n";
+ foreach my $Constant (sort {lc($a) cmp lc($b)} keys(%{$ReportMap{$HeaderName}}))
+ {
+ $CHANGED_CONSTANTS .= " \n";
+ foreach my $Kind (sort {lc($a) cmp lc($b)} keys(%{$ReportMap{$HeaderName}{$Constant}}))
+ {
+ my $Change = $CompatRules{$Level}{$Kind}{"Change"};
+ my $Effect = $CompatRules{$Level}{$Kind}{"Effect"};
+ my $Overcome = $CompatRules{$Level}{$Kind}{"Overcome"};
+
+ $CHANGED_CONSTANTS .= " \n";
+ $CHANGED_CONSTANTS .= " $Change\n";
+ $CHANGED_CONSTANTS .= " $Effect\n";
+ if($Overcome) {
+ $CHANGED_CONSTANTS .= " $Overcome\n";
+ }
+ $CHANGED_CONSTANTS .= " \n";
+ }
+ $CHANGED_CONSTANTS .= " \n";
+ }
+ $CHANGED_CONSTANTS .= " \n";
+ }
+ $CHANGED_CONSTANTS = "\n".$CHANGED_CONSTANTS."\n\n";
+ }
+ else
+ { # HTML
+ my $ProblemsNum = 0;
+ foreach my $HeaderName (sort {lc($a) cmp lc($b)} keys(%ReportMap))
+ {
+ $CHANGED_CONSTANTS .= "$HeaderName
\n";
+ foreach my $Constant (sort {lc($a) cmp lc($b)} keys(%{$ReportMap{$HeaderName}}))
+ {
+ my $Report = "";
+
+ foreach my $Kind (sort {lc($a) cmp lc($b)} keys(%{$ReportMap{$HeaderName}{$Constant}}))
+ {
+ my $Change = applyMacroses($Level, $Kind, $CompatRules{$Level}{$Kind}{"Change"}, $CompatProblems_Constants{$Level}{$Constant}{$Kind});
+ my $Effect = $CompatRules{$Level}{$Kind}{"Effect"};
+ $Report .= "\n| 1 | \n".$Change." | \n$Effect | \n
\n";
+ $ProblemsNum += 1;
+ }
+ if($Report)
+ {
+ $Report = $ContentDivStart."\n\n | \nChange | \nEffect | \n
\n".$Report."
\n
\n$ContentDivEnd\n";
+ $Report = $ContentSpanStart."[+] ".$Constant.$ContentSpanEnd."
\n".$Report;
+ $Report = insertIDs($Report);
+ }
+ $CHANGED_CONSTANTS .= $Report;
+ }
+ $CHANGED_CONSTANTS .= "
\n";
+ }
+ if($CHANGED_CONSTANTS)
+ {
+ my $Title = "Problems with Constants, $TargetSeverity Severity";
+ if($TargetSeverity eq "Safe")
+ { # Safe Changes
+ $Title = "Other Changes in Constants";
+ }
+ if($In::Opt{"OldStyle"}) {
+ $CHANGED_CONSTANTS = "$Title ($ProblemsNum)
\n".$CHANGED_CONSTANTS;
+ }
+ else {
+ $CHANGED_CONSTANTS = "$Title $ProblemsNum