Generate dependece XML file

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

diff --git a/depanneur b/depanneur
index af0bdbe..da134e6 100755 (executable)
--- a/depanneur
+++ b/depanneur
@@ -2471,32 +2471,58 @@ sub generate_depends() {
     my $out = "$depends_dir/$dist/$arch/";
     mkdir_p($out);
 
-    my $total = scalar (keys %to_build);
-    my $index = 1;
+    #    my $total = scalar (keys %to_build);
+    #    my $index = 1;
 
-    #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' $!";
+    #Generate dependence XML file.
+    info("Generating dependence XML file...");
+    open(my $f, '>', "$out/$dist\_$arch\_pkgdepends.xml") or die "$out/$dist\_$arch\_pkgdepends.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...");
+       #info("[$index/$total] generating 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}}) {
+        #output reverse dependence package info.
+        foreach my $dep (sort @{$pkgdeps{$p}}) {
             print $f "<pkgdep>$dep</pkgdep>\n";
         }
-       #output subpkg info.
+        #output subpkg info.
         foreach my $subpn (sort @{$packs{$p}->{subpacks}}) {
             print $f "<subpkg>$subpn</subpkg>\n";
         }
         print $f "</package>\n";
-        $index++;
+       #$index++;
     }
     print $f "</builddepinfo>\n";
     close $f;
+    info("The dependence XML file has been generated in $out");
+
+    #Generate reverse dependence XML file.
+    info("Generating reverse dependence XML file...");
+    open(my $rf, '>', "$out/$dist\_$arch\_revpkgdepends.xml") or die "$out/$dist\_$arch\_revpkgdepends.xml' $!";
+    print $rf "<builddepinfo>\n";
+    #sort in alphabetical order
+    foreach my $p (sort keys %to_build) {
+       #info("[$index/$total] generating reverse dependence for package $p...");
+        print $rf "<package name= \"$p\">\n";
+        #output package source name
+        print $rf "<source>$p</source>\n";
+       #output reverse dependence package info.
+        foreach my $dep (sort @{$pkgrdeps{$p}}) {
+            print $rf "<pkgdep>$dep</pkgdep>\n";
+        }
+       #output subpkg info.
+        foreach my $subpn (sort @{$packs{$p}->{subpacks}}) {
+            print $rf "<subpkg>$subpn</subpkg>\n";
+        }
+        print $rf "</package>\n";
+       #$index++;
+    }
+    print $rf "</builddepinfo>\n";
+    close $rf;
+    info("The reverse dependence XML file has been generated in $out");
 }
 #use pre-export source to analyse
 sub fill_packs_from_dir {