From 79d65188b1c1578a36403c0e5756c81dcc93d816 Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Mon, 14 Apr 2008 21:54:00 -0400
Subject: Remove svn files

---
 perl/.svn/text-base/NASTD.xs.svn-base | 278 ----------------------------------
 1 file changed, 278 deletions(-)
 delete mode 100644 perl/.svn/text-base/NASTD.xs.svn-base

(limited to 'perl/.svn/text-base/NASTD.xs.svn-base')

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
-- 
cgit v1.2.3