GpgFrontend/gpgme
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
44cedf9796
gpgme/src/cJSON.c
Werner Koch f56c996318
json: Print "nan", "-inf", "inf" if needed. 
* src/cJSON.c (print_number): Print NaN and INF.
--

GnuPG-bug-id: 4328
Signed-off-by: Werner Koch <wk@gnupg.org>
2019-06-04 10:56:48 +02:00

1523 lines
33 KiB
C
Raw Blame History

/* cJSON.c - JSON parser in C.
* 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.
*
* SPDX-License-Identifier: MIT
*
* Note that this code has been modified from the original code taken
* from cjson-code-58.zip before 2014 (my first local commit was in
* 2014 but I may used the code even earlier). Since 2016 the project
* was revived and moved to https://github.com/DaveGamble/cJSON.git.
* It is now a lot more complex and has substantial changes so that it
* is not possible to merge them directly. In any case we only need a
* simple parser and not a complete library. I have looked through
* the commits and fixed a few things which should apply; I also added
* a few references to the upstream code. Regression test are missing!
*/
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <string.h>
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <stdint.h>
#include <float.h>
#include <limits.h>
#include <ctype.h>
#include <errno.h>
#include <gpg-error.h>
#include "cJSON.h"
/* Only use calloc. */
#define CALLOC_ONLY 1
/* Maximum recursion depth */
#define MAX_DEPTH 512
/* To avoid that a compiler optimizes certain memset calls away, these
macros may be used instead. */
#define wipememory2(_ptr,_set,_len) do { \
volatile char *_vptr=(volatile char *)(_ptr); \
size_t _vlen=(_len); \
while(_vlen) { *_vptr=(_set); _vptr++; _vlen--; } \
} while(0)
#define wipememory(_ptr,_len) wipememory2(_ptr,0,_len)
/* We use malloc function wrappers from gpgrt (aka libgpg-error). */
#if GPGRT_VERSION_NUMBER >= 0x011c00 /* 1.28 */
# include <gpgrt.h>
# define xtrycalloc(a,b) gpgrt_calloc ((a), (b))
# define xtrystrdup(a) gpgrt_strdup ((a))
# define xfree(a) gpgrt_free ((a))
# if CALLOC_ONLY
# define xtrymalloc(a) gpgrt_calloc (1, (a))
# else
# define xtrymalloc(a) gpgrt_malloc ((a))
# endif
#else /* Without gpgrt (aka libgpg-error). */
# define xtrycalloc(a,b) calloc ((a), (b))
# define xtrystrdup(a) strdup ((a))
# define xfree(a) free ((a))
# if CALLOC_ONLY
# define xtrymalloc(a) calloc (1, (a))
# else
# define xtrymalloc(a) malloc ((a))
# endif
#endif
static int
cJSON_strcasecmp (const char *s1, const char *s2)
{
if (!s1)
return (s1 == s2) ? 0 : 1;
if (!s2)
return 1;
for (; tolower (*(const unsigned char *)s1)
== tolower (*(const unsigned char *) s2); ++s1, ++s2)
if (*s1 == 0)
return 0;
return tolower (*(const unsigned char *) s1) -
tolower (*(const unsigned char *) s2);
}
/* Internal constructor. */
static cJSON *
cJSON_New_Item (void)
{
return xtrycalloc (1, sizeof (cJSON));
}
/* Delete a cJSON structure. (Does not clobber ERRNO). */
void
cJSON_Delete (cJSON * c)
{
cJSON *next;
int save_errno;
if (!c)
return;
save_errno = errno;
while (c)
{
next = c->next;
if (!(c->type & cJSON_IsReference) && c->child)
cJSON_Delete (c->child);
if (!(c->type & cJSON_IsReference) && c->valuestring)
{
wipememory (c->valuestring, strlen (c->valuestring));
xfree (c->valuestring);
}
if (c->string)
{
wipememory (c->string, strlen (c->string));
xfree (c->string);
}
xfree (c);
c = next;
}
errno = save_errno;
}
/* Parse the input text to generate a number, and populate the result
* into item. */
static const char *
parse_number (cJSON * item, const char *num)
{
int subscale = 0;
int signsubscale = 1;
double n = 0;
double sign = 1;
double scale = 0;
double dblmin = INT32_MIN;
double dblmax = INT32_MAX;
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[1] >= '0' && num[1] <= '9')
{
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 == '-') /* With sign? */
signsubscale = -1, num++;
while (*num >= '0' && *num <= '9')
{
if ((10 * (double)subscale) > dblmax)
break;
subscale = (subscale * 10) + (*num++ - '0');
}
}
/* number = +/- number.fraction * 10^+/- exponent */
n = sign * n * pow (10.0, (scale + subscale * signsubscale));
/* For NAN set both parts to 0. For out of range values let the
* integer part be 0. */
if (isnan (n) || isinf (n))
{
item->valuedouble = 0;
item->valueint = 0;
}
else if (n > dblmax || n < dblmin)
{
item->valuedouble = n;
item->valueint = 0;
}
else
{
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;
int i;
if (fabs (((double) item->valueint) - d) <= DBL_EPSILON && d <= INT_MAX
&& d >= INT_MIN)
{
/* 2^64+1 can be represented in 21 chars. */
str = xtrymalloc (21);
if (str)
sprintf (str, "%d", item->valueint);
}
else
{
str = xtrymalloc (64); /* This is a nice tradeoff. */
if (str)
{
if (isnan (d))
strcpy (str, "nan");
else if ((i = isinf (d)))
strcpy (str, i > 0? "inf" : ":-inf");
else if (fabs (floor (d) - d) <= DBL_EPSILON && fabs (d) < 1.0e60)
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;
}
static unsigned
parse_hex4 (const char *str)
{
unsigned h = 0;
if (*str >= '0' && *str <= '9')
h += (*str) - '0';
else if (*str >= 'A' && *str <= 'F')
h += 10 + (*str) - 'A';
else if (*str >= 'a' && *str <= 'f')
h += 10 + (*str) - 'a';
else
return 0;
h = h << 4;
str++;
if (*str >= '0' && *str <= '9')
h += (*str) - '0';
else if (*str >= 'A' && *str <= 'F')
h += 10 + (*str) - 'A';
else if (*str >= 'a' && *str <= 'f')
h += 10 + (*str) - 'a';
else
return 0;
h = h << 4;
str++;
if (*str >= '0' && *str <= '9')
h += (*str) - '0';
else if (*str >= 'A' && *str <= 'F')
h += 10 + (*str) - 'A';
else if (*str >= 'a' && *str <= 'f')
h += 10 + (*str) - 'a';
else
return 0;
h = h << 4;
str++;
if (*str >= '0' && *str <= '9')
h += (*str) - '0';
else if (*str >= 'A' && *str <= 'F')
h += 10 + (*str) - 'A';
else if (*str >= 'a' && *str <= 'f')
h += 10 + (*str) - 'a';
else
return 0;
return h;
}
/* 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 **ep)
{
const char *ptr = str + 1;
char *ptr2;
char *out;
int len = 0;
unsigned uc, uc2;
/* FIXME: We should consider eary failure like it is done with
* commit 8656386c4f4a12f1cf3d6b26158407fd05e65029 in upstream. */
if (*str != '\"')
{
*ep = str;
return 0;
} /* not a string! */
while (*ptr != '\"' && *ptr && ++len)
if (*ptr++ == '\\' && *ptr)
ptr++; /* Skip escaped quotes. */
out = xtrymalloc (len + 2); /* This is how long we need for the
* string, roughly. We add one extra
* byte in case the last input
* character is a backslash. */
if (!out)
return 0;
ptr = str + 1;
ptr2 = out;
while (*ptr != '\"' && *ptr)
{
if (*ptr != '\\')
*ptr2++ = *ptr++;
else
{
ptr++;
if (!*ptr)
break;
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. */
uc = parse_hex4 (ptr + 1);
if (!uc)
break; /* Bad hex; continue right after the 'u'. */
ptr += 4; /* get the unicode char. */
if ((uc >= 0xDC00 && uc <= 0xDFFF))
break; /* check for invalid. */
if (uc >= 0xD800 && uc <= 0xDBFF) /* UTF16 surrogate pairs. */
{
if (ptr[1] != '\\' || ptr[2] != 'u')
break; /* missing second-half of surrogate. */
ptr += 2;
uc2 = parse_hex4 (ptr + 1);
if (!uc2)
break; /* Bad hex; continue right after the 'u'. */
ptr += 4;
if (uc2 < 0xDC00 || uc2 > 0xDFFF)
break; /* invalid second-half of surrogate. */
uc = 0x10000 + (((uc & 0x3FF) << 10) | (uc2 & 0x3FF));
}
len = 4;
if (uc < 0x80)
len = 1;
else if (uc < 0x800)
len = 2;
else if (uc < 0x10000)
len = 3;
ptr2 += len;
switch (len)
{
case 4:
*--ptr2 = ((uc | 0x80) & 0xBF);
uc >>= 6;
/*FALLTHRU*/
case 3:
*--ptr2 = ((uc | 0x80) & 0xBF);
uc >>= 6;
/*FALLTHRU*/
case 2:
*--ptr2 = ((uc | 0x80) & 0xBF);
uc >>= 6;
/*FALLTHRU*/
case 1:
*--ptr2 = (uc | firstByteMark[len]);
}
ptr2 += len;
break;
default:
/* Fixme: Should we fail here: See
* https://github.com/DaveGamble/cJSON/issues/10 */
*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;
unsigned char token;
if (!str)
return xtrystrdup ("");
ptr = str;
while ((token = *ptr) && ++len)
{
if (strchr ("\"\\\b\f\n\r\t", token))
len++;
else if (token < 32)
len += 5;
ptr++;
}
out = xtrymalloc (len + 3);
if (!out)
return 0;
ptr2 = out;
ptr = str;
*ptr2++ = '\"';
while (*ptr)
{
if ((unsigned char) *ptr > 31 && *ptr != '\"' && *ptr != '\\')
*ptr2++ = *ptr++;
else
{
*ptr2++ = '\\';
switch (token = *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:
sprintf (ptr2, "u%04x", token);
ptr2 += 5;
break; /* escape and print */
}
}
}
*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,
const char **ep, size_t depth);
static char *print_value (cJSON * item, int depth, int fmt);
static const char *parse_array (cJSON * item, const char *value,
const char **ep, size_t depth);
static char *print_array (cJSON * item, int depth, int fmt);
static const char *parse_object (cJSON * item, const char *value,
const char **ep, size_t depth);
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_ParseWithOpts (const char *value, const char **return_parse_end,
int require_null_terminated, size_t *r_erroff)
{
const char *end = 0;
const char *ep = 0;
cJSON *c;
if (r_erroff)
*r_erroff = 0;
c = cJSON_New_Item ();
if (!c)
return NULL; /* memory fail */
end = parse_value (c, skip (value), &ep, 0);
if (!end)
{
cJSON_Delete (c);
errno = EINVAL;
if (r_erroff)
*r_erroff = ep - value;
return 0;
} /* parse failure. ep is set. */
/* if we require null-terminated JSON without appended garbage, skip
and then check for a null terminator */
if (require_null_terminated)
{
end = skip (end);
if (*end)
{
cJSON_Delete (c);
ep = end;
errno = EINVAL;
if (r_erroff)
*r_erroff = ep - value;
return 0;
}
}
if (return_parse_end)
*return_parse_end = end;
return c;
}
/* Default options for cJSON_Parse */
cJSON *
cJSON_Parse (const char *value, size_t *r_erroff)
{
return cJSON_ParseWithOpts (value, 0, 0, r_erroff);
}
/* 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, const char **ep,
size_t depth)
{
if (depth > MAX_DEPTH)
{
*ep = value;
return 0;
}
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, ep);
}
if (*value == '-' || (*value >= '0' && *value <= '9'))
{
return parse_number (item, value);
}
if (*value == '[')
{
return parse_array (item, value, ep, depth + 1);
}
if (*value == '{')
{
return parse_object (item, value, ep, depth + 1);
}
*ep = 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 = xtrystrdup ("null");
break;
case cJSON_False:
out = xtrystrdup ("false");
break;
case cJSON_True:
out = xtrystrdup ("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, const char **ep,
size_t depth)
{
cJSON *child;
if (depth > MAX_DEPTH)
{
*ep = value;
return 0;
}
if (*value != '[')
{
*ep = 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 ();
if (!item->child)
return 0; /* memory fail */
/* skip any spacing, get the value. */
value = skip (parse_value (child, skip (value), ep,
depth + 1));
if (!value)
return 0;
while (*value == ',')
{
cJSON *new_item;
if (!(new_item = cJSON_New_Item ()))
return 0; /* memory fail */
child->next = new_item;
new_item->prev = child;
child = new_item;
value = skip (parse_value (child, skip (value + 1), ep,
depth + 1));
if (!value)
return 0; /* memory fail */
}
if (*value == ']')
return value + 1; /* end of array */
*ep = value;
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;
int 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;
/* Explicitly handle numentries==0 */
if (!numentries)
{
out = xtrymalloc (3);
if (out)
strcpy (out, "[]");
return out;
}
/* Allocate an array to hold the values for each */
entries = xtrymalloc (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 xtrymalloc the output string */
if (!fail)
out = xtrymalloc (len);
/* If that fails, we fail. */
if (!out)
fail = 1;
/* Handle failure. */
if (fail)
{
for (i = 0; i < numentries; i++)
if (entries[i])
xfree (entries[i]);
xfree (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;
}
xfree (entries[i]);
}
xfree (entries);
*ptr++ = ']';
*ptr++ = 0;
return out;
}
/* Build an object from the text. */
static const char *
parse_object (cJSON * item, const char *value, const char **ep,
size_t depth)
{
cJSON *child;
if (depth > MAX_DEPTH)
{
*ep = value;
return 0;
}
if (*value != '{')
{
*ep = 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 ();
if (!item->child)
return 0;
value = skip (parse_string (child, skip (value), ep));
if (!value)
return 0;
child->string = child->valuestring;
child->valuestring = 0;
if (*value != ':')
{
*ep = value;
return 0;
} /* fail! */
/* skip any spacing, get the value. */
value = skip (parse_value (child, skip (value + 1), ep,
depth + 1));
if (!value)
return 0;
while (*value == ',')
{
cJSON *new_item;
if (!(new_item = cJSON_New_Item ()))
return 0; /* memory fail */
child->next = new_item;
new_item->prev = child;
child = new_item;
value = skip (parse_string (child, skip (value + 1), ep));
if (!value)
return 0;
child->string = child->valuestring;
child->valuestring = 0;
if (*value != ':')
{
*ep = value;
return 0;
} /* fail! */
/* skip any spacing, get the value. */
value = skip (parse_value (child, skip (value + 1), ep, depth + 1));
if (!value)
return 0;
}
if (*value == '}')
return value + 1; /* end of array */
*ep = value;
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;
int len = 7, i = 0, j;
cJSON *child = item->child;
int numentries = 0, fail = 0;
/* Count the number of entries. */
while (child)
numentries++, child = child->next;
/* Explicitly handle empty object case */
if (!numentries)
{
out = xtrymalloc (fmt ? depth + 4 : 3);
if (!out)
return 0;
ptr = out;
*ptr++ = '{';
if (fmt)
{
*ptr++ = '\n';
for (i = 0; i < depth - 1; i++)
*ptr++ = '\t';
}
*ptr++ = '}';
*ptr++ = 0;
return out;
}
/* Allocate space for the names and the objects */
entries = xtrymalloc (numentries * sizeof (char *));
if (!entries)
return 0;
names = xtrymalloc (numentries * sizeof (char *));
if (!names)
{
xfree (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 = xtrymalloc (len);
if (!out)
fail = 1;
/* Handle failure */
if (fail)
{
for (i = 0; i < numentries; i++)
{
if (names[i])
xfree (names[i]);
if (entries[i])
xfree (entries[i]);
}
xfree (names);
xfree (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;
xfree (names[i]);
xfree (entries[i]);
}
xfree (names);
xfree (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 ();
if (!ref)
return 0;
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;
if (!item || !array)
return;
c = array->child;
if (!c)
{
array->child = item;
}
else
{
while (c && c->next)
c = c->next;
suffix_object (c, item);
}
}
cJSON *
cJSON_AddItemToObject (cJSON * object, const char *string, cJSON * item)
{
char *tmp;
if (!item)
return 0;
tmp = xtrystrdup (string);
if (!tmp)
return NULL;
if (item->string)
xfree (item->string);
item->string = tmp;
cJSON_AddItemToArray (object, item);
return object;
}
cJSON *
cJSON_AddNullToObject (cJSON *object, const char *name)
{
cJSON *obj, *tmp;
tmp = cJSON_CreateNull ();
if (!tmp)
return NULL;
obj = cJSON_AddItemToObject(object, name, tmp);
if (!obj)
cJSON_Delete (tmp);
return obj;
}
cJSON *
cJSON_AddTrueToObject (cJSON *object, const char *name)
{
cJSON *obj, *tmp;
tmp = cJSON_CreateTrue ();
if (!tmp)
return NULL;
obj = cJSON_AddItemToObject(object, name, tmp);
if (!obj)
cJSON_Delete (tmp);
return obj;
}
cJSON *
cJSON_AddFalseToObject (cJSON *object, const char *name)
{
cJSON *obj, *tmp;
tmp = cJSON_CreateFalse ();
if (!tmp)
return NULL;
obj = cJSON_AddItemToObject(object, name, tmp);
if (!obj)
cJSON_Delete (tmp);
return obj;
}
cJSON *
cJSON_AddBoolToObject (cJSON *object, const char *name, int b)
{
cJSON *obj, *tmp;
tmp = cJSON_CreateBool (b);
if (!tmp)
return NULL;
obj = cJSON_AddItemToObject(object, name, tmp);
if (!obj)
cJSON_Delete (tmp);
return obj;
}
cJSON *
cJSON_AddNumberToObject (cJSON *object, const char *name, double num)
{
cJSON *obj, *tmp;
tmp = cJSON_CreateNumber (num);
if (!tmp)
return NULL;
obj = cJSON_AddItemToObject(object, name, tmp);
if (!obj)
cJSON_Delete (tmp);
return obj;
}
cJSON *
cJSON_AddStringToObject (cJSON *object, const char *name, const char *string)
{
cJSON *obj, *tmp;
tmp = cJSON_CreateString (string);
if (!tmp)
return NULL;
obj = cJSON_AddItemToObject(object, name, tmp);
if (!obj)
cJSON_Delete (tmp);
return obj;
}
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)
{
/* FIXME: I guess we should free newitem->string here. See
* upstream commit 0d10e279c8b604f71829b5d49d092719f4ae96b6. */
newitem->string = xtrystrdup (string);
cJSON_ReplaceItemInArray (object, i, newitem);
}
}
/* Create basic types: */
cJSON *
cJSON_CreateNull (void)
{
cJSON *item = cJSON_New_Item ();
if (item)
item->type = cJSON_NULL;
return item;
}
cJSON *
cJSON_CreateTrue (void)
{
cJSON *item = cJSON_New_Item ();
if (item)
item->type = cJSON_True;
return item;
}
cJSON *
cJSON_CreateFalse (void)
{
cJSON *item = cJSON_New_Item ();
if (item)
item->type = cJSON_False;
return item;
}
cJSON *
cJSON_CreateBool (int b)
{
cJSON *item = cJSON_New_Item ();
if (item)
item->type = b ? cJSON_True : cJSON_False;
return item;
}
cJSON *
cJSON_CreateNumber (double num)
{
cJSON *item = cJSON_New_Item ();
if (item)
{
item->type = cJSON_Number;
item->valuedouble = num;
item->valueint = (int) num;
}
return item;
}
cJSON *
cJSON_CreateString (const char *string)
{
cJSON *item = cJSON_New_Item ();
if (item)
{
item->type = cJSON_String;
item->valuestring = xtrystrdup (string);
}
return item;
}
cJSON *
cJSON_CreateStringConvey (char *string)
{
cJSON *item = cJSON_New_Item ();
if (item)
{
item->type = cJSON_String;
item->valuestring = string;
}
return item;
}
cJSON *
cJSON_CreateArray (void)
{
cJSON *item = cJSON_New_Item ();
if (item)
item->type = cJSON_Array;
return item;
}
cJSON *
cJSON_CreateObject (void)
{
cJSON *item = cJSON_New_Item ();
if (item)
item->type = cJSON_Object;
return item;
}
/* Create Arrays: */
cJSON *
cJSON_CreateIntArray (const int *numbers, int count)
{
int i;
cJSON *n = 0, *p = 0, *a = cJSON_CreateArray ();
for (i = 0; a && 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 (const float *numbers, int count)
{
int i;
cJSON *n = 0, *p = 0, *a = cJSON_CreateArray ();
for (i = 0; a && 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 (const double *numbers, int count)
{
int i;
cJSON *n = 0, *p = 0, *a = cJSON_CreateArray ();
for (i = 0; a && 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; a && i < count; i++)
{
n = cJSON_CreateString (strings[i]);
if (!i)
a->child = n;
else
suffix_object (p, n);
p = n;
}
return a;
}
/* Duplication */
cJSON *
cJSON_Duplicate (cJSON * item, int recurse)
{
cJSON *newitem, *cptr, *nptr = 0, *newchild;
/* Bail on bad ptr */
if (!item)
return 0;
/* Create new item */
newitem = cJSON_New_Item ();
if (!newitem)
return 0;
/* Copy over all vars */
newitem->type = item->type & (~cJSON_IsReference), newitem->valueint =
item->valueint, newitem->valuedouble = item->valuedouble;
if (item->valuestring)
{
newitem->valuestring = xtrystrdup (item->valuestring);
if (!newitem->valuestring)
{
cJSON_Delete (newitem);
return 0;
}
}
if (item->string)
{
newitem->string = xtrystrdup (item->string);
if (!newitem->string)
{
cJSON_Delete (newitem);
return 0;
}
}
/* If non-recursive, then we're done! */
if (!recurse)
return newitem;
/* Walk the ->next chain for the child. */
cptr = item->child;
while (cptr)
{
/* Duplicate (with recurse) each item in the ->next chain */
newchild = cJSON_Duplicate (cptr, 1);
if (!newchild)
{
cJSON_Delete (newitem);
return 0;
}
if (nptr)
{
/* If newitem->child already set,
* then crosswire ->prev and ->next and move on. */
nptr->next = newchild, newchild->prev = nptr;
nptr = newchild;
}
else
{
/* Set newitem->child and move to it. */
newitem->child = newchild;
nptr = newchild;
}
cptr = cptr->next;
}
return newitem;
}
void
cJSON_Minify (char *json)
{
char *into = json;
while (*json)
{
if (*json == ' ')
json++;
else if (*json == '\t')
json++; /* Whitespace characters. */
else if (*json == '\r')
json++;
else if (*json == '\n')
json++;
else if (*json == '/' && json[1] == '/')
while (*json && *json != '\n')
json++; /* Double-slash comments, to end of line. */
else if (*json == '/' && json[1] == '*')
{
while (*json && !(*json == '*' && json[1] == '/'))
json++;
json += 2;
} /* Multiline comments. */
else if (*json == '\"')
{
*into++ = *json++;
while (*json && *json != '\"')
{
if (*json == '\\')
*into++ = *json++;
if (*json)
*into++ = *json++;
}
if (*json)
*into++ = *json++;
} /* String literals, which are \" sensitive. */
else
*into++ = *json++; /* All other characters. */
}
*into = 0; /* and null-terminate. */
}
Reference in New Issue View Git Blame Copy Permalink