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