Implement to get reverse dependence xml file for gbs full build

Change-Id: Iae7e42a1c46d85c4413cf7b810372ca2b7defc68
Signed-off-by: biao716.wang <biao716.wang@samsung.com>

diff --git a/depanneur b/depanneur
index 16a406cb0472ad2c68c2ea0922acb081fb26ff0d..314352937c5d93196d806c6b897eae7cc3f33449 100755 (executable)
--- a/depanneur
+++ b/depanneur
@@ -2468,16 +2468,30 @@ sub generate_depends() {
 
     my $total = scalar (keys %to_build);
     my $index = 1;
-    foreach my $p (keys %to_build) {
-        info("[$index/$total] generating $p.full_edges.vis_input.js...");
-        open(my $f, '>', "$out/$p.full_edges.vis_input.js") or die "Could not open file '$out/$p.full_edges.vis_input.js' $!";
-        print $f "label: '$p'\n";
-        foreach my $dep (@{$pkgrdeps{$p}}) {
-            print $f "label: '$dep'\n";
-        }
-        close $f;
+
+    #Generate reverse dependence xml file.
+    info("Generating reverse dependence file...");
+    open(my $f, '>', "$out/$dist\_$arch\_revpkgdepends.xml") or die "$out/$dist\_$arch\_revpkgdepends.xml' $!";
+    print $f "<builddepinfo>\n";
+    #sort in alphabetical order
+    foreach my $p (sort keys %to_build) {
+       info("[$index/$total] generating reverse dependence for package $p...");
+        print $f "<package name= \"$p\">\n";
+        #output package source name
+        print $f "<source>$p</source>\n";
+       #output reverse dependence package info.
+        foreach my $dep (sort @{$pkgrdeps{$p}}) {
+            print $f "<pkgdep>$dep</pkgdep>\n";
+        }
+       #output subpkg info.
+        foreach my $subpn (sort @{$packs{$p}->{subpacks}}) {
+            print $f "<subpkg>$subpn</subpkg>\n";
+        }
+        print $f "</package>\n";
         $index++;
     }
+    print $f "</builddepinfo>\n";
+    close $f;
 }
 #use pre-export source to analyse
 sub fill_packs_from_dir {