Added transactions skeleton

CVS patchset: 3163
CVS date: 1999/07/14 22:06:21

diff --git a/perl/rpm.xs b/perl/rpm.xs
index 1eb8fc0..d4c6573 100644 (file)
--- 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 <sys/stat.h>
 #include <fcntl.h>
 
+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 (file)
--- 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