diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-09-22 18:51:12 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-09-22 18:51:12 (GMT) |
commit | 3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7 (patch) | |
tree | 69afbb41089c8358615879f7cd3c4cf7997f4c7e /tcl8.6/generic/regerror.c | |
parent | a0e17db23c0fd7c771c0afce8cce350c98f90b02 (diff) | |
download | blt-3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7.zip blt-3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7.tar.gz blt-3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7.tar.bz2 |
update to tcl/tk 8.6.7
Diffstat (limited to 'tcl8.6/generic/regerror.c')
-rw-r--r-- | tcl8.6/generic/regerror.c | 129 |
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: - */ |