add support for generating recommends in synthesis

aka having @recommends@ lines instead of @suggests@ ones

Conflicts:
	NEWS
	URPM.xs

3 files changed, 7 insertions, 3 deletions

diff --git a/NEWS b/NEWS
index d7d7572..1a6eb28 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,7 @@
 - make it compatible with rpm-4.12.0
 - use new recommends tags instead of suggests ones
+- add support for generating @recommends@ lines instead of @suggests@ ones in
+  synthesis
 
 Version 3.40.3 - 15 April 2013
 
diff --git a/URPM.xs b/URPM.xs
index 0b68444..5fade80 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2365,10 +2365,11 @@ Pkg_free_header(pkg)
   pkg->h = NULL;
 
 void
-Pkg_build_info(pkg, fileno, provides_files=NULL)
+Pkg_build_info(pkg, fileno, provides_files=NULL, recommends=0)
   URPM::Package pkg
   int fileno
   char *provides_files
+  int recommends
   CODE:
   if (pkg->info) {
     char buff[65536];
@@ -2398,7 +2399,7 @@ Pkg_build_info(pkg, fileno, provides_files=NULL)
       if (size < sizeof(buff)) write_nocheck(fileno, buff, size);
     }
     if (pkg->suggests && *pkg->suggests) {
-      size = snprintf(buff, sizeof(buff), "@suggests@%s\n", pkg->suggests);
+      size = snprintf(buff, sizeof(buff), recommends ? "@recommends@%s\n" : "@suggests@%s\n", pkg->suggests);
       if (size < sizeof(buff)) write_nocheck(fileno, buff, size);
     }
     if (pkg->summary && *pkg->summary) {
diff --git a/URPM/Build.pm b/URPM/Build.pm
index ad74090..d0a726c 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -416,6 +416,7 @@ sub build_hdlist {
 #-   start     : index of first package (defaults to first index of depslist).
 #-   end       : index of last package (defaults to last index of depslist).
 #-   idlist    : id list of rpm to compute (defaults is start .. end)
+#-   recommends: output recommends instead of suggest
 #-   ratio     : compression ratio (default 9).
 #-   filter    : program to filter through (default is 'gzip -$ratio').
 #- returns true on success
@@ -450,7 +451,7 @@ sub build_synthesis {
 	    delete @files{$pkg->provides_nosense};
 	}
 
-	$pkg->build_info($options{synthesis} ? fileno $fh : $options{fd}, join('@', keys %files));
+	$pkg->build_info($options{synthesis} ? fileno $fh : $options{fd}, join('@', keys %files), $options{recommends});
     }
     close $fh; # returns true on success
 }