1 /* $NetBSD: regerror.c,v 1.5 2014/01/26 21:47:00 christos Exp $ */
2 /*-
3 * Copyright (c) 1992, 1993, 1994 Henry Spencer.
4 * Copyright (c) 1992, 1993, 1994
5 * The Regents of the University of California. All rights reserved.
6 *
7 * This code is derived from software contributed to Berkeley by
8 * Henry Spencer of the University of Toronto.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 * 3. All advertising materials mentioning features or use of this software
19 * must display the following acknowledgement:
20 * This product includes software developed by the University of
21 * California, Berkeley and its contributors.
22 * 4. Neither the name of the University nor the names of its contributors
23 * may be used to endorse or promote products derived from this software
24 * without specific prior written permission.
25 *
26 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
27 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
29 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
30 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
31 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
32 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
33 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
34 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
35 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 * SUCH DAMAGE.
37 *
38 * @(#)regerror.c 8.3 (Berkeley) 3/19/94
39 */
40
41 #include <sys/cdefs.h>
42 #if 0
43 #if defined(LIBC_SCCS) && !defined(lint)
44 static char sccsid[] = "@(#)regerror.c 8.3 (Berkeley) 3/19/94";
45 #endif /* LIBC_SCCS and not lint */
46 #else
47 __RCSID("$NetBSD: regerror.c,v 1.5 2014/01/26 21:47:00 christos Exp $");
48 #endif
49
50 #include <sys/types.h>
51 #include <stdio.h>
52 #include <string.h>
53 #include <ctype.h>
54 #include <limits.h>
55 #include <stdlib.h>
56 #include <regex.h>
57
58 #include "utils.h"
59
60 /* ========= begin header generated by ./mkh ========= */
61 #ifdef __cplusplus
62 extern "C" {
63 #endif
64
65 /* === regerror.c === */
66 static char *regatoi __P((const regex_t *preg, char *localbuf));
67
68 #ifdef __cplusplus
69 }
70 #endif
71 /* ========= end header generated by ./mkh ========= */
72 /*
73 = #define REG_NOMATCH 1
74 = #define REG_BADPAT 2
75 = #define REG_ECOLLATE 3
76 = #define REG_ECTYPE 4
77 = #define REG_EESCAPE 5
78 = #define REG_ESUBREG 6
79 = #define REG_EBRACK 7
80 = #define REG_EPAREN 8
81 = #define REG_EBRACE 9
82 = #define REG_BADBR 10
83 = #define REG_ERANGE 11
84 = #define REG_ESPACE 12
85 = #define REG_BADRPT 13
86 = #define REG_EMPTY 14
87 = #define REG_ASSERT 15
88 = #define REG_INVARG 16
89 = #define REG_ATOI 255 // convert name to number (!)
90 = #define REG_ITOA 0400 // convert number to name (!)
91 */
92 static struct rerr {
93 int code;
94 const char *name;
95 const char *explain;
96 } rerrs[] = {
97 { REG_NOMATCH, "REG_NOMATCH", "regexec() failed to match" },
98 { REG_BADPAT, "REG_BADPAT", "invalid regular expression" },
99 { REG_ECOLLATE, "REG_ECOLLATE", "invalid collating element" },
100 { REG_ECTYPE, "REG_ECTYPE", "invalid character class" },
101 { REG_EESCAPE, "REG_EESCAPE", "trailing backslash (\\)" },
102 { REG_ESUBREG, "REG_ESUBREG", "invalid backreference number" },
103 { REG_EBRACK, "REG_EBRACK", "brackets ([ ]) not balanced" },
104 { REG_EPAREN, "REG_EPAREN", "parentheses not balanced" },
105 { REG_EBRACE, "REG_EBRACE", "braces not balanced" },
106 { REG_BADBR, "REG_BADBR", "invalid repetition count(s)" },
107 { REG_ERANGE, "REG_ERANGE", "invalid character range" },
108 { REG_ESPACE, "REG_ESPACE", "out of memory" },
109 { REG_BADRPT, "REG_BADRPT", "repetition-operator operand invalid" },
110 { REG_EMPTY, "REG_EMPTY", "empty (sub)expression" },
111 { REG_ASSERT, "REG_ASSERT", "\"can't happen\" -- you found a bug" },
112 { REG_INVARG, "REG_INVARG", "invalid argument to regex routine" },
113 { 0, "", "*** unknown regexp error code ***" },
114 };
115
116 /*
117 - regerror - the interface to error numbers
118 = extern size_t regerror(int, const regex_t *, char *, size_t);
119 */
120 /* ARGSUSED */
121 size_t
regerror(int errcode,const regex_t * preg,char * errbuf,size_t errbuf_size)122 regerror(int errcode, const regex_t *preg, char *errbuf, size_t errbuf_size)
123 {
124 struct rerr *r;
125 size_t len;
126 int target = errcode &~ REG_ITOA;
127 const char *s;
128 char convbuf[50];
129
130 if (errcode == REG_ATOI)
131 s = regatoi(preg, convbuf);
132 else {
133 for (r = rerrs; r->code != 0; r++)
134 if (r->code == target)
135 break;
136
137 if (errcode®_ITOA) {
138 if (r->code != 0)
139 (void) strcpy(convbuf, r->name);
140 else
141 sprintf(convbuf, "REG_0x%x", target);
142 assert(strlen(convbuf) < sizeof(convbuf));
143 s = convbuf;
144 } else
145 s = r->explain;
146 }
147
148 len = strlen(s) + 1;
149 if (errbuf_size > 0) {
150 if (errbuf_size > len)
151 (void) strcpy(errbuf, s);
152 else {
153 (void) strncpy(errbuf, s, errbuf_size-1);
154 errbuf[errbuf_size-1] = '\0';
155 }
156 }
157
158 return(len);
159 }
160
161 /*
162 - regatoi - internal routine to implement REG_ATOI
163 == static char *regatoi(const regex_t *preg, char *localbuf);
164 */
165 static char *
regatoi(const regex_t * preg,char * localbuf)166 regatoi(const regex_t *preg, char *localbuf)
167 {
168 #if 0 /* we don't seem to use this and it gives a warning. */
169 struct rerr *r;
170 size_t siz;
171 char *p;
172
173 for (r = rerrs; r->code != 0; r++)
174 if (strcmp(r->name, preg->re_endp) == 0)
175 break;
176 if (r->code == 0)
177 return("0");
178
179 sprintf(localbuf, "%d", r->code);
180 #else
181 *localbuf = '\0';
182 #endif
183 return(localbuf);
184 }
185