Merge Christian's preliminary perl bindings.

CVS patchset: 3158
CVS date: 1999/07/14 16:52:52

diff --git a/perl/.cvsignore b/perl/.cvsignore
new file mode 100644 (file)
index 0000000..deb5b15
--- /dev/null
+++ b/perl/.cvsignore
@@ -0,0 +1,5 @@
+rpm.bs
+rpm.c
+pm_to_blib
+Makefile
+blib

diff --git a/perl/check b/perl/check
new file mode 100755 (executable)
index 0000000..9a1cd74
--- /dev/null
+++ b/perl/check
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+
+use ExtUtils::testlib;
+use rpm;
+
+my $testfile = "foo.i386.rpm";
+
+my $header = rpm::Header($testfile);
+
+if ($header) {
+  my @foo_test = ();
+  my %foo_test = ();
+  my $key;
+
+  print "call to the header function SUCCEEDED\n";
+  @foo_test = $header->ItemByVal(1081);
+  print "values returned ", @foo_test, "\n\n\n";
+
+  %foo_test = $header->List();
+  foreach $key (sort keys %foo_test) {
+    my $foo_it;
+    print "Item [$key] has [", scalar @{$foo_test{$key}}, "] values: ";
+    foreach $foo_it (@{$foo_test{$key}}) {
+      print "[$foo_it] ";
+    }
+    print "\n";
+  }
+  
+  print "The number of header tags is: ", scalar $header->Tags(), "\n";
+
+} else {
+  print "call to the header function FAILED\n";
+}
+
+
+

diff --git a/perl/constant.c b/perl/constant.c
new file mode 100644 (file)
index 0000000..847dd77
--- /dev/null
+++ b/perl/constant.c
@@ -0,0 +1,1643 @@
+#include "EXTERN.h" 
+#include "perl.h" 
+#include "XSUB.h" 
+ 
+#include <rpm/rpmio.h> 
+#include <rpm/dbindex.h> 
+#include <rpm/header.h> 
+#include <popt.h> 
+#include <rpm/rpmlib.h> 
+
+static int
+not_here(char *s)
+{
+    croak("%s not implemented on this architecture", s);
+    return -1;
+}
+
+double
+constant(char *name, int arg)
+{
+    errno = 0;
+    switch (*name) {
+    case 'A':
+       break;
+    case 'B':
+       break;
+    case 'C':
+       break;
+    case 'D':
+       break;
+    case 'E':
+       break;
+    case 'F':
+       break;
+    case 'G':
+       break;
+    case 'H':
+       break;
+    case 'I':
+       break;
+    case 'J':
+       break;
+    case 'K':
+       break;
+    case 'L':
+       break;
+    case 'M':
+       break;
+    case 'N':
+       break;
+    case 'O':
+       break;
+    case 'P':
+       break;
+    case 'Q':
+       if (strEQ(name, "QUERY_FOR_CONFIG"))
+#ifdef QUERY_FOR_CONFIG
+           return QUERY_FOR_CONFIG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "QUERY_FOR_DOCS"))
+#ifdef QUERY_FOR_DOCS
+           return QUERY_FOR_DOCS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "QUERY_FOR_DUMPFILES"))
+#ifdef QUERY_FOR_DUMPFILES
+           return QUERY_FOR_DUMPFILES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "QUERY_FOR_LIST"))
+#ifdef QUERY_FOR_LIST
+           return QUERY_FOR_LIST;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "QUERY_FOR_STATE"))
+#ifdef QUERY_FOR_STATE
+           return QUERY_FOR_STATE;
+#else
+           goto not_there;
+#endif
+       break;
+    case 'R':
+       if (strEQ(name, "RPMERR_BADARG"))
+#ifdef RPMERR_BADARG
+           return RPMERR_BADARG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_BADDEV"))
+#ifdef RPMERR_BADDEV
+           return RPMERR_BADDEV;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_BADFILENAME"))
+#ifdef RPMERR_BADFILENAME
+           return RPMERR_BADFILENAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_BADMAGIC"))
+#ifdef RPMERR_BADMAGIC
+           return RPMERR_BADMAGIC;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_BADRELOCATE"))
+#ifdef RPMERR_BADRELOCATE
+           return RPMERR_BADRELOCATE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_BADSIGTYPE"))
+#ifdef RPMERR_BADSIGTYPE
+           return RPMERR_BADSIGTYPE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_BADSPEC"))
+#ifdef RPMERR_BADSPEC
+           return RPMERR_BADSPEC;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_CHOWN"))
+#ifdef RPMERR_CHOWN
+           return RPMERR_CHOWN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_CPIO"))
+#ifdef RPMERR_CPIO
+           return RPMERR_CPIO;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_CREATE"))
+#ifdef RPMERR_CREATE
+           return RPMERR_CREATE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_DBCORRUPT"))
+#ifdef RPMERR_DBCORRUPT
+           return RPMERR_DBCORRUPT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_DBGETINDEX"))
+#ifdef RPMERR_DBGETINDEX
+           return RPMERR_DBGETINDEX;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_DBOPEN"))
+#ifdef RPMERR_DBOPEN
+           return RPMERR_DBOPEN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_DBPUTINDEX"))
+#ifdef RPMERR_DBPUTINDEX
+           return RPMERR_DBPUTINDEX;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_EXEC"))
+#ifdef RPMERR_EXEC
+           return RPMERR_EXEC;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_FILECONFLICT"))
+#ifdef RPMERR_FILECONFLICT
+           return RPMERR_FILECONFLICT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_FLOCK"))
+#ifdef RPMERR_FLOCK
+           return RPMERR_FLOCK;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_FORK"))
+#ifdef RPMERR_FORK
+           return RPMERR_FORK;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_GDBMOPEN"))
+#ifdef RPMERR_GDBMOPEN
+           return RPMERR_GDBMOPEN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_GDBMREAD"))
+#ifdef RPMERR_GDBMREAD
+           return RPMERR_GDBMREAD;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_GDBMWRITE"))
+#ifdef RPMERR_GDBMWRITE
+           return RPMERR_GDBMWRITE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_GZIP"))
+#ifdef RPMERR_GZIP
+           return RPMERR_GZIP;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_INTERNAL"))
+#ifdef RPMERR_INTERNAL
+           return RPMERR_INTERNAL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_LDD"))
+#ifdef RPMERR_LDD
+           return RPMERR_LDD;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_MKDIR"))
+#ifdef RPMERR_MKDIR
+           return RPMERR_MKDIR;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_MTAB"))
+#ifdef RPMERR_MTAB
+           return RPMERR_MTAB;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_NEWPACKAGE"))
+#ifdef RPMERR_NEWPACKAGE
+           return RPMERR_NEWPACKAGE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_NOCREATEDB"))
+#ifdef RPMERR_NOCREATEDB
+           return RPMERR_NOCREATEDB;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_NOGROUP"))
+#ifdef RPMERR_NOGROUP
+           return RPMERR_NOGROUP;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_NORELOCATE"))
+#ifdef RPMERR_NORELOCATE
+           return RPMERR_NORELOCATE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_NOSPACE"))
+#ifdef RPMERR_NOSPACE
+           return RPMERR_NOSPACE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_NOSPEC"))
+#ifdef RPMERR_NOSPEC
+           return RPMERR_NOSPEC;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_NOTSRPM"))
+#ifdef RPMERR_NOTSRPM
+           return RPMERR_NOTSRPM;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_NOUSER"))
+#ifdef RPMERR_NOUSER
+           return RPMERR_NOUSER;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_OLDDB"))
+#ifdef RPMERR_OLDDB
+           return RPMERR_OLDDB;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_OLDDBCORRUPT"))
+#ifdef RPMERR_OLDDBCORRUPT
+           return RPMERR_OLDDBCORRUPT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_OLDDBMISSING"))
+#ifdef RPMERR_OLDDBMISSING
+           return RPMERR_OLDDBMISSING;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_OLDPACKAGE"))
+#ifdef RPMERR_OLDPACKAGE
+           return RPMERR_OLDPACKAGE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_PKGINSTALLED"))
+#ifdef RPMERR_PKGINSTALLED
+           return RPMERR_PKGINSTALLED;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_READERROR"))
+#ifdef RPMERR_READERROR
+           return RPMERR_READERROR;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_RENAME"))
+#ifdef RPMERR_RENAME
+           return RPMERR_RENAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_RMDIR"))
+#ifdef RPMERR_RMDIR
+           return RPMERR_RMDIR;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_RPMRC"))
+#ifdef RPMERR_RPMRC
+           return RPMERR_RPMRC;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_SCRIPT"))
+#ifdef RPMERR_SCRIPT
+           return RPMERR_SCRIPT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_SIGGEN"))
+#ifdef RPMERR_SIGGEN
+           return RPMERR_SIGGEN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_STAT"))
+#ifdef RPMERR_STAT
+           return RPMERR_STAT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_UNKNOWNARCH"))
+#ifdef RPMERR_UNKNOWNARCH
+           return RPMERR_UNKNOWNARCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_UNKNOWNOS"))
+#ifdef RPMERR_UNKNOWNOS
+           return RPMERR_UNKNOWNOS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_UNLINK"))
+#ifdef RPMERR_UNLINK
+           return RPMERR_UNLINK;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMERR_UNMATCHEDIF"))
+#ifdef RPMERR_UNMATCHEDIF
+           return RPMERR_UNMATCHEDIF;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_CONFIG"))
+#ifdef RPMFILE_CONFIG
+           return RPMFILE_CONFIG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_DOC"))
+#ifdef RPMFILE_DOC
+           return RPMFILE_DOC;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_DONOTUSE"))
+#ifdef RPMFILE_DONOTUSE
+           return RPMFILE_DONOTUSE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_GHOST"))
+#ifdef RPMFILE_GHOST
+           return RPMFILE_GHOST;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_LICENSE"))
+#ifdef RPMFILE_LICENSE
+           return RPMFILE_LICENSE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_MISSINGOK"))
+#ifdef RPMFILE_MISSINGOK
+           return RPMFILE_MISSINGOK;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_NOREPLACE"))
+#ifdef RPMFILE_NOREPLACE
+           return RPMFILE_NOREPLACE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_README"))
+#ifdef RPMFILE_README
+           return RPMFILE_README;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_SPECFILE"))
+#ifdef RPMFILE_SPECFILE
+           return RPMFILE_SPECFILE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_STATE_NETSHARED"))
+#ifdef RPMFILE_STATE_NETSHARED
+           return RPMFILE_STATE_NETSHARED;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_STATE_NORMAL"))
+#ifdef RPMFILE_STATE_NORMAL
+           return RPMFILE_STATE_NORMAL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_STATE_NOTINSTALLED"))
+#ifdef RPMFILE_STATE_NOTINSTALLED
+           return RPMFILE_STATE_NOTINSTALLED;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMFILE_STATE_REPLACED"))
+#ifdef RPMFILE_STATE_REPLACED
+           return RPMFILE_STATE_REPLACED;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMLEAD_BINARY"))
+#ifdef RPMLEAD_BINARY
+           return RPMLEAD_BINARY;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMLEAD_MAGIC0"))
+#ifdef RPMLEAD_MAGIC0
+           return RPMLEAD_MAGIC0;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMLEAD_MAGIC1"))
+#ifdef RPMLEAD_MAGIC1
+           return RPMLEAD_MAGIC1;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMLEAD_MAGIC2"))
+#ifdef RPMLEAD_MAGIC2
+           return RPMLEAD_MAGIC2;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMLEAD_MAGIC3"))
+#ifdef RPMLEAD_MAGIC3
+           return RPMLEAD_MAGIC3;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMLEAD_SIZE"))
+#ifdef RPMLEAD_SIZE
+           return RPMLEAD_SIZE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMLEAD_SOURCE"))
+#ifdef RPMLEAD_SOURCE
+           return RPMLEAD_SOURCE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_ALTNAME"))
+#ifdef RPMMESS_ALTNAME
+           return RPMMESS_ALTNAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_BACKUP"))
+#ifdef RPMMESS_BACKUP
+           return RPMMESS_BACKUP;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_DEBUG"))
+#ifdef RPMMESS_DEBUG
+           return RPMMESS_DEBUG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_ERROR"))
+#ifdef RPMMESS_ERROR
+           return RPMMESS_ERROR;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_FATALERROR"))
+#ifdef RPMMESS_FATALERROR
+           return RPMMESS_FATALERROR;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_NORMAL"))
+#ifdef RPMMESS_NORMAL
+           return RPMMESS_NORMAL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_PREREQLOOP"))
+#ifdef RPMMESS_PREREQLOOP
+           return RPMMESS_PREREQLOOP;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_QUIET"))
+#ifdef RPMMESS_QUIET
+           return RPMMESS_QUIET;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_VERBOSE"))
+#ifdef RPMMESS_VERBOSE
+           return RPMMESS_VERBOSE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMMESS_WARNING"))
+#ifdef RPMMESS_WARNING
+           return RPMMESS_WARNING;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMPROB_FILTER_DISKSPACE"))
+#ifdef RPMPROB_FILTER_DISKSPACE
+           return RPMPROB_FILTER_DISKSPACE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMPROB_FILTER_FORCERELOCATE"))
+#ifdef RPMPROB_FILTER_FORCERELOCATE
+           return RPMPROB_FILTER_FORCERELOCATE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMPROB_FILTER_IGNOREARCH"))
+#ifdef RPMPROB_FILTER_IGNOREARCH
+           return RPMPROB_FILTER_IGNOREARCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMPROB_FILTER_IGNOREOS"))
+#ifdef RPMPROB_FILTER_IGNOREOS
+           return RPMPROB_FILTER_IGNOREOS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMPROB_FILTER_OLDPACKAGE"))
+#ifdef RPMPROB_FILTER_OLDPACKAGE
+           return RPMPROB_FILTER_OLDPACKAGE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMPROB_FILTER_REPLACENEWFILES"))
+#ifdef RPMPROB_FILTER_REPLACENEWFILES
+           return RPMPROB_FILTER_REPLACENEWFILES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMPROB_FILTER_REPLACEOLDFILES"))
+#ifdef RPMPROB_FILTER_REPLACEOLDFILES
+           return RPMPROB_FILTER_REPLACEOLDFILES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMPROB_FILTER_REPLACEPKG"))
+#ifdef RPMPROB_FILTER_REPLACEPKG
+           return RPMPROB_FILTER_REPLACEPKG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_ANY"))
+#ifdef RPMSENSE_ANY
+           return RPMSENSE_ANY;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_CONFLICTS"))
+#ifdef RPMSENSE_CONFLICTS
+           return RPMSENSE_CONFLICTS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_EQUAL"))
+#ifdef RPMSENSE_EQUAL
+           return RPMSENSE_EQUAL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_GREATER"))
+#ifdef RPMSENSE_GREATER
+           return RPMSENSE_GREATER;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_LESS"))
+#ifdef RPMSENSE_LESS
+           return RPMSENSE_LESS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_OBSOLETES"))
+#ifdef RPMSENSE_OBSOLETES
+           return RPMSENSE_OBSOLETES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_PREREQ"))
+#ifdef RPMSENSE_PREREQ
+           return RPMSENSE_PREREQ;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_PROVIDES"))
+#ifdef RPMSENSE_PROVIDES
+           return RPMSENSE_PROVIDES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_SENSEMASK"))
+#ifdef RPMSENSE_SENSEMASK
+           return RPMSENSE_SENSEMASK;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_SERIAL"))
+#ifdef RPMSENSE_SERIAL
+           return RPMSENSE_SERIAL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_TRIGGER"))
+#ifdef RPMSENSE_TRIGGER
+           return RPMSENSE_TRIGGER;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_TRIGGERIN"))
+#ifdef RPMSENSE_TRIGGERIN
+           return RPMSENSE_TRIGGERIN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_TRIGGERPOSTUN"))
+#ifdef RPMSENSE_TRIGGERPOSTUN
+           return RPMSENSE_TRIGGERPOSTUN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSENSE_TRIGGERUN"))
+#ifdef RPMSENSE_TRIGGERUN
+           return RPMSENSE_TRIGGERUN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIGTAG_GPG"))
+#ifdef RPMSIGTAG_GPG
+           return RPMSIGTAG_GPG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIGTAG_LEMD5_1"))
+#ifdef RPMSIGTAG_LEMD5_1
+           return RPMSIGTAG_LEMD5_1;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIGTAG_LEMD5_2"))
+#ifdef RPMSIGTAG_LEMD5_2
+           return RPMSIGTAG_LEMD5_2;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIGTAG_MD5"))
+#ifdef RPMSIGTAG_MD5
+           return RPMSIGTAG_MD5;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIGTAG_PGP"))
+#ifdef RPMSIGTAG_PGP
+           return RPMSIGTAG_PGP;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIGTAG_PGP5"))
+#ifdef RPMSIGTAG_PGP5
+           return RPMSIGTAG_PGP5;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIGTAG_SIZE"))
+#ifdef RPMSIGTAG_SIZE
+           return RPMSIGTAG_SIZE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIG_BAD"))
+#ifdef RPMSIG_BAD
+           return RPMSIG_BAD;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIG_NOKEY"))
+#ifdef RPMSIG_NOKEY
+           return RPMSIG_NOKEY;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIG_NOTTRUSTED"))
+#ifdef RPMSIG_NOTTRUSTED
+           return RPMSIG_NOTTRUSTED;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIG_OK"))
+#ifdef RPMSIG_OK
+           return RPMSIG_OK;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMSIG_UNKNOWN"))
+#ifdef RPMSIG_UNKNOWN
+           return RPMSIG_UNKNOWN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_ARCH"))
+#ifdef RPMTAG_ARCH
+           return RPMTAG_ARCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_ARCHIVESIZE"))
+#ifdef RPMTAG_ARCHIVESIZE
+           return RPMTAG_ARCHIVESIZE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_AUTOPROV"))
+#ifdef RPMTAG_AUTOPROV
+           return RPMTAG_AUTOPROV;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_AUTOREQ"))
+#ifdef RPMTAG_AUTOREQ
+           return RPMTAG_AUTOREQ;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_AUTOREQPROV"))
+#ifdef RPMTAG_AUTOREQPROV
+           return RPMTAG_AUTOREQPROV;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_BROKENMD5"))
+#ifdef RPMTAG_BROKENMD5
+           return RPMTAG_BROKENMD5;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_BUILDARCHS"))
+#ifdef RPMTAG_BUILDARCHS
+           return RPMTAG_BUILDARCHS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_BUILDCONFLICTS"))
+#ifdef RPMTAG_BUILDCONFLICTS
+           return RPMTAG_BUILDCONFLICTS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_BUILDHOST"))
+#ifdef RPMTAG_BUILDHOST
+           return RPMTAG_BUILDHOST;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_BUILDMACROS"))
+#ifdef RPMTAG_BUILDMACROS
+           return RPMTAG_BUILDMACROS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_BUILDPREREQ"))
+#ifdef RPMTAG_BUILDPREREQ
+           return RPMTAG_BUILDPREREQ;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_BUILDREQUIRES"))
+#ifdef RPMTAG_BUILDREQUIRES
+           return RPMTAG_BUILDREQUIRES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_BUILDROOT"))
+#ifdef RPMTAG_BUILDROOT
+           return RPMTAG_BUILDROOT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_BUILDTIME"))
+#ifdef RPMTAG_BUILDTIME
+           return RPMTAG_BUILDTIME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_CAPABILITY"))
+#ifdef RPMTAG_CAPABILITY
+           return RPMTAG_CAPABILITY;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_CHANGELOG"))
+#ifdef RPMTAG_CHANGELOG
+           return RPMTAG_CHANGELOG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_CHANGELOGNAME"))
+#ifdef RPMTAG_CHANGELOGNAME
+           return RPMTAG_CHANGELOGNAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_CHANGELOGTEXT"))
+#ifdef RPMTAG_CHANGELOGTEXT
+           return RPMTAG_CHANGELOGTEXT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_CHANGELOGTIME"))
+#ifdef RPMTAG_CHANGELOGTIME
+           return RPMTAG_CHANGELOGTIME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_CONFLICTFLAGS"))
+#ifdef RPMTAG_CONFLICTFLAGS
+           return RPMTAG_CONFLICTFLAGS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_CONFLICTNAME"))
+#ifdef RPMTAG_CONFLICTNAME
+           return RPMTAG_CONFLICTNAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_CONFLICTVERSION"))
+#ifdef RPMTAG_CONFLICTVERSION
+           return RPMTAG_CONFLICTVERSION;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_COOKIE"))
+#ifdef RPMTAG_COOKIE
+           return RPMTAG_COOKIE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_COPYRIGHT"))
+#ifdef RPMTAG_COPYRIGHT
+           return RPMTAG_COPYRIGHT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_DEFAULTPREFIX"))
+#ifdef RPMTAG_DEFAULTPREFIX
+           return RPMTAG_DEFAULTPREFIX;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_DESCRIPTION"))
+#ifdef RPMTAG_DESCRIPTION
+           return RPMTAG_DESCRIPTION;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_DISTRIBUTION"))
+#ifdef RPMTAG_DISTRIBUTION
+           return RPMTAG_DISTRIBUTION;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_DOCDIR"))
+#ifdef RPMTAG_DOCDIR
+           return RPMTAG_DOCDIR;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_EPOCH"))
+#ifdef RPMTAG_EPOCH
+           return RPMTAG_EPOCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_EXCLUDE"))
+#ifdef RPMTAG_EXCLUDE
+           return RPMTAG_EXCLUDE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_EXCLUDEARCH"))
+#ifdef RPMTAG_EXCLUDEARCH
+           return RPMTAG_EXCLUDEARCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_EXCLUDEOS"))
+#ifdef RPMTAG_EXCLUDEOS
+           return RPMTAG_EXCLUDEOS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_EXCLUSIVE"))
+#ifdef RPMTAG_EXCLUSIVE
+           return RPMTAG_EXCLUSIVE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_EXCLUSIVEARCH"))
+#ifdef RPMTAG_EXCLUSIVEARCH
+           return RPMTAG_EXCLUSIVEARCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_EXCLUSIVEOS"))
+#ifdef RPMTAG_EXCLUSIVEOS
+           return RPMTAG_EXCLUSIVEOS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_EXTERNAL_TAG"))
+#ifdef RPMTAG_EXTERNAL_TAG
+           return RPMTAG_EXTERNAL_TAG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEDEVICES"))
+#ifdef RPMTAG_FILEDEVICES
+           return RPMTAG_FILEDEVICES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEFLAGS"))
+#ifdef RPMTAG_FILEFLAGS
+           return RPMTAG_FILEFLAGS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEGIDS"))
+#ifdef RPMTAG_FILEGIDS
+           return RPMTAG_FILEGIDS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEGROUPNAME"))
+#ifdef RPMTAG_FILEGROUPNAME
+           return RPMTAG_FILEGROUPNAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEINODES"))
+#ifdef RPMTAG_FILEINODES
+           return RPMTAG_FILEINODES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILELANGS"))
+#ifdef RPMTAG_FILELANGS
+           return RPMTAG_FILELANGS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILELINKTOS"))
+#ifdef RPMTAG_FILELINKTOS
+           return RPMTAG_FILELINKTOS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEMD5S"))
+#ifdef RPMTAG_FILEMD5S
+           return RPMTAG_FILEMD5S;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEMODES"))
+#ifdef RPMTAG_FILEMODES
+           return RPMTAG_FILEMODES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEMTIMES"))
+#ifdef RPMTAG_FILEMTIMES
+           return RPMTAG_FILEMTIMES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILENAMES"))
+#ifdef RPMTAG_FILENAMES
+           return RPMTAG_FILENAMES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILERDEVS"))
+#ifdef RPMTAG_FILERDEVS
+           return RPMTAG_FILERDEVS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILESIZES"))
+#ifdef RPMTAG_FILESIZES
+           return RPMTAG_FILESIZES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILESTATES"))
+#ifdef RPMTAG_FILESTATES
+           return RPMTAG_FILESTATES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEUIDS"))
+#ifdef RPMTAG_FILEUIDS
+           return RPMTAG_FILEUIDS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEUSERNAME"))
+#ifdef RPMTAG_FILEUSERNAME
+           return RPMTAG_FILEUSERNAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_FILEVERIFYFLAGS"))
+#ifdef RPMTAG_FILEVERIFYFLAGS
+           return RPMTAG_FILEVERIFYFLAGS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_GIF"))
+#ifdef RPMTAG_GIF
+           return RPMTAG_GIF;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_GROUP"))
+#ifdef RPMTAG_GROUP
+           return RPMTAG_GROUP;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_ICON"))
+#ifdef RPMTAG_ICON
+           return RPMTAG_ICON;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_INSTALLPREFIX"))
+#ifdef RPMTAG_INSTALLPREFIX
+           return RPMTAG_INSTALLPREFIX;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_INSTALLTIME"))
+#ifdef RPMTAG_INSTALLTIME
+           return RPMTAG_INSTALLTIME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_INSTPREFIXES"))
+#ifdef RPMTAG_INSTPREFIXES
+           return RPMTAG_INSTPREFIXES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_LICENSE"))
+#ifdef RPMTAG_LICENSE
+           return RPMTAG_LICENSE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_NAME"))
+#ifdef RPMTAG_NAME
+           return RPMTAG_NAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_NOPATCH"))
+#ifdef RPMTAG_NOPATCH
+           return RPMTAG_NOPATCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_NOSOURCE"))
+#ifdef RPMTAG_NOSOURCE
+           return RPMTAG_NOSOURCE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_OBSOLETES"))
+#ifdef RPMTAG_OBSOLETES
+           return RPMTAG_OBSOLETES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_ORIGFILENAMES"))
+#ifdef RPMTAG_ORIGFILENAMES
+           return RPMTAG_ORIGFILENAMES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_OS"))
+#ifdef RPMTAG_OS
+           return RPMTAG_OS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_PACKAGER"))
+#ifdef RPMTAG_PACKAGER
+           return RPMTAG_PACKAGER;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_PATCH"))
+#ifdef RPMTAG_PATCH
+           return RPMTAG_PATCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_POSTIN"))
+#ifdef RPMTAG_POSTIN
+           return RPMTAG_POSTIN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_POSTINPROG"))
+#ifdef RPMTAG_POSTINPROG
+           return RPMTAG_POSTINPROG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_POSTUN"))
+#ifdef RPMTAG_POSTUN
+           return RPMTAG_POSTUN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_POSTUNPROG"))
+#ifdef RPMTAG_POSTUNPROG
+           return RPMTAG_POSTUNPROG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_PREFIXES"))
+#ifdef RPMTAG_PREFIXES
+           return RPMTAG_PREFIXES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_PREIN"))
+#ifdef RPMTAG_PREIN
+           return RPMTAG_PREIN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_PREINPROG"))
+#ifdef RPMTAG_PREINPROG
+           return RPMTAG_PREINPROG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_PREREQ"))
+#ifdef RPMTAG_PREREQ
+           return RPMTAG_PREREQ;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_PREUN"))
+#ifdef RPMTAG_PREUN
+           return RPMTAG_PREUN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_PREUNPROG"))
+#ifdef RPMTAG_PREUNPROG
+           return RPMTAG_PREUNPROG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_PROVIDES"))
+#ifdef RPMTAG_PROVIDES
+           return RPMTAG_PROVIDES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_RELEASE"))
+#ifdef RPMTAG_RELEASE
+           return RPMTAG_RELEASE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_REQUIREFLAGS"))
+#ifdef RPMTAG_REQUIREFLAGS
+           return RPMTAG_REQUIREFLAGS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_REQUIRENAME"))
+#ifdef RPMTAG_REQUIRENAME
+           return RPMTAG_REQUIRENAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_REQUIREVERSION"))
+#ifdef RPMTAG_REQUIREVERSION
+           return RPMTAG_REQUIREVERSION;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_ROOT"))
+#ifdef RPMTAG_ROOT
+           return RPMTAG_ROOT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_RPMVERSION"))
+#ifdef RPMTAG_RPMVERSION
+           return RPMTAG_RPMVERSION;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_SERIAL"))
+#ifdef RPMTAG_SERIAL
+           return RPMTAG_SERIAL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_SIZE"))
+#ifdef RPMTAG_SIZE
+           return RPMTAG_SIZE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_SOURCE"))
+#ifdef RPMTAG_SOURCE
+           return RPMTAG_SOURCE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_SOURCEPACKAGE"))
+#ifdef RPMTAG_SOURCEPACKAGE
+           return RPMTAG_SOURCEPACKAGE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_SOURCERPM"))
+#ifdef RPMTAG_SOURCERPM
+           return RPMTAG_SOURCERPM;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_SUMMARY"))
+#ifdef RPMTAG_SUMMARY
+           return RPMTAG_SUMMARY;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_TRIGGERFLAGS"))
+#ifdef RPMTAG_TRIGGERFLAGS
+           return RPMTAG_TRIGGERFLAGS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_TRIGGERIN"))
+#ifdef RPMTAG_TRIGGERIN
+           return RPMTAG_TRIGGERIN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_TRIGGERINDEX"))
+#ifdef RPMTAG_TRIGGERINDEX
+           return RPMTAG_TRIGGERINDEX;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_TRIGGERNAME"))
+#ifdef RPMTAG_TRIGGERNAME
+           return RPMTAG_TRIGGERNAME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_TRIGGERPOSTUN"))
+#ifdef RPMTAG_TRIGGERPOSTUN
+           return RPMTAG_TRIGGERPOSTUN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_TRIGGERSCRIPTPROG"))
+#ifdef RPMTAG_TRIGGERSCRIPTPROG
+           return RPMTAG_TRIGGERSCRIPTPROG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_TRIGGERSCRIPTS"))
+#ifdef RPMTAG_TRIGGERSCRIPTS
+           return RPMTAG_TRIGGERSCRIPTS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_TRIGGERUN"))
+#ifdef RPMTAG_TRIGGERUN
+           return RPMTAG_TRIGGERUN;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_TRIGGERVERSION"))
+#ifdef RPMTAG_TRIGGERVERSION
+           return RPMTAG_TRIGGERVERSION;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_URL"))
+#ifdef RPMTAG_URL
+           return RPMTAG_URL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_VENDOR"))
+#ifdef RPMTAG_VENDOR
+           return RPMTAG_VENDOR;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_VERIFYSCRIPT"))
+#ifdef RPMTAG_VERIFYSCRIPT
+           return RPMTAG_VERIFYSCRIPT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_VERIFYSCRIPTPROG"))
+#ifdef RPMTAG_VERIFYSCRIPTPROG
+           return RPMTAG_VERIFYSCRIPTPROG;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_VERSION"))
+#ifdef RPMTAG_VERSION
+           return RPMTAG_VERSION;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTAG_XPM"))
+#ifdef RPMTAG_XPM
+           return RPMTAG_XPM;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTRANS_FLAG_ALLFILES"))
+#ifdef RPMTRANS_FLAG_ALLFILES
+           return RPMTRANS_FLAG_ALLFILES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTRANS_FLAG_BUILD_PROBS"))
+#ifdef RPMTRANS_FLAG_BUILD_PROBS
+           return RPMTRANS_FLAG_BUILD_PROBS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTRANS_FLAG_JUSTDB"))
+#ifdef RPMTRANS_FLAG_JUSTDB
+           return RPMTRANS_FLAG_JUSTDB;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTRANS_FLAG_KEEPOBSOLETE"))
+#ifdef RPMTRANS_FLAG_KEEPOBSOLETE
+           return RPMTRANS_FLAG_KEEPOBSOLETE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTRANS_FLAG_NODOCS"))
+#ifdef RPMTRANS_FLAG_NODOCS
+           return RPMTRANS_FLAG_NODOCS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTRANS_FLAG_NOSCRIPTS"))
+#ifdef RPMTRANS_FLAG_NOSCRIPTS
+           return RPMTRANS_FLAG_NOSCRIPTS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTRANS_FLAG_NOTRIGGERS"))
+#ifdef RPMTRANS_FLAG_NOTRIGGERS
+           return RPMTRANS_FLAG_NOTRIGGERS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMTRANS_FLAG_TEST"))
+#ifdef RPMTRANS_FLAG_TEST
+           return RPMTRANS_FLAG_TEST;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVAR_INCLUDE"))
+#ifdef RPMVAR_INCLUDE
+           return RPMVAR_INCLUDE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVAR_MACROFILES"))
+#ifdef RPMVAR_MACROFILES
+           return RPMVAR_MACROFILES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVAR_NUM"))
+#ifdef RPMVAR_NUM
+           return RPMVAR_NUM;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVAR_OPTFLAGS"))
+#ifdef RPMVAR_OPTFLAGS
+           return RPMVAR_OPTFLAGS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVAR_PROVIDES"))
+#ifdef RPMVAR_PROVIDES
+           return RPMVAR_PROVIDES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_ALL"))
+#ifdef RPMVERIFY_ALL
+           return RPMVERIFY_ALL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_FILESIZE"))
+#ifdef RPMVERIFY_FILESIZE
+           return RPMVERIFY_FILESIZE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_GROUP"))
+#ifdef RPMVERIFY_GROUP
+           return RPMVERIFY_GROUP;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_LINKTO"))
+#ifdef RPMVERIFY_LINKTO
+           return RPMVERIFY_LINKTO;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_LSTATFAIL"))
+#ifdef RPMVERIFY_LSTATFAIL
+           return RPMVERIFY_LSTATFAIL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_MD5"))
+#ifdef RPMVERIFY_MD5
+           return RPMVERIFY_MD5;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_MODE"))
+#ifdef RPMVERIFY_MODE
+           return RPMVERIFY_MODE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_MTIME"))
+#ifdef RPMVERIFY_MTIME
+           return RPMVERIFY_MTIME;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_NONE"))
+#ifdef RPMVERIFY_NONE
+           return RPMVERIFY_NONE;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_RDEV"))
+#ifdef RPMVERIFY_RDEV
+           return RPMVERIFY_RDEV;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_READFAIL"))
+#ifdef RPMVERIFY_READFAIL
+           return RPMVERIFY_READFAIL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_READLINKFAIL"))
+#ifdef RPMVERIFY_READLINKFAIL
+           return RPMVERIFY_READLINKFAIL;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPMVERIFY_USER"))
+#ifdef RPMVERIFY_USER
+           return RPMVERIFY_USER;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPM_MACHTABLE_BUILDARCH"))
+#ifdef RPM_MACHTABLE_BUILDARCH
+           return RPM_MACHTABLE_BUILDARCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPM_MACHTABLE_BUILDOS"))
+#ifdef RPM_MACHTABLE_BUILDOS
+           return RPM_MACHTABLE_BUILDOS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPM_MACHTABLE_COUNT"))
+#ifdef RPM_MACHTABLE_COUNT
+           return RPM_MACHTABLE_COUNT;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPM_MACHTABLE_INSTARCH"))
+#ifdef RPM_MACHTABLE_INSTARCH
+           return RPM_MACHTABLE_INSTARCH;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "RPM_MACHTABLE_INSTOS"))
+#ifdef RPM_MACHTABLE_INSTOS
+           return RPM_MACHTABLE_INSTOS;
+#else
+           goto not_there;
+#endif
+       break;
+    case 'S':
+       break;
+    case 'T':
+       break;
+    case 'U':
+       break;
+    case 'V':
+       if (strEQ(name, "VERIFY_DEPS"))
+#ifdef VERIFY_DEPS
+           return VERIFY_DEPS;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "VERIFY_FILES"))
+#ifdef VERIFY_FILES
+           return VERIFY_FILES;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "VERIFY_MD5"))
+#ifdef VERIFY_MD5
+           return VERIFY_MD5;
+#else
+           goto not_there;
+#endif
+       if (strEQ(name, "VERIFY_SCRIPT"))
+#ifdef VERIFY_SCRIPT
+           return VERIFY_SCRIPT;
+#else
+           goto not_there;
+#endif
+       break;
+    case 'W':
+       break;
+    case 'X':
+       break;
+    case 'Y':
+       break;
+    case 'Z':
+       break;
+    }
+    errno = EINVAL;
+    return 0;
+
+not_there:
+    errno = ENOENT;
+    return 0;
+}
+

diff --git a/perl/foo.i386.rpm b/perl/foo.i386.rpm
new file mode 100644 (file)
index 0000000..9a575f5
Binary files /dev/null and b/perl/foo.i386.rpm differ

diff --git a/perl/junk.xs b/perl/junk.xs
new file mode 100644 (file)
index 0000000..0513a0f
--- /dev/null
+++ b/perl/junk.xs
@@ -0,0 +1,55 @@
+/*
+ * This file includes misc functions that were once implemented and retired
+ * later in the process
+ *
+ * $Id: junk.xs,v 1.1 1999/07/14 16:52:52 jbj Exp $
+ */
+
+SV *
+HeaderRawItem(header, item)
+  Header *     header
+  int          item
+  PREINIT:
+       int_32 count, type;
+       int rc;
+       void * value;
+       AV * array;
+       char ** src;
+  CODE:
+       rc = headerGetEntry(*header, item, &type, &value, &count);
+       RETVAL = &PL_sv_undef;
+       if (rc != 0) {
+         switch(type) {
+           case RPM_CHAR_TYPE:
+               RETVAL = newSViv((char) (int)value);
+               break;
+           case RPM_INT8_TYPE:
+               RETVAL = newSViv((int_8) (int) value);
+               break;
+           case RPM_INT16_TYPE:
+               RETVAL = newSViv((int_16) (int) value);
+               break;
+           case RPM_INT32_TYPE:
+               RETVAL = newSViv((int_32)value);
+               break;
+           case RPM_STRING_TYPE:
+               RETVAL = newSVpv((char *)value, 0);
+               break;
+           case RPM_BIN_TYPE:
+               /* XXX: this looks mostly unused - how do we deal with it? */
+               break;
+           case RPM_STRING_ARRAY_TYPE:
+           case RPM_I18NSTRING_TYPE:
+               /* we have to build an array first */
+               array = newAV();
+               src = (char **) value;
+               while (count--) {
+                 av_push(array, newSVpv(*src++, 0));
+               }
+               RETVAL = newRV_inc((SV*)array);
+               free(value);
+               break;
+         }
+       }
+  OUTPUT:
+       RETVAL

diff --git a/perl/rpm.pm b/perl/rpm.pm
new file mode 100644 (file)
index 0000000..63ee94a
--- /dev/null
+++ b/perl/rpm.pm
@@ -0,0 +1,117 @@
+package rpm;
+
+use strict;
+use Carp;
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
+
+require Exporter;
+require DynaLoader;
+require AutoLoader;
+
+@ISA = qw(Exporter DynaLoader);
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+@EXPORT = qw(
+
+);
+$VERSION = '0.01';
+
+sub AUTOLOAD {
+    # This AUTOLOAD is used to 'autoload' constants from the constant()
+    # XS function.  If a constant is not found then control is passed
+    # to the AUTOLOAD in AutoLoader.
+
+    my $constname;
+    ($constname = $AUTOLOAD) =~ s/.*:://;
+    croak "& not defined" if $constname eq 'constant';
+    my $val = constant($constname, @_ ? $_[0] : 0);
+    if ($! != 0) {
+       if ($! =~ /Invalid/) {
+           $AutoLoader::AUTOLOAD = $AUTOLOAD;
+           goto &AutoLoader::AUTOLOAD;
+       }
+       else {
+               croak "Your vendor has not defined rpm macro $constname";
+       }
+    }
+    no strict 'refs';
+    *$AUTOLOAD = sub () { $val };
+    goto &$AUTOLOAD;
+}
+
+bootstrap rpm $VERSION;
+
+# Preloaded methods go here.
+
+sub HeaderPtr::ItemByName {
+  my $header = shift;
+  my $item = shift;
+  my $item_index = shift;
+
+  if (defined $item_index) {
+    return @{$header->ItemByNameRef($item)}[$item_index];
+  } else {
+    return @{$header->ItemByNameRef($item)};
+  }
+}
+
+sub HeaderPtr::ItemByVal {
+  my $header = shift;
+  my $item = shift;
+  my $item_index = shift;
+
+  if (defined $item_index) {
+    return @{$header->ItemByValRef($item)}[$item_index];
+  } else {
+    return @{$header->ItemByValRef($item)};
+  }
+}
+
+sub HeaderPtr::List {
+  my $header = shift;
+
+  return %{$header->ListRef()};
+}
+
+sub HeaderPtr::Tags {
+  my $header = shift;
+
+  return @{$header->TagsRef()};
+}
+
+# Autoload methods go after =cut, and are processed by the autosplit program.
+
+1;
+__END__
+# Below is the stub of documentation for your module. You better edit it!
+
+=head1 NAME
+
+rpm - Perl extension for blah blah blah
+
+=head1 SYNOPSIS
+
+  use rpm;
+  blah blah blah
+
+=head1 DESCRIPTION
+
+Stub documentation for rpm was created by h2xs. It looks like the
+author of the extension was negligent enough to leave the stub
+unedited.
+
+Blah blah blah.
+
+=head1 Exported constants
+
+
+=head1 AUTHOR
+
+Cristian Gafton, gafton@redhat.com
+
+=head1 SEE ALSO
+
+perl(1), rpm(8).
+
+=cut

diff --git a/perl/rpm.xs b/perl/rpm.xs
new file mode 100644 (file)
index 0000000..463dca2
--- /dev/null
+++ b/perl/rpm.xs
@@ -0,0 +1,234 @@
+/*
+ * Perl interface to rpmlib
+ *
+ * $Id: rpm.xs,v 1.1 1999/07/14 16:52:52 jbj Exp $
+ */
+
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#include <rpm/rpmio.h>
+#include <rpm/dbindex.h>
+#include <rpm/header.h>
+#include <popt.h>
+#include <rpm/rpmlib.h>
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+
+extern double constant(char *name, int arg);
+
+MODULE = rpm           PACKAGE = rpm           
+
+PROTOTYPES: ENABLE
+
+double
+constant(name,arg)
+       char *          name
+       int             arg
+
+Header *
+Header(package)
+  const char * package
+  PREINIT:
+       FD_t file_desc = NULL;
+       int rc;
+       int isSource;
+       int had_error = 0;
+  CODE:
+       New(1,RETVAL,1,Header);
+       file_desc = fdOpen(package, O_RDONLY, 0);
+       if (file_desc != NULL && RETVAL != NULL) {
+         rc = rpmReadPackageHeader(file_desc, RETVAL, &isSource, NULL, NULL);
+         if (rc != 0) {
+           had_error++;
+         }
+         if (file_desc != NULL) {
+           fdClose(file_desc);
+         }
+       } else {
+         had_error++;
+       }
+       ST(0) = sv_newmortal();
+       if (had_error) {
+         ST(0) = &PL_sv_undef;
+       } else {
+         sv_setref_pv(ST(0), "HeaderPtr", (void*)RETVAL);
+       }
+
+
+MODULE = rpm   PACKAGE = HeaderPtr     PREFIX = Header
+
+AV *
+HeaderItemByValRef(header, item)
+  Header *     header
+  int          item
+  PREINIT:
+       int_32 count, type;
+       int rc;
+       void * value;
+       char ** src;
+       AV * array;
+CODE:
+       rc = headerGetEntry(*header, item, &type, &value, &count);
+       array = newAV();
+       if (rc != 0) {
+         switch(type) {
+           case RPM_CHAR_TYPE:
+               av_push(array, newSViv((char) (int) value));
+               break;
+           case RPM_INT8_TYPE:
+               av_push(array, newSViv((int_8) (int) value));
+               break;
+           case RPM_INT16_TYPE:
+               av_push(array, newSViv((int_16) (int) value));
+               break;
+           case RPM_INT32_TYPE:
+               av_push(array, newSViv((int_32)value));
+               break;
+           case RPM_STRING_TYPE:
+               av_push(array, newSVpv((char *)value, 0));
+               break;
+           case RPM_BIN_TYPE:
+               /* XXX: this looks mostly unused - how do we deal with it? */
+               break;
+           case RPM_STRING_ARRAY_TYPE:
+           case RPM_I18NSTRING_TYPE:
+               src = (char **) value;
+               while (count--) {
+                 av_push(array, newSVpv(*src++, 0));
+               }
+               free(value);
+               break;
+         }
+       }
+       RETVAL = array;
+  OUTPUT:
+       RETVAL
+
+AV *
+HeaderItemByNameRef(header, tag)
+  Header *     header
+  const char * tag
+  PREINIT:
+       int_32 count, type, item = -1;
+       int rc, i;
+       void * value;
+       char ** src;
+       AV * array;
+  CODE:
+       /* walk first through the list of items and get the proper value */
+       for (i = 0; i < rpmTagTableSize; i++) {
+         if (strcasecmp(tag, rpmTagTable[i].name) == 0) {
+           item = rpmTagTable[i].val;
+           break;
+         }
+       }
+       rc = headerGetEntry(*header, item, &type, &value, &count);
+       array = newAV();
+       if (rc != 0) {
+         switch(type) {
+           case RPM_CHAR_TYPE:
+               av_push(array, newSViv((char) (int) value));
+               break;
+           case RPM_INT8_TYPE:
+               av_push(array, newSViv((int_8) (int) value));
+               break;
+           case RPM_INT16_TYPE:
+               av_push(array, newSViv((int_16) (int) value));
+               break;
+           case RPM_INT32_TYPE:
+               av_push(array, newSViv((int_32)value));
+               break;
+           case RPM_STRING_TYPE:
+               av_push(array, newSVpv((char *)value, 0));
+               break;
+           case RPM_BIN_TYPE:
+               /* XXX: this looks mostly unused - how do we deal with it? */
+               break;
+           case RPM_STRING_ARRAY_TYPE:
+           case RPM_I18NSTRING_TYPE:
+               src = (char **) value;
+               while (count--) {
+                 av_push(array, newSVpv(*src++, 0));
+               }
+               free(value);
+               break;
+         }
+       }
+       RETVAL = array;
+  OUTPUT:
+       RETVAL
+
+
+HV *
+HeaderListRef(header)
+  Header *     header
+  PREINIT:
+       HeaderIterator iterator;
+       int_32 tag, type, count;
+       void *value;
+  CODE:
+       RETVAL = newHV();
+       iterator = headerInitIterator(*header);
+       while (headerNextIterator(iterator, &tag, &type, &value, &count)) {
+         SV  ** sv;
+         AV   * array;
+          char ** src;
+         char * tagStr = tagName(tag);
+         array = newAV();
+         switch(type) {
+           case RPM_CHAR_TYPE:
+               av_push(array, newSViv((char) (int) value));
+               break;
+           case RPM_INT8_TYPE:
+               av_push(array, newSViv((int_8) (int) value));
+               break;
+           case RPM_INT16_TYPE:
+               av_push(array, newSViv((int_16) (int) value));
+               break;
+           case RPM_INT32_TYPE:
+               av_push(array, newSViv((int_32)value));
+               break;
+           case RPM_STRING_TYPE:
+               av_push(array, newSVpv((char *)value, 0));
+               break;
+           case RPM_BIN_TYPE:
+               /* XXX: this looks mostly unused - how do we deal with it? */
+               break;
+           case RPM_STRING_ARRAY_TYPE:
+           case RPM_I18NSTRING_TYPE:
+               /* we have to build an array first */
+               src = (char **) value;
+               while (count--) {
+                 av_push(array, newSVpv(*src++, 0));
+               }
+               free(value);
+               break;
+         }
+         sv = hv_store(RETVAL, tagStr, strlen(tagStr), newRV_inc((SV*)array), 0);
+       }
+       headerFreeIterator(iterator);
+  OUTPUT:
+       RETVAL
+
+AV * 
+HeaderTagsRef(header) 
+  Header *      header 
+  PREINIT: 
+        HeaderIterator iterator; 
+        int_32 tag, type;
+        void *value; 
+  CODE: 
+        RETVAL = newAV(); 
+       iterator = headerInitIterator(*header); 
+       while (headerNextIterator(iterator, &tag, &type, &value, NULL)) { 
+         av_push(RETVAL, newSVpv(tagName(tag), 0));
+         if (type == RPM_STRING_ARRAY_TYPE || type == RPM_I18NSTRING_TYPE)
+           free(value);
+       }
+       headerFreeIterator(iterator);      
+  OUTPUT:
+       RETVAL

diff --git a/perl/test.pl b/perl/test.pl
new file mode 100644 (file)
index 0000000..7a750a5
--- /dev/null
+++ b/perl/test.pl
@@ -0,0 +1,37 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl test.pl'
+
+######################### We start with some black magic to print on failure.
+
+# Change 1..1 below to 1..last_test_to_print .
+# (It may become useful if the test is moved to ./t subdirectory.)
+
+BEGIN { $| = 1; print "1..6\n"; }
+END {print "not ok 1\n" unless $loaded;}
+use rpm;
+$loaded = 1;
+print "ok 1\n";
+
+######################### End of black magic.
+
+# Insert your test code below (better if it prints "ok 13"
+# (correspondingly "not ok 13") depending on the success of chunk 13
+# of the test code):
+
+my $valid_package = "foo.i386.rpm";
+
+# we should be able to open a valid file
+print rpm::Header($valid_package) ? "ok 2" : "not ok 2", "\n";
+
+# we should not be able to read stuff from an invalid file
+print rpm::Header("this is not a valid package") ? "not ok 3" : "ok 3", "\n";
+
+# in the test file we have there are exactly 42 headers
+print scalar rpm::Header($valid_package)->Tags() == 42 ? "ok 4" : "not ok 4", "\n";
+
+# there are exactly 4 files in the package
+print scalar rpm::Header($valid_package)->ItemByName('Filenames') == 4 ? "ok 5" : "not ok 5", "\n";
+
+# item 1000 should be the name of the package
+print scalar rpm::Header($valid_package)->ItemByVal(1000) eq "xemacs-extras" ? "ok 6" : "not ok 6", "\n";
+

diff --git a/perl/typemap b/perl/typemap
new file mode 100644 (file)
index 0000000..4413d2b
--- /dev/null
+++ b/perl/typemap
@@ -0,0 +1,7 @@
+/* $Id: typemap,v 1.1 1999/07/14 16:52:52 jbj Exp $ */
+
+TYPEMAP
+
+Header * T_PTROBJ
+const char * T_PV
+