diff options
author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2006-06-10 18:20:12 +0000 |
---|---|---|
committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2006-06-10 18:20:12 +0000 |
commit | 09310cc486c311bf7e0b72918a62c4bbdb9cd146 (patch) | |
tree | 61a8763c2b0e176d6442eb9d5d67aba529dabb67 | |
parent | c8e79ef6ecd024762bdf0a297ac2faff06cde409 (diff) | |
download | perl-RPM4-09310cc486c311bf7e0b72918a62c4bbdb9cd146.tar perl-RPM4-09310cc486c311bf7e0b72918a62c4bbdb9cd146.tar.gz perl-RPM4-09310cc486c311bf7e0b72918a62c4bbdb9cd146.tar.bz2 perl-RPM4-09310cc486c311bf7e0b72918a62c4bbdb9cd146.tar.xz perl-RPM4-09310cc486c311bf7e0b72918a62c4bbdb9cd146.zip |
- various rpm 4.4.6 adaptation
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@101 971eb68f-4bfb-0310-8326-d2484c010a4c
-rw-r--r-- | RPM4/src/RPM4.xs | 53 | ||||
-rw-r--r-- | RPM4/t/02header.t | 2 |
2 files changed, 45 insertions, 10 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index 248d92d..69952f6 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -64,6 +64,11 @@ #define HD_HEADER_INTERNAL #endif +#include "rpmversion.h" +#ifdef RPM4_4_6 + #define _RPMPS_INTERNAL +#endif + #include <rpm/header.h> #include <rpm/rpmio.h> #include <rpm/rpmdb.h> @@ -1018,8 +1023,8 @@ Header_addtag(h, sv_tag, sv_tagtype, ...) RETVAL = 1; else RETVAL = 0; - if (tag == RPMTAG_OLDFILENAMES) - expandFilelist(h); + /* if (tag == RPMTAG_OLDFILENAMES) + expandFilelist(h); */ for (i = 3; (i < items) && RETVAL; i++) { switch (tagtype) { case RPM_CHAR_TYPE: @@ -1043,9 +1048,9 @@ Header_addtag(h, sv_tag, sv_tagtype, ...) break; } } - if (tag == RPMTAG_OLDFILENAMES) { - compressFilelist(h); - } + /* if (tag == RPMTAG_OLDFILENAMES) { + compressFilelist(h); + } */ OUTPUT: RETVAL @@ -1201,14 +1206,14 @@ Header_fullname(h) name, version, release, - headerIsEntry(h, RPMTAG_SOURCEPACKAGE) ? "src" : arch + headerIsEntry(h, RPMTAG_SOURCERPM) ? arch : "src" ))); } else if (gimme == G_ARRAY) { EXTEND(SP, 4); PUSHs(sv_2mortal(newSVpv(name, 0))); PUSHs(sv_2mortal(newSVpv(version, 0))); PUSHs(sv_2mortal(newSVpv(release, 0))); - if (headerIsEntry(h, RPMTAG_SOURCEPACKAGE)) { + if (!headerIsEntry(h, RPMTAG_SOURCERPM)) { PUSHs(sv_2mortal(newSVpv("src", 0))); } else { PUSHs(sv_2mortal(newSVpv(arch, 0))); @@ -1230,7 +1235,7 @@ int Header_issrc(h) Header h CODE: - RETVAL = headerIsEntry(h, RPMTAG_SOURCEPACKAGE); + RETVAL = !headerIsEntry(h, RPMTAG_SOURCERPM); OUTPUT: RETVAL @@ -1631,10 +1636,14 @@ Ts_transadd(ts, header, key = NULL, upgrade = 1, sv_relocation = NULL, force = 0 int force PREINIT: rpmRelocation * relocations = NULL; +#ifdef RPM4_4_6 + rpmRelocation relptr = NULL; +#endif HV * hv_relocation; HE * he_relocation; int i = 0; I32 len; + CODE: if (key != NULL) @@ -1653,22 +1662,42 @@ Ts_transadd(ts, header, key = NULL, upgrade = 1, sv_relocation = NULL, force = 0 if (SvTYPE(sv_relocation) == SVt_PV) { /* String value, assume a prefix */ relocations = malloc(2 * sizeof(*relocations)); +#ifdef RPM4_4_6 + relptr = relocations[0]; + relptr->newPath = SvPV_nolen(sv_relocation); + relptr = relocations[1]; + relptr->oldPath = relptr->newPath = NULL; +#else relocations[0].oldPath = NULL; relocations[0].newPath = SvPV_nolen(sv_relocation); relocations[1].oldPath = relocations[1].newPath = NULL; +#endif } else if (SvTYPE(SvRV(sv_relocation)) == SVt_PVHV) { hv_relocation = (HV*)SvRV(sv_relocation); hv_iterinit(hv_relocation); while ((he_relocation = hv_iternext(hv_relocation)) != NULL) { relocations = realloc(relocations, sizeof(*relocations) * (++i)); +#ifdef RPM4_4_6 + relptr = relocations[i-1]; + relptr->oldPath = NULL; + relptr->newPath = NULL; + relptr->oldPath = hv_iterkey(he_relocation, &len); + relptr->newPath = SvPV_nolen(hv_iterval(hv_relocation, he_relocation)); +#else relocations[i-1].oldPath = NULL; relocations[i-1].newPath = NULL; relocations[i-1].oldPath = hv_iterkey(he_relocation, &len); relocations[i-1].newPath = SvPV_nolen(hv_iterval(hv_relocation, he_relocation)); +#endif } /* latest relocation is identify by NULL setting */ relocations = realloc(relocations, sizeof(*relocations) * (++i)); +#ifdef RPM4_4_6 + relptr = relocations[i-1]; + relptr->oldPath = relptr->newPath = NULL; +#else relocations[i-1].oldPath = relocations[i-1].newPath = NULL; +#endif } else { croak("latest argument is set but is not an array ref or a string"); } @@ -2556,7 +2585,13 @@ Files_md5(Files) const byte * md5; char * fmd5 = malloc((char) 33); PPCODE: - if ((md5 = rpmfiMD5(Files)) != NULL && *md5 != 0 /* return undef if empty */) { + if ((md5 = +#ifdef RPM4_4_6 + rpmfiDigest(Files, NULL, NULL) +#else + rpmfiMD5(Files) +#endif + ) != NULL && *md5 != 0 /* return undef if empty */) { (void) pgpHexCvt(fmd5, md5, 16); XPUSHs(sv_2mortal(newSVpv(fmd5, 0))); } diff --git a/RPM4/t/02header.t b/RPM4/t/02header.t index 7bba1a4..2fff439 100644 --- a/RPM4/t/02header.t +++ b/RPM4/t/02header.t @@ -18,7 +18,7 @@ my $hdr = RPM4::Header->new("$Bin/test-rpm-1.0-1mdk.src.rpm"); isa_ok($hdr, "RPM4::Header", "instanciating an header from a source rpm works"); ok($hdr->hastag(1000) eq 1, "Has tag 1000 (NAME), yes"); ok($hdr->hastag("NAME") eq 1, "Has 'NAME', yes"); -ok($hdr->hastag(1106) eq 1, "Has tag 1106 (SOURCEPACKAGE), yes"); +ok($hdr->hastag(1044) eq 0, "Has tag 1044 (SOURCERPM), yes"); ok($hdr->listtag(), "can list tag"); is($hdr->tag(1000), "test-rpm", "accessing tag by id works"); is($hdr->tag("NAME"), "test-rpm", "accessing tag by name works"); |