From 79d65188b1c1578a36403c0e5756c81dcc93d816 Mon Sep 17 00:00:00 2001 From: Brian Cully Date: Mon, 14 Apr 2008 21:54:00 -0400 Subject: Remove svn files --- perl/.svn/text-base/.cvsignore.svn-base | 6 - perl/.svn/text-base/Changes.svn-base | 5 - perl/.svn/text-base/MANIFEST.svn-base | 6 - perl/.svn/text-base/Makefile.PL.svn-base | 11 - perl/.svn/text-base/Makefile.old.svn-base | 761 -------------------------- perl/.svn/text-base/NASTD.pm.svn-base | 313 ----------- perl/.svn/text-base/NASTD.xs.svn-base | 278 ---------- perl/.svn/text-base/build.svn-base | 28 - perl/.svn/text-base/pm_to_blib.svn-base | 0 perl/.svn/text-base/test.pl.svn-base | 111 ---- perl/.svn/text-base/test_fallthrough.svn-base | 38 -- perl/.svn/text-base/typemap.svn-base | 23 - 12 files changed, 1580 deletions(-) delete mode 100644 perl/.svn/text-base/.cvsignore.svn-base delete mode 100644 perl/.svn/text-base/Changes.svn-base delete mode 100644 perl/.svn/text-base/MANIFEST.svn-base delete mode 100644 perl/.svn/text-base/Makefile.PL.svn-base delete mode 100644 perl/.svn/text-base/Makefile.old.svn-base delete mode 100644 perl/.svn/text-base/NASTD.pm.svn-base delete mode 100644 perl/.svn/text-base/NASTD.xs.svn-base delete mode 100644 perl/.svn/text-base/build.svn-base delete mode 100644 perl/.svn/text-base/pm_to_blib.svn-base delete mode 100644 perl/.svn/text-base/test.pl.svn-base delete mode 100644 perl/.svn/text-base/test_fallthrough.svn-base delete mode 100644 perl/.svn/text-base/typemap.svn-base (limited to 'perl/.svn/text-base') diff --git a/perl/.svn/text-base/.cvsignore.svn-base b/perl/.svn/text-base/.cvsignore.svn-base deleted file mode 100644 index 9809bfd..0000000 --- a/perl/.svn/text-base/.cvsignore.svn-base +++ /dev/null @@ -1,6 +0,0 @@ -Makefile -xstmp.c -pm_to_blib -blib -NASTD.bs -NASTD.c diff --git a/perl/.svn/text-base/Changes.svn-base b/perl/.svn/text-base/Changes.svn-base deleted file mode 100644 index 5158653..0000000 --- a/perl/.svn/text-base/Changes.svn-base +++ /dev/null @@ -1,5 +0,0 @@ -Revision history for Perl extension ASSD. - -0.01 Thu May 11 16:58:38 2000 - - original version; created by h2xs 1.19 - diff --git a/perl/.svn/text-base/MANIFEST.svn-base b/perl/.svn/text-base/MANIFEST.svn-base deleted file mode 100644 index 1bd95ce..0000000 --- a/perl/.svn/text-base/MANIFEST.svn-base +++ /dev/null @@ -1,6 +0,0 @@ -NASTD.pm -NASTD.xs -Changes -MANIFEST -Makefile.PL -test.pl diff --git a/perl/.svn/text-base/Makefile.PL.svn-base b/perl/.svn/text-base/Makefile.PL.svn-base deleted file mode 100644 index a6d8f02..0000000 --- a/perl/.svn/text-base/Makefile.PL.svn-base +++ /dev/null @@ -1,11 +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' => 'NASTD', - 'VERSION_FROM' => 'NASTD.pm', # finds $VERSION - 'LIBS' => ['-L../client -lnast'], # e.g., '-lm' - 'DEFINE' => '', # e.g., '-DHAVE_SOMETHING' - 'INC' => '', # e.g., '-I/usr/include/other' - 'depend' => {'NAST.xs' => '../client/libnast.a'} -); diff --git a/perl/.svn/text-base/Makefile.old.svn-base b/perl/.svn/text-base/Makefile.old.svn-base deleted file mode 100644 index d764b63..0000000 --- a/perl/.svn/text-base/Makefile.old.svn-base +++ /dev/null @@ -1,761 +0,0 @@ -# This Makefile is for the NASTD 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../client -lnast]] -# NAME => q[NASTD] -# VERSION_FROM => q[NASTD.pm] -# depend => { NAST.xs=>q[../client/libnast.a] } - -# --- MakeMaker post_initialize section: - - -# --- MakeMaker const_config section: - -# These definitions are from config.sh (via /usr/local/lib/perl5/5.00503/sun4-solaris/Config.pm) - -# They may have been overridden via Makefile.PL or on the command line -AR = ar -CC = gcc -B/usr/ccs/bin/ -CCCDLFLAGS = -fPIC -CCDLFLAGS = -DLEXT = so -DLSRC = dl_dlopen.xs -LD = gcc -B/usr/ccs/bin/ -LDDLFLAGS = -G -L/usr/local/lib -LDFLAGS = -L/usr/local/lib -LIBC = /lib/libc.so -LIB_EXT = .a -OBJ_EXT = .o -OSNAME = solaris -OSVERS = 2.6 -RANLIB = : -SO = so -EXE_EXT = - - -# --- MakeMaker constants section: -AR_STATIC_ARGS = cr -NAME = NASTD -DISTNAME = NASTD -NAME_SYM = NASTD -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/local -INSTALLDIRS = site -INSTALLPRIVLIB = $(PREFIX)/lib/perl5/5.00503 -INSTALLARCHLIB = $(PREFIX)/lib/perl5/5.00503/sun4-solaris -INSTALLSITELIB = $(PREFIX)/lib/perl5/site_perl/5.005 -INSTALLSITEARCH = $(PREFIX)/lib/perl5/site_perl/5.005/sun4-solaris -INSTALLBIN = $(PREFIX)/bin -INSTALLSCRIPT = $(PREFIX)/bin -PERL_LIB = /usr/local/lib/perl5/5.00503 -PERL_ARCHLIB = /usr/local/lib/perl5/5.00503/sun4-solaris -SITELIBEXP = /usr/local/lib/perl5/site_perl/5.005 -SITEARCHEXP = /usr/local/lib/perl5/site_perl/5.005/sun4-solaris -LIBPERL_A = libperl.a -FIRST_MAKEFILE = Makefile -MAKE_APERL_FILE = Makefile.aperl -PERLMAINCC = $(CC) -PERL_INC = /usr/local/lib/perl5/5.00503/sun4-solaris/CORE -PERL = /opt/bin/perl -FULLPERL = /opt/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/local/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 = NASTD -BASEEXT = NASTD -DLBASE = $(BASEEXT) -VERSION_FROM = NASTD.pm -INC = -DEFINE = -OBJECT = $(BASEEXT)$(OBJ_EXT) -LDFROM = $(OBJECT) -LINKTYPE = dynamic - -# Handy lists of source code files: -XS_FILES= NASTD.xs -C_FILES = NASTD.c -O_FILES = NASTD.o -H_FILES = -MAN1PODS = -MAN3PODS = NASTD.pm -INST_MAN1DIR = blib/man1 -INSTALLMAN1DIR = /usr/local/man/man1 -MAN1EXT = 1 -INST_MAN3DIR = blib/man3 -INSTALLMAN3DIR = /usr/local/lib/perl5/5.00503/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 = NASTD.pm - -PM_TO_BLIB = NASTD.pm \ - $(INST_LIBDIR)/NASTD.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/local/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 = gcc -B/usr/ccs/bin/ -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: -NAST.xs: ../client/libnast.a - - -# --- MakeMaker cflags section: - -CCFLAGS = -O2 -pipe -I/usr/local/include -OPTIMIZE = -O -PERLTYPE = -LARGE = -SPLIT = - - -# --- MakeMaker const_loadlibs section: - -# NASTD might depend on some other libraries: -# See ExtUtils::Liblist for details -# -EXTRALIBS = -L/usr/home/shmit/src/nastd/perl/../client -lnast -LDLOADLIBS = -L/usr/home/shmit/src/nastd/perl/../client -lnast -BSLOADLIBS = -LD_RUN_PATH = /usr/home/shmit/src/nastd/perl/../client - - -# --- 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/local/lib/perl5/5.00503/sun4-solaris/CORE/perl.h - @$(MKPATH) $(INST_AUTODIR) - @$(EQUALIZE_TIMESTAMP) /usr/local/lib/perl5/5.00503/sun4-solaris/CORE/perl.h $(INST_AUTODIR)/.exists - - -@$(CHMOD) $(PERM_RWX) $(INST_AUTODIR) - -$(INST_LIBDIR)/.exists :: /usr/local/lib/perl5/5.00503/sun4-solaris/CORE/perl.h - @$(MKPATH) $(INST_LIBDIR) - @$(EQUALIZE_TIMESTAMP) /usr/local/lib/perl5/5.00503/sun4-solaris/CORE/perl.h $(INST_LIBDIR)/.exists - - -@$(CHMOD) $(PERM_RWX) $(INST_LIBDIR) - -$(INST_ARCHAUTODIR)/.exists :: /usr/local/lib/perl5/5.00503/sun4-solaris/CORE/perl.h - @$(MKPATH) $(INST_ARCHAUTODIR) - @$(EQUALIZE_TIMESTAMP) /usr/local/lib/perl5/5.00503/sun4-solaris/CORE/perl.h $(INST_ARCHAUTODIR)/.exists - - -@$(CHMOD) $(PERM_RWX) $(INST_ARCHAUTODIR) - -config :: $(INST_MAN3DIR)/.exists - @$(NOOP) - - -$(INST_MAN3DIR)/.exists :: /usr/local/lib/perl5/5.00503/sun4-solaris/CORE/perl.h - @$(MKPATH) $(INST_MAN3DIR) - @$(EQUALIZE_TIMESTAMP) /usr/local/lib/perl5/5.00503/sun4-solaris/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 = NASTD.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 $@ -R/usr/home/shmit/src/nastd/perl/../client $(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/local/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 NASTD.pm - @$(POD2MAN) \ - NASTD.pm \ - $(INST_MAN3DIR)/NASTD.$(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 NASTD.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)/NASTD.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) - -NASTD.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 = /opt/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{\tNASTD\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}" > NASTD.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/.svn/text-base/NASTD.pm.svn-base b/perl/.svn/text-base/NASTD.pm.svn-base deleted file mode 100644 index 70be2ff..0000000 --- a/perl/.svn/text-base/NASTD.pm.svn-base +++ /dev/null @@ -1,313 +0,0 @@ -# $Id: NASTD.pm,v 1.7 2001/10/29 11:18:20 shmit Exp $ - -package NASTD; - -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( - NAST_OK - NAST_SERVER_GONE - NAST_NOMEM - NAST_UNKNOWN_RESPONSE - NAST_TIMEDOUT - NAST_UNKNOWN_OPT - NAST_SERVER_ERR -); -$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 NASTD macro $constname"; - } - } - no strict 'refs'; - *$AUTOLOAD = sub () { $val }; - goto &$AUTOLOAD; -} - -bootstrap NASTD $VERSION; - -# Preloaded methods go here. - -# 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 - -NASTD - Low level Perl extension for NASTD access methods - -=head1 SYNOPSIS - - use NASTD; - - $nasthole = &NASTD::nast_sphincter_new(); - &NASTD::nast_sphincter_close($nasthole); - - $rv = &NASTD::nast_options_get($nasthole); - $rv = &NASTD::nast_options_set($nasthole, @options); - - @values = &NASTD::nast_get_result($nasthole); - - $rv = &NASTD::nast_add($sphincter, $key); - $rv = &NASTD::nast_del($sphincter, $key); - $rv = &NASTD::nast_get($sphincter, $key); - $rv = &NASTD::nast_upd($sphincter, $key, $values); - - $rv = &NASTD::nast_stats($sphincter); - - $errcode = &NASTD::nast_geterr($sphincter); - $errstring = &NASTD::nast_errmsg($sphincter); - -=head1 DESCRIPTION - -The Perl NASTD module allows access to the NASTD server via a Perl -interface. It allows you to do anything you could do through C, such as -get records, update records, or delete records. It also allows setting -of various NASTD connection options, as you would through C. - -=head2 Opening a sphincter - -To do any work with NASTD at all, you must first open a sphincter, -through which you talk to your NASNASTole. This is fairly -straightforward: just call C and save the -returned handle. When you're done with the connection to your NAST, call -C to terminate it and free all memory of it. - -You may specify an optional argument, which points to the unix domain -socket name that you wish to use. By default, this is set to -"/tmp/nastd.sock". - -When an error occurs in C, you cannot call -C since there's no sphincter with which to call it. -Instead, an error message will be printed on B for you to -diagnose, and the return value will be undefined. - -=head2 Checking errors - -There are many places during an NASTD session that errors can be -generated. To check for the presense of an error, call C -with the sphincter returned from C. This will -return an error code, which is defined below under B. - -If you would rather a printable string be returned, you can call -C with an open sphincter, and a printable string will be -returned. - -=head2 Performing a query - -Once you have an open sphincter, obtained via C, -you can start to query it with C, C, -C, and C. - -The B<$key> is just that, a case-sensitive key for the database you're -querying. It's function depends on which query function you're using: - - Function Key Meaning - -------- ----------- - nast_add() Add this key to NASTD, with default values. - nast_del() Delete this key from NASTD. - nast_get() Return values associated with this key. - nast_upd() Update this key in NASTD with my values. - -All four of these functions return a status. If everything went okay, -then 0 is returned, otherwise -1 is returned, and you should check for -an error with C. - -In the case of C, C, and C all you -need to do is call the query function and check for errors. If there -are no errors, then everything went fine. - -However, in the case of C, you probably want the values -nastociated with the query you made. To get these values, you have to -call C, which returns an array of values. - -=head2 Updating the database via C - -C works like the other query functions, except that in -addition to the key, you also need to pass an array of values. The -array needs to have the same number of elements as the NASTD database -has, and the elements should be in the same order as that specified in -the special key, "B<_VALUES_>" (see B, -below). - -If the key you are trying to update does not exist, the server creates -it and gives it the values you specified in your value array. For this -reason C is preferable to C. In fact, -C may not exist very much longer. - -=head2 Key concepts and values - -It is recommended that before you try to do any real work with a -particular NASTD suppository, you first investigate the contents of the -special keys B<_KEY_> and B<_VALUES_>. You can do a regular query on -them using C followed by -C to investigate their columns. - - Special Key Value Meaning - ----------- ------------- - _KEY_ The type of key the database is keyed on, - e.g., "username" would mean this database - is a username -> _VALUES_ mapping. - _VALUES_ The data being stored for every key in - the database. The order here is important, - as it's the same order that you'll get - when calling nast_get_result(). - _DELIM_ Only used internally to the NASTD server. - -As noted above, the B<_VALUES_> key shows what data you can find in the -NASTD database, as well as the order it is returned in. This is why you -should investigate this key before trying to do any real work with -NASTD. You have to know what columns mean what values for any real -decision making to be done. - -=head2 Server options - -In order to fine-tune server performance and behaviour, it is possible -to set various server-side options through the C and -C APIs. - -The interface is a bit clumsy at the low level - you pass in an array -to C which has the options in a specific order, and -you get an array back from C which contains the -options in a specific order. - -It is recommended that before you call C that you -first obtain the default options from the server through -C and manipulate the values you care about. Then -pass that array back to C. - -The options you can set are as follows (remember to keep this order!): - - Index C Option Name Meaning (type) - ----- ------------- -------------- - 0 use_qcache Whether or not to use the - in-memory query cache. (BOOL) - 1 use_localdb Whether or not to use the on-disk - database. (BOOL) - 2 fallthrough_async Whether or not to use an - asynchronous API for fallthrough - queries. (BOOL) - 3 always_fallthrough Whether or not to always check - the fallthrough cache over the - local ones. Setting this to 1 - is the same as setting use_qcache - and use_localdb to 0. (BOOL) - 4 fail_once Whether or not to check a query - in the local and in-memory storage - once, and fail if the result isn't - found the first time, then defer - the next query to the fallthrough - queue. (BOOL) - 5 no_fallthrough Disable fallthrough queriers to - MySQL server. (BOOL) - -=head1 STATISTICS - -The C function is used to gather server statistics. First -you call C, which grabs the statistics and stores them as -a result. Then you call C as you would for a query. - -The statistics come back in a human readable array, suitable for printing. - -=head1 CONSTANTS - -The only constants returned are via C: - - Error Code Meaning - ---------- ------- - NAST_OK No errors occured. - NAST_SERVER_GONE The connection to the server no longer - exists. - NAST_NOMEM The client has run out of memory performing - an operation. - NAST_UNKNOWN_RESPONSE The server sent us a response we can't - understand. - NAST_TIMEDOUT The soft timeout on a query has elapsed. - This normally means the server is a bit - bogged down, and the query should be - retried. - NAST_UNKNOWN_OPT The server sent us an unknown option or - we tried to set an unknown option. - NAST_SERVER_ERR Generic server side error. Check - nast_errmsg() for more details. - -=head1 SAMPLE PROGRAM - - #!/usr/bin/env perl - - use NASTD; - - $nasthole = &NASTD::nast_sphincter_new(); - if (!defined($nasthole)) { - # Error message already printed. - exit(1); - } - - # Don't fallthrough to MySQL for this query. - # First we get the default options from the server, then tweak - # the ones we care about, and update the server with our options. - @options = &NASTD::nast_options_get($nasthole); - if (!defined(@options)) { - print STDERR "Couldn't get options: " . - &NASTD::nast_errmsg($nasthole) . "\n"; - } - $options[5] = 1; - - if (&NASTD::nast_options_set($nasthole, @options) == -1) { - print STDERR "Couldn't set options: " . - &NASTD::nast_errmsg($nasthole) . "\n"; - } - - # Get some values. - if (&NASTD::nast_get($nasthole, "shmit") == -1) { - print STDERR "Couldn't perform get: " . - &NASTD::nast_errmsg($nasthole) . "\n"; - &NASTD::nast_close_sphincter($nasthole); - exit(1); - } - - @vals = &NASTD::nast_get_result($nasthole); - $nitems = $#vals + 1; - print "Number of columns: $nitems.\n"; - for ($i = 0; $i < $nitems; $i++) { - $val = shift(@vals); - print "Result[$i]: $val\n"; - } - - &NASTD::nast_sphincter_close($nasthole); - -=head1 BUGS - -fail_once behaviour is not working as of this writing. - -=head1 AUTHOR - -Brian Cully > - -=cut diff --git a/perl/.svn/text-base/NASTD.xs.svn-base b/perl/.svn/text-base/NASTD.xs.svn-base deleted file mode 100644 index e7b1179..0000000 --- a/perl/.svn/text-base/NASTD.xs.svn-base +++ /dev/null @@ -1,278 +0,0 @@ -/* $Id: NASTD.xs,v 1.5 2001/10/29 11:18:20 shmit Exp $ */ - -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" - -#include "../include/nastd.h" - -#include "include/nastdxs.def" - -static int -not_here(char *s) -{ - croak("%s not implemented on this architecture", s); - return -1; -} - -static double -constant(char *name, int arg) -{ - errno = 0; - switch (*name) { - case 'A': - if (strEQ(name, "NAST_OK")) - return NAST_OK; - else if (strEQ(name, "NAST_SERVER_GONE")) - return NAST_SERVER_GONE; - else if (strEQ(name, "NAST_NOMEM")) - return NAST_NOMEM; - else if (strEQ(name, "NAST_UNNKNOWN_RESPONSE")) - return NAST_UNKNOWN_RESPONSE; - else if (strEQ(name, "NAST_TIMEDOUT")) - return NAST_TIMEDOUT; - else if (strEQ(name, "NAST_UNKNOWN_OPT")) - return NAST_UNKNOWN_OPT; - else if (strEQ(name, "NAST_SERVER_ERR")) - return NAST_SERVER_ERR; - 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': - break; - case 'R': - break; - case 'S': - break; - case 'T': - break; - case 'U': - break; - case 'V': - break; - case 'W': - break; - case 'X': - break; - case 'Y': - break; - case 'Z': - break; - } - errno = EINVAL; - return 0; - -not_there: - errno = ENOENT; - return 0; -} - - -MODULE = NASTD PACKAGE = NASTD - -PROTOTYPES: ENABLE - -double -constant(name,arg) - char * name - int arg - -nasth * -nast_sphincter_new(...) - PREINIT: - STRLEN n_a; - - CODE: - nasth *sphincter; - - if (items == 0) - sphincter = nast_sphincter_new(SvPV(ST(0), n_a)); - else - sphincter = nast_sphincter_new(NULL); - - if (sphincter == NULL) - XSRETURN_UNDEF; - - RETVAL = sphincter; - - OUTPUT: - RETVAL - -void -nast_sphincter_close(sphincter) - nasth *sphincter - -int -nast_options_get(sphincter) - nasth *sphincter - - PREINIT: - nast_options nast_opts; - - PPCODE: - if (nast_options_get(sphincter, &nast_opts) != -1) { - if (nast_opts.use_qcache == NASTFALSE) - XPUSHs(sv_2mortal(newSViv(0))); - else - XPUSHs(sv_2mortal(newSViv(1))); - if (nast_opts.use_localdb == NASTFALSE) - XPUSHs(sv_2mortal(newSViv(0))); - else - XPUSHs(sv_2mortal(newSViv(1))); - if (nast_opts.fallthrough_async == NASTFALSE) - XPUSHs(sv_2mortal(newSViv(0))); - else - XPUSHs(sv_2mortal(newSViv(1))); - if (nast_opts.always_fallthrough == NASTFALSE) - XPUSHs(sv_2mortal(newSViv(0))); - else - XPUSHs(sv_2mortal(newSViv(1))); - if (nast_opts.fail_once == NASTFALSE) - XPUSHs(sv_2mortal(newSViv(0))); - else - XPUSHs(sv_2mortal(newSViv(1))); - if (nast_opts.no_fallthrough == NASTFALSE) - XPUSHs(sv_2mortal(newSViv(0))); - else - XPUSHs(sv_2mortal(newSViv(1))); - } - -int -nast_options_set(sphincter, ...) - nasth *sphincter - - PREINIT: - nast_options nast_opts; - int i; - - CODE: - if (items == 8) { - if (SvTRUE(ST(1))) - nast_opts.use_qcache = NASTTRUE; - else - nast_opts.use_qcache = NASTFALSE; - if (SvTRUE(ST(2))) - nast_opts.use_localdb = NASTTRUE; - else - nast_opts.use_localdb = NASTFALSE; - if (SvTRUE(ST(3))) - nast_opts.fallthrough_async = NASTTRUE; - else - nast_opts.fallthrough_async = NASTFALSE; - if (SvTRUE(ST(4))) - nast_opts.always_fallthrough = NASTTRUE; - else - nast_opts.always_fallthrough = NASTFALSE; - if (SvTRUE(ST(5))) - nast_opts.fail_once = NASTTRUE; - else - nast_opts.fail_once = NASTFALSE; - if (SvTRUE(ST(6))) - nast_opts.no_fallthrough = NASTTRUE; - else - nast_opts.no_fallthrough = NASTFALSE; - - RETVAL = nast_options_set(sphincter, &nast_opts); - } else - RETVAL = -1; - - OUTPUT: - RETVAL - -SV * -nast_get_result(sphincter) - nasth *sphincter - - PREINIT: - nast_array *aa; - int i; - - PPCODE: - aa = nast_get_result(sphincter); - if (aa != NULL) { - EXTEND(SP, aa->nitems); - - for (i = 0; i < aa->nitems; i++) { - SV *item; - - item = newSVpv(aa->items[i]->strdata, - aa->items[i]->strlen); - PUSHs(sv_2mortal(item)); - } - nast_free_result(aa); - } - -int -interface_nast_qcmd(sphincter, key) - nasth *sphincter - const char *key -INTERFACE: - nast_add nast_del nast_get - -int -nast_upd(sphincter, key, ...) - nasth *sphincter - const char *key - - PREINIT: - nast_array *aa; - int i; - - CODE: - aa = nast_array_new(); - if (aa != NULL) { - for (i = 2; i < items; i++) { - char *str; - STRLEN len; - - str = (char *)SvPV(ST(i), len); - nast_array_add(aa, len, str); - } - RETVAL = nast_upd(sphincter, key, aa); - } else { - RETVAL = -1; - } - nast_array_delete(aa); - - OUTPUT: - RETVAL - -int -nast_geterr(sphincter) - nasth *sphincter - -char * -nast_errmsg(sphincter) - nasth *sphincter - -int -nast_stats(sphincter) - nasth *sphincter diff --git a/perl/.svn/text-base/build.svn-base b/perl/.svn/text-base/build.svn-base deleted file mode 100644 index 123a249..0000000 --- a/perl/.svn/text-base/build.svn-base +++ /dev/null @@ -1,28 +0,0 @@ -#!/bin/sh -# -# $Id: build,v 1.2 2000/05/16 19:27:05 shmit Exp $ - -if [ $# -lt 2 ]; then - echo "Usage: $0 makecmd perlflag args" 2>&1 - exit 1 -fi - -# Grab the make command -make=$1 && shift 1 - -# Should perl support be built? -perlflag=$1 && shift 1 - -if [ x"$perlflag" != x"YES" ]; then - echo "Perl support not enabled. Edit Makefiles/config to enable it." - exit 0 -fi - -if [ \! -f Makefile ]; then - # - # Build the Makefile - # - /usr/bin/env perl Makefile.PL -fi - -$make MAKE=$make $* diff --git a/perl/.svn/text-base/pm_to_blib.svn-base b/perl/.svn/text-base/pm_to_blib.svn-base deleted file mode 100644 index e69de29..0000000 diff --git a/perl/.svn/text-base/test.pl.svn-base b/perl/.svn/text-base/test.pl.svn-base deleted file mode 100644 index 6a12cbf..0000000 --- a/perl/.svn/text-base/test.pl.svn-base +++ /dev/null @@ -1,111 +0,0 @@ -# $Id: test.pl,v 1.20 2001/03/23 00:06:09 shmit Exp $ -# -# 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..8\n"; } -END {print "not ok 1\n" unless $loaded;} -use NASTD; -$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): - -$nasthole = &NASTD::nast_sphincter_new(); -if (!defined($nasthole)) { - print "not ok 2\n"; -} else { - print "ok 2\n"; -} - -# -# Set options -# -@setopts = (1, 1, 0, 0, 0, 1, 5); -if (&NASTD::nast_options_set($nasthole, @setopts) == -1) { - print "not ok 3\n"; -} else { - print "ok 3\n"; -} - -# -# Check options -# -@optarr = &NASTD::nast_options_get($nasthole); -$nitems = $#optarr + 1; -for ($i = 0; $i < $nitems; $i++) { - if ($optarr[$i] != $setopts[$i]) { - print "not ok 4\n"; - last; - } -} -if ($i == $nitems) { - print "ok 4\n"; -} - -# -# Perform get -# -$rv = &NASTD::nast_get($nasthole, "shmit"); -if ($rv == -1) { - print "not ok 5\n"; -} else { - print "ok 5\n"; -} - -# -# Perform update -# -@vals = ("foo", "bar", "baz"); - -$rv = &NASTD::nast_upd($nasthole, "shmit", @vals); -if ($rv == -1) { - print "not ok 6\n"; -} else { - print "ok 6\n"; -} - -# -# Verify update -# -$rv = &NASTD::nast_get($nasthole, "shmit"); -if ($rv == -1) { - print "not ok 7\n"; -} else { - print "ok 7\n"; -} - -$rv = &NASTD::nast_geterr($nasthole); -if ($rv != 0) { - print "not ok 8\n"; -} else { - print "ok 8\n"; -} - -# -# Close the sphincter when we don't need it anymore. -# -&NASTD::nast_sphincter_close($nasthole); - -# -# This grabs the results and prints them. -# -sub print_results -{ - my @vals = &NASTD::nast_get_result($nasthole); - - my $nitems = $#vals + 1; - for ($i = 0; $i < $nitems; $i++) { - my $foo = shift(@vals); - print "Result[$i]: $foo\n"; - } -} diff --git a/perl/.svn/text-base/test_fallthrough.svn-base b/perl/.svn/text-base/test_fallthrough.svn-base deleted file mode 100644 index 50feed8..0000000 --- a/perl/.svn/text-base/test_fallthrough.svn-base +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/perl - -use NASTD; - -$nasthole = &NASTD::nast_sphincter_new(); -if (!defined($nasthole)) { - exit(1); -} - -@options = &NASTD::nast_options_get($nasthole); -if (!defined(@options)) { - print STDERR "Couldn't get options: " . - &NASTD::nast_errmsg($nasthole) . "\n"; - exit(1); -} - -$options[5] = 1; -if (&NASTD::nast_options_set($nasthole, @options) == -1) { - print STDERR "Couldn't set options: " . - &NASTD::nast_errmsg($nasthole) . "\n"; - exit(1); -} - -if (&NASTD::nast_get($nasthole, "asljkda") == -1) { - print STDERR "Couldn't perform get: " . - &NASTD::nast_errmsg($nasthole) . "\n"; - exit(1); -} - -@vals = &NASTD::nast_get_result($nasthole); -$nitems = $#vals + 1; -print "Number of columns: " . $nitems . "\n"; -for ($i = 0; $i < $nitems; $i++) { - $val = shift(@vals); - print "Result[$i]: $val\n"; -} - -&NASTD::nast_sphincter_close($nasthole); diff --git a/perl/.svn/text-base/typemap.svn-base b/perl/.svn/text-base/typemap.svn-base deleted file mode 100644 index c22830d..0000000 --- a/perl/.svn/text-base/typemap.svn-base +++ /dev/null @@ -1,23 +0,0 @@ -const char * T_PV -nasth * T_PTROBJ -NASTD::Hole O_NASTH - -# -# Output methods -# -OUTPUT -O_NASTH - sv_setref_pv($arg, "Asshole", (void *)$var); - -# -# Input methods -# -INPUT -O_NASTH - if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG)) { - $var = ($type)SvIV((SV *)SvRV($arg)); - } else { - warn(\"${Package}::$func_name() --\" - \" $var is not a valid nasthole.\"); - XSRETURN_UNDEF; - } -- cgit v1.2.3