Home | History | Annotate | Line # | Download | only in libprop
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 					"&lt;") == 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 					"&gt;") == 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 					"&amp;") == 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