Added transactions skeleton

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

1 files changed, 46 insertions, 1 deletions

diff --git a/perl/rpm.xs b/perl/rpm.xs
index 1eb8fc0fe..d4c6573f5 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 <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
+