mt-libcouchbase 1.4.0

data/ext/libcouchbase/contrib/cJSON/cJSON.c

@@ -0,0 +1,1022 @@
+/*
+  Copyright (c) 2009 Dave Gamble
+
+  Permission is hereby granted, free of charge, to any person obtaining a copy
+  of this software and associated documentation files (the "Software"), to deal
+  in the Software without restriction, including without limitation the rights
+  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+  copies of the Software, and to permit persons to whom the Software is
+  furnished to do so, subject to the following conditions:
+
+  The above copyright notice and this permission notice shall be included in
+  all copies or substantial portions of the Software.
+
+  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+  AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+  LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+  OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+  THE SOFTWARE.
+*/
+
+/* cJSON */
+/* JSON parser in C. */
+
+#include <string.h>
+#include <stdio.h>
+#include <math.h>
+#include <stdlib.h>
+#include <float.h>
+#include <limits.h>
+#include <ctype.h>
+#include <assert.h>
+#include "cJSON.h"
+
+static int cJSON_strcasecmp(const char *s1, const char *s2)
+{
+    if (!s1)
+        return (s1 == s2) ? 0 : 1;
+    if (!s2)
+        return 1;
+    for (; tolower(*s1) == tolower(*s2); ++s1, ++s2)
+        if (*s1 == 0)
+            return 0;
+    return tolower(*(const unsigned char *)s1) - tolower(*(const unsigned char *)s2);
+}
+
+static void *(*cJSON_malloc)(size_t sz) = malloc;
+static void (*cJSON_free)(void *ptr) = free;
+
+static char *cJSON_strdup(const char *str)
+{
+    size_t len;
+    char *copy;
+
+    len = strlen(str) + 1;
+    if (!(copy = (char *)cJSON_malloc(len)))
+        return 0;
+    memcpy(copy, str, len);
+    return copy;
+}
+
+void cJSON_InitHooks(cJSON_Hooks *hooks)
+{
+    if (!hooks) { /* Reset hooks */
+        cJSON_malloc = malloc;
+        cJSON_free = free;
+        return;
+    }
+
+    cJSON_malloc = (hooks->malloc_fn) ? hooks->malloc_fn : malloc;
+    cJSON_free = (hooks->free_fn) ? hooks->free_fn : free;
+}
+
+/* The size of pool allocation groups.  Note that the allocation
+    pools are only used during parsing, and not generation.
+    Additionally, this default value is based on empirical
+    evidence of best performance with Couchbase configuration
+    data */
+#ifndef CJSON_POOL_ALLOC_SIZE
+#define CJSON_POOL_ALLOC_SIZE 1024
+#endif
+
+/* Creates a new allocation pool. */
+static cJSON_PoolBlock *cJSON_New_PoolBlock(cJSON_Pool *pool)
+{
+    int i;
+    cJSON *item, *new_alloc;
+    cJSON_PoolBlock *new_block;
+
+    if (CJSON_POOL_ALLOC_SIZE <= 0) {
+        return 0;
+    }
+
+    new_block = (cJSON_PoolBlock *)cJSON_malloc(sizeof(cJSON_PoolBlock) + sizeof(cJSON) * CJSON_POOL_ALLOC_SIZE);
+    if (!new_block) {
+        return 0;
+    }
+
+    new_alloc = (cJSON *)(new_block + 1);
+
+    memset(new_block, 0, sizeof(cJSON_PoolBlock) + sizeof(cJSON) * CJSON_POOL_ALLOC_SIZE);
+
+    new_block->next = pool->blocks;
+    pool->blocks = new_block;
+
+    for (i = 0, item = new_alloc; i < CJSON_POOL_ALLOC_SIZE; ++i, ++item) {
+        item->next = pool->free_items;
+        pool->free_items = item;
+    }
+
+    return new_block;
+}
+
+/* This will create an allocation pool */
+static cJSON_Pool *cJSON_New_Pool(void)
+{
+    if (CJSON_POOL_ALLOC_SIZE <= 0) {
+        return 0;
+    } else {
+        cJSON_Pool *pool = (cJSON_Pool *)cJSON_malloc(sizeof(cJSON_Pool));
+        if (!pool) {
+            return 0;
+        }
+
+        memset(pool, 0, sizeof(cJSON_Pool));
+        pool->free_items = 0;
+        pool->blocks = 0;
+        pool->refcount = 0;
+
+        return pool;
+    }
+}
+
+/* This will destroy an allocation pool */
+static void cJSON_Destroy_Pool(cJSON_Pool *pool)
+{
+    cJSON_PoolBlock *cur = pool->blocks, *next;
+    while (cur) {
+        next = cur->next;
+        /* this frees all the allocations as well */
+        cJSON_free(cur);
+        cur = next;
+    }
+    cJSON_free(pool);
+}
+
+/* allocate new item from a pool */
+static cJSON *cJSON_Pool_New_Item(cJSON_Pool *pool)
+{
+    if (!pool->free_items) {
+        cJSON_New_PoolBlock(pool);
+    }
+    if (pool->free_items) {
+        cJSON *node = pool->free_items;
+        pool->free_items = node->next;
+        pool->refcount++;
+        node->next = 0;
+        node->alloc_pool = pool;
+        /* all items in the pool are already zeroed */
+        return node;
+    }
+    return 0;
+}
+static void cJSON_Pool_Free_Item(cJSON_Pool *pool, cJSON *node)
+{
+    /* Note that this code intentially does not return the item
+        to the pool if we are destroying the pool anyways. */
+    assert(pool->refcount);
+    if (--pool->refcount == 0) {
+        cJSON_Destroy_Pool(pool);
+    } else {
+        memset(node, 0, sizeof(cJSON));
+        node->next = pool->free_items;
+        pool->free_items = node;
+    }
+}
+
+/* Internal constructor. */
+static cJSON *cJSON_New_Item(cJSON *parent)
+{
+    cJSON *node = 0;
+    if (parent && parent->alloc_pool) {
+        node = cJSON_Pool_New_Item(parent->alloc_pool);
+    }
+    if (!node) {
+        node = (cJSON *)cJSON_malloc(sizeof(cJSON));
+        if (node) {
+            memset(node, 0, sizeof(cJSON));
+        }
+    }
+    return node;
+}
+
+static void cJSON_Free_Item(cJSON *node)
+{
+    cJSON_Pool *pool = node->alloc_pool;
+    if (pool) {
+        cJSON_Pool_Free_Item(pool, node);
+    } else {
+        cJSON_free(node);
+    }
+}
+
+/* Delete a cJSON structure. */
+void cJSON_Delete(cJSON *c)
+{
+    cJSON *next;
+    while (c) {
+        next = c->next;
+        if (!(c->type & cJSON_IsReference) && c->child)
+            cJSON_Delete(c->child);
+        if (!(c->type & cJSON_IsReference) && c->valuestring)
+            cJSON_free(c->valuestring);
+        if (c->string)
+            cJSON_free(c->string);
+        cJSON_Free_Item(c);
+        c = next;
+    }
+}
+
+/* Parse the input text to generate a number, and populate the result into item. */
+static const char *parse_number(cJSON *item, const char *num)
+{
+    double n = 0, sign = 1, scale = 0;
+    int subscale = 0, signsubscale = 1;
+
+    /* Could use sscanf for this? */
+    if (*num == '-')
+        sign = -1, num++; /* Has sign? */
+    if (*num == '0')
+        num++; /* is zero */
+    if (*num >= '1' && *num <= '9')
+        do
+            n = (n * 10.0) + (*num++ - '0');
+        while (*num >= '0' && *num <= '9'); /* Number? */
+    if (*num == '.') {
+        num++;
+        do
+            n = (n * 10.0) + (*num++ - '0'), scale--;
+        while (*num >= '0' && *num <= '9');
+    }                               /* Fractional part? */
+    if (*num == 'e' || *num == 'E') /* Exponent? */
+    {
+        num++;
+        if (*num == '+')
+            num++;
+        else if (*num == '-')
+            signsubscale = -1, num++; /* With sign? */
+        while (*num >= '0' && *num <= '9')
+            subscale = (subscale * 10) + (*num++ - '0'); /* Number? */
+    }
+
+    n = sign * n * pow(10.0, (scale + subscale * signsubscale)); /* number = +/- number.fraction * 10^+/- exponent */
+
+    item->valuedouble = n;
+    item->valueint = (int)n;
+    item->type = cJSON_Number;
+    return num;
+}
+
+/* Render the number nicely from the given item into a string. */
+static char *print_number(cJSON *item)
+{
+    char *str;
+    double d = item->valuedouble;
+    if (fabs(((double)item->valueint) - d) <= DBL_EPSILON && d <= INT_MAX && d >= INT_MIN) {
+        str = (char *)cJSON_malloc(21); /* 2^64+1 can be represented in 21 chars. */
+        sprintf(str, "%d", item->valueint);
+    } else {
+        str = (char *)cJSON_malloc(64); /* This is a nice tradeoff. */
+        if (fabs(floor(d) - d) <= DBL_EPSILON)
+            sprintf(str, "%.0f", d);
+        else if (fabs(d) < 1.0e-6 || fabs(d) > 1.0e9)
+            sprintf(str, "%e", d);
+        else
+            sprintf(str, "%f", d);
+    }
+    return str;
+}
+
+/* Parse the input text into an unescaped cstring, and populate item. */
+static const unsigned char firstByteMark[7] = {0x00, 0x00, 0xC0, 0xE0, 0xF0, 0xF8, 0xFC};
+static const char *parse_string(cJSON *item, const char *str)
+{
+    const char *ptr = str + 1;
+    char *ptr2;
+    char *out;
+    int len = 0;
+    unsigned uc;
+    if (*str != '\"')
+        return 0; /* not a string! */
+
+    while (*ptr != '\"' && (unsigned char)*ptr > 31 && ++len)
+        if (*ptr++ == '\\')
+            ptr++; /* Skip escaped quotes. */
+
+    out = (char *)cJSON_malloc(len + 1); /* This is how long we need for the string, roughly. */
+    if (!out)
+        return 0;
+
+    ptr = str + 1;
+    ptr2 = out;
+    while (*ptr != '\"' && (unsigned char)*ptr > 31) {
+        if (*ptr != '\\')
+            *ptr2++ = *ptr++;
+        else {
+            ptr++;
+            switch (*ptr) {
+                case 'b':
+                    *ptr2++ = '\b';
+                    break;
+                case 'f':
+                    *ptr2++ = '\f';
+                    break;
+                case 'n':
+                    *ptr2++ = '\n';
+                    break;
+                case 'r':
+                    *ptr2++ = '\r';
+                    break;
+                case 't':
+                    *ptr2++ = '\t';
+                    break;
+                case 'u': /* transcode utf16 to utf8. DOES NOT SUPPORT SURROGATE PAIRS CORRECTLY. */
+                    sscanf(ptr + 1, "%4x", &uc); /* get the unicode char. */
+                    len = 3;
+                    if (uc < 0x80)
+                        len = 1;
+                    else if (uc < 0x800)
+                        len = 2;
+                    ptr2 += len;
+
+                    switch (len) {
+                        case 3:
+                            *--ptr2 = ((uc | 0x80) & 0xBF);
+                            uc >>= 6; /* fall through */
+                        case 2:
+                            *--ptr2 = ((uc | 0x80) & 0xBF);
+                            uc >>= 6; /* fall through */
+                        case 1:
+                            *--ptr2 = (uc | firstByteMark[len]); /* fall through */
+                    }
+                    ptr2 += len;
+                    ptr += 4;
+                    break;
+                default:
+                    *ptr2++ = *ptr;
+                    break;
+            }
+            ptr++;
+        }
+    }
+    *ptr2 = 0;
+    if (*ptr == '\"')
+        ptr++;
+    item->valuestring = out;
+    item->type = cJSON_String;
+    return ptr;
+}
+
+/* Render the cstring provided to an escaped version that can be printed. */
+static char *print_string_ptr(const char *str)
+{
+    const char *ptr;
+    char *ptr2, *out;
+    int len = 0;
+
+    if (!str)
+        return cJSON_strdup("");
+    ptr = str;
+    while (*ptr && ++len) {
+        if ((unsigned char)*ptr < 32 || *ptr == '\"' || *ptr == '\\')
+            len++;
+        ptr++;
+    }
+
+    out = (char *)cJSON_malloc(len + 3);
+    ptr2 = out;
+    ptr = str;
+    *ptr2++ = '\"';
+    while (*ptr) {
+        if ((unsigned char)*ptr > 31 && *ptr != '\"' && *ptr != '\\')
+            *ptr2++ = *ptr++;
+        else {
+            *ptr2++ = '\\';
+            switch (*ptr++) {
+                case '\\':
+                    *ptr2++ = '\\';
+                    break;
+                case '\"':
+                    *ptr2++ = '\"';
+                    break;
+                case '\b':
+                    *ptr2++ = 'b';
+                    break;
+                case '\f':
+                    *ptr2++ = 'f';
+                    break;
+                case '\n':
+                    *ptr2++ = 'n';
+                    break;
+                case '\r':
+                    *ptr2++ = 'r';
+                    break;
+                case '\t':
+                    *ptr2++ = 't';
+                    break;
+                default:
+                    ptr2--;
+                    break; /* eviscerate with prejudice. */
+            }
+        }
+    }
+    *ptr2++ = '\"';
+    *ptr2++ = 0;
+    return out;
+}
+/* Invote print_string_ptr (which is useful) on an item. */
+static char *print_string(cJSON *item)
+{
+    return print_string_ptr(item->valuestring);
+}
+
+/* Predeclare these prototypes. */
+static const char *parse_value(cJSON *item, const char *value);
+static char *print_value(cJSON *item, int depth, int fmt);
+static const char *parse_array(cJSON *item, const char *value);
+static char *print_array(cJSON *item, int depth, int fmt);
+static const char *parse_object(cJSON *item, const char *value);
+static char *print_object(cJSON *item, int depth, int fmt);
+
+/* Utility to jump whitespace and cr/lf */
+static const char *skip(const char *in)
+{
+    while (in && *in && (unsigned char)*in <= 32)
+        in++;
+    return in;
+}
+
+/* Parse an object - create a new root, and populate. */
+cJSON *cJSON_Parse(const char *value)
+{
+    cJSON_Pool *pool = cJSON_New_Pool();
+    cJSON *c = 0;
+    if (pool) {
+        c = cJSON_Pool_New_Item(pool);
+    }
+    if (!c) {
+        c = cJSON_New_Item(0);
+    }
+    if (!c)
+        return 0; /* memory fail */
+
+    c->alloc_pool = pool;
+
+    if (!parse_value(c, skip(value))) {
+        cJSON_Delete(c);
+        return 0;
+    }
+    return c;
+}
+
+/* Render a cJSON item/entity/structure to text. */
+char *cJSON_Print(cJSON *item)
+{
+    return print_value(item, 0, 1);
+}
+char *cJSON_PrintUnformatted(cJSON *item)
+{
+    return print_value(item, 0, 0);
+}
+
+/* Parser core - when encountering text, process appropriately. */
+static const char *parse_value(cJSON *item, const char *value)
+{
+    if (!value)
+        return 0; /* Fail on null. */
+    if (!strncmp(value, "null", 4)) {
+        item->type = cJSON_NULL;
+        return value + 4;
+    }
+    if (!strncmp(value, "false", 5)) {
+        item->type = cJSON_False;
+        return value + 5;
+    }
+    if (!strncmp(value, "true", 4)) {
+        item->type = cJSON_True;
+        item->valueint = 1;
+        return value + 4;
+    }
+    if (*value == '\"') {
+        return parse_string(item, value);
+    }
+    if (*value == '-' || (*value >= '0' && *value <= '9')) {
+        return parse_number(item, value);
+    }
+    if (*value == '[') {
+        return parse_array(item, value);
+    }
+    if (*value == '{') {
+        return parse_object(item, value);
+    }
+
+    return 0; /* failure. */
+}
+
+/* Render a value to text. */
+static char *print_value(cJSON *item, int depth, int fmt)
+{
+    char *out = 0;
+    if (!item)
+        return 0;
+    switch ((item->type) & 255) {
+        case cJSON_NULL:
+            out = cJSON_strdup("null");
+            break;
+        case cJSON_False:
+            out = cJSON_strdup("false");
+            break;
+        case cJSON_True:
+            out = cJSON_strdup("true");
+            break;
+        case cJSON_Number:
+            out = print_number(item);
+            break;
+        case cJSON_String:
+            out = print_string(item);
+            break;
+        case cJSON_Array:
+            out = print_array(item, depth, fmt);
+            break;
+        case cJSON_Object:
+            out = print_object(item, depth, fmt);
+            break;
+    }
+    return out;
+}
+
+/* Build an array from input text. */
+static const char *parse_array(cJSON *item, const char *value)
+{
+    cJSON *child;
+    if (*value != '[')
+        return 0; /* not an array! */
+
+    item->type = cJSON_Array;
+    value = skip(value + 1);
+    if (*value == ']')
+        return value + 1; /* empty array. */
+
+    item->child = child = cJSON_New_Item(item);
+    if (!item->child)
+        return 0;                                  /* memory fail */
+    value = skip(parse_value(child, skip(value))); /* skip any spacing, get the value. */
+    if (!value)
+        return 0;
+
+    while (*value == ',') {
+        cJSON *new_item;
+        if (!(new_item = cJSON_New_Item(item)))
+            return 0; /* memory fail */
+        child->next = new_item;
+        new_item->prev = child;
+        child = new_item;
+        value = skip(parse_value(child, skip(value + 1)));
+        if (!value)
+            return 0; /* memory fail */
+    }
+
+    if (*value == ']')
+        return value + 1; /* end of array */
+    return 0;             /* malformed. */
+}
+
+/* Render an array to text */
+static char *print_array(cJSON *item, int depth, int fmt)
+{
+    char **entries;
+    char *out = 0, *ptr, *ret;
+    size_t len = 5;
+    cJSON *child = item->child;
+    int numentries = 0, i = 0, fail = 0;
+
+    /* How many entries in the array? */
+    while (child)
+        numentries++, child = child->next;
+    /* Allocate an array to hold the values for each */
+    entries = (char **)cJSON_malloc(numentries * sizeof(char *));
+    if (!entries)
+        return 0;
+    memset(entries, 0, numentries * sizeof(char *));
+    /* Retrieve all the results: */
+    child = item->child;
+    while (child && !fail) {
+        ret = print_value(child, depth + 1, fmt);
+        entries[i++] = ret;
+        if (ret)
+            len += strlen(ret) + 2 + (fmt ? 1 : 0);
+        else
+            fail = 1;
+        child = child->next;
+    }
+
+    /* If we didn't fail, try to malloc the output string */
+    if (!fail)
+        out = cJSON_malloc(len);
+    /* If that fails, we fail. */
+    if (!out)
+        fail = 1;
+
+    /* Handle failure. */
+    if (fail) {
+        for (i = 0; i < numentries; i++)
+            if (entries[i])
+                cJSON_free(entries[i]);
+        cJSON_free(entries);
+        return 0;
+    }
+
+    /* Compose the output array. */
+    *out = '[';
+    ptr = out + 1;
+    *ptr = 0;
+    for (i = 0; i < numentries; i++) {
+        strcpy(ptr, entries[i]);
+        ptr += strlen(entries[i]);
+        if (i != numentries - 1) {
+            *ptr++ = ',';
+            if (fmt)
+                *ptr++ = ' ';
+            *ptr = 0;
+        }
+        cJSON_free(entries[i]);
+    }
+    cJSON_free(entries);
+    *ptr++ = ']';
+    *ptr++ = 0;
+    return out;
+}
+
+/* Build an object from the text. */
+static const char *parse_object(cJSON *item, const char *value)
+{
+    cJSON *child;
+    if (*value != '{')
+        return 0; /* not an object! */
+
+    item->type = cJSON_Object;
+    value = skip(value + 1);
+    if (*value == '}')
+        return value + 1; /* empty array. */
+
+    item->child = child = cJSON_New_Item(item);
+    value = skip(parse_string(child, skip(value)));
+    if (!value)
+        return 0;
+    child->string = child->valuestring;
+    child->valuestring = 0;
+    if (*value != ':')
+        return 0;                                      /* fail! */
+    value = skip(parse_value(child, skip(value + 1))); /* skip any spacing, get the value. */
+    if (!value)
+        return 0;
+
+    while (*value == ',') {
+        cJSON *new_item;
+        if (!(new_item = cJSON_New_Item(item)))
+            return 0; /* memory fail */
+        child->next = new_item;
+        new_item->prev = child;
+        child = new_item;
+        value = skip(parse_string(child, skip(value + 1)));
+        if (!value)
+            return 0;
+        child->string = child->valuestring;
+        child->valuestring = 0;
+        if (*value != ':')
+            return 0;                                      /* fail! */
+        value = skip(parse_value(child, skip(value + 1))); /* skip any spacing, get the value. */
+        if (!value)
+            return 0;
+    }
+
+    if (*value == '}')
+        return value + 1; /* end of array */
+    return 0;             /* malformed. */
+}
+
+/* Render an object to text. */
+static char *print_object(cJSON *item, int depth, int fmt)
+{
+    char **entries = 0, **names = 0;
+    char *out = 0, *ptr, *ret, *str;
+    size_t len = 7;
+    int i = 0, j;
+    cJSON *child = item->child;
+    int numentries = 0, fail = 0;
+    /* Count the number of entries. */
+    while (child)
+        numentries++, child = child->next;
+    /* Allocate space for the names and the objects */
+    entries = (char **)cJSON_malloc(numentries * sizeof(char *));
+    if (!entries)
+        return 0;
+    names = (char **)cJSON_malloc(numentries * sizeof(char *));
+    if (!names) {
+        cJSON_free(entries);
+        return 0;
+    }
+    memset(entries, 0, sizeof(char *) * numentries);
+    memset(names, 0, sizeof(char *) * numentries);
+
+    /* Collect all the results into our arrays: */
+    child = item->child;
+    depth++;
+    if (fmt)
+        len += depth;
+    while (child) {
+        names[i] = str = print_string_ptr(child->string);
+        entries[i++] = ret = print_value(child, depth, fmt);
+        if (str && ret)
+            len += strlen(ret) + strlen(str) + 2 + (fmt ? 2 + depth : 0);
+        else
+            fail = 1;
+        child = child->next;
+    }
+
+    /* Try to allocate the output string */
+    if (!fail)
+        out = (char *)cJSON_malloc(len);
+    if (!out)
+        fail = 1;
+
+    /* Handle failure */
+    if (fail) {
+        for (i = 0; i < numentries; i++) {
+            if (names[i])
+                free(names[i]);
+            if (entries[i])
+                free(entries[i]);
+        }
+        free(names);
+        free(entries);
+        return 0;
+    }
+
+    /* Compose the output: */
+    *out = '{';
+    ptr = out + 1;
+    if (fmt)
+        *ptr++ = '\n';
+    *ptr = 0;
+    for (i = 0; i < numentries; i++) {
+        if (fmt)
+            for (j = 0; j < depth; j++)
+                *ptr++ = '\t';
+        strcpy(ptr, names[i]);
+        ptr += strlen(names[i]);
+        *ptr++ = ':';
+        if (fmt)
+            *ptr++ = '\t';
+        strcpy(ptr, entries[i]);
+        ptr += strlen(entries[i]);
+        if (i != numentries - 1)
+            *ptr++ = ',';
+        if (fmt)
+            *ptr++ = '\n';
+        *ptr = 0;
+        cJSON_free(names[i]);
+        cJSON_free(entries[i]);
+    }
+
+    cJSON_free(names);
+    cJSON_free(entries);
+    if (fmt)
+        for (i = 0; i < depth - 1; i++)
+            *ptr++ = '\t';
+    *ptr++ = '}';
+    *ptr++ = 0;
+    return out;
+}
+
+/* Get Array size/item / object item. */
+int cJSON_GetArraySize(cJSON *array)
+{
+    cJSON *c = array->child;
+    int i = 0;
+    while (c)
+        i++, c = c->next;
+    return i;
+}
+cJSON *cJSON_GetArrayItem(cJSON *array, int item)
+{
+    cJSON *c = array->child;
+    while (c && item > 0)
+        item--, c = c->next;
+    return c;
+}
+cJSON *cJSON_GetObjectItem(cJSON *object, const char *string)
+{
+    cJSON *c = object->child;
+    while (c && cJSON_strcasecmp(c->string, string))
+        c = c->next;
+    return c;
+}
+
+/* Utility for array list handling. */
+static void suffix_object(cJSON *prev, cJSON *item)
+{
+    prev->next = item;
+    item->prev = prev;
+}
+/* Utility for handling references. */
+static cJSON *create_reference(cJSON *item)
+{
+    cJSON *ref = cJSON_New_Item(item);
+    memcpy(ref, item, sizeof(cJSON));
+    ref->string = 0;
+    ref->type |= cJSON_IsReference;
+    ref->next = ref->prev = 0;
+    return ref;
+}
+
+/* Add item to array/object. */
+void cJSON_AddItemToArray(cJSON *array, cJSON *item)
+{
+    cJSON *c = array->child;
+    if (!c) {
+        array->child = item;
+    } else {
+        while (c && c->next)
+            c = c->next;
+        suffix_object(c, item);
+    }
+}
+void cJSON_AddItemToObject(cJSON *object, const char *string, cJSON *item)
+{
+    if (item->string)
+        cJSON_free(item->string);
+    item->string = cJSON_strdup(string);
+    cJSON_AddItemToArray(object, item);
+}
+void cJSON_AddItemReferenceToArray(cJSON *array, cJSON *item)
+{
+    cJSON_AddItemToArray(array, create_reference(item));
+}
+void cJSON_AddItemReferenceToObject(cJSON *object, const char *string, cJSON *item)
+{
+    cJSON_AddItemToObject(object, string, create_reference(item));
+}
+
+cJSON *cJSON_DetachItemFromArray(cJSON *array, int which)
+{
+    cJSON *c = array->child;
+    while (c && which > 0)
+        c = c->next, which--;
+    if (!c)
+        return 0;
+    if (c->prev)
+        c->prev->next = c->next;
+    if (c->next)
+        c->next->prev = c->prev;
+    if (c == array->child)
+        array->child = c->next;
+    c->prev = c->next = 0;
+    return c;
+}
+void cJSON_DeleteItemFromArray(cJSON *array, int which)
+{
+    cJSON_Delete(cJSON_DetachItemFromArray(array, which));
+}
+cJSON *cJSON_DetachItemFromObject(cJSON *object, const char *string)
+{
+    int i = 0;
+    cJSON *c = object->child;
+    while (c && cJSON_strcasecmp(c->string, string))
+        i++, c = c->next;
+    if (c)
+        return cJSON_DetachItemFromArray(object, i);
+    return 0;
+}
+void cJSON_DeleteItemFromObject(cJSON *object, const char *string)
+{
+    cJSON_Delete(cJSON_DetachItemFromObject(object, string));
+}
+
+/* Replace array/object items with new ones. */
+void cJSON_ReplaceItemInArray(cJSON *array, int which, cJSON *newitem)
+{
+    cJSON *c = array->child;
+    while (c && which > 0)
+        c = c->next, which--;
+    if (!c)
+        return;
+    newitem->next = c->next;
+    newitem->prev = c->prev;
+    if (newitem->next)
+        newitem->next->prev = newitem;
+    if (c == array->child)
+        array->child = newitem;
+    else
+        newitem->prev->next = newitem;
+    c->next = c->prev = 0;
+    cJSON_Delete(c);
+}
+void cJSON_ReplaceItemInObject(cJSON *object, const char *string, cJSON *newitem)
+{
+    int i = 0;
+    cJSON *c = object->child;
+    while (c && cJSON_strcasecmp(c->string, string))
+        i++, c = c->next;
+    if (c) {
+        newitem->string = cJSON_strdup(string);
+        cJSON_ReplaceItemInArray(object, i, newitem);
+    }
+}
+
+/* Create basic types: */
+cJSON *cJSON_CreateNull()
+{
+    cJSON *item = cJSON_New_Item(0);
+    item->type = cJSON_NULL;
+    return item;
+}
+cJSON *cJSON_CreateTrue()
+{
+    cJSON *item = cJSON_New_Item(0);
+    item->type = cJSON_True;
+    return item;
+}
+cJSON *cJSON_CreateFalse()
+{
+    cJSON *item = cJSON_New_Item(0);
+    item->type = cJSON_False;
+    return item;
+}
+cJSON *cJSON_CreateNumber(double num)
+{
+    cJSON *item = cJSON_New_Item(0);
+    item->type = cJSON_Number;
+    item->valuedouble = num;
+    item->valueint = (int)num;
+    return item;
+}
+cJSON *cJSON_CreateString(const char *string)
+{
+    cJSON *item = cJSON_New_Item(0);
+    item->type = cJSON_String;
+    item->valuestring = cJSON_strdup(string);
+    return item;
+}
+cJSON *cJSON_CreateArray()
+{
+    cJSON *item = cJSON_New_Item(0);
+    item->type = cJSON_Array;
+    return item;
+}
+cJSON *cJSON_CreateObject()
+{
+    cJSON *item = cJSON_New_Item(0);
+    item->type = cJSON_Object;
+    return item;
+}
+
+/* Create Arrays: */
+cJSON *cJSON_CreateIntArray(int *numbers, int count)
+{
+    int i;
+    cJSON *n = 0, *p = 0, *a = cJSON_CreateArray();
+    for (i = 0; i < count; i++) {
+        n = cJSON_CreateNumber(numbers[i]);
+        if (!i)
+            a->child = n;
+        else
+            suffix_object(p, n);
+        p = n;
+    }
+    return a;
+}
+cJSON *cJSON_CreateFloatArray(float *numbers, int count)
+{
+    int i;
+    cJSON *n = 0, *p = 0, *a = cJSON_CreateArray();
+    for (i = 0; i < count; i++) {
+        n = cJSON_CreateNumber(numbers[i]);
+        if (!i)
+            a->child = n;
+        else
+            suffix_object(p, n);
+        p = n;
+    }
+    return a;
+}
+cJSON *cJSON_CreateDoubleArray(double *numbers, int count)
+{
+    int i;
+    cJSON *n = 0, *p = 0, *a = cJSON_CreateArray();
+    for (i = 0; i < count; i++) {
+        n = cJSON_CreateNumber(numbers[i]);
+        if (!i)
+            a->child = n;
+        else
+            suffix_object(p, n);
+        p = n;
+    }
+    return a;
+}
+cJSON *cJSON_CreateStringArray(const char **strings, int count)
+{
+    int i;
+    cJSON *n = 0, *p = 0, *a = cJSON_CreateArray();
+    for (i = 0; i < count; i++) {
+        n = cJSON_CreateString(strings[i]);
+        if (!i)
+            a->child = n;
+        else
+            suffix_object(p, n);
+        p = n;
+    }
+    return a;
+}