text: /*
   * $Id: json_object.c,v 1.17 2006/07/25 03:24:50 mclark Exp $
   *
   * Copyright (c) 2004, 2005 Metaparadigm Pte. Ltd.
   * Michael Clark <michael@metaparadigm.com>
   * Copyright (c) 2009 Hewlett-Packard Development Company, L.P.
   *
   * This library is free software; you can redistribute it and/or modify
   * it under the terms of the MIT license. See COPYING for details.
   *
   */
  
  #define _DEFAULT_SOURCE
  #include "config.h"
  
  #include "strerror_override.h"
  
  #include <assert.h>
  #include <ctype.h>
  #include <stdio.h>
  #include <stdlib.h>
  #include <stddef.h>
  #include <string.h>
  #include <math.h>
  
  #include "debug.h"
  #include "printbuf.h"
  #include "linkhash.h"
  #include "arraylist.h"
  #include "json_inttypes.h"
  #include "json_object.h"
  #include "json_object_private.h"
  #include "json_util.h"
  #include "math_compat.h"
  #include "strdup_compat.h"
  #include "snprintf_compat.h"
  
  #if SIZEOF_LONG_LONG != SIZEOF_INT64_T
  #error "The long long type isn't 64-bits"
  #endif
  
  // Don't define this.  It's not thread-safe.
  /* #define REFCOUNT_DEBUG 1 */
  
  const char *json_number_chars = "0123456789.+-eE";
  const char *json_hex_chars = "0123456789abcdefABCDEF";
  
  static void json_object_generic_delete(struct json_object* jso);
  static struct json_object* json_object_new(enum json_type o_type);
  
  static json_object_to_json_string_fn json_object_object_to_json_string;
  static json_object_to_json_string_fn json_object_boolean_to_json_string;
  static json_object_to_json_string_fn json_object_double_to_json_string_default;
  static json_object_to_json_string_fn json_object_int_to_json_string;
  static json_object_to_json_string_fn json_object_string_to_json_string;
  static json_object_to_json_string_fn json_object_array_to_json_string;
  
  
  /* ref count debugging */
  
  #ifdef REFCOUNT_DEBUG
  
  static struct lh_table *json_object_table;
  
  static void json_object_init(void) __attribute__ ((constructor));
  static void json_object_init(void) {
  	MC_DEBUG("json_object_init: creating object table\n");
  	json_object_table = lh_kptr_table_new(128, NULL);
  }
  
  static void json_object_fini(void) __attribute__ ((destructor));
  static void json_object_fini(void)
  {
  	struct lh_entry *ent;
  	if (MC_GET_DEBUG())
  	{
  		if (json_object_table->count)
  		{
  			MC_DEBUG("json_object_fini: %d referenced objects at exit\n",
  			   json_object_table->count);
  			lh_foreach(json_object_table, ent)
  			{
  				struct json_object* obj =
  				  (struct json_object*) lh_entry_v(ent);
  				MC_DEBUG("\t%s:%p\n",
  					 json_type_to_name(obj->o_type), obj);
  			}
  		}
  	}
  	MC_DEBUG("json_object_fini: freeing object table\n");
  	lh_table_free(json_object_table);
  }
  #endif /* REFCOUNT_DEBUG */
  
  
  /* helper for accessing the optimized string data component in json_object
   */
  static const char *
  get_string_component(const struct json_object *jso)
  {
  	return (jso->o.c_string.len < LEN_DIRECT_STRING_DATA) ?
  		   jso->o.c_string.str.data : jso->o.c_string.str.ptr;
  }
  
  /* string escaping */
  
  static int json_escape_str(struct printbuf *pb, const char *str, size_t len, int flags)
  {
  	int pos = 0, start_offset = 0;
  	char c;
  	while (len--)
  	{
  		c = str[pos];
  		switch(c)
  		{
  		case '\b':
  		case '\n':
  		case '\r':
  		case '\t':
  		case '\f':
  		case '"':
  		case '\\':
  		case '/':
  			if((flags & JSON_C_TO_STRING_NOSLASHESCAPE) && c == '/')
  			{
  				pos++;
  				break;
  			}
  
  			if(pos - start_offset > 0)
  				printbuf_memappend(pb, str + start_offset, pos - start_offset);
  
  			if(c == '\b') printbuf_memappend(pb, "\\b", 2);
  			else if(c == '\n') printbuf_memappend(pb, "\\n", 2);
  			else if(c == '\r') printbuf_memappend(pb, "\\r", 2);
  			else if(c == '\t') printbuf_memappend(pb, "\\t", 2);
  			else if(c == '\f') printbuf_memappend(pb, "\\f", 2);
  			else if(c == '"') printbuf_memappend(pb, "\\\"", 2);
  			else if(c == '\\') printbuf_memappend(pb, "\\\\", 2);
  			else if(c == '/') printbuf_memappend(pb, "\\/", 2);
  
  			start_offset = ++pos;
  			break;
  		default:
  			if(c < ' ')
  			{
  				char sbuf[7];
  				if(pos - start_offset > 0)
  					printbuf_memappend(pb,
  							   str + start_offset,
  							   pos - start_offset);
  				snprintf(sbuf, sizeof(sbuf),
  					 "\\u00%c%c",
  					 json_hex_chars[c >> 4],
  					 json_hex_chars[c & 0xf]);
  				printbuf_memappend_fast(pb, sbuf, (int) sizeof(sbuf) - 1);
  				start_offset = ++pos;
  			} else
  				pos++;
  		}
  	}
  	if (pos - start_offset > 0)
  		printbuf_memappend(pb, str + start_offset, pos - start_offset);
  	return 0;
  }
  
  
  /* reference counting */
  
  extern struct json_object* json_object_get(struct json_object *jso)
  {
  	if (!jso) return jso;
  
  	// Don't overflow the refcounter.
  	assert(jso->_ref_count < UINT_FAST32_MAX);
  
  #if defined(HAVE_ATOMIC_BUILTINS) && defined(ENABLE_THREADING)
  	__sync_add_and_fetch(&jso->_ref_count, 1);
  #else
  	++jso->_ref_count;
  #endif        
  
  	return jso;
  }
  
  int json_object_put(struct json_object *jso)
  {
  	if(!jso) return 0;
  
  	/* Avoid invalid free and crash explicitly instead of (silently)
  	 * segfaulting.
  	 */
  	assert(jso->_ref_count > 0);
  
  #if defined(HAVE_ATOMIC_BUILTINS) && defined(ENABLE_THREADING)
  	/* Note: this only allow the refcount to remain correct
  	 * when multiple threads are adjusting it.  It is still an error 
  	 * for a thread to decrement the refcount if it doesn't "own" it,
  	 * as that can result in the thread that loses the race to 0
  	 * operating on an already-freed object.
  	 */
  	if (__sync_sub_and_fetch(&jso->_ref_count, 1) > 0) return 0;
  #else
  	if (--jso->_ref_count > 0) return 0;
  #endif
  
  	if (jso->_user_delete)
  		jso->_user_delete(jso, jso->_userdata);
  	jso->_delete(jso);
  	return 1;
  }
  
  
  /* generic object construction and destruction parts */
  
  static void json_object_generic_delete(struct json_object* jso)
  {
  #ifdef REFCOUNT_DEBUG
  	MC_DEBUG("json_object_delete_%s: %p\n",
  	   json_type_to_name(jso->o_type), jso);
  	lh_table_delete(json_object_table, jso);
  #endif /* REFCOUNT_DEBUG */
  	printbuf_free(jso->_pb);
  	free(jso);
  }
  
  static struct json_object* json_object_new(enum json_type o_type)
  {
  	struct json_object *jso;
  
  	jso = (struct json_object*)calloc(sizeof(struct json_object), 1);
  	if (!jso)
  		return NULL;
  	jso->o_type = o_type;
  	jso->_ref_count = 1;
  	jso->_delete = &json_object_generic_delete;
  #ifdef REFCOUNT_DEBUG
  	lh_table_insert(json_object_table, jso, jso);
  	MC_DEBUG("json_object_new_%s: %p\n", json_type_to_name(jso->o_type), jso);
  #endif /* REFCOUNT_DEBUG */
  	return jso;
  }
  
  
  /* type checking functions */
  
  int json_object_is_type(const struct json_object *jso, enum json_type type)
  {
  	if (!jso)
  		return (type == json_type_null);
  	return (jso->o_type == type);
  }
  
  enum json_type json_object_get_type(const struct json_object *jso)
  {
  	if (!jso)
  		return json_type_null;
  	return jso->o_type;
  }
  
  void* json_object_get_userdata(json_object *jso) {
  	return jso ? jso->_userdata : NULL;
  }
  
  void json_object_set_userdata(json_object *jso, void *userdata,
  			      json_object_delete_fn *user_delete)
  {
  	// Can't return failure, so abort if we can't perform the operation.
  	assert(jso != NULL);
  
  	// First, clean up any previously existing user info
  	if (jso->_user_delete)
  		jso->_user_delete(jso, jso->_userdata);
  
  	jso->_userdata = userdata;
  	jso->_user_delete = user_delete;
  }
  
  /* set a custom conversion to string */
  
  void json_object_set_serializer(json_object *jso,
  	json_object_to_json_string_fn *to_string_func,
  	void *userdata,
  	json_object_delete_fn *user_delete)
  {
  	json_object_set_userdata(jso, userdata, user_delete);
  
  	if (to_string_func == NULL)
  	{
  		// Reset to the standard serialization function
  		switch(jso->o_type)
  		{
  		case json_type_null:
  			jso->_to_json_string = NULL;
  			break;
  		case json_type_boolean:
  			jso->_to_json_string = &json_object_boolean_to_json_string;
  			break;
  		case json_type_double:
  			jso->_to_json_string = &json_object_double_to_json_string_default;
  			break;
  		case json_type_int:
  			jso->_to_json_string = &json_object_int_to_json_string;
  			break;
  		case json_type_object:
  			jso->_to_json_string = &json_object_object_to_json_string;
  			break;
  		case json_type_array:
  			jso->_to_json_string = &json_object_array_to_json_string;
  			break;
  		case json_type_string:
  			jso->_to_json_string = &json_object_string_to_json_string;
  			break;
  		}
  		return;
  	}
  
  	jso->_to_json_string = to_string_func;
  }
  
  
  /* extended conversion to string */
  
  const char* json_object_to_json_string_length(struct json_object *jso, int flags, size_t *length)
  {
  	const char *r = NULL;
  	size_t s = 0;
  
  	if (!jso)
  	{
  		s = 4;
  		r = "null";
  	}
  	else if ((jso->_pb) || (jso->_pb = printbuf_new()))
  	{
  		printbuf_reset(jso->_pb);
  
  		if(jso->_to_json_string(jso, jso->_pb, 0, flags) >= 0)
  		{
  			s = (size_t)jso->_pb->bpos;
  			r = jso->_pb->buf;
  		}
  	}
  
  	if (length)
  		*length = s;
  	return r;
  }
  
  const char* json_object_to_json_string_ext(struct json_object *jso, int flags)
  {
  	return json_object_to_json_string_length(jso, flags, NULL);
  }
  
  /* backwards-compatible conversion to string */
  
  const char* json_object_to_json_string(struct json_object *jso)
  {
  	return json_object_to_json_string_ext(jso, JSON_C_TO_STRING_SPACED);
  }
  
  static void indent(struct printbuf *pb, int level, int flags)
  {
  	if (flags & JSON_C_TO_STRING_PRETTY)
  	{
  		if (flags & JSON_C_TO_STRING_PRETTY_TAB)
  		{
  			printbuf_memset(pb, -1, '\t', level);
  		}
  		else
  		{
  			printbuf_memset(pb, -1, ' ', level * 2);
  		}
  	}
  }
  
  /* json_object_object */
  
  static int json_object_object_to_json_string(struct json_object* jso,
  					     struct printbuf *pb,
  					     int level,
  					     int flags)
  {
  	int had_children = 0;
  	struct json_object_iter iter;
  
  	printbuf_strappend(pb, "{" /*}*/);
  	if (flags & JSON_C_TO_STRING_PRETTY)
  		printbuf_strappend(pb, "\n");
  	json_object_object_foreachC(jso, iter)
  	{
  		if (had_children)
  		{
  			printbuf_strappend(pb, ",");
  			if (flags & JSON_C_TO_STRING_PRETTY)
  				printbuf_strappend(pb, "\n");
  		}
  		had_children = 1;
  		if (flags & JSON_C_TO_STRING_SPACED)
  			printbuf_strappend(pb, " ");
  		indent(pb, level+1, flags);
  		printbuf_strappend(pb, "\"");
  		json_escape_str(pb, iter.key, strlen(iter.key), flags);
  		if (flags & JSON_C_TO_STRING_SPACED)
  			printbuf_strappend(pb, "\": ");
  		else
  			printbuf_strappend(pb, "\":");
  		if(iter.val == NULL)
  			printbuf_strappend(pb, "null");
  		else
  			if (iter.val->_to_json_string(iter.val, pb, level+1,flags) < 0)
  				return -1;
  	}
  	if (flags & JSON_C_TO_STRING_PRETTY)
  	{
  		if (had_children)
  			printbuf_strappend(pb, "\n");
  		indent(pb,level,flags);
  	}
  	if (flags & JSON_C_TO_STRING_SPACED)
  		return printbuf_strappend(pb, /*{*/ " }");
  	else
  		return printbuf_strappend(pb, /*{*/ "}");
  }
  
  
  static void json_object_lh_entry_free(struct lh_entry *ent)
  {
  	if (!ent->k_is_constant)
  		free(lh_entry_k(ent));
  	json_object_put((struct json_object*)lh_entry_v(ent));
  }
  
  static void json_object_object_delete(struct json_object* jso)
  {
  	lh_table_free(jso->o.c_object);
  	json_object_generic_delete(jso);
  }
  
  struct json_object* json_object_new_object(void)
  {
  	struct json_object *jso = json_object_new(json_type_object);
  	if (!jso)
  		return NULL;
  	jso->_delete = &json_object_object_delete;
  	jso->_to_json_string = &json_object_object_to_json_string;
  	jso->o.c_object = lh_kchar_table_new(JSON_OBJECT_DEF_HASH_ENTRIES,
  					     &json_object_lh_entry_free);
  	if (!jso->o.c_object)
  	{
  		json_object_generic_delete(jso);
  		errno = ENOMEM;
  		return NULL;
  	}
  	return jso;
  }
  
  struct lh_table* json_object_get_object(const struct json_object *jso)
  {
  	if (!jso)
  		return NULL;
  	switch(jso->o_type)
  	{
  	case json_type_object:
  		return jso->o.c_object;
  	default:
  		return NULL;
  	}
  }
  
  int json_object_object_add_ex(struct json_object* jso,
  	const char *const key,
  	struct json_object *const val,
  	const unsigned opts)
  {
  	struct json_object *existing_value = NULL;
  	struct lh_entry *existing_entry;
  	unsigned long hash;
  
  	assert(json_object_get_type(jso) == json_type_object);
  
  	// We lookup the entry and replace the value, rather than just deleting
  	// and re-adding it, so the existing key remains valid.
  	hash = lh_get_hash(jso->o.c_object, (const void *)key);
  	existing_entry = (opts & JSON_C_OBJECT_ADD_KEY_IS_NEW) ? NULL : 
  			      lh_table_lookup_entry_w_hash(jso->o.c_object,
  							   (const void *)key, hash);
  
  	// The caller must avoid creating loops in the object tree, but do a
  	// quick check anyway to make sure we're not creating a trivial loop.
  	if (jso == val)
  		return -1;
  
  	if (!existing_entry)
  	{
  		const void *const k = (opts & JSON_C_OBJECT_KEY_IS_CONSTANT) ?
  					(const void *)key : strdup(key);
  		if (k == NULL)
  			return -1;
  		return lh_table_insert_w_hash(jso->o.c_object, k, val, hash, opts);
  	}
  	existing_value = (json_object *) lh_entry_v(existing_entry);
  	if (existing_value)
  		json_object_put(existing_value);
  	existing_entry->v = val;
  	return 0;
  }
  
  int json_object_object_add(struct json_object* jso, const char *key,
                             struct json_object *val)
  {
  	return json_object_object_add_ex(jso, key, val, 0);
  }
  
  
  int json_object_object_length(const struct json_object *jso)
  {
  	assert(json_object_get_type(jso) == json_type_object);
  	return lh_table_length(jso->o.c_object);
  }
  
  size_t json_c_object_sizeof(void)
  {
  	return sizeof(struct json_object);
  }
  
  struct json_object* json_object_object_get(const struct json_object* jso,
  					   const char *key)
  {
  	struct json_object *result = NULL;
  	json_object_object_get_ex(jso, key, &result);
  	return result;
  }
  
  json_bool json_object_object_get_ex(const struct json_object* jso, const char *key,
  				    struct json_object **value)
  {
  	if (value != NULL)
  		*value = NULL;
  
  	if (NULL == jso)
  		return 0;
  
  	switch(jso->o_type)
  	{
  	case json_type_object:
  		return lh_table_lookup_ex(jso->o.c_object, (const void *) key,
  					  (void**) value);
  	default:
  		if (value != NULL)
  			*value = NULL;
  		return 0;
  	}
  }
  
  void json_object_object_del(struct json_object* jso, const char *key)
  {
  	assert(json_object_get_type(jso) == json_type_object);
  	lh_table_delete(jso->o.c_object, key);
  }
  
  
  /* json_object_boolean */
  
  static int json_object_boolean_to_json_string(struct json_object* jso,
  					      struct printbuf *pb,
  					      int level,
  					      int flags)
  {
  	(void)level;
  	(void)flags;
  	if (jso->o.c_boolean)
  		return printbuf_strappend(pb, "true");
  	return printbuf_strappend(pb, "false");
  }
  
  struct json_object* json_object_new_boolean(json_bool b)
  {
  	struct json_object *jso = json_object_new(json_type_boolean);
  	if (!jso)
  		return NULL;
  	jso->_to_json_string = &json_object_boolean_to_json_string;
  	jso->o.c_boolean = b;
  	return jso;
  }
  
  json_bool json_object_get_boolean(const struct json_object *jso)
  {
  	if (!jso)
  		return 0;
  	switch(jso->o_type)
  	{
  	case json_type_boolean:
  		return jso->o.c_boolean;
  	case json_type_int:
  		return (jso->o.c_int64 != 0);
  	case json_type_double:
  		return (jso->o.c_double != 0);
  	case json_type_string:
  		return (jso->o.c_string.len != 0);
  	default:
  		return 0;
  	}
  }
  
  int json_object_set_boolean(struct json_object *jso,json_bool new_value){
  	if (!jso || jso->o_type!=json_type_boolean)
  		return 0;
  	jso->o.c_boolean=new_value;
  	return 1;
  }
  
  
  /* json_object_int */
  
  static int json_object_int_to_json_string(struct json_object* jso,
  					  struct printbuf *pb,
  					  int level,
  					  int flags)
  {
  	(void)level;
  	(void)flags;
  
  	/* room for 19 digits, the sign char, and a null term */
  	char sbuf[21];
  	snprintf(sbuf, sizeof(sbuf), "%" PRId64, jso->o.c_int64);
  	return printbuf_memappend (pb, sbuf, (int)strlen(sbuf));
  }
  
  struct json_object* json_object_new_int(int32_t i)
  {
  	struct json_object *jso = json_object_new(json_type_int);
  	if (!jso)
  		return NULL;
  	jso->_to_json_string = &json_object_int_to_json_string;
  	jso->o.c_int64 = i;
  	return jso;
  }
  
  int32_t json_object_get_int(const struct json_object *jso)
  {
    int64_t cint64;
    enum json_type o_type;
  
    if(!jso) return 0;
  
    o_type = jso->o_type;
    cint64 = jso->o.c_int64;
  
    if (o_type == json_type_string)
    {
  	/*
  	 * Parse strings into 64-bit numbers, then use the
  	 * 64-to-32-bit number handling below.
  	 */
  	if (json_parse_int64(get_string_component(jso), &cint64) != 0)
  		return 0; /* whoops, it didn't work. */
  	o_type = json_type_int;
    }
  
    switch(o_type) {
    case json_type_int:
  	/* Make sure we return the correct values for out of range numbers. */
  	if (cint64 <= INT32_MIN)
  		return INT32_MIN;
  	if (cint64 >= INT32_MAX)
  		return INT32_MAX;
  	return (int32_t) cint64;
    case json_type_double:
      if (jso->o.c_double <= INT32_MIN)
        return INT32_MIN;
      if (jso->o.c_double >= INT32_MAX)
        return INT32_MAX;
      return (int32_t)jso->o.c_double;
    case json_type_boolean:
      return jso->o.c_boolean;
    default:
      return 0;
    }
  }
  
  int json_object_set_int(struct json_object *jso,int new_value){
  	if (!jso || jso->o_type!=json_type_int)
  		return 0;
  	jso->o.c_int64=new_value;
  	return 1;
  }
  
  struct json_object* json_object_new_int64(int64_t i)
  {
  	struct json_object *jso = json_object_new(json_type_int);
  	if (!jso)
  		return NULL;
  	jso->_to_json_string = &json_object_int_to_json_string;
  	jso->o.c_int64 = i;
  	return jso;
  }
  
  int64_t json_object_get_int64(const struct json_object *jso)
  {
  	int64_t cint;
  
  	if (!jso)
  		return 0;
  	switch(jso->o_type)
  	{
  	case json_type_int:
  		return jso->o.c_int64;
  	case json_type_double:
  		if (jso->o.c_double >= INT64_MAX)
  			return INT64_MAX;
  		if (jso->o.c_double <= INT64_MIN)
  			return INT64_MIN;
  		return (int64_t)jso->o.c_double;
  	case json_type_boolean:
  		return jso->o.c_boolean;
  	case json_type_string:
  		if (json_parse_int64(get_string_component(jso), &cint) == 0)
  			return cint;
  		/* FALLTHRU */
  	default:
  		return 0;
  	}
  }
  
  int json_object_set_int64(struct json_object *jso,int64_t new_value){
  	if (!jso || jso->o_type!=json_type_int)
  		return 0;
  	jso->o.c_int64=new_value;
  	return 1;
  }
  
  int json_object_int_inc(struct json_object *jso, int64_t val) {
  	if (!jso || jso->o_type != json_type_int)
  		return 0;
  	if (val > 0 && jso->o.c_int64 > INT64_MAX - val) {
  		jso->o.c_int64 = INT64_MAX;
  	} else if (val < 0 && jso->o.c_int64 < INT64_MIN - val) {
  		jso->o.c_int64 = INT64_MIN;
  	} else {
  		jso->o.c_int64 += val;
  	}
  	return 1;
  }
  
  /* json_object_double */
  
  #if defined(HAVE___THREAD)
  // i.e. __thread or __declspec(thread)
  static SPEC___THREAD char *tls_serialization_float_format = NULL;
  #endif
  static char *global_serialization_float_format = NULL;
  
  int json_c_set_serialization_double_format(const char *double_format, int global_or_thread)
  {
  	if (global_or_thread == JSON_C_OPTION_GLOBAL)
  	{
  #if defined(HAVE___THREAD)
  		if (tls_serialization_float_format)
  		{
  			free(tls_serialization_float_format);
  			tls_serialization_float_format = NULL;
  		}
  #endif
  		if (global_serialization_float_format)
  			free(global_serialization_float_format);
  		global_serialization_float_format = double_format ? strdup(double_format) : NULL;
  	}
  	else if (global_or_thread == JSON_C_OPTION_THREAD)
  	{
  #if defined(HAVE___THREAD)
  		if (tls_serialization_float_format)
  		{
  			free(tls_serialization_float_format);
  			tls_serialization_float_format = NULL;
  		}
  		tls_serialization_float_format = double_format ? strdup(double_format) : NULL;
  #else
  		_json_c_set_last_err("json_c_set_option: not compiled with __thread support\n");
  		return -1;
  #endif
  	}
  	else
  	{
  		_json_c_set_last_err("json_c_set_option: invalid global_or_thread value: %d\n", global_or_thread);
  		return -1;
  	}
  	return 0;
  }
  
  
  static int json_object_double_to_json_string_format(struct json_object* jso,
  						    struct printbuf *pb,
  						    int level,
  						    int flags,
  						    const char *format)
  {
  	char buf[128], *p, *q;
  	int size;
  
  	(void)level;
  
  	/* Although JSON RFC does not support
  	NaN or Infinity as numeric values
  	ECMA 262 section 9.8.1 defines
  	how to handle these cases as strings */
  	if (isnan(jso->o.c_double))
  	{
  		size = snprintf(buf, sizeof(buf), "NaN");
  	}
  	else if (isinf(jso->o.c_double))
  	{
  		if(jso->o.c_double > 0)
  			size = snprintf(buf, sizeof(buf), "Infinity");
  		else
  			size = snprintf(buf, sizeof(buf), "-Infinity");
  	}
  	else
  	{
  		const char *std_format = "%.17g";
  		int format_drops_decimals = 0;
  
  		if (!format)
  		{
  #if defined(HAVE___THREAD)
  			if (tls_serialization_float_format)
  				format = tls_serialization_float_format;
  			else
  #endif
  			if (global_serialization_float_format)
  				format = global_serialization_float_format;
  			else
  				format = std_format;
  		}
  		size = snprintf(buf, sizeof(buf), format, jso->o.c_double);
  
  		if (size < 0)
  			return -1;
  
  		p = strchr(buf, ',');
  		if (p)
  			*p = '.';
  		else
  			p = strchr(buf, '.');
  
  		if (format == std_format || strstr(format, ".0f") == NULL)
  			format_drops_decimals = 1;
  
  		if (size < (int)sizeof(buf) - 2 &&
  		    isdigit((unsigned char)buf[0]) && /* Looks like *some* kind of number */
  			!p && /* Has no decimal point */
  		    strchr(buf, 'e') == NULL && /* Not scientific notation */
  			format_drops_decimals)
  		{
  			// Ensure it looks like a float, even if snprintf didn't,
  			//  unless a custom format is set to omit the decimal.
  			strcat(buf, ".0");
  			size += 2;
  		}
  		if (p && (flags & JSON_C_TO_STRING_NOZERO))
  		{
  			/* last useful digit, always keep 1 zero */
  			p++;
  			for (q=p ; *q ; q++) {
  				if (*q!='0') p=q;
  			}
  			/* drop trailing zeroes */
  			*(++p) = 0;
  			size = (int)(p-buf);
  		}
  	}
  	// although unlikely, snprintf can fail
  	if (size < 0)
  		return -1;
  
  	if (size >= (int)sizeof(buf))
  		// The standard formats are guaranteed not to overrun the buffer,
  		// but if a custom one happens to do so, just silently truncate.
  		size = sizeof(buf) - 1;
  	printbuf_memappend(pb, buf, size);
  	return size;
  }
  
  static int json_object_double_to_json_string_default(struct json_object* jso,
  						     struct printbuf *pb,
  						     int level,
  						     int flags)
  {
  	return json_object_double_to_json_string_format(jso, pb, level, flags,
  							NULL);
  }
  
  int json_object_double_to_json_string(struct json_object* jso,
  				      struct printbuf *pb,
  				      int level,
  				      int flags)
  {
  	return json_object_double_to_json_string_format(jso, pb, level, flags,
  							(const char *)jso->_userdata);
  }
  
  struct json_object* json_object_new_double(double d)
  {
  	struct json_object *jso = json_object_new(json_type_double);
  	if (!jso)
  		return NULL;
  	jso->_to_json_string = &json_object_double_to_json_string_default;
  	jso->o.c_double = d;
  	return jso;
  }
  
  struct json_object* json_object_new_double_s(double d, const char *ds)
  {
  	char *new_ds;
  	struct json_object *jso = json_object_new_double(d);
  	if (!jso)
  		return NULL;
  
  	new_ds = strdup(ds);
  	if (!new_ds)
  	{
  		json_object_generic_delete(jso);
  		errno = ENOMEM;
  		return NULL;
  	}
  	json_object_set_serializer(jso, json_object_userdata_to_json_string,
  	    new_ds, json_object_free_userdata);
  	return jso;
  }
  
  int json_object_userdata_to_json_string(struct json_object *jso,
  	struct printbuf *pb, int level, int flags)
  {
  	int userdata_len = (int)strlen((const char *)jso->_userdata);
  
  	(void)level;
  	(void)flags;
  
  	printbuf_memappend(pb, (const char *)jso->_userdata, userdata_len);
  	return userdata_len;
  }
  
  void json_object_free_userdata(struct json_object *jso, void *userdata)
  {
  	(void)jso;
  
  	free(userdata);
  }
  
  double json_object_get_double(const struct json_object *jso)
  {
    double cdouble;
    char *errPtr = NULL;
  
    if(!jso) return 0.0;
    switch(jso->o_type) {
    case json_type_double:
      return jso->o.c_double;
    case json_type_int:
      return jso->o.c_int64;
    case json_type_boolean:
      return jso->o.c_boolean;
    case json_type_string:
      errno = 0;
      cdouble = strtod(get_string_component(jso), &errPtr);
  
      /* if conversion stopped at the first character, return 0.0 */
      if (errPtr == get_string_component(jso))
          return 0.0;
  
      /*
       * Check that the conversion terminated on something sensible
       *
       * For example, { "pay" : 123AB } would parse as 123.
       */
      if (*errPtr != '\0')
          return 0.0;
  
      /*
       * If strtod encounters a string which would exceed the
       * capacity of a double, it returns +/- HUGE_VAL and sets
       * errno to ERANGE. But +/- HUGE_VAL is also a valid result
       * from a conversion, so we need to check errno.
       *
       * Underflow also sets errno to ERANGE, but it returns 0 in
       * that case, which is what we will return anyway.
       *
       * See CERT guideline ERR30-C
       */
      if ((HUGE_VAL == cdouble || -HUGE_VAL == cdouble) &&
          (ERANGE == errno))
              cdouble = 0.0;
      return cdouble;
    default:
      return 0.0;
    }
  }
  
  int json_object_set_double(struct json_object *jso,double new_value){
  	if (!jso || jso->o_type!=json_type_double)
  		return 0;
  	jso->o.c_double=new_value;
  	return 1;
  }
  
  /* json_object_string */
  
  static int json_object_string_to_json_string(struct json_object* jso,
  					     struct printbuf *pb,
  					     int level,
  					     int flags)
  {
  	(void)level;
  
  	printbuf_strappend(pb, "\"");
  	json_escape_str(pb, get_string_component(jso), (size_t)jso->o.c_string.len, flags);
  	printbuf_strappend(pb, "\"");
  	return 0;
  }
  
  static void json_object_string_delete(struct json_object* jso)
  {
  	if(jso->o.c_string.len >= LEN_DIRECT_STRING_DATA)
  		free(jso->o.c_string.str.ptr);
  	json_object_generic_delete(jso);
  }
  
  struct json_object* json_object_new_string(const char *s)
  {
  	struct json_object *jso = json_object_new(json_type_string);
  	if (!jso)
  		return NULL;
  	jso->_delete = &json_object_string_delete;
  	jso->_to_json_string = &json_object_string_to_json_string;
  	jso->o.c_string.len = (int)strlen(s);
  	if(jso->o.c_string.len < LEN_DIRECT_STRING_DATA) {
  		memcpy(jso->o.c_string.str.data, s, jso->o.c_string.len);
  	} else {
  		jso->o.c_string.str.ptr = strdup(s);
  		if (!jso->o.c_string.str.ptr)
  		{
  			json_object_generic_delete(jso);
  			errno = ENOMEM;
  			return NULL;
  		}
  	}
  	return jso;
  }
  
  struct json_object* json_object_new_string_len(const char *s, int len)
  {
  	char *dstbuf;
  	struct json_object *jso = json_object_new(json_type_string);
  	if (!jso)
  		return NULL;
  	jso->_delete = &json_object_string_delete;
  	jso->_to_json_string = &json_object_string_to_json_string;
  	if(len < LEN_DIRECT_STRING_DATA) {
  		dstbuf = jso->o.c_string.str.data;
  	} else {
  		jso->o.c_string.str.ptr = (char*)malloc((unsigned long)(len + 1));
  		if (!jso->o.c_string.str.ptr)
  		{
  			json_object_generic_delete(jso);
  			errno = ENOMEM;
  			return NULL;
  		}
  		dstbuf = jso->o.c_string.str.ptr;
  	}
  	memcpy(dstbuf, (const void *)s, len);
  	dstbuf[len] = '\0';
  	jso->o.c_string.len = len;
  	return jso;
  }
  
  const char* json_object_get_string(struct json_object *jso)
  {
  	if (!jso)
  		return NULL;
  	switch(jso->o_type)
  	{
  	case json_type_string:
  		return get_string_component(jso);
  	default:
  		return json_object_to_json_string(jso);
  	}
  }
  
  int json_object_get_string_len(const struct json_object *jso)
  {
  	if (!jso)
  		return 0;
  	switch(jso->o_type)
  	{
  	case json_type_string:
  		return jso->o.c_string.len;
  	default:
  		return 0;
  	}
  }
  
  int json_object_set_string(json_object* jso, const char* s) {
  	return json_object_set_string_len(jso, s, (int)(strlen(s)));
  }
  
  int json_object_set_string_len(json_object* jso, const char* s, int len){
  	char *dstbuf; 
  	if (jso==NULL || jso->o_type!=json_type_string) return 0; 	
  	if (len<LEN_DIRECT_STRING_DATA) {
  		dstbuf=jso->o.c_string.str.data;
  		if (jso->o.c_string.len>=LEN_DIRECT_STRING_DATA) free(jso->o.c_string.str.ptr); 
  	} else {
  		dstbuf=(char *)malloc((unsigned long)(len+1));
  		if (dstbuf==NULL) return 0;
  		if (jso->o.c_string.len>=LEN_DIRECT_STRING_DATA) free(jso->o.c_string.str.ptr);
  		jso->o.c_string.str.ptr=dstbuf;
  	}
  	jso->o.c_string.len=len;
  	memcpy(dstbuf, (const void *)s, len);
  	dstbuf[len] = '\0';
  	return 1; 
  }
  
  /* json_object_array */
  
  static int json_object_array_to_json_string(struct json_object* jso,
                                              struct printbuf *pb,
                                              int level,
                                              int flags)
  {
  	int had_children = 0;
  	size_t ii;
  
  	printbuf_strappend(pb, "[");
  	if (flags & JSON_C_TO_STRING_PRETTY)
  		printbuf_strappend(pb, "\n");
  	for(ii=0; ii < json_object_array_length(jso); ii++)
  	{
  		struct json_object *val;
  		if (had_children)
  		{
  			printbuf_strappend(pb, ",");
  			if (flags & JSON_C_TO_STRING_PRETTY)
  				printbuf_strappend(pb, "\n");
  		}
  		had_children = 1;
  		if (flags & JSON_C_TO_STRING_SPACED)
  			printbuf_strappend(pb, " ");
  		indent(pb, level + 1, flags);
  		val = json_object_array_get_idx(jso, ii);
  		if(val == NULL)
  			printbuf_strappend(pb, "null");
  		else
  			if (val->_to_json_string(val, pb, level+1, flags) < 0)
  				return -1;
  	}
  	if (flags & JSON_C_TO_STRING_PRETTY)
  	{
  		if (had_children)
  			printbuf_strappend(pb, "\n");
  		indent(pb,level,flags);
  	}
  
  	if (flags & JSON_C_TO_STRING_SPACED)
  		return printbuf_strappend(pb, " ]");
  	return printbuf_strappend(pb, "]");
  }
  
  static void json_object_array_entry_free(void *data)
  {
  	json_object_put((struct json_object*)data);
  }
  
  static void json_object_array_delete(struct json_object* jso)
  {
  	array_list_free(jso->o.c_array);
  	json_object_generic_delete(jso);
  }
  
  struct json_object* json_object_new_array(void)
  {
  	struct json_object *jso = json_object_new(json_type_array);
  	if (!jso)
  		return NULL;
  	jso->_delete = &json_object_array_delete;
  	jso->_to_json_string = &json_object_array_to_json_string;
  	jso->o.c_array = array_list_new(&json_object_array_entry_free);
          if(jso->o.c_array == NULL)
  	{
  	    free(jso);
  	    return NULL;
  	}
  	return jso;
  }
  
  struct array_list* json_object_get_array(const struct json_object *jso)
  {
  	if (!jso)
  		return NULL;
  	switch(jso->o_type)
  	{
  	case json_type_array:
  		return jso->o.c_array;
  	default:
  		return NULL;
  	}
  }
  
  void json_object_array_sort(struct json_object *jso,
  			    int(*sort_fn)(const void *, const void *))
  {
  	assert(json_object_get_type(jso) == json_type_array);
  	array_list_sort(jso->o.c_array, sort_fn);
  }
  
  struct json_object* json_object_array_bsearch(
  		const struct json_object *key,
  		const struct json_object *jso,
  		int (*sort_fn)(const void *, const void *))
  {
  	struct json_object **result;
  
  	assert(json_object_get_type(jso) == json_type_array);
  	result = (struct json_object **)array_list_bsearch(
  			(const void **)(void *)&key, jso->o.c_array, sort_fn);
  
  	if (!result)
  		return NULL;
  	return *result;
  }
  
  size_t json_object_array_length(const struct json_object *jso)
  {
  	assert(json_object_get_type(jso) == json_type_array);
  	return array_list_length(jso->o.c_array);
  }
  
  int json_object_array_add(struct json_object *jso,struct json_object *val)
  {
  	assert(json_object_get_type(jso) == json_type_array);
  	return array_list_add(jso->o.c_array, val);
  }
  
  int json_object_array_put_idx(struct json_object *jso, size_t idx,
  			      struct json_object *val)
  {
  	assert(json_object_get_type(jso) == json_type_array);
  	return array_list_put_idx(jso->o.c_array, idx, val);
  }
  
  int json_object_array_del_idx(struct json_object *jso, size_t idx, size_t count)
  {
  	assert(json_object_get_type(jso) == json_type_array);
  	return array_list_del_idx(jso->o.c_array, idx, count);
  }
  
  struct json_object* json_object_array_get_idx(const struct json_object *jso,
  					      size_t idx)
  {
  	assert(json_object_get_type(jso) == json_type_array);
  	return (struct json_object*)array_list_get_idx(jso->o.c_array, idx);
  }
  
  static int json_array_equal(struct json_object* jso1,
  		struct json_object* jso2,
  		int (*str_cmp)(const void *s1, const void *s2, size_t len))
  {
  	size_t len, i;
  
  	len = json_object_array_length(jso1);
  	if (len != json_object_array_length(jso2))
  		return 0;
  
  	for (i = 0; i < len; i++) {
  		if (!json_object_equal(json_object_array_get_idx(jso1, i),
  				       json_object_array_get_idx(jso2, i),
  				       str_cmp))
  			return 0;
  	}
  	return 1;
  }
  
  static int json_object_all_values_equal(struct json_object* jso1,
  		struct json_object* jso2,
  		int (*str_cmp)(const void *s1, const void *s2, size_t len))
  {
  	struct json_object_iter iter;
  	struct json_object *sub;
  
  	assert(json_object_get_type(jso1) == json_type_object);
  	assert(json_object_get_type(jso2) == json_type_object);
  	/* Iterate over jso1 keys and see if they exist and are equal in jso2 */
          json_object_object_foreachC(jso1, iter) {
  		if (!lh_table_lookup_ex(jso2->o.c_object, (void*)iter.key,
  					(void**)(void *)&sub))
  			return 0;
  		if (!json_object_equal(iter.val, sub, str_cmp))
  			return 0;
          }
  
  	/* Iterate over jso2 keys to see if any exist that are not in jso1 */
          json_object_object_foreachC(jso2, iter) {
  		if (!lh_table_lookup_ex(jso1->o.c_object, (void*)iter.key,
  					(void**)(void *)&sub))
  			return 0;
          }
  
  	return 1;
  }
  
  int json_object_equal(struct json_object* jso1, struct json_object* jso2,
  		      int (*str_cmp)(const void *s1, const void *s2, size_t len))
  {
  	if (jso1 == jso2)
  		return 1;
  
  	if (!jso1 || !jso2)
  		return 0;
  
  	if (jso1->o_type != jso2->o_type)
  		return 0;
  
  	switch(jso1->o_type) {
  		case json_type_boolean:
  			return (jso1->o.c_boolean == jso2->o.c_boolean);
  
  		case json_type_double:
  			return (jso1->o.c_double == jso2->o.c_double);
  
  		case json_type_int:
  			return (jso1->o.c_int64 == jso2->o.c_int64);
  
  		case json_type_string:
  			return (jso1->o.c_string.len == jso2->o.c_string.len &&
  				str_cmp(get_string_component(jso1),
  				        get_string_component(jso2),
  				        (unsigned long)jso1->o.c_string.len) == 0);
  
  		case json_type_object:
  			return json_object_all_values_equal(jso1, jso2,
  							    str_cmp);
  
  		case json_type_array:
  			return json_array_equal(jso1, jso2, str_cmp);
  
  		case json_type_null:
  			return 1;
  	};
  
  	return 0;
  }
  
  static int json_object_copy_serializer_data(struct json_object *src, struct json_object *dst)
  {
  	if (!src->_userdata || !src->_user_delete)
  		return 0;
  
  	if (dst->_to_json_string == json_object_userdata_to_json_string)
  	{
  		dst->_userdata = strdup(src->_userdata);
  	}
  	// else if ... other supported serializers ...
  	else
  	{
  		_json_c_set_last_err("json_object_deep_copy: unable to copy unknown serializer data: %p\n", dst->_to_json_string);
  		return -1;
  	}
  	dst->_user_delete = src->_user_delete;
  	return 0;
  }
  
  
  /**
   * The default shallow copy implementation.  Simply creates a new object of the same
   * type but does *not* copy over _userdata nor retain any custom serializer.
   * If custom serializers are in use, json_object_deep_copy() must be passed a shallow copy
   * implementation that is aware of how to copy them.
   *
   * This always returns -1 or 1.  It will never return 2 since it does not copy the serializer.
   */
  int json_c_shallow_copy_default(json_object *src, json_object *parent, const char *key, size_t index, json_object **dst)
  {
  	(void)parent;
  	(void)key;
  	(void)index;
  
  	switch (src->o_type) {
  	case json_type_boolean:
  		*dst = json_object_new_boolean(src->o.c_boolean);
  		break;
  
  	case json_type_double:
  		*dst = json_object_new_double(src->o.c_double);
  		break;
  
  	case json_type_int:
  		*dst = json_object_new_int64(src->o.c_int64);
  		break;
  
  	case json_type_string:
  		*dst = json_object_new_string(get_string_component(src));
  		break;
  
  	case json_type_object:
  		*dst = json_object_new_object();
  		break;
  
  	case json_type_array:
  		*dst = json_object_new_array();
  		break;
  
  	default:
  		errno = EINVAL;
  		return -1;
  	}
  
  	if (!*dst) {
  		errno = ENOMEM;
  		return -1;
  	}
  	(*dst)->_to_json_string = src->_to_json_string;
  	// _userdata and _user_delete are copied later
  	return 1;
  }
  
  /*
   * The actual guts of json_object_deep_copy(), with a few additional args
   * needed so we can keep track of where we are within the object tree.
   *
   * Note: caller is responsible for freeing *dst if this fails and returns -1.
   */
  static int json_object_deep_copy_recursive(struct json_object *src, struct json_object *parent, const char *key_in_parent, size_t index_in_parent, struct json_object **dst, json_c_shallow_copy_fn *shallow_copy)
  {
  	struct json_object_iter iter;
  	size_t src_array_len, ii;
  
  	int shallow_copy_rc = 0;
  	shallow_copy_rc = shallow_copy(src, parent, key_in_parent, index_in_parent, dst);
  	/* -1=error, 1=object created ok, 2=userdata set */
  	if (shallow_copy_rc < 1)
  	{
  		errno = EINVAL;
  		return -1;
  	}
  	assert(*dst != NULL);
  
  	switch (src->o_type) {
  	case json_type_object:
  		json_object_object_foreachC(src, iter) {
  			struct json_object *jso = NULL;
  			/* This handles the `json_type_null` case */
  			if (!iter.val)
  				jso = NULL;
  			else if (json_object_deep_copy_recursive(iter.val, src, iter.key, (size_t)-1, &jso, shallow_copy) < 0)
  			{
  				json_object_put(jso);
  				return -1;
  			}
  
  			if (json_object_object_add(*dst, iter.key, jso) < 0)
  			{
  				json_object_put(jso);
  				return -1;
  			}
  		}
  		break;
  
  	case json_type_array:
  		src_array_len = json_object_array_length(src);
  		for (ii = 0; ii < src_array_len; ii++) {
  			struct json_object *jso = NULL;
  			struct json_object *jso1 = json_object_array_get_idx(src, ii);
  			/* This handles the `json_type_null` case */
  			if (!jso1)
  				jso = NULL;
  			else if (json_object_deep_copy_recursive(jso1, src, NULL, ii, &jso, shallow_copy) < 0)
  			{
  				json_object_put(jso);
  				return -1;
  			}
  
  			if (json_object_array_add(*dst, jso) < 0)
  			{
  				json_object_put(jso);
  				return -1;
  			}
  		}
  		break;
  
  	default:
  		break;
  		/* else, nothing to do, shallow_copy already did. */
  	}
  
  	if (shallow_copy_rc != 2)
  		return json_object_copy_serializer_data(src, *dst);
  
  	return 0;
  }
  
  int json_object_deep_copy(struct json_object *src, struct json_object **dst, json_c_shallow_copy_fn *shallow_copy)
  {
  	int rc;
  
  	/* Check if arguments are sane ; *dst must not point to a non-NULL object */
  	if (!src || !dst || *dst) {
  		errno = EINVAL;
  		return -1;
  	}
  
  	if (shallow_copy == NULL)
  		shallow_copy = json_c_shallow_copy_default;
  
  	rc = json_object_deep_copy_recursive(src, NULL, NULL, (size_t)-1, dst, shallow_copy);
  	if (rc < 0) {
  		json_object_put(*dst);
  		*dst = NULL;
  	}
  
  	return rc;
  }
  
  