diff options
author | jbj <devnull@localhost> | 2004-11-19 15:44:15 +0000 |
---|---|---|
committer | jbj <devnull@localhost> | 2004-11-19 15:44:15 +0000 |
commit | 6f22b87b7c83a79f47624725b9e1a65d3a35181d (patch) | |
tree | 657da0031e6303d14cd94e4c496b562d3acac915 | |
parent | f331e9dc4a7bc7cd75a7299c61ea67aca60ff24e (diff) | |
download | rpm-6f22b87b7c83a79f47624725b9e1a65d3a35181d.tar.gz rpm-6f22b87b7c83a79f47624725b9e1a65d3a35181d.tar.bz2 rpm-6f22b87b7c83a79f47624725b9e1a65d3a35181d.zip |
Not in rpm-4_4.
CVS patchset: 7584
CVS date: 2004/11/19 15:44:15
-rw-r--r-- | perl/ChangeLog | 13 | ||||
-rw-r--r-- | perl/MANIFEST | 12 | ||||
-rw-r--r-- | perl/Makefile.PL | 18 | ||||
-rw-r--r-- | perl/Makefile.PL.in | 17 | ||||
-rw-r--r-- | perl/Makefile.am | 18 | ||||
-rw-r--r-- | perl/Makefile.in | 332 | ||||
-rw-r--r-- | perl/PMakefile | 779 | ||||
-rw-r--r-- | perl/README | 6 | ||||
-rwxr-xr-x | perl/check | 55 | ||||
-rw-r--r-- | perl/constant.c | 1650 | ||||
-rw-r--r-- | perl/db.xs | 33 | ||||
-rw-r--r-- | perl/foo.i386.rpm | bin | 47815 -> 0 bytes | |||
-rw-r--r-- | perl/header.xs | 211 | ||||
-rw-r--r-- | perl/junk.xs | 55 | ||||
-rw-r--r-- | perl/rpm.pm | 117 | ||||
-rw-r--r-- | perl/rpm.xs | 149 | ||||
-rw-r--r-- | perl/test.pl | 37 | ||||
-rw-r--r-- | perl/transaction.xs | 56 | ||||
-rw-r--r-- | perl/typemap | 9 |
19 files changed, 0 insertions, 3567 deletions
diff --git a/perl/ChangeLog b/perl/ChangeLog deleted file mode 100644 index 48fc68ce7..000000000 --- a/perl/ChangeLog +++ /dev/null @@ -1,13 +0,0 @@ -1999-07-14 Cristian Gafton <gafton@redhat.com> - - * rpm.xs: Take the count return value into consideration - when processing int return types - - * test.pl: Added test for the number fo tags and the number of - files in the test package - -Revision history for Perl extension rpm. - -0.01 Mon Jul 12 13:07:43 1999 - - original version; created by h2xs 1.19 - diff --git a/perl/MANIFEST b/perl/MANIFEST deleted file mode 100644 index 9e352e245..000000000 --- a/perl/MANIFEST +++ /dev/null @@ -1,12 +0,0 @@ -ChangeLog -MANIFEST -Makefile.PL -constant.c -rpm.pm -rpm.xs -test.pl -typemap -foo.i386.rpm -junk.xs -transaction.xs -header.xs diff --git a/perl/Makefile.PL b/perl/Makefile.PL deleted file mode 100644 index 641cc1468..000000000 --- a/perl/Makefile.PL +++ /dev/null @@ -1,18 +0,0 @@ -# Generated automatically from Makefile.PL.in by configure. -use ExtUtils::MakeMaker; -# See lib/ExtUtils/MakeMaker.pm for details of how to influence -# the contents of the Makefile that is written. - -WriteMakefile( - 'NAME' => 'rpm', - 'OBJECT' => 'rpm.o constant.o', - 'VERSION_FROM' => 'rpm.pm', # finds $VERSION - 'MAKEFILE'=> 'PMakefile', - 'LIBS' => [' -L/usr/local/lib -lz -lbz2'], # e.g., '-lm' - 'CCFLAGS' => '-g -O2 -D_GNU_SOURCE -Wall -Wpointer-arith -Wstrict-prototypes -Wmissing-prototypes -Wno-char-subscripts', - 'OPTIMIZE'=> '-g', - 'DEFINE' => '-Dbool=char -DHAS_BOOL', - 'INC' => ' -I/usr/local/include -I../build -I../lib -I../popt -I/usr/include/rpm', - 'depend' => { 'rpm.c' => 'transaction.xs header.xs db.xs' }, -); - diff --git a/perl/Makefile.PL.in b/perl/Makefile.PL.in deleted file mode 100644 index 625f0eb68..000000000 --- a/perl/Makefile.PL.in +++ /dev/null @@ -1,17 +0,0 @@ -use ExtUtils::MakeMaker; -# See lib/ExtUtils/MakeMaker.pm for details of how to influence -# the contents of the Makefile that is written. - -WriteMakefile( - 'NAME' => 'rpm', - 'OBJECT' => 'rpm.o constant.o', - 'VERSION_FROM' => 'rpm.pm', # finds $VERSION - 'MAKEFILE'=> 'PMakefile', - 'LIBS' => ['@LIBS@'], # e.g., '-lm' - 'CCFLAGS' => '@CFLAGS@', - 'OPTIMIZE'=> '-g', - 'DEFINE' => '-Dbool=char -DHAS_BOOL', - 'INC' => '@INCPATH@ -I../build -I../lib -I../popt -I/usr/include/rpm', - 'depend' => { 'rpm.c' => 'transaction.xs header.xs db.xs' }, -); - diff --git a/perl/Makefile.am b/perl/Makefile.am deleted file mode 100644 index e55c09cf5..000000000 --- a/perl/Makefile.am +++ /dev/null @@ -1,18 +0,0 @@ -# Makefile for rpm scripts. - -AUTOMAKE_OPTIONS = 1.4 foreign - -EXTRA_DIST = \ - db.xs header.xs junk.xs rpm.xs transaction.xs - -installprefix = $(DESTDIR) - -configdir = ${prefix}/lib/rpm -config_SCRIPTS = \ - db.xs header.xs junk.xs rpm.xs transaction.xs - -all install clean: PMakefile - make -f $< $@ - -PMakefile: Makefile.PL - perl Makefile.PL diff --git a/perl/Makefile.in b/perl/Makefile.in deleted file mode 100644 index 51585138d..000000000 --- a/perl/Makefile.in +++ /dev/null @@ -1,332 +0,0 @@ -# Makefile.in generated automatically by automake 1.4-p4 from Makefile.am - -# Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. -# This Makefile.in is free software; the Free Software Foundation -# gives unlimited permission to copy and/or distribute it, -# with or without modifications, as long as this notice is preserved. - -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY, to the extent permitted by law; without -# even the implied warranty of MERCHANTABILITY or FITNESS FOR A -# PARTICULAR PURPOSE. - -# Makefile for rpm scripts. - - -SHELL = @SHELL@ - -srcdir = @srcdir@ -top_srcdir = @top_srcdir@ -VPATH = @srcdir@ -prefix = @prefix@ -exec_prefix = @exec_prefix@ - -bindir = @bindir@ -sbindir = @sbindir@ -libexecdir = @libexecdir@ -datadir = @datadir@ -sysconfdir = @sysconfdir@ -sharedstatedir = @sharedstatedir@ -localstatedir = @localstatedir@ -libdir = @libdir@ -infodir = @infodir@ -mandir = @mandir@ -includedir = @includedir@ -oldincludedir = /usr/include - -DESTDIR = - -pkgdatadir = $(datadir)/@PACKAGE@ -pkglibdir = $(libdir)/@PACKAGE@ -pkgincludedir = $(includedir)/@PACKAGE@ - -top_builddir = .. - -ACLOCAL = @ACLOCAL@ -AUTOCONF = @AUTOCONF@ -AUTOMAKE = @AUTOMAKE@ -AUTOHEADER = @AUTOHEADER@ - -INSTALL = @INSTALL@ -INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) -INSTALL_DATA = @INSTALL_DATA@ -INSTALL_SCRIPT = @INSTALL_SCRIPT@ -transform = @program_transform_name@ - -NORMAL_INSTALL = : -PRE_INSTALL = : -POST_INSTALL = : -NORMAL_UNINSTALL = : -PRE_UNINSTALL = : -POST_UNINSTALL = : -build_alias = @build_alias@ -build_triplet = @build@ -host_alias = @host_alias@ -host_triplet = @host@ -target_alias = @target_alias@ -target_triplet = @target@ -AR = @AR@ -AS = @AS@ -AWK = @AWK@ -BUILD_INCLUDED_LIBINTL = @BUILD_INCLUDED_LIBINTL@ -BUILD_RPMNLSTOOLS = @BUILD_RPMNLSTOOLS@ -BZIP2BIN = @BZIP2BIN@ -CATALOGS = @CATALOGS@ -CATOBJEXT = @CATOBJEXT@ -CC = @CC@ -CPP = @CPP@ -CSCOPE = @CSCOPE@ -CTAGS = @CTAGS@ -DATADIRNAME = @DATADIRNAME@ -DBLIBOBJS = @DBLIBOBJS@ -DBLIBSRCS = @DBLIBSRCS@ -DLLTOOL = @DLLTOOL@ -ECHO = @ECHO@ -EXEEXT = @EXEEXT@ -FINDPROVIDES = @FINDPROVIDES@ -FINDREQUIRES = @FINDREQUIRES@ -FIXPERMS = @FIXPERMS@ -GENCAT = @GENCAT@ -GLIBC21 = @GLIBC21@ -GMOFILES = @GMOFILES@ -GMSGFMT = @GMSGFMT@ -GZIPBIN = @GZIPBIN@ -INCPATH = @INCPATH@ -INSTOBJEXT = @INSTOBJEXT@ -INTLBISON = @INTLBISON@ -INTLLIBS = @INTLLIBS@ -INTLOBJS = @INTLOBJS@ -INTL_LIBTOOL_SUFFIX_PREFIX = @INTL_LIBTOOL_SUFFIX_PREFIX@ -LDFLAGS_STATIC = @LDFLAGS_STATIC@ -LIBDIR = @LIBDIR@ -LIBICONV = @LIBICONV@ -LIBMISC = @LIBMISC@ -LIBOBJS = @LIBOBJS@ -LIBRPMALIAS_FILENAME = @LIBRPMALIAS_FILENAME@ -LIBRPMRC_FILENAME = @LIBRPMRC_FILENAME@ -LIBS = @LIBS@ -LIBTOOL = @LIBTOOL@ -LN_S = @LN_S@ -LOCALEDIR = @LOCALEDIR@ -MACROFILES = @MACROFILES@ -MAKEINFO = @MAKEINFO@ -MKDIR = @MKDIR@ -MKDIR_P = @MKDIR_P@ -MKINSTALLDIRS = @MKINSTALLDIRS@ -MSGFMT = @MSGFMT@ -OBJDUMP = @OBJDUMP@ -OBJEXT = @OBJEXT@ -PACKAGE = @PACKAGE@ -PGPBIN = @PGPBIN@ -POFILES = @POFILES@ -POSUB = @POSUB@ -RANLIB = @RANLIB@ -ROOT_GROUP = @ROOT_GROUP@ -RPM = @RPM@ -RPMCANONARCH = @RPMCANONARCH@ -RPMCANONOS = @RPMCANONOS@ -RPMCANONVENDOR = @RPMCANONVENDOR@ -RPMCONFIGDIR = @RPMCONFIGDIR@ -RPMGID = @RPMGID@ -RPMGROUP = @RPMGROUP@ -RPMUID = @RPMUID@ -RPMUSER = @RPMUSER@ -STRIP = @STRIP@ -SYSCONFIGDIR = @SYSCONFIGDIR@ -U = @U@ -UNZIPBIN = @UNZIPBIN@ -USE_INCLUDED_LIBINTL = @USE_INCLUDED_LIBINTL@ -USE_NLS = @USE_NLS@ -VERSION = @VERSION@ -WITH_APIDOCS = @WITH_APIDOCS@ -WITH_APIDOCS_TARGET = @WITH_APIDOCS_TARGET@ -WITH_BZIP2 = @WITH_BZIP2@ -WITH_DB_SUBDIR = @WITH_DB_SUBDIR@ -WITH_INTERNAL_DB = @WITH_INTERNAL_DB@ -WITH_PYTHON_SUBDIR = @WITH_PYTHON_SUBDIR@ -WITH_PYTHON_SUBPACKAGE = @WITH_PYTHON_SUBPACKAGE@ -__CAT = @__CAT@ -__CHGRP = @__CHGRP@ -__CHGRP_RHF = @__CHGRP_RHF@ -__CHMOD = @__CHMOD@ -__CHOWN = @__CHOWN@ -__CHOWN_RHF = @__CHOWN_RHF@ -__CP = @__CP@ -__CPIO = @__CPIO@ -__DOXYGEN = @__DOXYGEN@ -__FILE = @__FILE@ -__GPG = @__GPG@ -__GREP = @__GREP@ -__ID = @__ID@ -__ID_U = @__ID_U@ -__INSTALL = @__INSTALL@ -__LD = @__LD@ -__MAKE = @__MAKE@ -__MKDIR = @__MKDIR@ -__MV = @__MV@ -__NM = @__NM@ -__OBJCOPY = @__OBJCOPY@ -__OBJDUMP = @__OBJDUMP@ -__PATCH = @__PATCH@ -__PERL = @__PERL@ -__PYTHON = @__PYTHON@ -__RM = @__RM@ -__RSH = @__RSH@ -__SED = @__SED@ -__SSH = @__SSH@ -__STRIP = @__STRIP@ -__TAR = @__TAR@ -libdb3 = @libdb3@ -libdb3a = @libdb3a@ -testdir = @testdir@ -tmpdir = @tmpdir@ -varprefix = @varprefix@ - -AUTOMAKE_OPTIONS = 1.4 foreign - -EXTRA_DIST = db.xs header.xs junk.xs rpm.xs transaction.xs - - -installprefix = $(DESTDIR) - -configdir = ${prefix}/lib/rpm -config_SCRIPTS = db.xs header.xs junk.xs rpm.xs transaction.xs - -mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs -CONFIG_HEADER = ../config.h -CONFIG_CLEAN_FILES = Makefile.PL -SCRIPTS = $(config_SCRIPTS) - -DIST_COMMON = README ChangeLog Makefile.PL.in Makefile.am Makefile.in - - -DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) - -TAR = gtar -GZIP_ENV = --best -all: all-redirect -.SUFFIXES: -$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4) - cd $(top_srcdir) && $(AUTOMAKE) --foreign perl/Makefile - -Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) - cd $(top_builddir) \ - && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status - -Makefile.PL: $(top_builddir)/config.status Makefile.PL.in - cd $(top_builddir) && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status - -install-configSCRIPTS: $(config_SCRIPTS) - @$(NORMAL_INSTALL) - $(mkinstalldirs) $(DESTDIR)$(configdir) - @list='$(config_SCRIPTS)'; for p in $$list; do \ - if test -f $$p; then \ - echo " $(INSTALL_SCRIPT) $$p $(DESTDIR)$(configdir)/`echo $$p|sed '$(transform)'`"; \ - $(INSTALL_SCRIPT) $$p $(DESTDIR)$(configdir)/`echo $$p|sed '$(transform)'`; \ - else if test -f $(srcdir)/$$p; then \ - echo " $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(configdir)/`echo $$p|sed '$(transform)'`"; \ - $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(configdir)/`echo $$p|sed '$(transform)'`; \ - else :; fi; fi; \ - done - -uninstall-configSCRIPTS: - @$(NORMAL_UNINSTALL) - list='$(config_SCRIPTS)'; for p in $$list; do \ - rm -f $(DESTDIR)$(configdir)/`echo $$p|sed '$(transform)'`; \ - done -tags: TAGS -TAGS: - - -distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) - -subdir = perl - -distdir: $(DISTFILES) - here=`cd $(top_builddir) && pwd`; \ - top_distdir=`cd $(top_distdir) && pwd`; \ - distdir=`cd $(distdir) && pwd`; \ - cd $(top_srcdir) \ - && $(AUTOMAKE) --include-deps --build-dir=$$here --srcdir-name=$(top_srcdir) --output-dir=$$top_distdir --foreign perl/Makefile - @for file in $(DISTFILES); do \ - d=$(srcdir); \ - if test -d $$d/$$file; then \ - cp -pr $$d/$$file $(distdir)/$$file; \ - else \ - test -f $(distdir)/$$file \ - || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ - || cp -p $$d/$$file $(distdir)/$$file || :; \ - fi; \ - done -info-am: -info: info-am -dvi-am: -dvi: dvi-am -check-am: all-am -check: check-am -installcheck-am: -installcheck: installcheck-am -install-exec-am: -install-exec: install-exec-am - -install-data-am: install-configSCRIPTS -install-data: install-data-am - -install-am: all-am - @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am -install: install-am -uninstall-am: uninstall-configSCRIPTS -uninstall: uninstall-am -all-am: Makefile $(SCRIPTS) -all-redirect: all-am -install-strip: - $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install -installdirs: - $(mkinstalldirs) $(DESTDIR)$(configdir) - - -mostlyclean-generic: - -clean-generic: - -distclean-generic: - -rm -f Makefile $(CONFIG_CLEAN_FILES) - -rm -f config.cache config.log stamp-h stamp-h[0-9]* - -maintainer-clean-generic: -mostlyclean-am: mostlyclean-generic - -mostlyclean: mostlyclean-am - -clean-am: clean-generic mostlyclean-am - -clean: clean-am - -distclean-am: distclean-generic clean-am - -rm -f libtool - -distclean: distclean-am - -maintainer-clean-am: maintainer-clean-generic distclean-am - @echo "This command is intended for maintainers to use;" - @echo "it deletes files that may require special tools to rebuild." - -maintainer-clean: maintainer-clean-am - -.PHONY: uninstall-configSCRIPTS install-configSCRIPTS tags distdir \ -info-am info dvi-am dvi check check-am installcheck-am installcheck \ -install-exec-am install-exec install-data-am install-data install-am \ -install uninstall-am uninstall all-redirect all-am all installdirs \ -mostlyclean-generic distclean-generic clean-generic \ -maintainer-clean-generic clean mostlyclean distclean maintainer-clean - - -all install clean: PMakefile - make -f $< $@ - -PMakefile: Makefile.PL - perl Makefile.PL - -# Tell versions [3.59,3.63) of GNU make to not export all variables. -# Otherwise a system limit (for SysV at least) may be exceeded. -.NOEXPORT: diff --git a/perl/PMakefile b/perl/PMakefile deleted file mode 100644 index cbed49bfd..000000000 --- a/perl/PMakefile +++ /dev/null @@ -1,779 +0,0 @@ -# This Makefile is for the rpm extension to perl. -# -# It was generated automatically by MakeMaker version -# 5.4302 (Revision: 1.222) from the contents of -# Makefile.PL. Don't edit this file, edit Makefile.PL instead. -# -# ANY CHANGES MADE HERE WILL BE LOST! -# -# MakeMaker ARGV: () -# -# MakeMaker Parameters: - -# CCFLAGS => q[-g -O2 -D_GNU_SOURCE -Wall -Wpointer-arith -Wstrict-prototypes -Wmissing-prototypes -Wno-char-subscripts] -# DEFINE => q[-Dbool=char -DHAS_BOOL] -# INC => q[ -I../build -I../lib -I../popt -I/usr/include/rpm] -# LIBS => [q[-L/usr/local/lib -ldb1 -lz -lbz2]] -# MAKEFILE => q[PMakefile] -# NAME => q[rpm] -# OBJECT => q[rpm.o constant.o] -# OPTIMIZE => q[-g] -# VERSION_FROM => q[rpm.pm] -# depend => { rpm.c=>q[transaction.xs header.xs db.xs] } - -# --- MakeMaker post_initialize section: - - -# --- MakeMaker const_config section: - -# These definitions are from config.sh (via /usr/lib/perl5/5.00503/sparc-linux/Config.pm) - -# They may have been overridden via Makefile.PL or on the command line -AR = ar -CC = cc -CCCDLFLAGS = -fpic -CCDLFLAGS = -rdynamic -DLEXT = so -DLSRC = dl_dlopen.xs -LD = cc -LDDLFLAGS = -shared -L/usr/local/lib -LDFLAGS = -L/usr/local/lib -LIBC = -LIB_EXT = .a -OBJ_EXT = .o -OSNAME = linux -OSVERS = 2.2.12-42 -RANLIB = : -SO = so -EXE_EXT = - - -# --- MakeMaker constants section: -AR_STATIC_ARGS = cr -NAME = rpm -DISTNAME = rpm -NAME_SYM = rpm -VERSION = 0.01 -VERSION_SYM = 0_01 -XS_VERSION = 0.01 -INST_BIN = blib/bin -INST_EXE = blib/script -INST_LIB = blib/lib -INST_ARCHLIB = blib/arch -INST_SCRIPT = blib/script -PREFIX = /usr -INSTALLDIRS = site -INSTALLPRIVLIB = $(PREFIX)/lib/perl5/5.00503 -INSTALLARCHLIB = $(PREFIX)/lib/perl5/5.00503/sparc-linux -INSTALLSITELIB = $(PREFIX)/lib/perl5/site_perl/5.005 -INSTALLSITEARCH = $(PREFIX)/lib/perl5/site_perl/5.005/sparc-linux -INSTALLBIN = $(PREFIX)/bin -INSTALLSCRIPT = $(PREFIX)/bin -PERL_LIB = /usr/lib/perl5/5.00503 -PERL_ARCHLIB = /usr/lib/perl5/5.00503/sparc-linux -SITELIBEXP = /usr/lib/perl5/site_perl/5.005 -SITEARCHEXP = /usr/lib/perl5/site_perl/5.005/sparc-linux -LIBPERL_A = libperl.a -FIRST_MAKEFILE = Makefile -MAKE_APERL_FILE = Makefile.aperl -PERLMAINCC = $(CC) -PERL_INC = /usr/lib/perl5/5.00503/sparc-linux/CORE -PERL = /usr/bin/perl -FULLPERL = /usr/bin/perl - -VERSION_MACRO = VERSION -DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\" -XS_VERSION_MACRO = XS_VERSION -XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\" - -MAKEMAKER = /usr/lib/perl5/5.00503/ExtUtils/MakeMaker.pm -MM_VERSION = 5.4302 - -# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle). -# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle) -# ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD) !!! Deprecated from MM 5.32 !!! -# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar) -# DLBASE = Basename part of dynamic library. May be just equal BASEEXT. -FULLEXT = rpm -BASEEXT = rpm -DLBASE = $(BASEEXT) -VERSION_FROM = rpm.pm -INC = -I../build -I../lib -I../popt -I/usr/include/rpm -DEFINE = -Dbool=char -DHAS_BOOL -OBJECT = rpm$(OBJ_EXT) constant$(OBJ_EXT) -LDFROM = $(OBJECT) -LINKTYPE = dynamic - -# Handy lists of source code files: -XS_FILES= db.xs \ - header.xs \ - junk.xs \ - rpm.xs \ - transaction.xs -C_FILES = constant.c \ - db.c \ - header.c \ - junk.c \ - rpm.c \ - transaction.c -O_FILES = constant.o \ - db.o \ - header.o \ - junk.o \ - rpm.o \ - transaction.o -H_FILES = -MAN1PODS = -MAN3PODS = rpm.pm -INST_MAN1DIR = blib/man1 -INSTALLMAN1DIR = $(PREFIX)/man/man1 -MAN1EXT = 1 -INST_MAN3DIR = blib/man3 -INSTALLMAN3DIR = $(PREFIX)/lib/perl5/man/man3 -MAN3EXT = 3 -PERM_RW = 644 -PERM_RWX = 755 - -# work around a famous dec-osf make(1) feature(?): -makemakerdflt: all - -.SUFFIXES: .xs .c .C .cpp .cxx .cc $(OBJ_EXT) - -# Nick wanted to get rid of .PRECIOUS. I don't remember why. I seem to recall, that -# some make implementations will delete the Makefile when we rebuild it. Because -# we call false(1) when we rebuild it. So make(1) is not completely wrong when it -# does so. Our milage may vary. -# .PRECIOUS: Makefile # seems to be not necessary anymore - -.PHONY: all config static dynamic test linkext manifest - -# Where is the Config information that we are using/depend on -CONFIGDEP = $(PERL_ARCHLIB)/Config.pm $(PERL_INC)/config.h - -# Where to put things: -INST_LIBDIR = $(INST_LIB) -INST_ARCHLIBDIR = $(INST_ARCHLIB) - -INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT) -INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT) - -INST_STATIC = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT) -INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT) -INST_BOOT = $(INST_ARCHAUTODIR)/$(BASEEXT).bs - -EXPORT_LIST = - -PERL_ARCHIVE = - -TO_INST_PM = rpm.pm - -PM_TO_BLIB = rpm.pm \ - $(INST_LIBDIR)/rpm.pm - - -# --- MakeMaker tool_autosplit section: - -# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto -AUTOSPLITFILE = $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e 'use AutoSplit;autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) ;' - - -# --- MakeMaker tool_xsubpp section: - -XSUBPPDIR = /usr/lib/perl5/5.00503/ExtUtils -XSUBPP = $(XSUBPPDIR)/xsubpp -XSPROTOARG = -XSUBPPDEPS = $(XSUBPPDIR)/typemap typemap -XSUBPPARGS = -typemap $(XSUBPPDIR)/typemap -typemap typemap - - -# --- MakeMaker tools_other section: - -SHELL = /bin/sh -CHMOD = chmod -CP = cp -LD = cc -MV = mv -NOOP = $(SHELL) -c true -RM_F = rm -f -RM_RF = rm -rf -TEST_F = test -f -TOUCH = touch -UMASK_NULL = umask 0 -DEV_NULL = > /dev/null 2>&1 - -# The following is a portable way to say mkdir -p -# To see which directories are created, change the if 0 to if 1 -MKPATH = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e mkpath - -# This helps us to minimize the effect of the .exists files A yet -# better solution would be to have a stable file in the perl -# distribution with a timestamp of zero. But this solution doesn't -# need any changes to the core distribution and works with older perls -EQUALIZE_TIMESTAMP = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e eqtime - -# Here we warn users that an old packlist file was found somewhere, -# and that they should call some uninstall routine -WARN_IF_OLD_PACKLIST = $(PERL) -we 'exit unless -f $$ARGV[0];' \ --e 'print "WARNING: I have found an old package in\n";' \ --e 'print "\t$$ARGV[0].\n";' \ --e 'print "Please make sure the two installations are not conflicting\n";' - -UNINST=0 -VERBINST=1 - -MOD_INSTALL = $(PERL) -I$(INST_LIB) -I$(PERL_LIB) -MExtUtils::Install \ --e "install({@ARGV},'$(VERBINST)',0,'$(UNINST)');" - -DOC_INSTALL = $(PERL) -e '$$\="\n\n";' \ --e 'print "=head2 ", scalar(localtime), ": C<", shift, ">", " L<", shift, ">";' \ --e 'print "=over 4";' \ --e 'while (defined($$key = shift) and defined($$val = shift)){print "=item *";print "C<$$key: $$val>";}' \ --e 'print "=back";' - -UNINSTALL = $(PERL) -MExtUtils::Install \ --e 'uninstall($$ARGV[0],1,1); print "\nUninstall is deprecated. Please check the";' \ --e 'print " packlist above carefully.\n There may be errors. Remove the";' \ --e 'print " appropriate files manually.\n Sorry for the inconveniences.\n"' - - -# --- MakeMaker dist section: - -DISTVNAME = $(DISTNAME)-$(VERSION) -TAR = tar -TARFLAGS = cvf -ZIP = zip -ZIPFLAGS = -r -COMPRESS = gzip --best -SUFFIX = .gz -SHAR = shar -PREOP = @$(NOOP) -POSTOP = @$(NOOP) -TO_UNIX = @$(NOOP) -CI = ci -u -RCS_LABEL = rcs -Nv$(VERSION_SYM): -q -DIST_CP = best -DIST_DEFAULT = tardist - - -# --- MakeMaker macro section: - - -# --- MakeMaker depend section: -rpm.c: transaction.xs header.xs db.xs - - -# --- MakeMaker cflags section: - -CCFLAGS = -g -O2 -D_GNU_SOURCE -Wall -Wpointer-arith -Wstrict-prototypes -Wmissing-prototypes -Wno-char-subscripts -OPTIMIZE = -g -PERLTYPE = -LARGE = -SPLIT = - - -# --- MakeMaker const_loadlibs section: - -# rpm might depend on some other libraries: -# See ExtUtils::Liblist for details -# -EXTRALIBS = -L/usr/local/lib -ldb1 -lz -lbz2 -LDLOADLIBS = -L/usr/local/lib -ldb1 -lz -lbz2 -BSLOADLIBS = -LD_RUN_PATH = /lib:/usr/lib - - -# --- MakeMaker const_cccmd section: -CCCMD = $(CC) -c $(INC) $(CCFLAGS) $(OPTIMIZE) \ - $(PERLTYPE) $(LARGE) $(SPLIT) $(DEFINE_VERSION) \ - $(XS_DEFINE_VERSION) - -# --- MakeMaker post_constants section: - - -# --- MakeMaker pasthru section: - -PASTHRU = LIB="$(LIB)"\ - LIBPERL_A="$(LIBPERL_A)"\ - LINKTYPE="$(LINKTYPE)"\ - PREFIX="$(PREFIX)"\ - OPTIMIZE="$(OPTIMIZE)" - - -# --- MakeMaker c_o section: - -.c$(OBJ_EXT): - $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c - -.C$(OBJ_EXT): - $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.C - -.cpp$(OBJ_EXT): - $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cpp - -.cxx$(OBJ_EXT): - $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cxx - -.cc$(OBJ_EXT): - $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cc - - -# --- MakeMaker xs_c section: - -.xs.c: - $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >xstmp.c && $(MV) xstmp.c $*.c - - -# --- MakeMaker xs_o section: - -.xs$(OBJ_EXT): - $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >xstmp.c && $(MV) xstmp.c $*.c - $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c - - -# --- MakeMaker top_targets section: - -#all :: config $(INST_PM) subdirs linkext manifypods - -all :: pure_all manifypods - @$(NOOP) - -pure_all :: config pm_to_blib subdirs linkext - @$(NOOP) - -subdirs :: $(MYEXTLIB) - @$(NOOP) - -config :: PMakefile $(INST_LIBDIR)/.exists - @$(NOOP) - -config :: $(INST_ARCHAUTODIR)/.exists - @$(NOOP) - -config :: $(INST_AUTODIR)/.exists - @$(NOOP) - -config :: Version_check - @$(NOOP) - - -$(INST_AUTODIR)/.exists :: /usr/lib/perl5/5.00503/sparc-linux/CORE/perl.h - @$(MKPATH) $(INST_AUTODIR) - @$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.00503/sparc-linux/CORE/perl.h $(INST_AUTODIR)/.exists - - -@$(CHMOD) $(PERM_RWX) $(INST_AUTODIR) - -$(INST_LIBDIR)/.exists :: /usr/lib/perl5/5.00503/sparc-linux/CORE/perl.h - @$(MKPATH) $(INST_LIBDIR) - @$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.00503/sparc-linux/CORE/perl.h $(INST_LIBDIR)/.exists - - -@$(CHMOD) $(PERM_RWX) $(INST_LIBDIR) - -$(INST_ARCHAUTODIR)/.exists :: /usr/lib/perl5/5.00503/sparc-linux/CORE/perl.h - @$(MKPATH) $(INST_ARCHAUTODIR) - @$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.00503/sparc-linux/CORE/perl.h $(INST_ARCHAUTODIR)/.exists - - -@$(CHMOD) $(PERM_RWX) $(INST_ARCHAUTODIR) - -config :: $(INST_MAN3DIR)/.exists - @$(NOOP) - - -$(INST_MAN3DIR)/.exists :: /usr/lib/perl5/5.00503/sparc-linux/CORE/perl.h - @$(MKPATH) $(INST_MAN3DIR) - @$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.00503/sparc-linux/CORE/perl.h $(INST_MAN3DIR)/.exists - - -@$(CHMOD) $(PERM_RWX) $(INST_MAN3DIR) - -help: - perldoc ExtUtils::MakeMaker - -Version_check: - @$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \ - -MExtUtils::MakeMaker=Version_check \ - -e "Version_check('$(MM_VERSION)')" - - -# --- MakeMaker linkext section: - -linkext :: $(LINKTYPE) - @$(NOOP) - - -# --- MakeMaker dlsyms section: - - -# --- MakeMaker dynamic section: - -## $(INST_PM) has been moved to the all: target. -## It remains here for awhile to allow for old usage: "make dynamic" -#dynamic :: PMakefile $(INST_DYNAMIC) $(INST_BOOT) $(INST_PM) -dynamic :: PMakefile $(INST_DYNAMIC) $(INST_BOOT) - @$(NOOP) - - -# --- MakeMaker dynamic_bs section: - -BOOTSTRAP = rpm.bs - -# As Mkbootstrap might not write a file (if none is required) -# we use touch to prevent make continually trying to remake it. -# The DynaLoader only reads a non-empty file. -$(BOOTSTRAP): PMakefile $(INST_ARCHAUTODIR)/.exists - @echo "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))" - @$(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" \ - -MExtUtils::Mkbootstrap \ - -e "Mkbootstrap('$(BASEEXT)','$(BSLOADLIBS)');" - @$(TOUCH) $(BOOTSTRAP) - $(CHMOD) $(PERM_RW) $@ - -$(INST_BOOT): $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists - @rm -rf $(INST_BOOT) - -cp $(BOOTSTRAP) $(INST_BOOT) - $(CHMOD) $(PERM_RW) $@ - - -# --- MakeMaker dynamic_lib section: - -# This section creates the dynamically loadable $(INST_DYNAMIC) -# from $(OBJECT) and possibly $(MYEXTLIB). -ARMAYBE = : -OTHERLDFLAGS = -INST_DYNAMIC_DEP = - -$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP) - LD_RUN_PATH="$(LD_RUN_PATH)" $(LD) -o $@ $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) $(EXPORT_LIST) - $(CHMOD) $(PERM_RWX) $@ - - -# --- MakeMaker static section: - -## $(INST_PM) has been moved to the all: target. -## It remains here for awhile to allow for old usage: "make static" -#static :: PMakefile $(INST_STATIC) $(INST_PM) -static :: PMakefile $(INST_STATIC) - @$(NOOP) - - -# --- MakeMaker static_lib section: - -$(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)/.exists - $(RM_RF) $@ - $(AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@ - $(CHMOD) $(PERM_RWX) $@ - @echo "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld - - - -# --- MakeMaker manifypods section: -POD2MAN_EXE = /usr/bin/pod2man -POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \ --e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "PMakefile";' \ --e 'print "Manifying $$m{$$_}\n";' \ --e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \ --e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}' - -manifypods : pure_all rpm.pm - @$(POD2MAN) \ - rpm.pm \ - $(INST_MAN3DIR)/rpm.$(MAN3EXT) - -# --- MakeMaker processPL section: - - -# --- MakeMaker installbin section: - - -# --- MakeMaker subdirs section: - -# none - -# --- MakeMaker clean section: - -# Delete temporary files but do not touch installed files. We don't delete -# the Makefile here so a later make realclean still has a makefile to use. - -clean :: - -rm -rf rpm.c junk.c header.c transaction.c db.c ./blib $(MAKE_APERL_FILE) $(INST_ARCHAUTODIR)/extralibs.all perlmain.c mon.out core so_locations pm_to_blib *~ */*~ */*/*~ *$(OBJ_EXT) *$(LIB_EXT) perl.exe $(BOOTSTRAP) $(BASEEXT).bso $(BASEEXT).def $(BASEEXT).exp - -mv PMakefile PMakefile.old $(DEV_NULL) - - -# --- MakeMaker realclean section: - -# Delete temporary files (via clean) and also delete installed files -realclean purge :: clean - rm -rf $(INST_AUTODIR) $(INST_ARCHAUTODIR) - rm -f $(INST_DYNAMIC) $(INST_BOOT) - rm -f $(INST_STATIC) - rm -f $(INST_LIBDIR)/rpm.pm - rm -rf PMakefile PMakefile.old - - -# --- MakeMaker dist_basics section: - -distclean :: realclean distcheck - -distcheck : - $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=fullcheck \ - -e fullcheck - -skipcheck : - $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=skipcheck \ - -e skipcheck - -manifest : - $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=mkmanifest \ - -e mkmanifest - - -# --- MakeMaker dist_core section: - -dist : $(DIST_DEFAULT) - @$(PERL) -le 'print "Warning: Makefile possibly out of date with $$vf" if ' \ - -e '-e ($$vf="$(VERSION_FROM)") and -M $$vf < -M "PMakefile";' - -tardist : $(DISTVNAME).tar$(SUFFIX) - -zipdist : $(DISTVNAME).zip - -$(DISTVNAME).tar$(SUFFIX) : distdir - $(PREOP) - $(TO_UNIX) - $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME) - $(RM_RF) $(DISTVNAME) - $(COMPRESS) $(DISTVNAME).tar - $(POSTOP) - -$(DISTVNAME).zip : distdir - $(PREOP) - $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME) - $(RM_RF) $(DISTVNAME) - $(POSTOP) - -uutardist : $(DISTVNAME).tar$(SUFFIX) - uuencode $(DISTVNAME).tar$(SUFFIX) \ - $(DISTVNAME).tar$(SUFFIX) > \ - $(DISTVNAME).tar$(SUFFIX)_uu - -shdist : distdir - $(PREOP) - $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar - $(RM_RF) $(DISTVNAME) - $(POSTOP) - - -# --- MakeMaker dist_dir section: - -distdir : - $(RM_RF) $(DISTVNAME) - $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=manicopy,maniread \ - -e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');" - - -# --- MakeMaker dist_test section: - -disttest : distdir - cd $(DISTVNAME) && $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) Makefile.PL - cd $(DISTVNAME) && $(MAKE) - cd $(DISTVNAME) && $(MAKE) test - - -# --- MakeMaker dist_ci section: - -ci : - $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=maniread \ - -e "@all = keys %{ maniread() };" \ - -e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \ - -e 'print("Executing $(RCS_LABEL) ...\n"); system("$(RCS_LABEL) @all");' - - -# --- MakeMaker install section: - -install :: all pure_install doc_install - -install_perl :: all pure_perl_install doc_perl_install - -install_site :: all pure_site_install doc_site_install - -install_ :: install_site - @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site - -pure_install :: pure_$(INSTALLDIRS)_install - -doc_install :: doc_$(INSTALLDIRS)_install - @echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod - -pure__install : pure_site_install - @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site - -doc__install : doc_site_install - @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site - -pure_perl_install :: - @$(MOD_INSTALL) \ - read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \ - write $(INSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \ - $(INST_LIB) $(INSTALLPRIVLIB) \ - $(INST_ARCHLIB) $(INSTALLARCHLIB) \ - $(INST_BIN) $(INSTALLBIN) \ - $(INST_SCRIPT) $(INSTALLSCRIPT) \ - $(INST_MAN1DIR) $(INSTALLMAN1DIR) \ - $(INST_MAN3DIR) $(INSTALLMAN3DIR) - @$(WARN_IF_OLD_PACKLIST) \ - $(SITEARCHEXP)/auto/$(FULLEXT) - - -pure_site_install :: - @$(MOD_INSTALL) \ - read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \ - write $(INSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \ - $(INST_LIB) $(INSTALLSITELIB) \ - $(INST_ARCHLIB) $(INSTALLSITEARCH) \ - $(INST_BIN) $(INSTALLBIN) \ - $(INST_SCRIPT) $(INSTALLSCRIPT) \ - $(INST_MAN1DIR) $(INSTALLMAN1DIR) \ - $(INST_MAN3DIR) $(INSTALLMAN3DIR) - @$(WARN_IF_OLD_PACKLIST) \ - $(PERL_ARCHLIB)/auto/$(FULLEXT) - -doc_perl_install :: - -@$(DOC_INSTALL) \ - "Module" "$(NAME)" \ - "installed into" "$(INSTALLPRIVLIB)" \ - LINKTYPE "$(LINKTYPE)" \ - VERSION "$(VERSION)" \ - EXE_FILES "$(EXE_FILES)" \ - >> $(INSTALLARCHLIB)/perllocal.pod - -doc_site_install :: - -@$(DOC_INSTALL) \ - "Module" "$(NAME)" \ - "installed into" "$(INSTALLSITELIB)" \ - LINKTYPE "$(LINKTYPE)" \ - VERSION "$(VERSION)" \ - EXE_FILES "$(EXE_FILES)" \ - >> $(INSTALLARCHLIB)/perllocal.pod - - -uninstall :: uninstall_from_$(INSTALLDIRS)dirs - -uninstall_from_perldirs :: - @$(UNINSTALL) $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist - -uninstall_from_sitedirs :: - @$(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist - - -# --- MakeMaker force section: -# Phony target to force checking subdirectories. -FORCE: - @$(NOOP) - - -# --- MakeMaker perldepend section: - -PERL_HDRS = \ -$(PERL_INC)/EXTERN.h $(PERL_INC)/gv.h $(PERL_INC)/pp.h \ -$(PERL_INC)/INTERN.h $(PERL_INC)/handy.h $(PERL_INC)/proto.h \ -$(PERL_INC)/XSUB.h $(PERL_INC)/hv.h $(PERL_INC)/regcomp.h \ -$(PERL_INC)/av.h $(PERL_INC)/keywords.h $(PERL_INC)/regexp.h \ -$(PERL_INC)/config.h $(PERL_INC)/mg.h $(PERL_INC)/scope.h \ -$(PERL_INC)/cop.h $(PERL_INC)/op.h $(PERL_INC)/sv.h \ -$(PERL_INC)/cv.h $(PERL_INC)/opcode.h $(PERL_INC)/unixish.h \ -$(PERL_INC)/dosish.h $(PERL_INC)/patchlevel.h $(PERL_INC)/util.h \ -$(PERL_INC)/embed.h $(PERL_INC)/perl.h $(PERL_INC)/iperlsys.h \ -$(PERL_INC)/form.h $(PERL_INC)/perly.h - -$(OBJECT) : $(PERL_HDRS) - -rpm.c junk.c header.c transaction.c db.c : $(XSUBPPDEPS) - - -# --- MakeMaker makefile section: - -$(OBJECT) : $(FIRST_MAKEFILE) - -# We take a very conservative approach here, but it\'s worth it. -# We move Makefile to Makefile.old here to avoid gnu make looping. -PMakefile : Makefile.PL $(CONFIGDEP) - @echo "Makefile out-of-date with respect to $?" - @echo "Cleaning current config before rebuilding Makefile..." - -@$(RM_F) PMakefile.old - -@$(MV) PMakefile PMakefile.old - -$(MAKE) -f PMakefile.old clean $(DEV_NULL) || $(NOOP) - $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" Makefile.PL - @echo "==> Your Makefile has been rebuilt. <==" - @echo "==> Please rerun the make command. <==" - false - -# To change behavior to :: would be nice, but would break Tk b9.02 -# so you find such a warning below the dist target. -#PMakefile :: $(VERSION_FROM) -# @echo "Warning: Makefile possibly out of date with $(VERSION_FROM)" - - -# --- MakeMaker staticmake section: - -# --- MakeMaker makeaperl section --- -MAP_TARGET = perl -FULLPERL = /usr/bin/perl - -$(MAP_TARGET) :: static $(MAKE_APERL_FILE) - $(MAKE) -f $(MAKE_APERL_FILE) $@ - -$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) - @echo Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET) - @$(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \ - Makefile.PL DIR= \ - MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \ - MAKEAPERL=1 NORECURS=1 CCCDLFLAGS= - - -# --- MakeMaker test section: - -TEST_VERBOSE=0 -TEST_TYPE=test_$(LINKTYPE) -TEST_FILE = test.pl -TEST_FILES = -TESTDB_SW = -d - -testdb :: testdb_$(LINKTYPE) - -test :: $(TEST_TYPE) - -test_dynamic :: pure_all - PERL_DL_NONLAZY=1 $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(TEST_FILE) - -testdb_dynamic :: pure_all - PERL_DL_NONLAZY=1 $(FULLPERL) $(TESTDB_SW) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(TEST_FILE) - -test_ : test_dynamic - -test_static :: pure_all $(MAP_TARGET) - PERL_DL_NONLAZY=1 ./$(MAP_TARGET) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(TEST_FILE) - -testdb_static :: pure_all $(MAP_TARGET) - PERL_DL_NONLAZY=1 ./$(MAP_TARGET) $(TESTDB_SW) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(TEST_FILE) - - - -# --- MakeMaker ppd section: -# Creates a PPD (Perl Package Description) for a binary distribution. -ppd: - @$(PERL) -e "print qq{<SOFTPKG NAME=\"rpm\" VERSION=\"0,01,0,0\">\n}. qq{\t<TITLE>rpm</TITLE>\n}. qq{\t<ABSTRACT></ABSTRACT>\n}. qq{\t<AUTHOR></AUTHOR>\n}. qq{\t<IMPLEMENTATION>\n}. qq{\t\t<OS NAME=\"$(OSNAME)\" />\n}. qq{\t\t<ARCHITECTURE NAME=\"sparc-linux\" />\n}. qq{\t\t<CODEBASE HREF=\"\" />\n}. qq{\t</IMPLEMENTATION>\n}. qq{</SOFTPKG>\n}" > rpm.ppd - -# --- MakeMaker pm_to_blib section: - -pm_to_blib: $(TO_INST_PM) - @$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \ - "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \ - -e "pm_to_blib({qw{$(PM_TO_BLIB)}},'$(INST_LIB)/auto')" - @$(TOUCH) $@ - - -# --- MakeMaker selfdocument section: - - -# --- MakeMaker postamble section: - - -# End. diff --git a/perl/README b/perl/README deleted file mode 100644 index 4caa313e9..000000000 --- a/perl/README +++ /dev/null @@ -1,6 +0,0 @@ -Copyright (c) 1999 Red Hat, Inc. All rights reserved. - -Developed by Cristian Gafton <gafton@redhat.com> - -This program is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. diff --git a/perl/check b/perl/check deleted file mode 100755 index b9232d813..000000000 --- a/perl/check +++ /dev/null @@ -1,55 +0,0 @@ -#!/usr/bin/perl - -use ExtUtils::testlib; -use rpm; - -my $testfile = "foo.i386.rpm"; - -my $header = rpm::Header($testfile); - -print "Test No. 1\n"; -if ($header) { - my @foo_test = (); - my %foo_test = (); - my $key; - - print "call to the header function SUCCEEDED\n"; - @foo_test = $header->ItemByVal(1027); - print "values returned by ItemByVal(1027) ", join(' ',@foo_test), "\n\n\n"; - @foo_test = $header->ItemByName("Filenames"); - print "values returned by ItemByName(\"Filenames\") ", join(' ',@foo_test), "\n\n\n"; - - print "\n\nTest No. 2\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 "\n\nTest No. 3\n"; - print "The number of header tags is: ", scalar $header->Tags(), "\n"; - - print "\n\nTest No. 4\n"; - rpm::Debug(); - my $db = rpm::dbOpen(); - if ($db) { - my $rec = $db->First(); - while ($rec != 0) { - my $hdr = $db->Record($rec); - print "Found header: Name=[", $hdr->ItemByName("Name"), "]\n"; - $rec = $db->Next($rec); - } - $db->Close(); - } else { - print "Could not open the RPM database! Error code: ", rpm::Error(), "\n"; - } -} else { - print "call to the header function FAILED\n"; -} - - - diff --git a/perl/constant.c b/perl/constant.c deleted file mode 100644 index 7a2a346fd..000000000 --- a/perl/constant.c +++ /dev/null @@ -1,1650 +0,0 @@ -/* - * This file contains the constant() function that is used - * by perl AutoLoader when looking up exported constant symbols - * - * $Id: constant.c,v 1.2 1999/07/14 18:23:16 gafton 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> - -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/db.xs b/perl/db.xs deleted file mode 100644 index 078927275..000000000 --- a/perl/db.xs +++ /dev/null @@ -1,33 +0,0 @@ - -MODULE = rpm PACKAGE = rpmdb PREFIX = rpmdb - -void -rpmdbClose(db) - rpmdb db - -unsigned int -rpmdbFirst(db) - rpmdb db - CODE: - RETVAL = rpmdbFirstRecNum(db); - OUTPUT: - RETVAL - -unsigned int -rpmdbNext(db, last_rec) - rpmdb db - unsigned int last_rec - CODE: - RETVAL = rpmdbNextRecNum(db, last_rec); - OUTPUT: - RETVAL - -Header -rpmdbRecord(db, rec) - rpmdb db - unsigned int rec - CODE: - RETVAL = rpmdbGetRecord(db, rec); - OUTPUT: - RETVAL - diff --git a/perl/foo.i386.rpm b/perl/foo.i386.rpm Binary files differdeleted file mode 100644 index 9a575f562..000000000 --- a/perl/foo.i386.rpm +++ /dev/null diff --git a/perl/header.xs b/perl/header.xs deleted file mode 100644 index d132a7884..000000000 --- a/perl/header.xs +++ /dev/null @@ -1,211 +0,0 @@ - -MODULE = rpm PACKAGE = Header 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: - while (count-- > 0) { - av_push(array, newSViv((char) (int) value)); - value++; - } - break; - case RPM_INT8_TYPE: - while (count-- > 0) { - av_push(array, newSViv((int_8) (int) value)); - value++; - } - break; - case RPM_INT16_TYPE: - while (count-- > 0) { - av_push(array, newSViv((int_16) (int) value)); - value++; - } - break; - case RPM_INT32_TYPE: - while (count-- > 0) { - av_push(array, newSViv((int_32)value)); - 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 (rpmTagTable[i].name != NULL && strcasecmp(tag, rpmTagTable[i].name + 7) == 0) { - item = rpmTagTable[i].val; - break; - } - } - rc = headerGetEntry(header, item, &type, &value, &count); - array = newAV(); - if (rc != 0) { - switch(type) { - case RPM_CHAR_TYPE: - while (count-- > 0) { - av_push(array, newSViv((char) (int) value)); - value++; - } - break; - case RPM_INT8_TYPE: - while (count-- > 0) { - av_push(array, newSViv((int_8) (int) value)); - value++; - } - break; - case RPM_INT16_TYPE: - while (count-- > 0) { - av_push(array, newSViv((int_16) (int) value)); - value++; - } - break; - case RPM_INT32_TYPE: - while (count-- > 0) { - av_push(array, newSViv((int_32)value)); - 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: - while (count-- > 0) { - av_push(array, newSViv((char) (int) value)); - value++; - } - break; - case RPM_INT8_TYPE: - while (count-- > 0) { - av_push(array, newSViv((int_8) (int) value)); - value++; - } - break; - case RPM_INT16_TYPE: - while (count-- > 0) { - av_push(array, newSViv((int_16) (int) value)); - value++; - } - break; - case RPM_INT32_TYPE: - while (count-- > 0) { - av_push(array, newSViv((int_32)value)); - 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/junk.xs b/perl/junk.xs deleted file mode 100644 index a3f023768..000000000 --- a/perl/junk.xs +++ /dev/null @@ -1,55 +0,0 @@ -/* - * This file includes misc functions that were once implemented and retired - * later in the process - * - * $Id: junk.xs,v 1.2 1999/07/14 17:23:30 gafton 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 deleted file mode 100644 index b86f44f1d..000000000 --- a/perl/rpm.pm +++ /dev/null @@ -1,117 +0,0 @@ -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 Header::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 Header::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 Header::List { - my $header = shift; - - return %{$header->ListRef()}; -} - -sub Header::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 deleted file mode 100644 index 9b7fe2a87..000000000 --- a/perl/rpm.xs +++ /dev/null @@ -1,149 +0,0 @@ -/* - * Perl interface to rpmlib - * - * $Id: rpm.xs,v 1.5 2000/02/10 22:13:48 jbj Exp $ - */ - -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" - -#include <sys/types.h> -#include <sys/stat.h> -#include <fcntl.h> - -#include "rpmlib.h" -#include "rpmio.h" -#include "dbindex.h" -#include "header.h" -#include "popt.h" - -/* - * External functions - */ -extern double constant(char *name, int arg); - - -MODULE = rpm PACKAGE = rpm - -PROTOTYPES: ENABLE - -BOOT: -# The following message will be printed when the -# bootstrap function executes. - if (rpmReadConfigFiles(NULL, NULL) != 0) { - XSRETURN_NO; - } - -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), "Header", (void*)RETVAL); - } - -rpmTransactionSet -Transaction(header) - Header header - CODE: - ST(0) = sv_newmortal(); - ST(0) = &PL_sv_undef; - -rpmdb -dbOpen(root = "", forWrite = 0) - const char * root - int forWrite - PREINIT: - int retval; - CODE: - retval = rpmdbOpen(root, &RETVAL, forWrite ? O_RDWR | O_CREAT : O_RDONLY, 0644); - printf("\nretval is %d\n", retval); - ST(0) = sv_newmortal(); - if (retval != 0) { - ST(0) = &PL_sv_undef; - } else { - sv_setref_pv(ST(0), "rpmdb", (void *)RETVAL); - } - - -int -dbInit(root = NULL) - char * root - CODE: - RETVAL = rpmdbInit(root, 0); - OUTPUT: - RETVAL - -int -dbRebuild(root = NULL) - char * root - CODE: - RETVAL = rpmdbRebuild(root); - OUTPUT: - RETVAL - - -int -Error() - CODE: - RETVAL = rpmErrorCode(); - OUTPUT: - RETVAL - -void -Debug(enable = 1) - int enable - CODE: - if (enable) { - rpmSetVerbosity(RPMMESS_DEBUG); - } else { - rpmSetVerbosity(RPMMESS_QUIET); - } - -char * -GetVar(var) - int var - CODE: - RETVAL = rpmGetVar(var); - OUTPUT: - RETVAL - -void -SetVar(var, value) - int var - char * value - CODE: - rpmSetVar(var, value); - -INCLUDE: db.xs -INCLUDE: header.xs -INCLUDE: transaction.xs - - diff --git a/perl/test.pl b/perl/test.pl deleted file mode 100644 index 7a750a53a..000000000 --- a/perl/test.pl +++ /dev/null @@ -1,37 +0,0 @@ -# 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/transaction.xs b/perl/transaction.xs deleted file mode 100644 index 02aad7021..000000000 --- a/perl/transaction.xs +++ /dev/null @@ -1,56 +0,0 @@ - -MODULE = rpm PACKAGE = rpmTransactionSet PREFIX = Transaction - -int -TransactionAdd(trans, header) - rpmTransactionSet trans - Header header - CODE: - ST(0) = sv_newmortal(); - ST(0) = &PL_sv_undef; - -int -TransactionDepCheck(trans) - rpmTransactionSet trans - CODE: - ST(0) = sv_newmortal(); - ST(0) = &PL_sv_undef; - -int -TransactionRun(trans) - rpmTransactionSet trans - CODE: - ST(0) = sv_newmortal(); - ST(0) = &PL_sv_undef; - -rpmTransactionSet -TransactionOrder(trans) - rpmTransactionSet trans - CODE: - ST(0) = sv_newmortal(); - ST(0) = &PL_sv_undef; - -int -TransactionDealloc(trans) - rpmTransactionSet trans - CODE: - ST(0) = sv_newmortal(); - ST(0) = &PL_sv_undef; - -int -TransactionGetAttr(trans, name) - rpmTransactionSet trans - const char * name - CODE: - ST(0) = sv_newmortal(); - ST(0) = &PL_sv_undef; - -int -TransactionSetAttr(trans, name, val) - rpmTransactionSet trans - const char * name - void * val - CODE: - ST(0) = sv_newmortal(); - ST(0) = &PL_sv_undef; - diff --git a/perl/typemap b/perl/typemap deleted file mode 100644 index 78ccb99ad..000000000 --- a/perl/typemap +++ /dev/null @@ -1,9 +0,0 @@ -/* $Id: typemap,v 1.4 1999/07/16 08:44:54 gafton Exp $ */ - -TYPEMAP - -Header T_PTROBJ -rpmTransactionSet T_PTROBJ -rpmdb T_PTROBJ - -const char * T_PV |