From aa85d25a0e5e3b146f8f65c582c652d62109869c Mon Sep 17 00:00:00 2001 From: gafton Date: Wed, 14 Jul 1999 22:06:21 +0000 Subject: [PATCH] Added transactions skeleton CVS patchset: 3163 CVS date: 1999/07/14 22:06:21 --- perl/rpm.xs | 47 ++++++++++++++++++++++++++++++++++++++++++++++- perl/typemap | 3 ++- 2 files changed, 48 insertions(+), 2 deletions(-) diff --git a/perl/rpm.xs b/perl/rpm.xs index 1eb8fc0..d4c6573 100644 --- a/perl/rpm.xs +++ b/perl/rpm.xs @@ -1,7 +1,7 @@ /* * Perl interface to rpmlib * - * $Id: rpm.xs,v 1.2 1999/07/14 17:23:30 gafton Exp $ + * $Id: rpm.xs,v 1.3 1999/07/14 22:06:21 gafton Exp $ */ #include "EXTERN.h" @@ -18,8 +18,14 @@ #include #include +typedef rpmTransactionSet_s * Transaction; + +/* + * External functions + */ extern double constant(char *name, int arg); + MODULE = rpm PACKAGE = rpm PROTOTYPES: ENABLE @@ -58,6 +64,10 @@ Header(package) sv_setref_pv(ST(0), "HeaderPtr", (void*)RETVAL); } +Transaction * +Transaction(header) + Header * header + MODULE = rpm PACKAGE = HeaderPtr PREFIX = Header @@ -268,3 +278,38 @@ HeaderTagsRef(header) headerFreeIterator(iterator); OUTPUT: RETVAL + +MODULE = rpm PACKAGE = TransactionPtr PREFIX = Trans + +int +TransAdd(trans, header) + Transaction * trans + Header * header + +int +TransDepCheck(trans) + Transaction * trans + +int +TransRun(trans) + Transaction * trans + +Transaction * +TransOrder(trans) + Transaction *trans + +int +TransDealloc(trans) + Transaction * trans + +int +TransGetAttr(trans, name) + Transaction * trans + const char * name + +int +TransSetAttr(trans, name, val) + Transaction * trans + const char * name + void * val + diff --git a/perl/typemap b/perl/typemap index c3e88c6..87037b8 100644 --- a/perl/typemap +++ b/perl/typemap @@ -1,7 +1,8 @@ -/* $Id: typemap,v 1.2 1999/07/14 17:23:30 gafton Exp $ */ +/* $Id: typemap,v 1.3 1999/07/14 22:06:21 gafton Exp $ */ TYPEMAP Header * T_PTROBJ const char * T_PV +Transaction * T_PTROBJ -- 2.7.4