1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*	Copyright (c) 1988 AT&T	*/
23 /*	  All Rights Reserved  	*/
24 
25 
26 /*
27  * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
28  * Use is subject to license terms.
29  */
30 
31 #pragma ident	"%Z%%M%	%I%	%E% SMI"	/* SVr4.0 1.2	*/
32 
33 /*LINTLIBRARY*/
34 
35 #include <sys/types.h>
36 #include <stdlib.h>
37 #include "utility.h"
38 
39 /* this code was taken from REGCMP(3X) */
40 
41 #define	SSIZE	16
42 #define	TGRP	48
43 #define	A256	02
44 #define	ZERO	01
45 #define	NBRA	10
46 #define	CIRCFL	32;
47 #define	SLOP	5
48 #define	FEOF	0 /* This was originally EOF but it clashes with the header */
49 			/* definition so it was changed to FEOF */
50 
51 #define	CBRA	60
52 #define	GRP	40
53 #define	SGRP	56
54 #define	PGRP	68
55 #define	EGRP	44
56 #define	RNGE	03
57 #define	CCHR	20
58 #define	CDOT	64
59 #define	CCL	24
60 #define	NCCL	8
61 #define	CDOL	28
62 #define	FCEOF	52 /* This was originally CEOF but it clashes with the header */
63 			/* definition so it was changed to FCEOF */
64 #define	CKET	12
65 
66 #define	STAR	01
67 #define	PLUS	02
68 #define	MINUS	16
69 
70 intptr_t	*__sp_;
71 intptr_t	*__stmax;
72 int	__i_size;
73 
74 /*ARGSUSED2*/
75 char *
76 libform_regcmp(char *cs1, char *cs2)
77 {
78 	char c;
79 	char *ep, *sp;
80 	int *adx;
81 	int i, cflg;
82 	char *lastep, *sep, *eptr;
83 	int nbra, ngrp;
84 	int cclcnt;
85 	intptr_t stack[SSIZE];
86 
87 	__sp_ = stack;
88 	*__sp_ = -1;
89 	__stmax = &stack[SSIZE];
90 
91 	adx = (int *)&cs1;
92 	i = nbra = ngrp = 0;
93 	while (*adx)
94 		i += __size((char *)(intptr_t)*adx++);
95 	adx = (int *)&cs1;
96 	sp = (char *)(intptr_t)*adx++;
97 	if ((sep = ep = malloc((unsigned)(2 * i + SLOP))) == NULL)
98 		return (NULL);
99 	if ((c = *sp++) == FEOF)
100 		goto cerror;
101 	if (c == '^') {
102 		c = *sp++;
103 		*ep++ = CIRCFL;
104 	}
105 	if ((c == '*') || (c == '+') || (c == '{'))
106 		goto cerror;
107 	sp--;
108 	for (;;) {
109 		if ((c = *sp++) == FEOF) {
110 			if (*adx) {
111 				sp = (char *)(intptr_t)*adx++;
112 				continue;
113 			}
114 			*ep++ = FCEOF;
115 			if (--nbra > NBRA || *__sp_ != -1)
116 				goto cerror;
117 			__i_size = (int) (ep - sep);
118 			return (sep);
119 		}
120 		if ((c != '*') && (c != '{') && (c != '+'))
121 			lastep = ep;
122 		switch (c) {
123 
124 		case '(':
125 			if (!__rpush(ep)) goto cerror;
126 			*ep++ = CBRA;
127 			*ep++ = -1;
128 			continue;
129 		case ')':
130 			if (!(eptr = (char *)__rpop())) goto cerror;
131 			if ((c = *sp++) == '$') {
132 				if ('0' > (c = *sp++) || c > '9')
133 					goto cerror;
134 				*ep++ = CKET;
135 				*ep++ = *++eptr = nbra++;
136 				*ep++ = (c-'0');
137 				continue;
138 			}
139 			*ep++ = EGRP;
140 			*ep++ = ngrp++;
141 			sp--;
142 			switch (c) {
143 			case '+':
144 				*eptr = PGRP;
145 				break;
146 			case '*':
147 				*eptr = SGRP;
148 				break;
149 			case '{':
150 				*eptr = TGRP;
151 				break;
152 			default:
153 				*eptr = GRP;
154 				continue;
155 			}
156 			i = (int) (ep - eptr - 2);
157 			for (cclcnt = 0; i >= 256; cclcnt++)
158 				i -= 256;
159 			if (cclcnt > 3) goto cerror;
160 			*eptr |= cclcnt;
161 			*++eptr = (char) i;
162 			continue;
163 
164 		case '\\':
165 			*ep++ = CCHR;
166 			if ((c = *sp++) == FEOF)
167 				goto cerror;
168 			*ep++ = c;
169 			continue;
170 
171 		case '{':
172 			*lastep |= RNGE;
173 			cflg = 0;
174 		nlim:
175 			if ((c = *sp++) == '}') goto cerror;
176 			i = 0;
177 			do {
178 				if ('0' <= c && c <= '9')
179 					i = (i*10+(c-'0'));
180 				else goto cerror;
181 			} while (((c = *sp++) != '}') && (c != ','));
182 			if (i > 255) goto cerror;
183 			*ep++ = (char) i;
184 			if (c == ',') {
185 				if (cflg++) goto cerror;
186 				if ((c = *sp++) == '}') {
187 					*ep++ = -1;
188 					continue;
189 				} else {
190 					sp--;
191 					goto nlim;
192 				}
193 			}
194 			if (!cflg)
195 				*ep++ = (char) i;
196 			else if ((ep[-1]&0377) < (ep[-2]&0377))
197 				goto cerror;
198 			continue;
199 
200 		case '.':
201 			*ep++ = CDOT;
202 			continue;
203 
204 		case '+':
205 			if (*lastep == CBRA || *lastep == CKET)
206 				goto cerror;
207 			*lastep |= PLUS;
208 			continue;
209 
210 		case '*':
211 			if (*lastep == CBRA || *lastep == CKET)
212 			goto cerror;
213 			*lastep |= STAR;
214 			continue;
215 
216 		case '$':
217 			if ((*sp != FEOF) || (*adx))
218 				goto defchar;
219 			*ep++ = CDOL;
220 			continue;
221 
222 		case '[':
223 			*ep++ = CCL;
224 			*ep++ = 0;
225 			cclcnt = 1;
226 			if ((c = *sp++) == '^') {
227 				c = *sp++;
228 				ep[-2] = NCCL;
229 			}
230 			do {
231 				if (c == FEOF)
232 					goto cerror;
233 				if ((c == '-') && (cclcnt > 1) &&
234 				    (*sp != ']')) {
235 					*ep = ep[-1];
236 					ep++;
237 					ep[-2] = MINUS;
238 					cclcnt++;
239 					continue;
240 				}
241 				*ep++ = c;
242 				cclcnt++;
243 			} while ((c = *sp++) != ']');
244 			lastep[1] = (char) cclcnt;
245 			continue;
246 
247 		defchar:
248 		default:
249 			*ep++ = CCHR;
250 			*ep++ = c;
251 		}
252 	}
253 cerror:
254 	free(sep);
255 	return (0);
256 }
257 
258 int
259 __size(char *strg)
260 {
261 	int	i;
262 
263 	i = 1;
264 	while (*strg++)
265 		i++;
266 	return (i);
267 }
268 
269 intptr_t
270 __rpop(void)
271 {
272 	return ((*__sp_ == -1)?0:*__sp_--);
273 }
274 
275 int
276 __rpush(char *ptr)
277 {
278 	if (__sp_ >= __stmax)
279 		return (0);
280 	*++__sp_ = (intptr_t)ptr;
281 	return (1);
282 }
283