From 73a1284d46f6343740ba2155f10171a104b3deb8 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 28 Feb 2002 12:25:05 +0000 Subject: [PATCH] Remove artifacts of Perl build --- Makefile | 776 ---------------------------------- SimpleServer.c | 1277 -------------------------------------------------------- 2 files changed, 2053 deletions(-) delete mode 100644 Makefile delete mode 100644 SimpleServer.bs delete mode 100644 SimpleServer.c delete mode 100644 pm_to_blib diff --git a/Makefile b/Makefile deleted file mode 100644 index b4d3a3b..0000000 --- a/Makefile +++ /dev/null @@ -1,776 +0,0 @@ -# This Makefile is for the Net::Z3950::SimpleServer 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: - -# DEFINE => q[] -# INC => q[] -# LIBS => [q[-L/usr/local/lib -lyaz]] -# NAME => q[Net::Z3950::SimpleServer] -# VERSION_FROM => q[SimpleServer.pm] - -# --- MakeMaker post_initialize section: - - -# --- MakeMaker const_config section: - -# These definitions are from config.sh (via /usr/lib/perl5/5.00503/i386-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.1-ac1 -RANLIB = : -SO = so -EXE_EXT = - - -# --- MakeMaker constants section: -AR_STATIC_ARGS = cr -NAME = Net::Z3950::SimpleServer -DISTNAME = Net-Z3950-SimpleServer -NAME_SYM = Net_Z3950_SimpleServer -VERSION = 0.02 -VERSION_SYM = 0_02 -XS_VERSION = 0.02 -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/i386-linux -INSTALLSITELIB = $(PREFIX)/lib/perl5/site_perl/5.005 -INSTALLSITEARCH = $(PREFIX)/lib/perl5/site_perl/5.005/i386-linux -INSTALLBIN = $(PREFIX)/bin -INSTALLSCRIPT = $(PREFIX)/bin -PERL_LIB = /usr/lib/perl5/5.00503 -PERL_ARCHLIB = /usr/lib/perl5/5.00503/i386-linux -SITELIBEXP = /usr/lib/perl5/site_perl/5.005 -SITEARCHEXP = /usr/lib/perl5/site_perl/5.005/i386-linux -LIBPERL_A = libperl.a -FIRST_MAKEFILE = Makefile -MAKE_APERL_FILE = Makefile.aperl -PERLMAINCC = $(CC) -PERL_INC = /usr/lib/perl5/5.00503/i386-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 = Net/Z3950/SimpleServer -BASEEXT = SimpleServer -PARENT_NAME = Net::Z3950 -DLBASE = $(BASEEXT) -VERSION_FROM = SimpleServer.pm -INC = -DEFINE = -OBJECT = $(BASEEXT)$(OBJ_EXT) -LDFROM = $(OBJECT) -LINKTYPE = dynamic - -# Handy lists of source code files: -XS_FILES= SimpleServer.xs -C_FILES = SimpleServer.c -O_FILES = SimpleServer.o -H_FILES = -MAN1PODS = -MAN3PODS = GRS1.pm \ - SimpleServer.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)/Net/Z3950 -INST_ARCHLIBDIR = $(INST_ARCHLIB)/Net/Z3950 - -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 = GRS1.pm \ - OID.pm \ - SimpleServer.pm \ - grs_test.pl \ - ztest.pl - -PM_TO_BLIB = GRS1.pm \ - $(INST_LIBDIR)/GRS1.pm \ - ztest.pl \ - $(INST_LIBDIR)/ztest.pl \ - SimpleServer.pm \ - $(INST_LIBDIR)/SimpleServer.pm \ - grs_test.pl \ - $(INST_LIBDIR)/grs_test.pl \ - OID.pm \ - $(INST_LIBDIR)/OID.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 -XSUBPPARGS = -typemap $(XSUBPPDIR)/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: - - -# --- MakeMaker cflags section: - -CCFLAGS = -Dbool=char -DHAS_BOOL -I/usr/local/include -OPTIMIZE = -O2 -PERLTYPE = -LARGE = -SPLIT = - - -# --- MakeMaker const_loadlibs section: - -# Net::Z3950::SimpleServer might depend on some other libraries: -# See ExtUtils::Liblist for details -# -EXTRALIBS = -L/usr/local/lib -lyaz -LDLOADLIBS = -L/usr/local/lib -lyaz -BSLOADLIBS = -LD_RUN_PATH = /usr/local/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 :: Makefile $(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/i386-linux/CORE/perl.h - @$(MKPATH) $(INST_AUTODIR) - @$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.00503/i386-linux/CORE/perl.h $(INST_AUTODIR)/.exists - - -@$(CHMOD) $(PERM_RWX) $(INST_AUTODIR) - -$(INST_LIBDIR)/.exists :: /usr/lib/perl5/5.00503/i386-linux/CORE/perl.h - @$(MKPATH) $(INST_LIBDIR) - @$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.00503/i386-linux/CORE/perl.h $(INST_LIBDIR)/.exists - - -@$(CHMOD) $(PERM_RWX) $(INST_LIBDIR) - -$(INST_ARCHAUTODIR)/.exists :: /usr/lib/perl5/5.00503/i386-linux/CORE/perl.h - @$(MKPATH) $(INST_ARCHAUTODIR) - @$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.00503/i386-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/i386-linux/CORE/perl.h - @$(MKPATH) $(INST_MAN3DIR) - @$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.00503/i386-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 :: Makefile $(INST_DYNAMIC) $(INST_BOOT) $(INST_PM) -dynamic :: Makefile $(INST_DYNAMIC) $(INST_BOOT) - @$(NOOP) - - -# --- MakeMaker dynamic_bs section: - -BOOTSTRAP = SimpleServer.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): Makefile $(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 :: Makefile $(INST_STATIC) $(INST_PM) -static :: Makefile $(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 "Makefile";' \ --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 GRS1.pm \ - SimpleServer.pm - @$(POD2MAN) \ - GRS1.pm \ - $(INST_MAN3DIR)/Net::Z3950::GRS1.$(MAN3EXT) \ - SimpleServer.pm \ - $(INST_MAN3DIR)/Net::Z3950::SimpleServer.$(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 SimpleServer.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 Makefile Makefile.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)/GRS1.pm $(INST_LIBDIR)/ztest.pl $(INST_LIBDIR)/SimpleServer.pm $(INST_LIBDIR)/grs_test.pl $(INST_LIBDIR)/OID.pm - rm -rf Makefile Makefile.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 "Makefile";' - -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) - -SimpleServer.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. -Makefile : Makefile.PL $(CONFIGDEP) - @echo "Makefile out-of-date with respect to $?" - @echo "Cleaning current config before rebuilding Makefile..." - -@$(RM_F) Makefile.old - -@$(MV) Makefile Makefile.old - -$(MAKE) -f Makefile.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. -#Makefile :: $(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{\n}. qq{\tNet-Z3950-SimpleServer\n}. qq{\t\n}. qq{\t\n}. qq{\t\n}. qq{\t\t\n}. qq{\t\t\n}. qq{\t\t\n}. qq{\t\n}. qq{\n}" > Net-Z3950-SimpleServer.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/SimpleServer.bs b/SimpleServer.bs deleted file mode 100644 index e69de29..0000000 diff --git a/SimpleServer.c b/SimpleServer.c deleted file mode 100644 index 0a3472e..0000000 --- a/SimpleServer.c +++ /dev/null @@ -1,1277 +0,0 @@ -/* - * This file was generated automatically by xsubpp version 1.9507 from the - * contents of SimpleServer.xs. Do not edit this file, edit SimpleServer.xs instead. - * - * ANY CHANGES MADE HERE WILL BE LOST! - * - */ - -#line 1 "SimpleServer.xs" -/* - * Copyright (c) 2000, Index Data. - * - * Permission to use, copy, modify, distribute, and sell this software and - * its documentation, in whole or in part, for any purpose, is hereby granted, - * provided that: - * - * 1. This copyright and permission notice appear in all copies of the - * software and its documentation. Notices of copyright or attribution - * which appear at the beginning of any file must remain unchanged. - * - * 2. The name of Index Data or the individual authors may not be used to - * endorse or promote products derived from this software without specific - * prior written permission. - * - * THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT WARRANTY OF ANY KIND, - * EXPRESS, IMPLIED, OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY - * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. - * IN NO EVENT SHALL INDEX DATA BE LIABLE FOR ANY SPECIAL, INCIDENTAL, - * INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND, OR ANY DAMAGES - * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER OR - * NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF - * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE - * OF THIS SOFTWARE. - */ - -/*$Log: SimpleServer.c,v $ -/*Revision 1.14 2001-08-30 14:02:10 sondberg -/*Small changes. -/* -/*Revision 1.11 2001/08/30 13:15:11 sondberg -/*Corrected a memory leak, one more to go. -/* -/*Revision 1.10 2001/08/29 11:48:36 sondberg -/*Added routines -/* -/* Net::Z3950::SimpleServer::ScanSuccess -/* Net::Z3950::SimpleServer::ScanPartial -/* -/*and a bit of documentation. -/* -/*Revision 1.9 2001/08/24 14:00:20 sondberg -/*Added support for scan. -/* -/*Revision 1.8 2001/05/21 11:07:02 sondberg -/*Extended maximum numbers of GRS-1 elements. Should be done dynamically. -/* -/*Revision 1.7 2001/03/13 14:17:15 sondberg -/*Added support for GRS-1. -/**/ - - -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" -#include -#include -#include -#include -#include -#include -#include -#define GRS_MAX_FIELDS 500 -#ifdef ASN_COMPILED -#include -#endif -#ifndef sv_undef /* To fix the problem with Perl 5.6.0 */ -#define sv_undef PL_sv_undef -#endif - -typedef struct { - SV *handle; - - SV *init_ref; - SV *close_ref; - SV *sort_ref; - SV *search_ref; - SV *fetch_ref; - SV *present_ref; - SV *esrequest_ref; - SV *delete_ref; - SV *scan_ref; -} Zfront_handle; - -SV *init_ref = NULL; -SV *close_ref = NULL; -SV *sort_ref = NULL; -SV *search_ref = NULL; -SV *fetch_ref = NULL; -SV *present_ref = NULL; -SV *esrequest_ref = NULL; -SV *delete_ref = NULL; -SV *scan_ref = NULL; -int MAX_OID = 15; - - -Z_GenericRecord *read_grs1(char *str, ODR o) -{ - int type, ivalue; - char line[512], *buf, *ptr, *original; - char value[512]; - Z_GenericRecord *r = 0; - - original = str; - for (;;) - { - Z_TaggedElement *t; - Z_ElementData *c; - - ptr = strchr(str, '\n'); - if (!ptr) { - return r; - } - strncpy(line, str, ptr - str); - line[ptr - str] = 0; - buf = line; - str = ptr + 1; - while (*buf && isspace(*buf)) - buf++; - if (*buf == '}') { - memmove(original, str, strlen(str)); - return r; - } - if (sscanf(buf, "(%d,%[^)])", &type, value) != 2) - { - yaz_log(LOG_WARN, "Bad data in '%s'", buf); - return 0; - } - if (!type && *value == '0') - return r; - if (!(buf = strchr(buf, ')'))) - return 0; - buf++; - while (*buf && isspace(*buf)) - buf++; - if (!*buf) - return 0; - if (!r) - { - r = (Z_GenericRecord *)odr_malloc(o, sizeof(*r)); - r->elements = (Z_TaggedElement **) - odr_malloc(o, sizeof(Z_TaggedElement*) * GRS_MAX_FIELDS); - r->num_elements = 0; - } - if (r->num_elements > GRS_MAX_FIELDS) - { - yaz_log(LOG_WARN, "Max number of GRS-1 elements exceeded [GRS_MAX_FIELDS=%d]", GRS_MAX_FIELDS); - exit(0); - } - r->elements[r->num_elements] = t = (Z_TaggedElement *) odr_malloc(o, sizeof(Z_TaggedElement)); - t->tagType = (int *)odr_malloc(o, sizeof(int)); - *t->tagType = type; - t->tagValue = (Z_StringOrNumeric *) - odr_malloc(o, sizeof(Z_StringOrNumeric)); - if ((ivalue = atoi(value))) - { - t->tagValue->which = Z_StringOrNumeric_numeric; - t->tagValue->u.numeric = (int *)odr_malloc(o, sizeof(int)); - *t->tagValue->u.numeric = ivalue; - } - else - { - t->tagValue->which = Z_StringOrNumeric_string; - t->tagValue->u.string = (char *)odr_malloc(o, strlen(value)+1); - strcpy(t->tagValue->u.string, value); - } - t->tagOccurrence = 0; - t->metaData = 0; - t->appliedVariant = 0; - t->content = c = (Z_ElementData *)odr_malloc(o, sizeof(Z_ElementData)); - if (*buf == '{') - { - c->which = Z_ElementData_subtree; - c->u.subtree = read_grs1(str, o); - } - else - { - c->which = Z_ElementData_string; -/* buf[strlen(buf)-1] = '\0';*/ - buf[strlen(buf)] = '\0'; - c->u.string = odr_strdup(o, buf); - } - r->num_elements++; - } -} - - - - -static void oid2str(Odr_oid *o, WRBUF buf) -{ - for (; *o >= 0; o++) { - char ibuf[16]; - sprintf(ibuf, "%d", *o); - wrbuf_puts(buf, ibuf); - if (o[1] > 0) - wrbuf_putc(buf, '.'); - } -} - - -static int rpn2pquery(Z_RPNStructure *s, WRBUF buf) -{ - switch (s->which) { - case Z_RPNStructure_simple: { - Z_Operand *o = s->u.simple; - - switch (o->which) { - case Z_Operand_APT: { - Z_AttributesPlusTerm *at = o->u.attributesPlusTerm; - - if (at->attributes) { - int i; - char ibuf[16]; - - for (i = 0; i < at->attributes->num_attributes; i++) { - wrbuf_puts(buf, "@attr "); - if (at->attributes->attributes[i]->attributeSet) { - oid2str(at->attributes->attributes[i]->attributeSet, buf); - wrbuf_putc(buf, ' '); - } - sprintf(ibuf, "%d=", *at->attributes->attributes[i]->attributeType); - assert(at->attributes->attributes[i]->which == Z_AttributeValue_numeric); - wrbuf_puts(buf, ibuf); - sprintf(ibuf, "%d ", *at->attributes->attributes[i]->value.numeric); - wrbuf_puts(buf, ibuf); - } - } - switch (at->term->which) { - case Z_Term_general: { - wrbuf_putc(buf, '"'); - wrbuf_write(buf, (char*) at->term->u.general->buf, at->term->u.general->len); - wrbuf_puts(buf, "\" "); - break; - } - default: abort(); - } - break; - } - default: abort(); - } - break; - } - case Z_RPNStructure_complex: { - Z_Complex *c = s->u.complex; - - switch (c->roperator->which) { - case Z_Operator_and: wrbuf_puts(buf, "@and "); break; - case Z_Operator_or: wrbuf_puts(buf, "@or "); break; - case Z_Operator_and_not: wrbuf_puts(buf, "@not "); break; - case Z_Operator_prox: abort(); - default: abort(); - } - if (!rpn2pquery(c->s1, buf)) - return 0; - if (!rpn2pquery(c->s2, buf)) - return 0; - break; - } - default: abort(); - } - return 1; -} - - -WRBUF zquery2pquery(Z_Query *q) -{ - WRBUF buf = wrbuf_alloc(); - - if (q->which != Z_Query_type_1 && q->which != Z_Query_type_101) - return 0; - if (q->u.type_1->attributeSetId) { - /* Output attribute set ID */ - wrbuf_puts(buf, "@attrset "); - oid2str(q->u.type_1->attributeSetId, buf); - wrbuf_putc(buf, ' '); - } - return rpn2pquery(q->u.type_1->RPNStructure, buf) ? buf : 0; -} - - -int bend_sort(void *handle, bend_sort_rr *rr) -{ - HV *href; - AV *aref; - SV **temp; - SV *err_code; - SV *err_str; - SV *status; - STRLEN len; - char *ptr; - char *ODR_err_str; - char **input_setnames; - Zfront_handle *zhandle = (Zfront_handle *)handle; - int i; - - dSP; - ENTER; - SAVETMPS; - - aref = newAV(); - input_setnames = rr->input_setnames; - for (i = 0; i < rr->num_input_setnames; i++) - { - av_push(aref, newSVpv(*input_setnames++, 0)); - } - href = newHV(); - hv_store(href, "INPUT", 5, newRV( (SV*) aref), 0); - hv_store(href, "OUTPUT", 6, newSVpv(rr->output_setname, 0), 0); - hv_store(href, "HANDLE", 6, zhandle->handle, 0); - hv_store(href, "STATUS", 6, newSViv(0), 0); - - PUSHMARK(sp); - - XPUSHs(sv_2mortal(newRV( (SV*) href))); - - PUTBACK; - - perl_call_sv(sort_ref, G_SCALAR | G_DISCARD); - - SPAGAIN; - - temp = hv_fetch(href, "ERR_CODE", 8, 1); - err_code = newSVsv(*temp); - - temp = hv_fetch(href, "ERR_STR", 7, 1); - err_str = newSVsv(*temp); - - temp = hv_fetch(href, "STATUS", 6, 1); - status = newSVsv(*temp); - - - - - PUTBACK; - FREETMPS; - LEAVE; - - hv_undef(href), - av_undef(aref); - rr->errcode = SvIV(err_code); - rr->sort_status = SvIV(status); - ptr = SvPV(err_str, len); - ODR_err_str = (char *)odr_malloc(rr->stream, len + 1); - strcpy(ODR_err_str, ptr); - rr->errstring = ODR_err_str; - - sv_free(err_code); - sv_free(err_str); - sv_free(status); - - return 0; -} - - -int bend_search(void *handle, bend_search_rr *rr) -{ - HV *href; - AV *aref; - SV **temp; - SV *hits; - SV *err_code; - SV *err_str; - char *ODR_errstr; - STRLEN len; - int i; - char **basenames; - int n; - WRBUF query; - char *ptr; - SV *point; - SV *ODR_point; - Zfront_handle *zhandle = (Zfront_handle *)handle; - - dSP; - ENTER; - SAVETMPS; - - aref = newAV(); - basenames = rr->basenames; - for (i = 0; i < rr->num_bases; i++) - { - av_push(aref, newSVpv(*basenames++, 0)); - } - href = newHV(); - hv_store(href, "SETNAME", 7, newSVpv(rr->setname, 0), 0); - hv_store(href, "REPL_SET", 8, newSViv(rr->replace_set), 0); - hv_store(href, "ERR_CODE", 8, newSViv(0), 0); - hv_store(href, "ERR_STR", 7, newSVpv("", 0), 0); - hv_store(href, "HITS", 4, newSViv(0), 0); - hv_store(href, "DATABASES", 9, newRV( (SV*) aref), 0); - hv_store(href, "HANDLE", 6, zhandle->handle, 0); - hv_store(href, "PID", 3, newSViv(getpid()), 0); - query = zquery2pquery(rr->query); - if (query) - { - hv_store(href, "QUERY", 5, newSVpv((char *)query->buf, query->pos), 0); - } - else - { - rr->errcode = 108; - } - PUSHMARK(sp); - - XPUSHs(sv_2mortal(newRV( (SV*) href))); - - PUTBACK; - - n = perl_call_sv(search_ref, G_SCALAR | G_DISCARD); - - SPAGAIN; - - temp = hv_fetch(href, "HITS", 4, 1); - hits = newSVsv(*temp); - - temp = hv_fetch(href, "ERR_CODE", 8, 1); - err_code = newSVsv(*temp); - - temp = hv_fetch(href, "ERR_STR", 7, 1); - err_str = newSVsv(*temp); - - temp = hv_fetch(href, "HANDLE", 6, 1); - point = newSVsv(*temp); - - PUTBACK; - FREETMPS; - LEAVE; - - hv_undef(href); - av_undef(aref); - rr->hits = SvIV(hits); - rr->errcode = SvIV(err_code); - ptr = SvPV(err_str, len); - ODR_errstr = (char *)odr_malloc(rr->stream, len + 1); - strcpy(ODR_errstr, ptr); - rr->errstring = ODR_errstr; -/* ODR_point = (SV *)odr_malloc(rr->stream, sizeof(*point)); - memcpy(ODR_point, point, sizeof(*point)); - zhandle->handle = ODR_point;*/ - zhandle->handle = point; - handle = zhandle; - sv_free(hits); - sv_free(err_code); - sv_free(err_str); - sv_free( (SV*) aref); - sv_free( (SV*) href); - /*sv_free(point);*/ - wrbuf_free(query, 1); - return 0; -} - - -WRBUF oid2dotted(int *oid) -{ - - WRBUF buf = wrbuf_alloc(); - int dot = 0; - - for (; *oid != -1 ; oid++) - { - char ibuf[16]; - if (dot) - { - wrbuf_putc(buf, '.'); - } - else - { - dot = 1; - } - sprintf(ibuf, "%d", *oid); - wrbuf_puts(buf, ibuf); - } - return buf; -} - - -int dotted2oid(char *dotted, int *buffer) -{ - int *oid; - char ibuf[16]; - char *ptr; - int n = 0; - - ptr = ibuf; - oid = buffer; - while (*dotted) - { - if (*dotted == '.') - { - n++; - if (n == MAX_OID) /* Terminate if more than MAX_OID entries */ - { - *oid = -1; - return -1; - } - *ptr = 0; - sscanf(ibuf, "%d", oid++); - ptr = ibuf; - dotted++; - - } - else - { - *ptr++ = *dotted++; - } - } - if (n < MAX_OID) - { - *ptr = 0; - sscanf(ibuf, "%d", oid++); - } - *oid = -1; - return 0; -} - - -int bend_fetch(void *handle, bend_fetch_rr *rr) -{ - HV *href; - SV **temp; - SV *basename; - SV *record; - SV *last; - SV *err_code; - SV *err_string; - SV *sur_flag; - SV *point; - SV *rep_form; - char *ptr; - char *ODR_record; - char *ODR_basename; - char *ODR_errstr; - int *ODR_oid_buf; - oident *oid; - WRBUF oid_dotted; - Zfront_handle *zhandle = (Zfront_handle *)handle; - - Z_RecordComposition *composition; - Z_ElementSetNames *simple; - STRLEN length; - - dSP; - ENTER; - SAVETMPS; - - rr->errcode = 0; - href = newHV(); - hv_store(href, "SETNAME", 7, newSVpv(rr->setname, 0), 0); - temp = hv_store(href, "OFFSET", 6, newSViv(rr->number), 0); - oid_dotted = oid2dotted(rr->request_format_raw); - hv_store(href, "REQ_FORM", 8, newSVpv((char *)oid_dotted->buf, oid_dotted->pos), 0); - hv_store(href, "REP_FORM", 8, newSVpv((char *)oid_dotted->buf, oid_dotted->pos), 0); - hv_store(href, "BASENAME", 8, newSVpv("", 0), 0); - hv_store(href, "RECORD", 6, newSVpv("", 0), 0); - hv_store(href, "LAST", 4, newSViv(0), 0); - hv_store(href, "ERR_CODE", 8, newSViv(0), 0); - hv_store(href, "ERR_STR", 7, newSVpv("", 0), 0); - hv_store(href, "SUR_FLAG", 8, newSViv(0), 0); - hv_store(href, "HANDLE", 6, zhandle->handle, 0); - hv_store(href, "PID", 3, newSViv(getpid()), 0); - if (rr->comp) - { - composition = rr->comp; - if (composition->which == Z_RecordComp_simple) - { - simple = composition->u.simple; - if (simple->which == Z_ElementSetNames_generic) - { - hv_store(href, "COMP", 4, newSVpv(simple->u.generic, 0), 0); - } - else - { - rr->errcode = 26; - } - } - else - { - rr->errcode = 26; - } - } - - PUSHMARK(sp); - - XPUSHs(sv_2mortal(newRV( (SV*) href))); - - PUTBACK; - - perl_call_sv(fetch_ref, G_SCALAR | G_DISCARD); - - SPAGAIN; - - temp = hv_fetch(href, "BASENAME", 8, 1); - basename = newSVsv(*temp); - - temp = hv_fetch(href, "RECORD", 6, 1); - record = newSVsv(*temp); - - temp = hv_fetch(href, "LAST", 4, 1); - last = newSVsv(*temp); - - temp = hv_fetch(href, "ERR_CODE", 8, 1); - err_code = newSVsv(*temp); - - temp = hv_fetch(href, "ERR_STR", 7, 1), - err_string = newSVsv(*temp); - - temp = hv_fetch(href, "SUR_FLAG", 8, 1); - sur_flag = newSVsv(*temp); - - temp = hv_fetch(href, "REP_FORM", 8, 1); - rep_form = newSVsv(*temp); - - temp = hv_fetch(href, "HANDLE", 6, 1); - point = newSVsv(*temp); - - PUTBACK; - FREETMPS; - LEAVE; - - hv_undef(href); - - ptr = SvPV(basename, length); - ODR_basename = (char *)odr_malloc(rr->stream, length + 1); - strcpy(ODR_basename, ptr); - rr->basename = ODR_basename; - - ptr = SvPV(rep_form, length); - ODR_oid_buf = (int *)odr_malloc(rr->stream, (MAX_OID + 1) * sizeof(int)); - if (dotted2oid(ptr, ODR_oid_buf) == -1) /* Maximum number of OID elements exceeded */ - { - printf("Net::Z3950::SimpleServer: WARNING: OID structure too long, max length is %d\n", MAX_OID); - } - rr->output_format_raw = ODR_oid_buf; - - ptr = SvPV(record, length); - oid = oid_getentbyoid(ODR_oid_buf); - if (oid->value == VAL_GRS1) /* Treat GRS-1 records separately */ - { - rr->record = (char *) read_grs1(ptr, rr->stream); - rr->len = -1; - } - else - { - ODR_record = (char *)odr_malloc(rr->stream, length + 1); - strcpy(ODR_record, ptr); - rr->record = ODR_record; - rr->len = length; - } - zhandle->handle = point; - handle = zhandle; - rr->last_in_set = SvIV(last); - - if (!(rr->errcode)) - { - rr->errcode = SvIV(err_code); - ptr = SvPV(err_string, length); - ODR_errstr = (char *)odr_malloc(rr->stream, length + 1); - strcpy(ODR_errstr, ptr); - rr->errstring = ODR_errstr; - } - rr->surrogate_flag = SvIV(sur_flag); - - wrbuf_free(oid_dotted, 1); - sv_free((SV*) href); - sv_free(basename); - sv_free(record); - sv_free(last); - sv_free(err_string); - sv_free(err_code), - sv_free(sur_flag); - sv_free(rep_form); - - return 0; -} - - -int bend_present(void *handle, bend_present_rr *rr) -{ - - HV *href; - SV **temp; - SV *err_code; - SV *err_string; - SV *hits; - SV *point; - STRLEN len; - Z_RecordComposition *composition; - Z_ElementSetNames *simple; - char *ODR_errstr; - char *ptr; - Zfront_handle *zhandle = (Zfront_handle *)handle; - -/* WRBUF oid_dotted; */ - - dSP; - ENTER; - SAVETMPS; - - href = newHV(); - hv_store(href, "HANDLE", 6, zhandle->handle, 0); - hv_store(href, "ERR_CODE", 8, newSViv(0), 0); - hv_store(href, "ERR_STR", 7, newSVpv("", 0), 0); - hv_store(href, "START", 5, newSViv(rr->start), 0); - hv_store(href, "SETNAME", 7, newSVpv(rr->setname, 0), 0); - hv_store(href, "NUMBER", 6, newSViv(rr->number), 0); - /*oid_dotted = oid2dotted(rr->request_format_raw); - hv_store(href, "REQ_FORM", 8, newSVpv((char *)oid_dotted->buf, oid_dotted->pos), 0);*/ - hv_store(href, "HITS", 4, newSViv(0), 0); - hv_store(href, "PID", 3, newSViv(getpid()), 0); - if (rr->comp) - { - composition = rr->comp; - if (composition->which == Z_RecordComp_simple) - { - simple = composition->u.simple; - if (simple->which == Z_ElementSetNames_generic) - { - hv_store(href, "COMP", 4, newSVpv(simple->u.generic, 0), 0); - } - else - { - rr->errcode = 26; - return 0; - } - } - else - { - rr->errcode = 26; - return 0; - } - } - - PUSHMARK(sp); - - XPUSHs(sv_2mortal(newRV( (SV*) href))); - - PUTBACK; - - perl_call_sv(present_ref, G_SCALAR | G_DISCARD); - - SPAGAIN; - - temp = hv_fetch(href, "ERR_CODE", 8, 1); - err_code = newSVsv(*temp); - - temp = hv_fetch(href, "ERR_STR", 7, 1); - err_string = newSVsv(*temp); - - temp = hv_fetch(href, "HITS", 4, 1); - hits = newSVsv(*temp); - - temp = hv_fetch(href, "HANDLE", 6, 1); - point = newSVsv(*temp); - - PUTBACK; - FREETMPS; - LEAVE; - - hv_undef(href); - rr->errcode = SvIV(err_code); - rr->hits = SvIV(hits); - - ptr = SvPV(err_string, len); - ODR_errstr = (char *)odr_malloc(rr->stream, len + 1); - strcpy(ODR_errstr, ptr); - rr->errstring = ODR_errstr; -/* wrbuf_free(oid_dotted, 1);*/ - zhandle->handle = point; - handle = zhandle; - sv_free(err_code); - sv_free(err_string); - sv_free(hits); - sv_free( (SV*) href); - - return 0; -} - - -int bend_esrequest(void *handle, bend_esrequest_rr *rr) -{ - perl_call_sv(esrequest_ref, G_VOID | G_DISCARD | G_NOARGS); - return 0; -} - - -int bend_delete(void *handle, bend_delete_rr *rr) -{ - perl_call_sv(delete_ref, G_VOID | G_DISCARD | G_NOARGS); - return 0; -} - - -int bend_scan(void *handle, bend_scan_rr *rr) -{ - HV *href; - AV *aref; - AV *list; - AV *entries; - HV *scan_item; - struct scan_entry *scan_list; - struct scan_entry *buffer; - int *step_size = rr->step_size; - int i; - char **basenames; - SV **temp; - SV *err_code = sv_newmortal(); - SV *err_str = sv_newmortal(); - SV *point = sv_newmortal(); - SV *status = sv_newmortal(); - SV *number = sv_newmortal(); - char *ptr; - char *ODR_errstr; - STRLEN len; - int term_len; - SV *term_tmp; - SV *entries_ref; - - Zfront_handle *zhandle = (Zfront_handle *)handle; - - dSP; - ENTER; - SAVETMPS; - href = newHV(); - list = newAV(); - if (rr->term->term->which == Z_Term_general) - { - term_len = rr->term->term->u.general->len; - hv_store(href, "TERM", 4, newSVpv(rr->term->term->u.general->buf, term_len), 0); - } else { - rr->errcode = 229; /* Unsupported term type */ - return 0; - } - hv_store(href, "STEP", 4, newSViv(*step_size), 0); - hv_store(href, "NUMBER", 6, newSViv(rr->num_entries), 0); - hv_store(href, "POS", 3, newSViv(rr->term_position), 0); - hv_store(href, "ERR_CODE", 8, newSViv(0), 0); - hv_store(href, "ERR_STR", 7, newSVpv("", 0), 0); - hv_store(href, "HANDLE", 6, zhandle->handle, 0); - hv_store(href, "STATUS", 6, newSViv(BEND_SCAN_SUCCESS), 0); - hv_store(href, "ENTRIES", 7, newRV((SV *) list), 0); - aref = newAV(); - basenames = rr->basenames; - for (i = 0; i < rr->num_bases; i++) - { - av_push(aref, newSVpv(*basenames++, 0)); - } - hv_store(href, "DATABASES", 9, newRV( (SV*) aref), 0); - - PUSHMARK(sp); - - XPUSHs(sv_2mortal(newRV( (SV*) href))); - - PUTBACK; - - perl_call_sv(scan_ref, G_SCALAR | G_DISCARD); - - SPAGAIN; - - temp = hv_fetch(href, "ERR_CODE", 8, 1); - err_code = newSVsv(*temp); - - temp = hv_fetch(href, "ERR_STR", 7, 1); - err_str = newSVsv(*temp); - - temp = hv_fetch(href, "HANDLE", 6, 1); - point = newSVsv(*temp); - - temp = hv_fetch(href, "STATUS", 6, 1); - status = newSVsv(*temp); - - temp = hv_fetch(href, "NUMBER", 6, 1); - number = newSVsv(*temp); - - temp = hv_fetch(href, "ENTRIES", 7, 1); - entries_ref = newSVsv(*temp); - - PUTBACK; - FREETMPS; - LEAVE; - - ptr = SvPV(err_str, len); - ODR_errstr = (char *)odr_malloc(rr->stream, len + 1); - strcpy(ODR_errstr, ptr); - rr->errstring = ODR_errstr; - rr->errcode = SvIV(err_code); - rr->num_entries = SvIV(number); - rr->status = SvIV(status); - scan_list = (struct scan_entry *) odr_malloc (rr->stream, rr->num_entries * sizeof(*scan_list)); - buffer = scan_list; - entries = (AV *)SvRV(entries_ref); - for (i = 0; i < rr->num_entries; i++) - { - scan_item = (HV *)SvRV(sv_2mortal(av_shift(entries))); - temp = hv_fetch(scan_item, "TERM", 4, 1); - ptr = SvPV(*temp, len); - buffer->term = (char *) odr_malloc (rr->stream, len + 1); - strcpy(buffer->term, ptr); - temp = hv_fetch(scan_item, "OCCURRENCE", 10, 1); - buffer->occurrences = SvIV(*temp); - buffer++; - hv_undef(scan_item); - } - rr->entries = scan_list; - zhandle->handle = point; - handle = zhandle; - sv_free(err_code); - sv_free(err_str); - sv_free(status); - sv_free(number); - hv_undef(href); - sv_free((SV *)href); - av_undef(aref); - sv_free((SV *)aref); - av_undef(list); - sv_free((SV *)list); - av_undef(entries); - /*sv_free((SV *)entries);*/ - sv_free(entries_ref); - - return 0; -} - - -bend_initresult *bend_init(bend_initrequest *q) -{ - bend_initresult *r = (bend_initresult *) odr_malloc (q->stream, sizeof(*r)); - HV *href; - SV **temp; - SV *name; - SV *ver; - SV *err_str; - SV *status; - Zfront_handle *zhandle = (Zfront_handle *) xmalloc (sizeof(*zhandle)); - STRLEN len; - int n; - SV *handle; - /*char *name_ptr; - char *ver_ptr;*/ - char *ptr; - - dSP; - ENTER; - SAVETMPS; - - /*q->bend_sort = bend_sort;*/ - if (search_ref) - { - q->bend_search = bend_search; - } - if (present_ref) - { - q->bend_present = bend_present; - } - /*q->bend_esrequest = bend_esrequest;*/ - /*q->bend_delete = bend_delete;*/ - if (fetch_ref) - { - q->bend_fetch = bend_fetch; - } - if (scan_ref) - { - q->bend_scan = bend_scan; - } - href = newHV(); - hv_store(href, "IMP_NAME", 8, newSVpv("", 0), 0); - hv_store(href, "IMP_VER", 7, newSVpv("", 0), 0); - hv_store(href, "ERR_CODE", 8, newSViv(0), 0); - hv_store(href, "PEER_NAME", 9, newSVpv(q->peer_name, 0), 0); - hv_store(href, "HANDLE", 6, newSVsv(&sv_undef), 0); - hv_store(href, "PID", 3, newSViv(getpid()), 0); - - PUSHMARK(sp); - - XPUSHs(sv_2mortal(newRV( (SV*) href))); - - PUTBACK; - - if (init_ref != NULL) - { - perl_call_sv(init_ref, G_SCALAR | G_DISCARD); - } - - SPAGAIN; - - temp = hv_fetch(href, "IMP_NAME", 8, 1); - name = newSVsv(*temp); - - temp = hv_fetch(href, "IMP_VER", 7, 1); - ver = newSVsv(*temp); - - temp = hv_fetch(href, "ERR_CODE", 8, 1); - status = newSVsv(*temp); - - temp = hv_fetch(href, "HANDLE", 6, 1); - handle= newSVsv(*temp); - - hv_undef(href); - PUTBACK; - FREETMPS; - LEAVE; - zhandle->handle = handle; - r->errcode = SvIV(status); - r->handle = zhandle; - ptr = SvPV(name, len); - q->implementation_name = (char *)xmalloc(len + 1); - strcpy(q->implementation_name, ptr); -/* q->implementation_name = SvPV(name, len);*/ - ptr = SvPV(ver, len); - q->implementation_version = (char *)xmalloc(len + 1); - strcpy(q->implementation_version, ptr); - - return r; -} - - -void bend_close(void *handle) -{ - HV *href; - Zfront_handle *zhandle = (Zfront_handle *)handle; - SV **temp; - - dSP; - ENTER; - SAVETMPS; - - if (close_ref == NULL) - { - return; - } - - href = newHV(); - hv_store(href, "HANDLE", 6, zhandle->handle, 0); - - PUSHMARK(sp); - - XPUSHs(sv_2mortal(newRV((SV *)href))); - - PUTBACK; - - perl_call_sv(close_ref, G_SCALAR | G_DISCARD); - - SPAGAIN; - - PUTBACK; - FREETMPS; - LEAVE; - - xfree(handle); - - return; -} - - -#line 1061 "SimpleServer.c" -XS(XS_Net__Z3950__SimpleServer_set_init_handler) -{ - dXSARGS; - if (items != 1) - croak("Usage: Net::Z3950::SimpleServer::set_init_handler(arg)"); - { - SV * arg = ST(0); -#line 1057 "SimpleServer.xs" - init_ref = newSVsv(arg); -#line 1071 "SimpleServer.c" - } - XSRETURN_EMPTY; -} - -XS(XS_Net__Z3950__SimpleServer_set_close_handler) -{ - dXSARGS; - if (items != 1) - croak("Usage: Net::Z3950::SimpleServer::set_close_handler(arg)"); - { - SV * arg = ST(0); -#line 1064 "SimpleServer.xs" - close_ref = newSVsv(arg); -#line 1085 "SimpleServer.c" - } - XSRETURN_EMPTY; -} - -XS(XS_Net__Z3950__SimpleServer_set_sort_handler) -{ - dXSARGS; - if (items != 1) - croak("Usage: Net::Z3950::SimpleServer::set_sort_handler(arg)"); - { - SV * arg = ST(0); -#line 1071 "SimpleServer.xs" - sort_ref = newSVsv(arg); -#line 1099 "SimpleServer.c" - } - XSRETURN_EMPTY; -} - -XS(XS_Net__Z3950__SimpleServer_set_search_handler) -{ - dXSARGS; - if (items != 1) - croak("Usage: Net::Z3950::SimpleServer::set_search_handler(arg)"); - { - SV * arg = ST(0); -#line 1077 "SimpleServer.xs" - search_ref = newSVsv(arg); -#line 1113 "SimpleServer.c" - } - XSRETURN_EMPTY; -} - -XS(XS_Net__Z3950__SimpleServer_set_fetch_handler) -{ - dXSARGS; - if (items != 1) - croak("Usage: Net::Z3950::SimpleServer::set_fetch_handler(arg)"); - { - SV * arg = ST(0); -#line 1084 "SimpleServer.xs" - fetch_ref = newSVsv(arg); -#line 1127 "SimpleServer.c" - } - XSRETURN_EMPTY; -} - -XS(XS_Net__Z3950__SimpleServer_set_present_handler) -{ - dXSARGS; - if (items != 1) - croak("Usage: Net::Z3950::SimpleServer::set_present_handler(arg)"); - { - SV * arg = ST(0); -#line 1091 "SimpleServer.xs" - present_ref = newSVsv(arg); -#line 1141 "SimpleServer.c" - } - XSRETURN_EMPTY; -} - -XS(XS_Net__Z3950__SimpleServer_set_esrequest_handler) -{ - dXSARGS; - if (items != 1) - croak("Usage: Net::Z3950::SimpleServer::set_esrequest_handler(arg)"); - { - SV * arg = ST(0); -#line 1098 "SimpleServer.xs" - esrequest_ref = newSVsv(arg); -#line 1155 "SimpleServer.c" - } - XSRETURN_EMPTY; -} - -XS(XS_Net__Z3950__SimpleServer_set_delete_handler) -{ - dXSARGS; - if (items != 1) - croak("Usage: Net::Z3950::SimpleServer::set_delete_handler(arg)"); - { - SV * arg = ST(0); -#line 1105 "SimpleServer.xs" - delete_ref = newSVsv(arg); -#line 1169 "SimpleServer.c" - } - XSRETURN_EMPTY; -} - -XS(XS_Net__Z3950__SimpleServer_set_scan_handler) -{ - dXSARGS; - if (items != 1) - croak("Usage: Net::Z3950::SimpleServer::set_scan_handler(arg)"); - { - SV * arg = ST(0); -#line 1112 "SimpleServer.xs" - scan_ref = newSVsv(arg); -#line 1183 "SimpleServer.c" - } - XSRETURN_EMPTY; -} - -XS(XS_Net__Z3950__SimpleServer_start_server) -{ - dXSARGS; - { -#line 1118 "SimpleServer.xs" - char **argv; - char **argv_buf; - char *ptr; - int i; - STRLEN len; -#line 1198 "SimpleServer.c" - int RETVAL; -#line 1124 "SimpleServer.xs" - argv_buf = (char **)xmalloc((items + 1) * sizeof(char *)); - argv = argv_buf; - for (i = 0; i < items; i++) - { - ptr = SvPV(ST(i), len); - *argv_buf = (char *)xmalloc(len + 1); - strcpy(*argv_buf++, ptr); - } - *argv_buf = NULL; - - RETVAL = statserv_main(items, argv, bend_init, bend_close); -#line 1212 "SimpleServer.c" - ST(0) = sv_newmortal(); - sv_setiv(ST(0), (IV)RETVAL); - } - XSRETURN(1); -} - -XS(XS_Net__Z3950__SimpleServer_ScanSuccess) -{ - dXSARGS; - if (items != 0) - croak("Usage: Net::Z3950::SimpleServer::ScanSuccess()"); - { - int RETVAL; -#line 1142 "SimpleServer.xs" - RETVAL = BEND_SCAN_SUCCESS; -#line 1228 "SimpleServer.c" - ST(0) = sv_newmortal(); - sv_setiv(ST(0), (IV)RETVAL); - } - XSRETURN(1); -} - -XS(XS_Net__Z3950__SimpleServer_ScanPartial) -{ - dXSARGS; - if (items != 0) - croak("Usage: Net::Z3950::SimpleServer::ScanPartial()"); - { - int RETVAL; -#line 1149 "SimpleServer.xs" - RETVAL = BEND_SCAN_PARTIAL; -#line 1244 "SimpleServer.c" - ST(0) = sv_newmortal(); - sv_setiv(ST(0), (IV)RETVAL); - } - XSRETURN(1); -} - -#ifdef __cplusplus -extern "C" -#endif -XS(boot_Net__Z3950__SimpleServer) -{ - dXSARGS; - char* file = __FILE__; - - XS_VERSION_BOOTCHECK ; - - newXS("Net::Z3950::SimpleServer::set_init_handler", XS_Net__Z3950__SimpleServer_set_init_handler, file); - newXS("Net::Z3950::SimpleServer::set_close_handler", XS_Net__Z3950__SimpleServer_set_close_handler, file); - newXS("Net::Z3950::SimpleServer::set_sort_handler", XS_Net__Z3950__SimpleServer_set_sort_handler, file); - newXS("Net::Z3950::SimpleServer::set_search_handler", XS_Net__Z3950__SimpleServer_set_search_handler, file); - newXS("Net::Z3950::SimpleServer::set_fetch_handler", XS_Net__Z3950__SimpleServer_set_fetch_handler, file); - newXS("Net::Z3950::SimpleServer::set_present_handler", XS_Net__Z3950__SimpleServer_set_present_handler, file); - newXS("Net::Z3950::SimpleServer::set_esrequest_handler", XS_Net__Z3950__SimpleServer_set_esrequest_handler, file); - newXS("Net::Z3950::SimpleServer::set_delete_handler", XS_Net__Z3950__SimpleServer_set_delete_handler, file); - newXS("Net::Z3950::SimpleServer::set_scan_handler", XS_Net__Z3950__SimpleServer_set_scan_handler, file); - newXS("Net::Z3950::SimpleServer::start_server", XS_Net__Z3950__SimpleServer_start_server, file); - newXS("Net::Z3950::SimpleServer::ScanSuccess", XS_Net__Z3950__SimpleServer_ScanSuccess, file); - newXS("Net::Z3950::SimpleServer::ScanPartial", XS_Net__Z3950__SimpleServer_ScanPartial, file); - XSRETURN_YES; -} - diff --git a/pm_to_blib b/pm_to_blib deleted file mode 100644 index e69de29..0000000 -- 1.7.10.4