aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.xs
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2004-04-22 05:32:41 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2004-04-22 05:32:41 +0000
commit4394ecba52ed94a2bb5957ef7237b85924d6bad3 (patch)
treeece40e9b6c15e5ec1e6cea20f0f07df2b51be16f /URPM.xs
parentbe514d45aa490b99c0483a00ce02b41621a42aaf (diff)
downloadperl-URPM-4394ecba52ed94a2bb5957ef7237b85924d6bad3.tar
perl-URPM-4394ecba52ed94a2bb5957ef7237b85924d6bad3.tar.gz
perl-URPM-4394ecba52ed94a2bb5957ef7237b85924d6bad3.tar.bz2
perl-URPM-4394ecba52ed94a2bb5957ef7237b85924d6bad3.tar.xz
perl-URPM-4394ecba52ed94a2bb5957ef7237b85924d6bad3.zip
- return_list_tag is able to return some basic tags from synthesis
Diffstat (limited to 'URPM.xs')
-rw-r--r--URPM.xs68
1 files changed, 61 insertions, 7 deletions
diff --git a/URPM.xs b/URPM.xs
index c942d3f..3e84100 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -692,14 +692,18 @@ return_list_tag_modifier(Header header, int_32 tag_name) {
}
void
-return_list_tag(Header header, int_32 tag_name) {
+return_list_tag(URPM__Package pkg, int_32 tag_name) {
dSP;
- if (header) {
+ if (pkg->h) {
void *list = NULL;
int_32 count, type;
- headerGetEntry(header, tag_name, &type, (void **) &list, &count);
- if (list) {
+ headerGetEntry(pkg->h, tag_name, &type, (void **) &list, &count);
+ if (list) {
+ // avoid arch here (rpm don't return src), it's not beautifull
+ if (tag_name == RPMTAG_ARCH ) {
+ XPUSHs(sv_2mortal(newSVpv(headerIsEntry(pkg->h, RPMTAG_SOURCEPACKAGE) ? "src" : (char *) list, 0)));
+ } else
switch (type) {
case RPM_NULL_TYPE:
break;
@@ -729,7 +733,7 @@ return_list_tag(Header header, int_32 tag_name) {
{
int i;
char **s;
-
+
s = (char **)list;
for (i = 0; i < count; i++) {
XPUSHs(sv_2mortal(newSVpv(s[i], 0)));
@@ -738,8 +742,58 @@ return_list_tag(Header header, int_32 tag_name) {
break;
case RPM_I18NSTRING_TYPE:
break;
- }
+ }
}
+ } else {
+ switch (tag_name) {
+ case RPMTAG_NAME:
+ {
+ char *name;
+ char *version;
+ char *release;
+ char *arch;
+ char *eos;
+ get_fullname_parts(pkg, &name, &version, &release, &arch, &eos);
+ XPUSHs(sv_2mortal(newSVpv(name, version-name)));
+ }
+ break;
+ case RPMTAG_VERSION:
+ {
+ char *name;
+ char *version;
+ char *release;
+ char *arch;
+ char *eos;
+ get_fullname_parts(pkg, &name, &version, &release, &arch, &eos);
+ XPUSHs(sv_2mortal(newSVpv(version, release-version)));
+ }
+ break;
+ case RPMTAG_RELEASE:
+ {
+ char *name;
+ char *version;
+ char *release;
+ char *arch;
+ char *eos;
+ get_fullname_parts(pkg, &name, &version, &release, &arch, &eos);
+ XPUSHs(sv_2mortal(newSVpv(release, arch-release)));
+ }
+ break;
+ case RPMTAG_ARCH:
+ {
+ char *name;
+ char *version;
+ char *release;
+ char *arch;
+ char *eos;
+ get_fullname_parts(pkg, &name, &version, &release, &arch, &eos);
+ XPUSHs(sv_2mortal(newSVpv(arch, eos-arch)));
+ }
+ break;
+ case RPMTAG_SUMMARY:
+ XPUSHs(sv_2mortal(newSVpv(pkg->summary, 0)));
+ break;
+ }
}
PUTBACK;
}
@@ -2268,7 +2322,7 @@ Pkg_get_tag(pkg, tagname)
int tagname;
PPCODE:
PUTBACK;
- return_list_tag(pkg->h, tagname);
+ return_list_tag(pkg, tagname);
SPAGAIN;
void