prop_object.c revision 1.29 1 1.29 martin /* $NetBSD: prop_object.c,v 1.29 2013/10/18 18:26:20 martin Exp $ */
2 1.1 thorpej
3 1.1 thorpej /*-
4 1.15 joerg * Copyright (c) 2006, 2007 The NetBSD Foundation, Inc.
5 1.1 thorpej * All rights reserved.
6 1.1 thorpej *
7 1.1 thorpej * This code is derived from software contributed to The NetBSD Foundation
8 1.1 thorpej * by Jason R. Thorpe.
9 1.1 thorpej *
10 1.1 thorpej * Redistribution and use in source and binary forms, with or without
11 1.1 thorpej * modification, are permitted provided that the following conditions
12 1.1 thorpej * are met:
13 1.1 thorpej * 1. Redistributions of source code must retain the above copyright
14 1.1 thorpej * notice, this list of conditions and the following disclaimer.
15 1.1 thorpej * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 thorpej * notice, this list of conditions and the following disclaimer in the
17 1.1 thorpej * documentation and/or other materials provided with the distribution.
18 1.1 thorpej *
19 1.1 thorpej * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 1.1 thorpej * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 1.1 thorpej * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 1.1 thorpej * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 1.1 thorpej * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 1.1 thorpej * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 1.1 thorpej * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 1.1 thorpej * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 1.1 thorpej * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 1.1 thorpej * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 1.1 thorpej * POSSIBILITY OF SUCH DAMAGE.
30 1.1 thorpej */
31 1.1 thorpej
32 1.28 pooka #include "prop_object_impl.h"
33 1.1 thorpej #include <prop/prop_object.h>
34 1.28 pooka
35 1.28 pooka #ifdef _PROP_NEED_REFCNT_MTX
36 1.28 pooka static pthread_mutex_t _prop_refcnt_mtx = PTHREAD_MUTEX_INITIALIZER;
37 1.28 pooka #endif /* _PROP_NEED_REFCNT_MTX */
38 1.1 thorpej
39 1.4 thorpej #if !defined(_KERNEL) && !defined(_STANDALONE)
40 1.4 thorpej #include <sys/mman.h>
41 1.4 thorpej #include <sys/stat.h>
42 1.4 thorpej #include <errno.h>
43 1.4 thorpej #include <fcntl.h>
44 1.4 thorpej #include <limits.h>
45 1.4 thorpej #include <unistd.h>
46 1.4 thorpej #endif
47 1.4 thorpej
48 1.1 thorpej #ifdef _STANDALONE
49 1.1 thorpej void *
50 1.1 thorpej _prop_standalone_calloc(size_t size)
51 1.1 thorpej {
52 1.1 thorpej void *rv;
53 1.1 thorpej
54 1.1 thorpej rv = alloc(size);
55 1.1 thorpej if (rv != NULL)
56 1.1 thorpej memset(rv, 0, size);
57 1.1 thorpej
58 1.1 thorpej return (rv);
59 1.1 thorpej }
60 1.2 thorpej
61 1.2 thorpej void *
62 1.2 thorpej _prop_standalone_realloc(void *v, size_t size)
63 1.2 thorpej {
64 1.2 thorpej void *rv;
65 1.2 thorpej
66 1.2 thorpej rv = alloc(size);
67 1.2 thorpej if (rv != NULL) {
68 1.2 thorpej memcpy(rv, v, size); /* XXX */
69 1.2 thorpej dealloc(v, 0); /* XXX */
70 1.2 thorpej }
71 1.2 thorpej
72 1.2 thorpej return (rv);
73 1.2 thorpej }
74 1.1 thorpej #endif /* _STANDALONE */
75 1.1 thorpej
76 1.1 thorpej /*
77 1.1 thorpej * _prop_object_init --
78 1.1 thorpej * Initialize an object. Called when sub-classes create
79 1.1 thorpej * an instance.
80 1.1 thorpej */
81 1.1 thorpej void
82 1.2 thorpej _prop_object_init(struct _prop_object *po, const struct _prop_object_type *pot)
83 1.1 thorpej {
84 1.1 thorpej
85 1.2 thorpej po->po_type = pot;
86 1.1 thorpej po->po_refcnt = 1;
87 1.1 thorpej }
88 1.1 thorpej
89 1.1 thorpej /*
90 1.1 thorpej * _prop_object_fini --
91 1.1 thorpej * Finalize an object. Called when sub-classes destroy
92 1.1 thorpej * an instance.
93 1.1 thorpej */
94 1.4 thorpej /*ARGSUSED*/
95 1.1 thorpej void
96 1.9 thorpej _prop_object_fini(struct _prop_object *po _PROP_ARG_UNUSED)
97 1.1 thorpej {
98 1.1 thorpej /* Nothing to do, currently. */
99 1.1 thorpej }
100 1.1 thorpej
101 1.1 thorpej /*
102 1.1 thorpej * _prop_object_externalize_start_tag --
103 1.1 thorpej * Append an XML-style start tag to the externalize buffer.
104 1.1 thorpej */
105 1.14 thorpej bool
106 1.1 thorpej _prop_object_externalize_start_tag(
107 1.1 thorpej struct _prop_object_externalize_context *ctx, const char *tag)
108 1.1 thorpej {
109 1.1 thorpej unsigned int i;
110 1.1 thorpej
111 1.1 thorpej for (i = 0; i < ctx->poec_depth; i++) {
112 1.14 thorpej if (_prop_object_externalize_append_char(ctx, '\t') == false)
113 1.14 thorpej return (false);
114 1.1 thorpej }
115 1.14 thorpej if (_prop_object_externalize_append_char(ctx, '<') == false ||
116 1.14 thorpej _prop_object_externalize_append_cstring(ctx, tag) == false ||
117 1.14 thorpej _prop_object_externalize_append_char(ctx, '>') == false)
118 1.14 thorpej return (false);
119 1.1 thorpej
120 1.14 thorpej return (true);
121 1.1 thorpej }
122 1.1 thorpej
123 1.1 thorpej /*
124 1.1 thorpej * _prop_object_externalize_end_tag --
125 1.1 thorpej * Append an XML-style end tag to the externalize buffer.
126 1.1 thorpej */
127 1.14 thorpej bool
128 1.1 thorpej _prop_object_externalize_end_tag(
129 1.1 thorpej struct _prop_object_externalize_context *ctx, const char *tag)
130 1.1 thorpej {
131 1.1 thorpej
132 1.14 thorpej if (_prop_object_externalize_append_char(ctx, '<') == false ||
133 1.14 thorpej _prop_object_externalize_append_char(ctx, '/') == false ||
134 1.14 thorpej _prop_object_externalize_append_cstring(ctx, tag) == false ||
135 1.14 thorpej _prop_object_externalize_append_char(ctx, '>') == false ||
136 1.14 thorpej _prop_object_externalize_append_char(ctx, '\n') == false)
137 1.14 thorpej return (false);
138 1.1 thorpej
139 1.14 thorpej return (true);
140 1.1 thorpej }
141 1.1 thorpej
142 1.1 thorpej /*
143 1.1 thorpej * _prop_object_externalize_empty_tag --
144 1.1 thorpej * Append an XML-style empty tag to the externalize buffer.
145 1.1 thorpej */
146 1.14 thorpej bool
147 1.1 thorpej _prop_object_externalize_empty_tag(
148 1.1 thorpej struct _prop_object_externalize_context *ctx, const char *tag)
149 1.1 thorpej {
150 1.1 thorpej unsigned int i;
151 1.1 thorpej
152 1.1 thorpej for (i = 0; i < ctx->poec_depth; i++) {
153 1.14 thorpej if (_prop_object_externalize_append_char(ctx, '\t') == false)
154 1.14 thorpej return (false);
155 1.1 thorpej }
156 1.1 thorpej
157 1.14 thorpej if (_prop_object_externalize_append_char(ctx, '<') == false ||
158 1.14 thorpej _prop_object_externalize_append_cstring(ctx, tag) == false ||
159 1.14 thorpej _prop_object_externalize_append_char(ctx, '/') == false ||
160 1.14 thorpej _prop_object_externalize_append_char(ctx, '>') == false ||
161 1.14 thorpej _prop_object_externalize_append_char(ctx, '\n') == false)
162 1.14 thorpej return (false);
163 1.1 thorpej
164 1.14 thorpej return (true);
165 1.1 thorpej }
166 1.1 thorpej
167 1.1 thorpej /*
168 1.1 thorpej * _prop_object_externalize_append_cstring --
169 1.1 thorpej * Append a C string to the externalize buffer.
170 1.1 thorpej */
171 1.14 thorpej bool
172 1.1 thorpej _prop_object_externalize_append_cstring(
173 1.1 thorpej struct _prop_object_externalize_context *ctx, const char *cp)
174 1.1 thorpej {
175 1.1 thorpej
176 1.1 thorpej while (*cp != '\0') {
177 1.1 thorpej if (_prop_object_externalize_append_char(ctx,
178 1.14 thorpej (unsigned char) *cp) == false)
179 1.14 thorpej return (false);
180 1.1 thorpej cp++;
181 1.1 thorpej }
182 1.1 thorpej
183 1.14 thorpej return (true);
184 1.1 thorpej }
185 1.1 thorpej
186 1.1 thorpej /*
187 1.1 thorpej * _prop_object_externalize_append_encoded_cstring --
188 1.1 thorpej * Append an encoded C string to the externalize buffer.
189 1.1 thorpej */
190 1.14 thorpej bool
191 1.1 thorpej _prop_object_externalize_append_encoded_cstring(
192 1.1 thorpej struct _prop_object_externalize_context *ctx, const char *cp)
193 1.1 thorpej {
194 1.1 thorpej
195 1.1 thorpej while (*cp != '\0') {
196 1.1 thorpej switch (*cp) {
197 1.1 thorpej case '<':
198 1.1 thorpej if (_prop_object_externalize_append_cstring(ctx,
199 1.14 thorpej "<") == false)
200 1.14 thorpej return (false);
201 1.1 thorpej break;
202 1.1 thorpej case '>':
203 1.1 thorpej if (_prop_object_externalize_append_cstring(ctx,
204 1.14 thorpej ">") == false)
205 1.14 thorpej return (false);
206 1.1 thorpej break;
207 1.1 thorpej case '&':
208 1.1 thorpej if (_prop_object_externalize_append_cstring(ctx,
209 1.14 thorpej "&") == false)
210 1.14 thorpej return (false);
211 1.1 thorpej break;
212 1.1 thorpej default:
213 1.1 thorpej if (_prop_object_externalize_append_char(ctx,
214 1.14 thorpej (unsigned char) *cp) == false)
215 1.14 thorpej return (false);
216 1.1 thorpej break;
217 1.1 thorpej }
218 1.1 thorpej cp++;
219 1.1 thorpej }
220 1.1 thorpej
221 1.14 thorpej return (true);
222 1.1 thorpej }
223 1.1 thorpej
224 1.11 martin #define BUF_EXPAND 256
225 1.1 thorpej
226 1.1 thorpej /*
227 1.1 thorpej * _prop_object_externalize_append_char --
228 1.1 thorpej * Append a single character to the externalize buffer.
229 1.1 thorpej */
230 1.14 thorpej bool
231 1.1 thorpej _prop_object_externalize_append_char(
232 1.1 thorpej struct _prop_object_externalize_context *ctx, unsigned char c)
233 1.1 thorpej {
234 1.1 thorpej
235 1.1 thorpej _PROP_ASSERT(ctx->poec_capacity != 0);
236 1.1 thorpej _PROP_ASSERT(ctx->poec_buf != NULL);
237 1.1 thorpej _PROP_ASSERT(ctx->poec_len <= ctx->poec_capacity);
238 1.1 thorpej
239 1.1 thorpej if (ctx->poec_len == ctx->poec_capacity) {
240 1.2 thorpej char *cp = _PROP_REALLOC(ctx->poec_buf,
241 1.2 thorpej ctx->poec_capacity + BUF_EXPAND,
242 1.2 thorpej M_TEMP);
243 1.1 thorpej if (cp == NULL)
244 1.14 thorpej return (false);
245 1.1 thorpej ctx->poec_capacity = ctx->poec_capacity + BUF_EXPAND;
246 1.1 thorpej ctx->poec_buf = cp;
247 1.1 thorpej }
248 1.1 thorpej
249 1.1 thorpej ctx->poec_buf[ctx->poec_len++] = c;
250 1.1 thorpej
251 1.14 thorpej return (true);
252 1.1 thorpej }
253 1.1 thorpej
254 1.1 thorpej /*
255 1.4 thorpej * _prop_object_externalize_header --
256 1.4 thorpej * Append the standard XML header to the externalize buffer.
257 1.4 thorpej */
258 1.14 thorpej bool
259 1.4 thorpej _prop_object_externalize_header(struct _prop_object_externalize_context *ctx)
260 1.4 thorpej {
261 1.4 thorpej static const char _plist_xml_header[] =
262 1.4 thorpej "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
263 1.4 thorpej "<!DOCTYPE plist PUBLIC \"-//Apple Computer//DTD PLIST 1.0//EN\" \"http://www.apple.com/DTDs/PropertyList-1.0.dtd\">\n";
264 1.4 thorpej
265 1.4 thorpej if (_prop_object_externalize_append_cstring(ctx,
266 1.14 thorpej _plist_xml_header) == false ||
267 1.4 thorpej _prop_object_externalize_start_tag(ctx,
268 1.14 thorpej "plist version=\"1.0\"") == false ||
269 1.14 thorpej _prop_object_externalize_append_char(ctx, '\n') == false)
270 1.14 thorpej return (false);
271 1.4 thorpej
272 1.14 thorpej return (true);
273 1.4 thorpej }
274 1.4 thorpej
275 1.4 thorpej /*
276 1.4 thorpej * _prop_object_externalize_footer --
277 1.4 thorpej * Append the standard XML footer to the externalize buffer. This
278 1.4 thorpej * also NUL-terminates the buffer.
279 1.4 thorpej */
280 1.14 thorpej bool
281 1.4 thorpej _prop_object_externalize_footer(struct _prop_object_externalize_context *ctx)
282 1.4 thorpej {
283 1.4 thorpej
284 1.14 thorpej if (_prop_object_externalize_end_tag(ctx, "plist") == false ||
285 1.14 thorpej _prop_object_externalize_append_char(ctx, '\0') == false)
286 1.14 thorpej return (false);
287 1.4 thorpej
288 1.14 thorpej return (true);
289 1.4 thorpej }
290 1.4 thorpej
291 1.4 thorpej /*
292 1.1 thorpej * _prop_object_externalize_context_alloc --
293 1.1 thorpej * Allocate an externalize context.
294 1.1 thorpej */
295 1.1 thorpej struct _prop_object_externalize_context *
296 1.1 thorpej _prop_object_externalize_context_alloc(void)
297 1.1 thorpej {
298 1.1 thorpej struct _prop_object_externalize_context *ctx;
299 1.1 thorpej
300 1.1 thorpej ctx = _PROP_MALLOC(sizeof(*ctx), M_TEMP);
301 1.1 thorpej if (ctx != NULL) {
302 1.1 thorpej ctx->poec_buf = _PROP_MALLOC(BUF_EXPAND, M_TEMP);
303 1.1 thorpej if (ctx->poec_buf == NULL) {
304 1.1 thorpej _PROP_FREE(ctx, M_TEMP);
305 1.1 thorpej return (NULL);
306 1.1 thorpej }
307 1.1 thorpej ctx->poec_len = 0;
308 1.1 thorpej ctx->poec_capacity = BUF_EXPAND;
309 1.1 thorpej ctx->poec_depth = 0;
310 1.1 thorpej }
311 1.1 thorpej return (ctx);
312 1.1 thorpej }
313 1.1 thorpej
314 1.1 thorpej /*
315 1.1 thorpej * _prop_object_externalize_context_free --
316 1.1 thorpej * Free an externalize context.
317 1.1 thorpej */
318 1.1 thorpej void
319 1.1 thorpej _prop_object_externalize_context_free(
320 1.1 thorpej struct _prop_object_externalize_context *ctx)
321 1.1 thorpej {
322 1.1 thorpej
323 1.1 thorpej /* Buffer is always freed by the caller. */
324 1.1 thorpej _PROP_FREE(ctx, M_TEMP);
325 1.1 thorpej }
326 1.1 thorpej
327 1.1 thorpej /*
328 1.1 thorpej * _prop_object_internalize_skip_comment --
329 1.1 thorpej * Skip the body and end tag of a comment.
330 1.1 thorpej */
331 1.14 thorpej static bool
332 1.1 thorpej _prop_object_internalize_skip_comment(
333 1.1 thorpej struct _prop_object_internalize_context *ctx)
334 1.1 thorpej {
335 1.1 thorpej const char *cp = ctx->poic_cp;
336 1.1 thorpej
337 1.1 thorpej while (!_PROP_EOF(*cp)) {
338 1.1 thorpej if (cp[0] == '-' &&
339 1.1 thorpej cp[1] == '-' &&
340 1.1 thorpej cp[2] == '>') {
341 1.1 thorpej ctx->poic_cp = cp + 3;
342 1.14 thorpej return (true);
343 1.1 thorpej }
344 1.1 thorpej cp++;
345 1.1 thorpej }
346 1.1 thorpej
347 1.14 thorpej return (false); /* ran out of buffer */
348 1.1 thorpej }
349 1.1 thorpej
350 1.1 thorpej /*
351 1.1 thorpej * _prop_object_internalize_find_tag --
352 1.1 thorpej * Find the next tag in an XML stream. Optionally compare the found
353 1.1 thorpej * tag to an expected tag name. State of the context is undefined
354 1.14 thorpej * if this routine returns false. Upon success, the context points
355 1.1 thorpej * to the first octet after the tag.
356 1.1 thorpej */
357 1.14 thorpej bool
358 1.1 thorpej _prop_object_internalize_find_tag(struct _prop_object_internalize_context *ctx,
359 1.1 thorpej const char *tag, _prop_tag_type_t type)
360 1.1 thorpej {
361 1.1 thorpej const char *cp;
362 1.1 thorpej size_t taglen;
363 1.1 thorpej
364 1.1 thorpej if (tag != NULL)
365 1.1 thorpej taglen = strlen(tag);
366 1.1 thorpej else
367 1.1 thorpej taglen = 0;
368 1.1 thorpej
369 1.1 thorpej start_over:
370 1.1 thorpej cp = ctx->poic_cp;
371 1.1 thorpej
372 1.1 thorpej /*
373 1.1 thorpej * Find the start of the tag.
374 1.1 thorpej */
375 1.1 thorpej while (_PROP_ISSPACE(*cp))
376 1.1 thorpej cp++;
377 1.1 thorpej if (_PROP_EOF(*cp))
378 1.14 thorpej return (false);
379 1.1 thorpej
380 1.1 thorpej if (*cp != '<')
381 1.14 thorpej return (false);
382 1.1 thorpej
383 1.1 thorpej ctx->poic_tag_start = cp++;
384 1.1 thorpej if (_PROP_EOF(*cp))
385 1.14 thorpej return (false);
386 1.1 thorpej
387 1.1 thorpej if (*cp == '!') {
388 1.1 thorpej if (cp[1] != '-' || cp[2] != '-')
389 1.14 thorpej return (false);
390 1.1 thorpej /*
391 1.1 thorpej * Comment block -- only allowed if we are allowed to
392 1.1 thorpej * return a start tag.
393 1.1 thorpej */
394 1.1 thorpej if (type == _PROP_TAG_TYPE_END)
395 1.14 thorpej return (false);
396 1.1 thorpej ctx->poic_cp = cp + 3;
397 1.14 thorpej if (_prop_object_internalize_skip_comment(ctx) == false)
398 1.14 thorpej return (false);
399 1.1 thorpej goto start_over;
400 1.1 thorpej }
401 1.1 thorpej
402 1.1 thorpej if (*cp == '/') {
403 1.1 thorpej if (type != _PROP_TAG_TYPE_END &&
404 1.1 thorpej type != _PROP_TAG_TYPE_EITHER)
405 1.14 thorpej return (false);
406 1.1 thorpej cp++;
407 1.1 thorpej if (_PROP_EOF(*cp))
408 1.14 thorpej return (false);
409 1.1 thorpej ctx->poic_tag_type = _PROP_TAG_TYPE_END;
410 1.1 thorpej } else {
411 1.1 thorpej if (type != _PROP_TAG_TYPE_START &&
412 1.1 thorpej type != _PROP_TAG_TYPE_EITHER)
413 1.14 thorpej return (false);
414 1.1 thorpej ctx->poic_tag_type = _PROP_TAG_TYPE_START;
415 1.1 thorpej }
416 1.1 thorpej
417 1.1 thorpej ctx->poic_tagname = cp;
418 1.1 thorpej
419 1.1 thorpej while (!_PROP_ISSPACE(*cp) && *cp != '/' && *cp != '>')
420 1.1 thorpej cp++;
421 1.1 thorpej if (_PROP_EOF(*cp))
422 1.14 thorpej return (false);
423 1.1 thorpej
424 1.1 thorpej ctx->poic_tagname_len = cp - ctx->poic_tagname;
425 1.1 thorpej
426 1.1 thorpej /* Make sure this is the tag we're looking for. */
427 1.1 thorpej if (tag != NULL &&
428 1.1 thorpej (taglen != ctx->poic_tagname_len ||
429 1.1 thorpej memcmp(tag, ctx->poic_tagname, taglen) != 0))
430 1.14 thorpej return (false);
431 1.1 thorpej
432 1.1 thorpej /* Check for empty tag. */
433 1.1 thorpej if (*cp == '/') {
434 1.1 thorpej if (ctx->poic_tag_type != _PROP_TAG_TYPE_START)
435 1.14 thorpej return(false); /* only valid on start tags */
436 1.14 thorpej ctx->poic_is_empty_element = true;
437 1.1 thorpej cp++;
438 1.1 thorpej if (_PROP_EOF(*cp) || *cp != '>')
439 1.14 thorpej return (false);
440 1.1 thorpej } else
441 1.14 thorpej ctx->poic_is_empty_element = false;
442 1.1 thorpej
443 1.1 thorpej /* Easy case of no arguments. */
444 1.1 thorpej if (*cp == '>') {
445 1.1 thorpej ctx->poic_tagattr = NULL;
446 1.1 thorpej ctx->poic_tagattr_len = 0;
447 1.1 thorpej ctx->poic_tagattrval = NULL;
448 1.1 thorpej ctx->poic_tagattrval_len = 0;
449 1.1 thorpej ctx->poic_cp = cp + 1;
450 1.14 thorpej return (true);
451 1.1 thorpej }
452 1.1 thorpej
453 1.1 thorpej _PROP_ASSERT(!_PROP_EOF(*cp));
454 1.1 thorpej cp++;
455 1.1 thorpej if (_PROP_EOF(*cp))
456 1.14 thorpej return (false);
457 1.1 thorpej
458 1.1 thorpej while (_PROP_ISSPACE(*cp))
459 1.1 thorpej cp++;
460 1.1 thorpej if (_PROP_EOF(*cp))
461 1.14 thorpej return (false);
462 1.1 thorpej
463 1.1 thorpej ctx->poic_tagattr = cp;
464 1.1 thorpej
465 1.1 thorpej while (!_PROP_ISSPACE(*cp) && *cp != '=')
466 1.1 thorpej cp++;
467 1.1 thorpej if (_PROP_EOF(*cp))
468 1.14 thorpej return (false);
469 1.1 thorpej
470 1.1 thorpej ctx->poic_tagattr_len = cp - ctx->poic_tagattr;
471 1.1 thorpej
472 1.1 thorpej cp++;
473 1.1 thorpej if (*cp != '\"')
474 1.14 thorpej return (false);
475 1.1 thorpej cp++;
476 1.1 thorpej if (_PROP_EOF(*cp))
477 1.14 thorpej return (false);
478 1.1 thorpej
479 1.1 thorpej ctx->poic_tagattrval = cp;
480 1.1 thorpej while (*cp != '\"')
481 1.1 thorpej cp++;
482 1.1 thorpej if (_PROP_EOF(*cp))
483 1.14 thorpej return (false);
484 1.1 thorpej ctx->poic_tagattrval_len = cp - ctx->poic_tagattrval;
485 1.1 thorpej
486 1.1 thorpej cp++;
487 1.1 thorpej if (*cp != '>')
488 1.14 thorpej return (false);
489 1.1 thorpej
490 1.1 thorpej ctx->poic_cp = cp + 1;
491 1.14 thorpej return (true);
492 1.1 thorpej }
493 1.1 thorpej
494 1.1 thorpej /*
495 1.1 thorpej * _prop_object_internalize_decode_string --
496 1.1 thorpej * Decode an encoded string.
497 1.1 thorpej */
498 1.14 thorpej bool
499 1.1 thorpej _prop_object_internalize_decode_string(
500 1.1 thorpej struct _prop_object_internalize_context *ctx,
501 1.1 thorpej char *target, size_t targsize, size_t *sizep,
502 1.1 thorpej const char **cpp)
503 1.1 thorpej {
504 1.1 thorpej const char *src;
505 1.1 thorpej size_t tarindex;
506 1.1 thorpej char c;
507 1.1 thorpej
508 1.1 thorpej tarindex = 0;
509 1.1 thorpej src = ctx->poic_cp;
510 1.1 thorpej
511 1.1 thorpej for (;;) {
512 1.1 thorpej if (_PROP_EOF(*src))
513 1.14 thorpej return (false);
514 1.1 thorpej if (*src == '<') {
515 1.1 thorpej break;
516 1.1 thorpej }
517 1.1 thorpej
518 1.1 thorpej if ((c = *src) == '&') {
519 1.1 thorpej if (src[1] == 'a' &&
520 1.1 thorpej src[2] == 'm' &&
521 1.1 thorpej src[3] == 'p' &&
522 1.1 thorpej src[4] == ';') {
523 1.1 thorpej c = '&';
524 1.1 thorpej src += 5;
525 1.1 thorpej } else if (src[1] == 'l' &&
526 1.1 thorpej src[2] == 't' &&
527 1.1 thorpej src[3] == ';') {
528 1.1 thorpej c = '<';
529 1.1 thorpej src += 4;
530 1.1 thorpej } else if (src[1] == 'g' &&
531 1.1 thorpej src[2] == 't' &&
532 1.1 thorpej src[3] == ';') {
533 1.1 thorpej c = '>';
534 1.1 thorpej src += 4;
535 1.1 thorpej } else if (src[1] == 'a' &&
536 1.1 thorpej src[2] == 'p' &&
537 1.1 thorpej src[3] == 'o' &&
538 1.1 thorpej src[4] == 's' &&
539 1.1 thorpej src[5] == ';') {
540 1.1 thorpej c = '\'';
541 1.1 thorpej src += 6;
542 1.1 thorpej } else if (src[1] == 'q' &&
543 1.1 thorpej src[2] == 'u' &&
544 1.1 thorpej src[3] == 'o' &&
545 1.1 thorpej src[4] == 't' &&
546 1.1 thorpej src[5] == ';') {
547 1.1 thorpej c = '\"';
548 1.1 thorpej src += 6;
549 1.1 thorpej } else
550 1.14 thorpej return (false);
551 1.1 thorpej } else
552 1.1 thorpej src++;
553 1.1 thorpej if (target) {
554 1.1 thorpej if (tarindex >= targsize)
555 1.14 thorpej return (false);
556 1.1 thorpej target[tarindex] = c;
557 1.1 thorpej }
558 1.1 thorpej tarindex++;
559 1.1 thorpej }
560 1.1 thorpej
561 1.1 thorpej _PROP_ASSERT(*src == '<');
562 1.1 thorpej if (sizep != NULL)
563 1.1 thorpej *sizep = tarindex;
564 1.1 thorpej if (cpp != NULL)
565 1.1 thorpej *cpp = src;
566 1.1 thorpej
567 1.14 thorpej return (true);
568 1.1 thorpej }
569 1.1 thorpej
570 1.1 thorpej /*
571 1.1 thorpej * _prop_object_internalize_match --
572 1.1 thorpej * Returns true if the two character streams match.
573 1.1 thorpej */
574 1.14 thorpej bool
575 1.1 thorpej _prop_object_internalize_match(const char *str1, size_t len1,
576 1.1 thorpej const char *str2, size_t len2)
577 1.1 thorpej {
578 1.1 thorpej
579 1.1 thorpej return (len1 == len2 && memcmp(str1, str2, len1) == 0);
580 1.1 thorpej }
581 1.1 thorpej
582 1.1 thorpej #define INTERNALIZER(t, f) \
583 1.1 thorpej { t, sizeof(t) - 1, f }
584 1.1 thorpej
585 1.1 thorpej static const struct _prop_object_internalizer {
586 1.15 joerg const char *poi_tag;
587 1.15 joerg size_t poi_taglen;
588 1.15 joerg prop_object_internalizer_t poi_intern;
589 1.1 thorpej } _prop_object_internalizer_table[] = {
590 1.1 thorpej INTERNALIZER("array", _prop_array_internalize),
591 1.1 thorpej
592 1.1 thorpej INTERNALIZER("true", _prop_bool_internalize),
593 1.1 thorpej INTERNALIZER("false", _prop_bool_internalize),
594 1.1 thorpej
595 1.1 thorpej INTERNALIZER("data", _prop_data_internalize),
596 1.1 thorpej
597 1.1 thorpej INTERNALIZER("dict", _prop_dictionary_internalize),
598 1.1 thorpej
599 1.1 thorpej INTERNALIZER("integer", _prop_number_internalize),
600 1.1 thorpej
601 1.1 thorpej INTERNALIZER("string", _prop_string_internalize),
602 1.1 thorpej
603 1.5 christos { 0, 0, NULL }
604 1.1 thorpej };
605 1.1 thorpej
606 1.1 thorpej #undef INTERNALIZER
607 1.1 thorpej
608 1.1 thorpej /*
609 1.1 thorpej * _prop_object_internalize_by_tag --
610 1.1 thorpej * Determine the object type from the tag in the context and
611 1.1 thorpej * internalize it.
612 1.1 thorpej */
613 1.1 thorpej prop_object_t
614 1.1 thorpej _prop_object_internalize_by_tag(struct _prop_object_internalize_context *ctx)
615 1.1 thorpej {
616 1.1 thorpej const struct _prop_object_internalizer *poi;
617 1.15 joerg prop_object_t obj, parent_obj;
618 1.15 joerg void *data, *iter;
619 1.15 joerg prop_object_internalizer_continue_t iter_func;
620 1.15 joerg struct _prop_stack stack;
621 1.1 thorpej
622 1.15 joerg _prop_stack_init(&stack);
623 1.15 joerg
624 1.15 joerg match_start:
625 1.1 thorpej for (poi = _prop_object_internalizer_table;
626 1.1 thorpej poi->poi_tag != NULL; poi++) {
627 1.1 thorpej if (_prop_object_internalize_match(ctx->poic_tagname,
628 1.1 thorpej ctx->poic_tagname_len,
629 1.1 thorpej poi->poi_tag,
630 1.1 thorpej poi->poi_taglen))
631 1.15 joerg break;
632 1.15 joerg }
633 1.26 haad if ((poi == NULL) || (poi->poi_tag == NULL)) {
634 1.16 joerg while (_prop_stack_pop(&stack, &obj, &iter, &data, NULL)) {
635 1.15 joerg iter_func = (prop_object_internalizer_continue_t)iter;
636 1.15 joerg (*iter_func)(&stack, &obj, ctx, data, NULL);
637 1.15 joerg }
638 1.15 joerg
639 1.15 joerg return (NULL);
640 1.15 joerg }
641 1.15 joerg
642 1.15 joerg obj = NULL;
643 1.15 joerg if (!(*poi->poi_intern)(&stack, &obj, ctx))
644 1.15 joerg goto match_start;
645 1.15 joerg
646 1.15 joerg parent_obj = obj;
647 1.16 joerg while (_prop_stack_pop(&stack, &parent_obj, &iter, &data, NULL)) {
648 1.15 joerg iter_func = (prop_object_internalizer_continue_t)iter;
649 1.15 joerg if (!(*iter_func)(&stack, &parent_obj, ctx, data, obj))
650 1.15 joerg goto match_start;
651 1.15 joerg obj = parent_obj;
652 1.1 thorpej }
653 1.1 thorpej
654 1.15 joerg return (parent_obj);
655 1.1 thorpej }
656 1.1 thorpej
657 1.13 joerg prop_object_t
658 1.13 joerg _prop_generic_internalize(const char *xml, const char *master_tag)
659 1.13 joerg {
660 1.13 joerg prop_object_t obj = NULL;
661 1.13 joerg struct _prop_object_internalize_context *ctx;
662 1.13 joerg
663 1.13 joerg ctx = _prop_object_internalize_context_alloc(xml);
664 1.13 joerg if (ctx == NULL)
665 1.13 joerg return (NULL);
666 1.13 joerg
667 1.13 joerg /* We start with a <plist> tag. */
668 1.13 joerg if (_prop_object_internalize_find_tag(ctx, "plist",
669 1.15 joerg _PROP_TAG_TYPE_START) == false)
670 1.13 joerg goto out;
671 1.13 joerg
672 1.13 joerg /* Plist elements cannot be empty. */
673 1.13 joerg if (ctx->poic_is_empty_element)
674 1.13 joerg goto out;
675 1.13 joerg
676 1.13 joerg /*
677 1.13 joerg * We don't understand any plist attributes, but Apple XML
678 1.13 joerg * property lists often have a "version" attribute. If we
679 1.13 joerg * see that one, we simply ignore it.
680 1.13 joerg */
681 1.13 joerg if (ctx->poic_tagattr != NULL &&
682 1.13 joerg !_PROP_TAGATTR_MATCH(ctx, "version"))
683 1.13 joerg goto out;
684 1.13 joerg
685 1.13 joerg /* Next we expect to see opening master_tag. */
686 1.13 joerg if (_prop_object_internalize_find_tag(ctx, master_tag,
687 1.15 joerg _PROP_TAG_TYPE_START) == false)
688 1.13 joerg goto out;
689 1.13 joerg
690 1.13 joerg obj = _prop_object_internalize_by_tag(ctx);
691 1.13 joerg if (obj == NULL)
692 1.13 joerg goto out;
693 1.13 joerg
694 1.13 joerg /*
695 1.13 joerg * We've advanced past the closing master_tag.
696 1.13 joerg * Now we want </plist>.
697 1.13 joerg */
698 1.13 joerg if (_prop_object_internalize_find_tag(ctx, "plist",
699 1.15 joerg _PROP_TAG_TYPE_END) == false) {
700 1.13 joerg prop_object_release(obj);
701 1.13 joerg obj = NULL;
702 1.13 joerg }
703 1.13 joerg
704 1.13 joerg out:
705 1.13 joerg _prop_object_internalize_context_free(ctx);
706 1.13 joerg return (obj);
707 1.13 joerg }
708 1.13 joerg
709 1.1 thorpej /*
710 1.1 thorpej * _prop_object_internalize_context_alloc --
711 1.1 thorpej * Allocate an internalize context.
712 1.1 thorpej */
713 1.1 thorpej struct _prop_object_internalize_context *
714 1.1 thorpej _prop_object_internalize_context_alloc(const char *xml)
715 1.1 thorpej {
716 1.1 thorpej struct _prop_object_internalize_context *ctx;
717 1.1 thorpej
718 1.1 thorpej ctx = _PROP_MALLOC(sizeof(struct _prop_object_internalize_context),
719 1.1 thorpej M_TEMP);
720 1.1 thorpej if (ctx == NULL)
721 1.1 thorpej return (NULL);
722 1.1 thorpej
723 1.1 thorpej ctx->poic_xml = ctx->poic_cp = xml;
724 1.1 thorpej
725 1.1 thorpej /*
726 1.1 thorpej * Skip any whitespace and XML preamble stuff that we don't
727 1.1 thorpej * know about / care about.
728 1.1 thorpej */
729 1.1 thorpej for (;;) {
730 1.1 thorpej while (_PROP_ISSPACE(*xml))
731 1.1 thorpej xml++;
732 1.1 thorpej if (_PROP_EOF(*xml) || *xml != '<')
733 1.1 thorpej goto bad;
734 1.1 thorpej
735 1.1 thorpej #define MATCH(str) (memcmp(&xml[1], str, sizeof(str) - 1) == 0)
736 1.1 thorpej
737 1.1 thorpej /*
738 1.1 thorpej * Skip over the XML preamble that Apple XML property
739 1.1 thorpej * lists usually include at the top of the file.
740 1.1 thorpej */
741 1.1 thorpej if (MATCH("?xml ") ||
742 1.1 thorpej MATCH("!DOCTYPE plist")) {
743 1.1 thorpej while (*xml != '>' && !_PROP_EOF(*xml))
744 1.1 thorpej xml++;
745 1.1 thorpej if (_PROP_EOF(*xml))
746 1.1 thorpej goto bad;
747 1.1 thorpej xml++; /* advance past the '>' */
748 1.1 thorpej continue;
749 1.1 thorpej }
750 1.1 thorpej
751 1.1 thorpej if (MATCH("<!--")) {
752 1.1 thorpej ctx->poic_cp = xml + 4;
753 1.14 thorpej if (_prop_object_internalize_skip_comment(ctx) == false)
754 1.1 thorpej goto bad;
755 1.1 thorpej xml = ctx->poic_cp;
756 1.1 thorpej continue;
757 1.1 thorpej }
758 1.1 thorpej
759 1.1 thorpej #undef MATCH
760 1.1 thorpej
761 1.1 thorpej /*
762 1.1 thorpej * We don't think we should skip it, so let's hope we can
763 1.1 thorpej * parse it.
764 1.1 thorpej */
765 1.1 thorpej break;
766 1.1 thorpej }
767 1.1 thorpej
768 1.1 thorpej ctx->poic_cp = xml;
769 1.1 thorpej return (ctx);
770 1.1 thorpej bad:
771 1.1 thorpej _PROP_FREE(ctx, M_TEMP);
772 1.1 thorpej return (NULL);
773 1.1 thorpej }
774 1.1 thorpej
775 1.1 thorpej /*
776 1.1 thorpej * _prop_object_internalize_context_free --
777 1.1 thorpej * Free an internalize context.
778 1.1 thorpej */
779 1.1 thorpej void
780 1.1 thorpej _prop_object_internalize_context_free(
781 1.1 thorpej struct _prop_object_internalize_context *ctx)
782 1.1 thorpej {
783 1.1 thorpej
784 1.1 thorpej _PROP_FREE(ctx, M_TEMP);
785 1.1 thorpej }
786 1.1 thorpej
787 1.4 thorpej #if !defined(_KERNEL) && !defined(_STANDALONE)
788 1.4 thorpej /*
789 1.4 thorpej * _prop_object_externalize_file_dirname --
790 1.4 thorpej * dirname(3), basically. We have to roll our own because the
791 1.4 thorpej * system dirname(3) isn't reentrant.
792 1.4 thorpej */
793 1.4 thorpej static void
794 1.4 thorpej _prop_object_externalize_file_dirname(const char *path, char *result)
795 1.4 thorpej {
796 1.4 thorpej const char *lastp;
797 1.4 thorpej size_t len;
798 1.4 thorpej
799 1.4 thorpej /*
800 1.4 thorpej * If `path' is a NULL pointer or points to an empty string,
801 1.4 thorpej * return ".".
802 1.4 thorpej */
803 1.4 thorpej if (path == NULL || *path == '\0')
804 1.4 thorpej goto singledot;
805 1.4 thorpej
806 1.4 thorpej /* String trailing slashes, if any. */
807 1.4 thorpej lastp = path + strlen(path) - 1;
808 1.4 thorpej while (lastp != path && *lastp == '/')
809 1.4 thorpej lastp--;
810 1.4 thorpej
811 1.4 thorpej /* Terminate path at the last occurrence of '/'. */
812 1.4 thorpej do {
813 1.4 thorpej if (*lastp == '/') {
814 1.4 thorpej /* Strip trailing slashes, if any. */
815 1.4 thorpej while (lastp != path && *lastp == '/')
816 1.4 thorpej lastp--;
817 1.4 thorpej
818 1.4 thorpej /* ...and copy the result into the result buffer. */
819 1.4 thorpej len = (lastp - path) + 1 /* last char */;
820 1.4 thorpej if (len > (PATH_MAX - 1))
821 1.4 thorpej len = PATH_MAX - 1;
822 1.4 thorpej
823 1.4 thorpej memcpy(result, path, len);
824 1.4 thorpej result[len] = '\0';
825 1.4 thorpej return;
826 1.4 thorpej }
827 1.4 thorpej } while (--lastp >= path);
828 1.4 thorpej
829 1.4 thorpej /* No /'s found, return ".". */
830 1.4 thorpej singledot:
831 1.4 thorpej strcpy(result, ".");
832 1.4 thorpej }
833 1.4 thorpej
834 1.4 thorpej /*
835 1.4 thorpej * _prop_object_externalize_write_file --
836 1.4 thorpej * Write an externalized dictionary to the specified file.
837 1.4 thorpej * The file is written atomically from the caller's perspective,
838 1.4 thorpej * and the mode set to 0666 modified by the caller's umask.
839 1.4 thorpej */
840 1.14 thorpej bool
841 1.4 thorpej _prop_object_externalize_write_file(const char *fname, const char *xml,
842 1.4 thorpej size_t len)
843 1.4 thorpej {
844 1.4 thorpej char tname[PATH_MAX];
845 1.4 thorpej int fd;
846 1.4 thorpej int save_errno;
847 1.20 lukem mode_t myumask;
848 1.4 thorpej
849 1.4 thorpej if (len > SSIZE_MAX) {
850 1.4 thorpej errno = EFBIG;
851 1.14 thorpej return (false);
852 1.4 thorpej }
853 1.4 thorpej
854 1.4 thorpej /*
855 1.4 thorpej * Get the directory name where the file is to be written
856 1.4 thorpej * and create the temporary file.
857 1.4 thorpej */
858 1.4 thorpej _prop_object_externalize_file_dirname(fname, tname);
859 1.28 pooka #define PLISTTMP "/.plistXXXXXX"
860 1.28 pooka if (strlen(tname) + strlen(PLISTTMP) >= sizeof(tname)) {
861 1.4 thorpej errno = ENAMETOOLONG;
862 1.14 thorpej return (false);
863 1.4 thorpej }
864 1.28 pooka strcat(tname, PLISTTMP);
865 1.28 pooka #undef PLISTTMP
866 1.28 pooka
867 1.20 lukem if ((fd = mkstemp(tname)) == -1)
868 1.14 thorpej return (false);
869 1.4 thorpej
870 1.4 thorpej if (write(fd, xml, len) != (ssize_t)len)
871 1.4 thorpej goto bad;
872 1.4 thorpej
873 1.4 thorpej if (fsync(fd) == -1)
874 1.4 thorpej goto bad;
875 1.4 thorpej
876 1.20 lukem myumask = umask(0);
877 1.20 lukem (void)umask(myumask);
878 1.20 lukem if (fchmod(fd, 0666 & ~myumask) == -1)
879 1.20 lukem goto bad;
880 1.20 lukem
881 1.4 thorpej (void) close(fd);
882 1.4 thorpej fd = -1;
883 1.4 thorpej
884 1.4 thorpej if (rename(tname, fname) == -1)
885 1.4 thorpej goto bad;
886 1.4 thorpej
887 1.14 thorpej return (true);
888 1.4 thorpej
889 1.4 thorpej bad:
890 1.4 thorpej save_errno = errno;
891 1.4 thorpej if (fd != -1)
892 1.4 thorpej (void) close(fd);
893 1.4 thorpej (void) unlink(tname);
894 1.4 thorpej errno = save_errno;
895 1.14 thorpej return (false);
896 1.4 thorpej }
897 1.4 thorpej
898 1.4 thorpej /*
899 1.4 thorpej * _prop_object_internalize_map_file --
900 1.4 thorpej * Map a file for the purpose of internalizing it.
901 1.4 thorpej */
902 1.4 thorpej struct _prop_object_internalize_mapped_file *
903 1.4 thorpej _prop_object_internalize_map_file(const char *fname)
904 1.4 thorpej {
905 1.4 thorpej struct stat sb;
906 1.4 thorpej struct _prop_object_internalize_mapped_file *mf;
907 1.12 he size_t pgsize = (size_t)sysconf(_SC_PAGESIZE);
908 1.4 thorpej size_t pgmask = pgsize - 1;
909 1.14 thorpej bool need_guard = false;
910 1.4 thorpej int fd;
911 1.4 thorpej
912 1.4 thorpej mf = _PROP_MALLOC(sizeof(*mf), M_TEMP);
913 1.4 thorpej if (mf == NULL)
914 1.4 thorpej return (NULL);
915 1.4 thorpej
916 1.4 thorpej fd = open(fname, O_RDONLY, 0400);
917 1.4 thorpej if (fd == -1) {
918 1.4 thorpej _PROP_FREE(mf, M_TEMP);
919 1.4 thorpej return (NULL);
920 1.4 thorpej }
921 1.4 thorpej
922 1.4 thorpej if (fstat(fd, &sb) == -1) {
923 1.4 thorpej (void) close(fd);
924 1.4 thorpej _PROP_FREE(mf, M_TEMP);
925 1.4 thorpej return (NULL);
926 1.4 thorpej }
927 1.4 thorpej mf->poimf_mapsize = ((size_t)sb.st_size + pgmask) & ~pgmask;
928 1.25 lukem if (mf->poimf_mapsize < (size_t)sb.st_size) {
929 1.4 thorpej (void) close(fd);
930 1.4 thorpej _PROP_FREE(mf, M_TEMP);
931 1.4 thorpej return (NULL);
932 1.4 thorpej }
933 1.4 thorpej
934 1.4 thorpej /*
935 1.4 thorpej * If the file length is an integral number of pages, then we
936 1.4 thorpej * need to map a guard page at the end in order to provide the
937 1.4 thorpej * necessary NUL-termination of the buffer.
938 1.4 thorpej */
939 1.4 thorpej if ((sb.st_size & pgmask) == 0)
940 1.14 thorpej need_guard = true;
941 1.4 thorpej
942 1.4 thorpej mf->poimf_xml = mmap(NULL, need_guard ? mf->poimf_mapsize + pgsize
943 1.4 thorpej : mf->poimf_mapsize,
944 1.4 thorpej PROT_READ, MAP_FILE|MAP_SHARED, fd, (off_t)0);
945 1.4 thorpej (void) close(fd);
946 1.4 thorpej if (mf->poimf_xml == MAP_FAILED) {
947 1.4 thorpej _PROP_FREE(mf, M_TEMP);
948 1.4 thorpej return (NULL);
949 1.4 thorpej }
950 1.4 thorpej (void) madvise(mf->poimf_xml, mf->poimf_mapsize, MADV_SEQUENTIAL);
951 1.4 thorpej
952 1.4 thorpej if (need_guard) {
953 1.4 thorpej if (mmap(mf->poimf_xml + mf->poimf_mapsize,
954 1.4 thorpej pgsize, PROT_READ,
955 1.4 thorpej MAP_ANON|MAP_PRIVATE|MAP_FIXED, -1,
956 1.4 thorpej (off_t)0) == MAP_FAILED) {
957 1.4 thorpej (void) munmap(mf->poimf_xml, mf->poimf_mapsize);
958 1.4 thorpej _PROP_FREE(mf, M_TEMP);
959 1.4 thorpej return (NULL);
960 1.4 thorpej }
961 1.4 thorpej mf->poimf_mapsize += pgsize;
962 1.4 thorpej }
963 1.4 thorpej
964 1.4 thorpej return (mf);
965 1.4 thorpej }
966 1.4 thorpej
967 1.4 thorpej /*
968 1.4 thorpej * _prop_object_internalize_unmap_file --
969 1.4 thorpej * Unmap a file previously mapped for internalizing.
970 1.4 thorpej */
971 1.4 thorpej void
972 1.4 thorpej _prop_object_internalize_unmap_file(
973 1.4 thorpej struct _prop_object_internalize_mapped_file *mf)
974 1.4 thorpej {
975 1.4 thorpej
976 1.4 thorpej (void) madvise(mf->poimf_xml, mf->poimf_mapsize, MADV_DONTNEED);
977 1.4 thorpej (void) munmap(mf->poimf_xml, mf->poimf_mapsize);
978 1.4 thorpej _PROP_FREE(mf, M_TEMP);
979 1.4 thorpej }
980 1.4 thorpej #endif /* !_KERNEL && !_STANDALONE */
981 1.4 thorpej
982 1.1 thorpej /*
983 1.1 thorpej * prop_object_retain --
984 1.1 thorpej * Increment the reference count on an object.
985 1.1 thorpej */
986 1.1 thorpej void
987 1.1 thorpej prop_object_retain(prop_object_t obj)
988 1.1 thorpej {
989 1.1 thorpej struct _prop_object *po = obj;
990 1.29 martin uint32_t ncnt __unused;
991 1.1 thorpej
992 1.28 pooka _PROP_ATOMIC_INC32_NV(&po->po_refcnt, ncnt);
993 1.24 pooka _PROP_ASSERT(ncnt != 0);
994 1.1 thorpej }
995 1.1 thorpej
996 1.1 thorpej /*
997 1.15 joerg * prop_object_release_emergency
998 1.15 joerg * A direct free with prop_object_release failed.
999 1.15 joerg * Walk down the tree until a leaf is found and
1000 1.15 joerg * free that. Do not recurse to avoid stack overflows.
1001 1.15 joerg *
1002 1.15 joerg * This is a slow edge condition, but necessary to
1003 1.17 xtraeme * guarantee that an object can always be freed.
1004 1.15 joerg */
1005 1.15 joerg static void
1006 1.15 joerg prop_object_release_emergency(prop_object_t obj)
1007 1.15 joerg {
1008 1.15 joerg struct _prop_object *po;
1009 1.23 haad void (*unlock)(void);
1010 1.15 joerg prop_object_t parent = NULL;
1011 1.15 joerg uint32_t ocnt;
1012 1.15 joerg
1013 1.15 joerg for (;;) {
1014 1.15 joerg po = obj;
1015 1.15 joerg _PROP_ASSERT(obj);
1016 1.15 joerg
1017 1.23 haad if (po->po_type->pot_lock != NULL)
1018 1.23 haad po->po_type->pot_lock();
1019 1.23 haad
1020 1.23 haad /* Save pointerto unlock function */
1021 1.23 haad unlock = po->po_type->pot_unlock;
1022 1.23 haad
1023 1.24 pooka /* Dance a bit to make sure we always get the non-racy ocnt */
1024 1.28 pooka _PROP_ATOMIC_DEC32_NV(&po->po_refcnt, ocnt);
1025 1.24 pooka ocnt++;
1026 1.24 pooka _PROP_ASSERT(ocnt != 0);
1027 1.15 joerg
1028 1.23 haad if (ocnt != 1) {
1029 1.23 haad if (unlock != NULL)
1030 1.23 haad unlock();
1031 1.15 joerg break;
1032 1.23 haad }
1033 1.23 haad
1034 1.15 joerg _PROP_ASSERT(po->po_type);
1035 1.22 thorpej if ((po->po_type->pot_free)(NULL, &obj) ==
1036 1.23 haad _PROP_OBJECT_FREE_DONE) {
1037 1.23 haad if (unlock != NULL)
1038 1.23 haad unlock();
1039 1.15 joerg break;
1040 1.23 haad }
1041 1.15 joerg
1042 1.23 haad if (unlock != NULL)
1043 1.23 haad unlock();
1044 1.23 haad
1045 1.15 joerg parent = po;
1046 1.28 pooka _PROP_ATOMIC_INC32(&po->po_refcnt);
1047 1.15 joerg }
1048 1.15 joerg _PROP_ASSERT(parent);
1049 1.15 joerg /* One object was just freed. */
1050 1.15 joerg po = parent;
1051 1.15 joerg (*po->po_type->pot_emergency_free)(parent);
1052 1.15 joerg }
1053 1.15 joerg
1054 1.15 joerg /*
1055 1.1 thorpej * prop_object_release --
1056 1.1 thorpej * Decrement the reference count on an object.
1057 1.1 thorpej *
1058 1.1 thorpej * Free the object if we are releasing the final
1059 1.1 thorpej * reference.
1060 1.1 thorpej */
1061 1.1 thorpej void
1062 1.1 thorpej prop_object_release(prop_object_t obj)
1063 1.1 thorpej {
1064 1.15 joerg struct _prop_object *po;
1065 1.15 joerg struct _prop_stack stack;
1066 1.23 haad void (*unlock)(void);
1067 1.15 joerg int ret;
1068 1.1 thorpej uint32_t ocnt;
1069 1.1 thorpej
1070 1.15 joerg _prop_stack_init(&stack);
1071 1.1 thorpej
1072 1.15 joerg do {
1073 1.15 joerg do {
1074 1.15 joerg po = obj;
1075 1.15 joerg _PROP_ASSERT(obj);
1076 1.15 joerg
1077 1.23 haad if (po->po_type->pot_lock != NULL)
1078 1.23 haad po->po_type->pot_lock();
1079 1.23 haad
1080 1.23 haad /* Save pointer to object unlock function */
1081 1.23 haad unlock = po->po_type->pot_unlock;
1082 1.23 haad
1083 1.28 pooka _PROP_ATOMIC_DEC32_NV(&po->po_refcnt, ocnt);
1084 1.24 pooka ocnt++;
1085 1.24 pooka _PROP_ASSERT(ocnt != 0);
1086 1.15 joerg
1087 1.15 joerg if (ocnt != 1) {
1088 1.15 joerg ret = 0;
1089 1.23 haad if (unlock != NULL)
1090 1.23 haad unlock();
1091 1.15 joerg break;
1092 1.15 joerg }
1093 1.23 haad
1094 1.23 haad ret = (po->po_type->pot_free)(&stack, &obj);
1095 1.15 joerg
1096 1.23 haad if (unlock != NULL)
1097 1.23 haad unlock();
1098 1.15 joerg
1099 1.15 joerg if (ret == _PROP_OBJECT_FREE_DONE)
1100 1.15 joerg break;
1101 1.15 joerg
1102 1.28 pooka _PROP_ATOMIC_INC32(&po->po_refcnt);
1103 1.15 joerg } while (ret == _PROP_OBJECT_FREE_RECURSE);
1104 1.15 joerg if (ret == _PROP_OBJECT_FREE_FAILED)
1105 1.15 joerg prop_object_release_emergency(obj);
1106 1.16 joerg } while (_prop_stack_pop(&stack, &obj, NULL, NULL, NULL));
1107 1.1 thorpej }
1108 1.1 thorpej
1109 1.1 thorpej /*
1110 1.1 thorpej * prop_object_type --
1111 1.1 thorpej * Return the type of an object.
1112 1.1 thorpej */
1113 1.1 thorpej prop_type_t
1114 1.1 thorpej prop_object_type(prop_object_t obj)
1115 1.1 thorpej {
1116 1.1 thorpej struct _prop_object *po = obj;
1117 1.1 thorpej
1118 1.4 thorpej if (obj == NULL)
1119 1.4 thorpej return (PROP_TYPE_UNKNOWN);
1120 1.4 thorpej
1121 1.2 thorpej return (po->po_type->pot_type);
1122 1.2 thorpej }
1123 1.2 thorpej
1124 1.2 thorpej /*
1125 1.2 thorpej * prop_object_equals --
1126 1.14 thorpej * Returns true if thw two objects are equivalent.
1127 1.2 thorpej */
1128 1.14 thorpej bool
1129 1.2 thorpej prop_object_equals(prop_object_t obj1, prop_object_t obj2)
1130 1.2 thorpej {
1131 1.16 joerg return (prop_object_equals_with_error(obj1, obj2, NULL));
1132 1.16 joerg }
1133 1.16 joerg
1134 1.16 joerg bool
1135 1.16 joerg prop_object_equals_with_error(prop_object_t obj1, prop_object_t obj2,
1136 1.16 joerg bool *error_flag)
1137 1.16 joerg {
1138 1.16 joerg struct _prop_object *po1;
1139 1.16 joerg struct _prop_object *po2;
1140 1.16 joerg void *stored_pointer1, *stored_pointer2;
1141 1.16 joerg prop_object_t next_obj1, next_obj2;
1142 1.16 joerg struct _prop_stack stack;
1143 1.22 thorpej _prop_object_equals_rv_t ret;
1144 1.16 joerg
1145 1.16 joerg _prop_stack_init(&stack);
1146 1.16 joerg if (error_flag)
1147 1.16 joerg *error_flag = false;
1148 1.16 joerg
1149 1.16 joerg start_subtree:
1150 1.16 joerg stored_pointer1 = NULL;
1151 1.16 joerg stored_pointer2 = NULL;
1152 1.16 joerg po1 = obj1;
1153 1.16 joerg po2 = obj2;
1154 1.2 thorpej
1155 1.2 thorpej if (po1->po_type != po2->po_type)
1156 1.14 thorpej return (false);
1157 1.16 joerg
1158 1.16 joerg continue_subtree:
1159 1.22 thorpej ret = (*po1->po_type->pot_equals)(obj1, obj2,
1160 1.22 thorpej &stored_pointer1, &stored_pointer2,
1161 1.22 thorpej &next_obj1, &next_obj2);
1162 1.16 joerg if (ret == _PROP_OBJECT_EQUALS_FALSE)
1163 1.16 joerg goto finish;
1164 1.16 joerg if (ret == _PROP_OBJECT_EQUALS_TRUE) {
1165 1.16 joerg if (!_prop_stack_pop(&stack, &obj1, &obj2,
1166 1.16 joerg &stored_pointer1, &stored_pointer2))
1167 1.16 joerg return true;
1168 1.27 martin po1 = obj1;
1169 1.27 martin po2 = obj2;
1170 1.16 joerg goto continue_subtree;
1171 1.16 joerg }
1172 1.16 joerg _PROP_ASSERT(ret == _PROP_OBJECT_EQUALS_RECURSE);
1173 1.16 joerg
1174 1.16 joerg if (!_prop_stack_push(&stack, obj1, obj2,
1175 1.16 joerg stored_pointer1, stored_pointer2)) {
1176 1.16 joerg if (error_flag)
1177 1.16 joerg *error_flag = true;
1178 1.16 joerg goto finish;
1179 1.16 joerg }
1180 1.16 joerg obj1 = next_obj1;
1181 1.16 joerg obj2 = next_obj2;
1182 1.16 joerg goto start_subtree;
1183 1.16 joerg
1184 1.16 joerg finish:
1185 1.16 joerg while (_prop_stack_pop(&stack, &obj1, &obj2, NULL, NULL)) {
1186 1.16 joerg po1 = obj1;
1187 1.16 joerg (*po1->po_type->pot_equals_finish)(obj1, obj2);
1188 1.16 joerg }
1189 1.16 joerg return (false);
1190 1.1 thorpej }
1191 1.1 thorpej
1192 1.1 thorpej /*
1193 1.1 thorpej * prop_object_iterator_next --
1194 1.1 thorpej * Return the next item during an iteration.
1195 1.1 thorpej */
1196 1.1 thorpej prop_object_t
1197 1.1 thorpej prop_object_iterator_next(prop_object_iterator_t pi)
1198 1.1 thorpej {
1199 1.1 thorpej
1200 1.1 thorpej return ((*pi->pi_next_object)(pi));
1201 1.1 thorpej }
1202 1.1 thorpej
1203 1.1 thorpej /*
1204 1.1 thorpej * prop_object_iterator_reset --
1205 1.1 thorpej * Reset the iterator to the first object so as to restart
1206 1.1 thorpej * iteration.
1207 1.1 thorpej */
1208 1.1 thorpej void
1209 1.1 thorpej prop_object_iterator_reset(prop_object_iterator_t pi)
1210 1.1 thorpej {
1211 1.1 thorpej
1212 1.1 thorpej (*pi->pi_reset)(pi);
1213 1.1 thorpej }
1214 1.1 thorpej
1215 1.1 thorpej /*
1216 1.1 thorpej * prop_object_iterator_release --
1217 1.1 thorpej * Release the object iterator.
1218 1.1 thorpej */
1219 1.1 thorpej void
1220 1.1 thorpej prop_object_iterator_release(prop_object_iterator_t pi)
1221 1.1 thorpej {
1222 1.1 thorpej
1223 1.1 thorpej prop_object_release(pi->pi_obj);
1224 1.1 thorpej _PROP_FREE(pi, M_TEMP);
1225 1.1 thorpej }
1226