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 /*
23  * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 /*
27  * Copyright 2019 Joyent, Inc.
28  */
29 
30 #include <strings.h>
31 #include <ctype.h>
32 #include <fm/libtopo.h>
33 #include <fm/topo_mod.h>
34 #include <topo_alloc.h>
35 
36 char *
topo_hdl_strdup(topo_hdl_t * thp,const char * s)37 topo_hdl_strdup(topo_hdl_t *thp, const char *s)
38 {
39 	char *p;
40 
41 	if (s != NULL)
42 		p = topo_hdl_alloc(thp, strlen(s) + 1);
43 	else
44 		p = NULL;
45 
46 	if (p != NULL)
47 		(void) strcpy(p, s);
48 
49 	return (p);
50 }
51 
52 void
topo_hdl_strfree(topo_hdl_t * thp,char * s)53 topo_hdl_strfree(topo_hdl_t *thp, char *s)
54 {
55 	if (s != NULL)
56 		topo_hdl_free(thp, s, strlen(s) + 1);
57 }
58 
59 void
topo_hdl_strfreev(topo_hdl_t * thp,char ** strarr,uint_t nelem)60 topo_hdl_strfreev(topo_hdl_t *thp, char **strarr, uint_t nelem)
61 {
62 	for (uint_t i = 0; i < nelem; i++)
63 		topo_hdl_strfree(thp, strarr[i]);
64 
65 	topo_hdl_free(thp, strarr, (nelem * sizeof (char *)));
66 }
67 
68 char *
topo_mod_strdup(topo_mod_t * mod,const char * s)69 topo_mod_strdup(topo_mod_t *mod, const char *s)
70 {
71 	return (topo_hdl_strdup(mod->tm_hdl, s));
72 }
73 
74 void
topo_mod_strfree(topo_mod_t * mod,char * s)75 topo_mod_strfree(topo_mod_t *mod, char *s)
76 {
77 	topo_hdl_strfree(mod->tm_hdl, s);
78 }
79 
80 void
topo_mod_strfreev(topo_mod_t * mod,char ** strarr,uint_t nelem)81 topo_mod_strfreev(topo_mod_t *mod, char **strarr, uint_t nelem)
82 {
83 	topo_hdl_strfreev(mod->tm_hdl, strarr, nelem);
84 }
85 
86 const char *
topo_strbasename(const char * s)87 topo_strbasename(const char *s)
88 {
89 	const char *p = strrchr(s, '/');
90 
91 	if (p == NULL)
92 		return (s);
93 
94 	return (++p);
95 }
96 
97 char *
topo_strdirname(char * s)98 topo_strdirname(char *s)
99 {
100 	static char slash[] = "/";
101 	static char dot[] = ".";
102 	char *p;
103 
104 	if (s == NULL || *s == '\0')
105 		return (dot);
106 
107 	for (p = s + strlen(s); p != s && *--p == '/'; )
108 		continue;
109 
110 	if (p == s && *p == '/')
111 		return (slash);
112 
113 	while (p != s) {
114 		if (*--p == '/') {
115 			while (*p == '/' && p != s)
116 				p--;
117 			*++p = '\0';
118 			return (s);
119 		}
120 	}
121 
122 	return (dot);
123 }
124 
125 ulong_t
topo_strhash(const char * key)126 topo_strhash(const char *key)
127 {
128 	ulong_t g, h = 0;
129 	const char *p;
130 
131 	for (p = key; *p != '\0'; p++) {
132 		h = (h << 4) + *p;
133 
134 		if ((g = (h & 0xf0000000)) != 0) {
135 			h ^= (g >> 24);
136 			h ^= g;
137 		}
138 	}
139 
140 	return (h);
141 }
142 
143 /*
144  * Transform string s inline, converting each embedded C escape sequence string
145  * to the corresponding character.  For example, the substring "\n" is replaced
146  * by an inline '\n' character.  The length of the resulting string is returned.
147  */
148 size_t
topo_stresc2chr(char * s)149 topo_stresc2chr(char *s)
150 {
151 	char *p, *q, c;
152 	int esc = 0;
153 	int x;
154 
155 	for (p = q = s; (c = *p) != '\0'; p++) {
156 		if (esc) {
157 			switch (c) {
158 			case '0':
159 			case '1':
160 			case '2':
161 			case '3':
162 			case '4':
163 			case '5':
164 			case '6':
165 			case '7':
166 				c -= '0';
167 				p++;
168 
169 				if (*p >= '0' && *p <= '7') {
170 					c = c * 8 + *p++ - '0';
171 
172 					if (*p >= '0' && *p <= '7')
173 						c = c * 8 + *p - '0';
174 					else
175 						p--;
176 				} else
177 					p--;
178 
179 				*q++ = c;
180 				break;
181 
182 			case 'a':
183 				*q++ = '\a';
184 				break;
185 			case 'b':
186 				*q++ = '\b';
187 				break;
188 			case 'f':
189 				*q++ = '\f';
190 				break;
191 			case 'n':
192 				*q++ = '\n';
193 				break;
194 			case 'r':
195 				*q++ = '\r';
196 				break;
197 			case 't':
198 				*q++ = '\t';
199 				break;
200 			case 'v':
201 				*q++ = '\v';
202 				break;
203 
204 			case 'x':
205 				for (x = 0; (c = *++p) != '\0'; ) {
206 					if (c >= '0' && c <= '9')
207 						x = x * 16 + c - '0';
208 					else if (c >= 'a' && c <= 'f')
209 						x = x * 16 + c - 'a' + 10;
210 					else if (c >= 'A' && c <= 'F')
211 						x = x * 16 + c - 'A' + 10;
212 					else
213 						break;
214 				}
215 				*q++ = (char)x;
216 				p--;
217 				break;
218 
219 			case '"':
220 			case '\\':
221 				*q++ = c;
222 				break;
223 			default:
224 				*q++ = '\\';
225 				*q++ = c;
226 			}
227 
228 			esc = 0;
229 
230 		} else {
231 			if ((esc = c == '\\') == 0)
232 				*q++ = c;
233 		}
234 	}
235 
236 	*q = '\0';
237 	return ((size_t)(q - s));
238 }
239 
240 int
topo_strmatch(const char * s,const char * p)241 topo_strmatch(const char *s, const char *p)
242 {
243 	char c;
244 
245 	if (p == NULL)
246 		return (0);
247 
248 	if (s == NULL)
249 		s = ""; /* treat NULL string as the empty string */
250 
251 	do {
252 		if ((c = *p++) == '\0')
253 			return (*s == '\0');
254 
255 		if (c == '*') {
256 			while (*p == '*')
257 				p++; /* consecutive *'s can be collapsed */
258 
259 			if (*p == '\0')
260 				return (1);
261 
262 			while (*s != '\0') {
263 				if (topo_strmatch(s++, p) != 0)
264 					return (1);
265 			}
266 
267 			return (0);
268 		}
269 	} while (c == *s++);
270 
271 	return (0);
272 }
273