aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.xs
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-11-21 20:08:50 +0000
committerThierry Vignaud <tv@mageia.org>2012-11-21 20:08:50 +0000
commit2723588f9316f16cb01f3c77d837c37bb28d190e (patch)
tree4bdba10c8ad68504279d5c583a1f9e1d5a803b4d /URPM.xs
parentd2c7b0d29879e15e7cd0662358aa045ad5cef4cc (diff)
downloadperl-URPM-2723588f9316f16cb01f3c77d837c37bb28d190e.tar
perl-URPM-2723588f9316f16cb01f3c77d837c37bb28d190e.tar.gz
perl-URPM-2723588f9316f16cb01f3c77d837c37bb28d190e.tar.bz2
perl-URPM-2723588f9316f16cb01f3c77d837c37bb28d190e.tar.xz
perl-URPM-2723588f9316f16cb01f3c77d837c37bb28d190e.zip
alias obsoletes/provides/requires
Diffstat (limited to 'URPM.xs')
-rw-r--r--URPM.xs42
1 files changed, 13 insertions, 29 deletions
diff --git a/URPM.xs b/URPM.xs
index c726dd3..5e8842c 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1819,15 +1819,6 @@ Pkg_set_id(pkg, id=-1)
pkg->flag |= id >= 0 && id <= FLAG_ID_MAX ? id : FLAG_ID_INVALID;
void
-Pkg_requires(pkg)
- URPM::Package pkg
- PPCODE:
- PUTBACK;
- return_list_str(pkg->requires, pkg->h, RPMTAG_REQUIRENAME, RPMTAG_REQUIREFLAGS, RPMTAG_REQUIREVERSION,
- callback_list_str_xpush, NULL);
- SPAGAIN;
-
-void
Pkg_suggests(pkg)
URPM::Package pkg
PPCODE:
@@ -1838,10 +1829,21 @@ Pkg_suggests(pkg)
void
Pkg_obsoletes(pkg)
URPM::Package pkg
+ ALIAS:
+ conflicts = 1
+ provides = 2
+ requires = 3
PPCODE:
PUTBACK;
- return_list_str(pkg->obsoletes, pkg->h, RPMTAG_OBSOLETENAME, RPMTAG_OBSOLETEFLAGS, RPMTAG_OBSOLETEVERSION,
- callback_list_str_xpush, NULL);
+ rpmTag tag, flags, tag_version;
+ char *s;
+ switch (ix) {
+ case 1: tag = RPMTAG_CONFLICTNAME; s = pkg->conflicts; flags = RPMTAG_CONFLICTFLAGS; tag_version = RPMTAG_CONFLICTVERSION; break;
+ case 2: tag = RPMTAG_PROVIDENAME; s = pkg->provides; flags = RPMTAG_PROVIDEFLAGS; tag_version = RPMTAG_PROVIDEVERSION; break;
+ case 3: tag = RPMTAG_REQUIRENAME; s = pkg->requires; flags = RPMTAG_REQUIREFLAGS; tag_version = RPMTAG_REQUIREVERSION; break;
+ default: tag = RPMTAG_OBSOLETENAME; s = pkg->obsoletes; flags = RPMTAG_OBSOLETEFLAGS; tag_version = RPMTAG_OBSOLETEVERSION; break;
+ }
+ return_list_str(s, pkg->h, tag, flags, tag_version, callback_list_str_xpush, NULL);
SPAGAIN;
void
@@ -1920,24 +1922,6 @@ Pkg_obsoletes_overlap(pkg, s)
RETVAL
void
-Pkg_conflicts(pkg)
- URPM::Package pkg
- PPCODE:
- PUTBACK;
- return_list_str(pkg->conflicts, pkg->h, RPMTAG_CONFLICTNAME, RPMTAG_CONFLICTFLAGS, RPMTAG_CONFLICTVERSION,
- callback_list_str_xpush, NULL);
- SPAGAIN;
-
-void
-Pkg_provides(pkg)
- URPM::Package pkg
- PPCODE:
- PUTBACK;
- return_list_str(pkg->provides, pkg->h, RPMTAG_PROVIDENAME, RPMTAG_PROVIDEFLAGS, RPMTAG_PROVIDEVERSION,
- callback_list_str_xpush, NULL);
- SPAGAIN;
-
-void
Pkg_buildarchs(pkg)
URPM::Package pkg
ALIAS: