aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.xs
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-07-04 11:25:38 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-07-04 11:25:38 +0000
commit4294365db5d78909ae5a490e0714db379502cd80 (patch)
treebf5a2fc9c439651279429dac93a6666447709012 /URPM.xs
parente5fdf9e289f02f44b163fd9a063b1e7f2880469a (diff)
downloadperl-URPM-4294365db5d78909ae5a490e0714db379502cd80.tar
perl-URPM-4294365db5d78909ae5a490e0714db379502cd80.tar.gz
perl-URPM-4294365db5d78909ae5a490e0714db379502cd80.tar.bz2
perl-URPM-4294365db5d78909ae5a490e0714db379502cd80.tar.xz
perl-URPM-4294365db5d78909ae5a490e0714db379502cd80.zip
- add traverse_tag_find()
Diffstat (limited to 'URPM.xs')
-rw-r--r--URPM.xs43
1 files changed, 43 insertions, 0 deletions
diff --git a/URPM.xs b/URPM.xs
index 5a30d22..679bede 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2921,6 +2921,49 @@ Db_traverse_tag(db,tag,names,callback)
OUTPUT:
RETVAL
+int
+Db_traverse_tag_find(db,tag,name,callback)
+ URPM::DB db
+ char *tag
+ char *name
+ SV *callback
+ PREINIT:
+ Header header;
+ rpmdbMatchIterator mi;
+ CODE:
+ int rpmtag = rpmtag_from_string(tag);
+ int found = 0;
+
+ db->ts = rpmtsLink(db->ts, "URPM::DB::traverse_tag");
+ ts_nosignature(db->ts);
+ mi = rpmtsInitIterator(db->ts, rpmtag, name, 0);
+ while ((header = rpmdbNextIterator(mi))) {
+ dSP;
+ URPM__Package pkg = calloc(1, sizeof(struct s_Package));
+
+ pkg->flag = FLAG_ID_INVALID | FLAG_NO_HEADER_FREE;
+ pkg->h = header;
+
+ PUSHMARK(SP);
+ XPUSHs(sv_2mortal(sv_setref_pv(newSVpv("", 0), "URPM::Package", pkg)));
+ PUTBACK;
+
+ int count = call_sv(callback, G_SCALAR);
+
+ SPAGAIN;
+ pkg->h = 0; /* avoid using it anymore, in case it has been copied inside callback */
+
+ if (count == 1 && POPi) {
+ found = 1;
+ break;
+ }
+ }
+ rpmdbFreeIterator(mi);
+ rpmtsFree(db->ts);
+ RETVAL = found;
+ OUTPUT:
+ RETVAL
+
URPM::Transaction
Db_create_transaction(db, prefix="/")
URPM::DB db