update to tcl/tk 8.6.7

1 files changed, 0 insertions, 129 deletions

diff --git a/tcl8.6/generic/regerror.c b/tcl8.6/generic/regerror.c
deleted file mode 100644
index 49d93ed..0000000
--- a/tcl8.6/generic/regerror.c
+++ /dev/null
@@ -1,129 +0,0 @@
-/*
- * regerror - error-code expansion
- *
- * Copyright (c) 1998, 1999 Henry Spencer.  All rights reserved.
- *
- * Development of this software was funded, in part, by Cray Research Inc.,
- * UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
- * Corporation, none of whom are responsible for the results.  The author
- * thanks all of them.
- *
- * Redistribution and use in source and binary forms -- with or without
- * modification -- are permitted for any purpose, provided that
- * redistributions in source form retain this entire copyright notice and
- * indicate the origin and nature of any modifications.
- *
- * I'd appreciate being given credit for this package in the documentation of
- * software which uses it, but that is not a requirement.
- *
- * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
- * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
- * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
- * HENRY SPENCER BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
- * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
- * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
- * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- *
- */
-
-#include "regguts.h"
-
-/*
- * Unknown-error explanation.
- */
-
-static const char unk[] = "*** unknown regex error code 0x%x ***";
-
-/*
- * Struct to map among codes, code names, and explanations.
- */
-
-static const struct rerr {
-    int code;
-    const char *name;
-    const char *explain;
-} rerrs[] = {
-    /* The actual table is built from regex.h */
-#include "regerrs.h"
-    { -1, "", "oops" },		/* explanation special-cased in code */
-};
-
-/*
- - regerror - the interface to error numbers
- */
-/* ARGSUSED */
-size_t				/* Actual space needed (including NUL) */
-regerror(
-    int code,			/* Error code, or REG_ATOI or REG_ITOA */
-    const regex_t *preg,	/* Associated regex_t (unused at present) */
-    char *errbuf,		/* Result buffer (unless errbuf_size==0) */
-    size_t errbuf_size)		/* Available space in errbuf, can be 0 */
-{
-    const struct rerr *r;
-    const char *msg;
-    char convbuf[sizeof(unk)+50]; /* 50 = plenty for int */
-    size_t len;
-    int icode;
-
-    switch (code) {
-    case REG_ATOI:		/* Convert name to number */
-	for (r = rerrs; r->code >= 0; r++) {
-	    if (strcmp(r->name, errbuf) == 0) {
-		break;
-	    }
-	}
-	sprintf(convbuf, "%d", r->code); /* -1 for unknown */
-	msg = convbuf;
-	break;
-    case REG_ITOA:		/* Convert number to name */
-	icode = atoi(errbuf);	/* Not our problem if this fails */
-	for (r = rerrs; r->code >= 0; r++) {
-	    if (r->code == icode) {
-		break;
-	    }
-	}
-	if (r->code >= 0) {
-	    msg = r->name;
-	} else {		/* Unknown; tell him the number */
-	    sprintf(convbuf, "REG_%u", (unsigned)icode);
-	    msg = convbuf;
-	}
-	break;
-    default:			/* A real, normal error code */
-	for (r = rerrs; r->code >= 0; r++) {
-	    if (r->code == code) {
-		break;
-	    }
-	}
-	if (r->code >= 0) {
-	    msg = r->explain;
-	} else {		/* Unknown; say so */
-	    sprintf(convbuf, unk, code);
-	    msg = convbuf;
-	}
-	break;
-    }
-
-    len = strlen(msg) + 1;	/* Space needed, including NUL */
-    if (errbuf_size > 0) {
-	if (errbuf_size > len) {
-	    strcpy(errbuf, msg);
-	} else {		/* Truncate to fit */
-	    strncpy(errbuf, msg, errbuf_size-1);
-	    errbuf[errbuf_size-1] = '\0';
-	}
-    }
-
-    return len;
-}
-
-/*
- * Local Variables:
- * mode: c
- * c-basic-offset: 4
- * fill-column: 78
- * End:
- */