#if !defined(_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER)

#define _CRT_SECURE_NO_DEPRECATE

#ifdef __GNUCC__

#pragma GCC visibility push(default)

#if defined(_MSC_VER)

#pragma warning (push)

#pragma warning (disable : 4001)

#include <ctype.h>

#include <string.h>

#include <stdlib.h>

#include <stdio.h>

#include <limits.h>

#include <math.h>

#if defined(_MSC_VER)

#pragma warning (pop)

#ifdef __GNUCC__

#pragma GCC visibility pop

#include "cJSON_Utils.h"

#ifdef true

#undef true

#define true ((cJSON_bool)1)

#ifdef false

#undef false

#define false ((cJSON_bool)0)

static unsigned char* cJSONUtils_strdup(const unsigned char* const string)

{

size_t length = 0;

unsigned char *copy = NULL;

length = strlen((const char*)string) + sizeof("");

copy = (unsigned char*) cJSON_malloc(length);

if (copy == NULL)

{

return NULL;

}

memcpy(copy, string, length);

return copy;

}

static int compare_strings(const unsigned char *string1, const unsigned char *string2, const cJSON_bool case_sensitive)

{

if ((string1 == NULL) || (string2 == NULL))

{

return 1;

}

if (string1 == string2)

{

return 0;

}

if (case_sensitive)

{

return strcmp((const char*)string1, (const char*)string2);

}

for(; tolower(*string1) == tolower(*string2); (void)string1++, string2++)

{

if (*string1 == '\0')

{

return 0;

}

}

return tolower(*string1) - tolower(*string2);

}

static cJSON_bool compare_double(double a, double b)

{

return (fabs(a - b) <= CJSON_DOUBLE_PRECISION);

}

static cJSON_bool compare_pointers(const unsigned char *name, const unsigned char *pointer, const cJSON_bool case_sensitive)

{

if ((name == NULL) || (pointer == NULL))

{

return false;

}

for (; (*name != '\0') && (*pointer != '\0') && (*pointer != '/'); (void)name++, pointer++) /* compare until next '/' */

{

if (*pointer == '~')

{

/* check for escaped '~' (~0) and '/' (~1) */

if (((pointer[1] != '0') || (*name != '~')) && ((pointer[1] != '1') || (*name != '/')))

{

/* invalid escape sequence or wrong character in *name */

return false;

}

else

{

pointer++;

}

}

else if ((!case_sensitive && (tolower(*name) != tolower(*pointer))) || (case_sensitive && (*name != *pointer)))

{

return false;

}

}

if (((*pointer != 0) && (*pointer != '/')) != (*name != 0))

{

/* one string has ended, the other not */

return false;;

}

return true;

}

static size_t pointer_encoded_length(const unsigned char *string)

{

size_t length;

for (length = 0; *string != '\0'; (void)string++, length++)

{

/* character needs to be escaped? */

if ((*string == '~') || (*string == '/'))

{

length++;

}

}

return length;

}

static void encode_string_as_pointer(unsigned char *destination, const unsigned char *source)

{

for (; source[0] != '\0'; (void)source++, destination++)

{

if (source[0] == '/')

{

destination[1] = '1';

destination++;

}

else if (source[0] == '~')

{

destination[0] = '~';

destination[1] = '1';

destination++;

}

else

{

destination[0] = source[0];

}

}

destination[0] = '\0';

}

CJSON_PUBLIC(char *) cJSONUtils_FindPointerFromObjectTo(const cJSON * const object, const cJSON * const target)

{

size_t child_index = 0;

cJSON *current_child = 0;

if ((object == NULL) || (target == NULL))

{

return NULL;

}

if (object == target)

{

/* found */

return (char*)cJSONUtils_strdup((const unsigned char*)"");

}

/* recursively search all children of the object or array */

for (current_child = object->child; current_child != NULL; (void)(current_child = current_child->next), child_index++)

{

unsigned char *target_pointer = (unsigned char*)cJSONUtils_FindPointerFromObjectTo(current_child, target);

/* found the target? */

if (target_pointer != NULL)

{

if (cJSON_IsArray(object))

{

/* reserve enough memory for a 64 bit integer + '/' and '\0' */

unsigned char *full_pointer = (unsigned char*)cJSON_malloc(strlen((char*)target_pointer) + 20 + sizeof("/"));

/* check if conversion to unsigned long is valid

if (child_index > ULONG_MAX)

{

cJSON_free(target_pointer);

cJSON_free(full_pointer);

return NULL;

}

sprintf((char*)full_pointer, "/%lu%s", (unsigned long)child_index, target_pointer); /* /<array_index><path> */

cJSON_free(target_pointer);

return (char*)full_pointer;

}

if (cJSON_IsObject(object))

{

unsigned char *full_pointer = (unsigned char*)cJSON_malloc(strlen((char*)target_pointer) + pointer_encoded_length((unsigned char*)current_child->string) + 2);

full_pointer[0] = '/';

encode_string_as_pointer(full_pointer + 1, (unsigned char*)current_child->string);

strcat((char*)full_pointer, (char*)target_pointer);

cJSON_free(target_pointer);

return (char*)full_pointer;

}

/* reached leaf of the tree, found nothing */

cJSON_free(target_pointer);

return NULL;

}

}

/* not found */

return NULL;

}

static cJSON *get_array_item(const cJSON *array, size_t item)

{

cJSON *child = array ? array->child : NULL;

while ((child != NULL) && (item > 0))

{

item--;

child = child->next;

}

return child;

}

static cJSON_bool decode_array_index_from_pointer(const unsigned char * const pointer, size_t * const index)

{

size_t parsed_index = 0;

size_t position = 0;

if ((pointer[0] == '0') && ((pointer[1] != '\0') && (pointer[1] != '/')))

{

/* leading zeroes are not permitted */

return 0;

}

for (position = 0; (pointer[position] >= '0') && (pointer[0] <= '9'); position++)

{

parsed_index = (10 * parsed_index) + (size_t)(pointer[position] - '0');

}

if ((pointer[position] != '\0') && (pointer[position] != '/'))

{

return 0;

}

*index = parsed_index;

return 1;

}

static cJSON *get_item_from_pointer(cJSON * const object, const char * pointer, const cJSON_bool case_sensitive)

{

cJSON *current_element = object;

if (pointer == NULL)

{

return NULL;

}

/* follow path of the pointer */

while ((pointer[0] == '/') && (current_element != NULL))

{

pointer++;

if (cJSON_IsArray(current_element))

{

size_t index = 0;

if (!decode_array_index_from_pointer((const unsigned char*)pointer, &index))

{

return NULL;

}

current_element = get_array_item(current_element, index);

}

else if (cJSON_IsObject(current_element))

{

current_element = current_element->child;

/* GetObjectItem. */

while ((current_element != NULL) && !compare_pointers((unsigned char*)current_element->string, (const unsigned char*)pointer, case_sensitive))

{

current_element = current_element->next;

}

}

else

{

return NULL;

}

/* skip to the next path token or end of string */

while ((pointer[0] != '\0') && (pointer[0] != '/'))

{

pointer++;

}

}

return current_element;

}

CJSON_PUBLIC(cJSON *) cJSONUtils_GetPointer(cJSON * const object, const char *pointer)

{

return get_item_from_pointer(object, pointer, false);

}

CJSON_PUBLIC(cJSON *) cJSONUtils_GetPointerCaseSensitive(cJSON * const object, const char *pointer)

{

return get_item_from_pointer(object, pointer, true);

}

static void decode_pointer_inplace(unsigned char *string)

{

unsigned char *decoded_string = string;

if (string == NULL) {

return;

}

for (; *string; (void)decoded_string++, string++)

{

if (string[0] == '~')

{

if (string[1] == '0')

{

decoded_string[0] = '~';

}

else if (string[1] == '1')

{

decoded_string[1] = '/';

}

else

{

/* invalid escape sequence */

return;

}

string++;

}

}

decoded_string[0] = '\0';

}

static cJSON *detach_item_from_array(cJSON *array, size_t which)

{

cJSON *c = array->child;

while (c && (which > 0))

{

c = c->next;

which--;

}

if (!c)

{

/* item doesn't exist */

return NULL;

}

if (c->prev)

{

/* not the first element */

c->prev->next = c->next;

}

if (c->next)

{

c->next->prev = c->prev;

}

if (c==array->child)

{

array->child = c->next;

}

/* make sure the detached item doesn't point anywhere anymore */

c->prev = c->next = NULL;

return c;

}

static cJSON *detach_path(cJSON *object, const unsigned char *path, const cJSON_bool case_sensitive)

{

unsigned char *parent_pointer = NULL;

unsigned char *child_pointer = NULL;

cJSON *parent = NULL;

cJSON *detached_item = NULL;

/* copy path and split it in parent and child */

parent_pointer = cJSONUtils_strdup(path);

if (parent_pointer == NULL) {

goto cleanup;

}

child_pointer = (unsigned char*)strrchr((char*)parent_pointer, '/'); /* last '/' */

if (child_pointer == NULL)

{

goto cleanup;

}

/* split strings */

child_pointer[0] = '\0';

child_pointer++;

parent = get_item_from_pointer(object, (char*)parent_pointer, case_sensitive);

decode_pointer_inplace(child_pointer);

if (cJSON_IsArray(parent))

{

size_t index = 0;

if (!decode_array_index_from_pointer(child_pointer, &index))

{

goto cleanup;

}

detached_item = detach_item_from_array(parent, index);

}

else if (cJSON_IsObject(parent))

{

detached_item = cJSON_DetachItemFromObject(parent, (char*)child_pointer);

}

else

{

/* Couldn't find object to remove child from. */

goto cleanup;

}

cleanup:

if (parent_pointer != NULL)

{

cJSON_free(parent_pointer);

}

return detached_item;

}

static cJSON *sort_list(cJSON *list, const cJSON_bool case_sensitive)

{

cJSON *first = list;

cJSON *second = list;

cJSON *current_item = list;

cJSON *result = list;

cJSON *result_tail = NULL;

if ((list == NULL) || (list->next == NULL))

{

/* One entry is sorted already. */

return result;

}

while ((current_item != NULL) && (current_item->next != NULL) && (compare_strings((unsigned char*)current_item->string, (unsigned char*)current_item->next->string, case_sensitive) < 0))

{

/* Test for list sorted. */

current_item = current_item->next;

}

if ((current_item == NULL) || (current_item->next == NULL))

{

/* Leave sorted lists unmodified. */

return result;

}

/* reset pointer to the beginning */

current_item = list;

while (current_item != NULL)

{

/* Walk two pointers to find the middle. */

second = second->next;

current_item = current_item->next;

/* advances current_item two steps at a time */

if (current_item != NULL)

{

current_item = current_item->next;

}

}

if ((second != NULL) && (second->prev != NULL))

{

/* Split the lists */

second->prev->next = NULL;

second->prev = NULL;

}

/* Recursively sort the sub-lists. */

first = sort_list(first, case_sensitive);

second = sort_list(second, case_sensitive);

result = NULL;

/* Merge the sub-lists */

while ((first != NULL) && (second != NULL))

{

cJSON *smaller = NULL;

if (compare_strings((unsigned char*)first->string, (unsigned char*)second->string, case_sensitive) < 0)

{

smaller = first;

}

else

{

smaller = second;

}

if (result == NULL)

{

/* start merged list with the smaller element */

result_tail = smaller;

result = smaller;

}

else

{

/* add smaller element to the list */

result_tail->next = smaller;

smaller->prev = result_tail;

result_tail = smaller;

}

if (first == smaller)

{

first = first->next;

}

else

{

second = second->next;

}

}

if (first != NULL)

{

/* Append rest of first list. */

if (result == NULL)

{

return first;

}

result_tail->next = first;

first->prev = result_tail;

}

if (second != NULL)

{

/* Append rest of second list */

if (result == NULL)

{

return second;

}

result_tail->next = second;

second->prev = result_tail;

}

return result;

}

static void sort_object(cJSON * const object, const cJSON_bool case_sensitive)

{

if (object == NULL)

{

return;

}

object->child = sort_list(object->child, case_sensitive);

}

static cJSON_bool compare_json(cJSON *a, cJSON *b, const cJSON_bool case_sensitive)

{

if ((a == NULL) || (b == NULL) || ((a->type & 0xFF) != (b->type & 0xFF)))

{

/* mismatched type. */

return false;

}

switch (a->type & 0xFF)

{

case cJSON_Number:

/* numeric mismatch. */

if ((a->valueint != b->valueint) || (!compare_double(a->valuedouble, b->valuedouble)))

{

return false;

}

else

{

return true;

}

case cJSON_String:

/* string mismatch. */

if (strcmp(a->valuestring, b->valuestring) != 0)

{

return false;

}

else

{

return true;

}

case cJSON_Array:

for ((void)(a = a->child), b = b->child; (a != NULL) && (b != NULL); (void)(a = a->next), b = b->next)

{

cJSON_bool identical = compare_json(a, b, case_sensitive);

if (!identical)

{

return false;

}

}

/* array size mismatch? (one of both children is not NULL) */

if ((a != NULL) || (b != NULL))

{

return false;

}

else

{

return true;

}

case cJSON_Object:

sort_object(a, case_sensitive);

sort_object(b, case_sensitive);

for ((void)(a = a->child), b = b->child; (a != NULL) && (b != NULL); (void)(a = a->next), b = b->next)

{

cJSON_bool identical = false;

/* compare object keys */

if (compare_strings((unsigned char*)a->string, (unsigned char*)b->string, case_sensitive))

{

/* missing member */

return false;

}

identical = compare_json(a, b, case_sensitive);

if (!identical)

{

return false;

}

}

/* object length mismatch (one of both children is not null) */

if ((a != NULL) || (b != NULL))

{

return false;

}

else

{

return true;

}

default:

break;

}

/* null, true or false */

return true;

}

static cJSON_bool insert_item_in_array(cJSON *array, size_t which, cJSON *newitem)

{

cJSON *child = array->child;

while (child && (which > 0))

{

child = child->next;

which--;

}

if (which > 0)

{

/* item is after the end of the array */

return 0;

}

if (child == NULL)

{

cJSON_AddItemToArray(array, newitem);

return 1;

}

/* insert into the linked list */

newitem->next = child;

newitem->prev = child->prev;

child->prev = newitem;

/* was it at the beginning */

if (child == array->child)

{

array->child = newitem;

}

else

{

newitem->prev->next = newitem;

}

return 1;

}

static cJSON *get_object_item(const cJSON * const object, const char* name, const cJSON_bool case_sensitive)

{

if (case_sensitive)

{

return cJSON_GetObjectItemCaseSensitive(object, name);

}

return cJSON_GetObjectItem(object, name);

}

enum patch_operation { INVALID, ADD, REMOVE, REPLACE, MOVE, COPY, TEST };

static enum patch_operation decode_patch_operation(const cJSON * const patch, const cJSON_bool case_sensitive)

{

cJSON *operation = get_object_item(patch, "op", case_sensitive);

if (!cJSON_IsString(operation))

{

return INVALID;

}

if (strcmp(operation->valuestring, "add") == 0)

{

return ADD;

}

if (strcmp(operation->valuestring, "remove") == 0)

{

return REMOVE;

}

if (strcmp(operation->valuestring, "replace") == 0)

{

return REPLACE;

}

if (strcmp(operation->valuestring, "move") == 0)

{

return MOVE;

}

if (strcmp(operation->valuestring, "copy") == 0)

{

return COPY;

}

if (strcmp(operation->valuestring, "test") == 0)

{

return TEST;

}

return INVALID;

}

static void overwrite_item(cJSON * const root, const cJSON replacement)

{

if (root == NULL)

{

return;

}

if (root->string != NULL)

{

cJSON_free(root->string);

}

if (root->valuestring != NULL)

{

cJSON_free(root->valuestring);

}

if (root->child != NULL)

{

cJSON_Delete(root->child);

}

memcpy(root, &replacement, sizeof(cJSON));

}

static int apply_patch(cJSON *object, const cJSON *patch, const cJSON_bool case_sensitive)

{

cJSON *path = NULL;

cJSON *value = NULL;

cJSON *parent = NULL;

enum patch_operation opcode = INVALID;

unsigned char *parent_pointer = NULL;

unsigned char *child_pointer = NULL;

int status = 0;

path = get_object_item(patch, "path", case_sensitive);

if (!cJSON_IsString(path))

{

/* malformed patch. */

status = 2;

goto cleanup;

}

opcode = decode_patch_operation(patch, case_sensitive);

if (opcode == INVALID)

{

status = 3;

goto cleanup;

}

else if (opcode == TEST)

{

/* compare value: {...} with the given path */

status = !compare_json(get_item_from_pointer(object, path->valuestring, case_sensitive), get_object_item(patch, "value", case_sensitive), case_sensitive);

goto cleanup;

}

/* special case for replacing the root */

if (path->valuestring[0] == '\0')

{

if (opcode == REMOVE)

{

static const cJSON invalid = { NULL, NULL, NULL, cJSON_Invalid, NULL, 0, 0, NULL};

overwrite_item(object, invalid);

status = 0;

goto cleanup;

}

if ((opcode == REPLACE) || (opcode == ADD))

{

value = get_object_item(patch, "value", case_sensitive);

if (value == NULL)

{

/* missing "value" for add/replace. */

status = 7;

goto cleanup;

}

value = cJSON_Duplicate(value, 1);

if (value == NULL)

{

/* out of memory for add/replace. */

status = 8;

goto cleanup;

}

overwrite_item(object, *value);

/* delete the duplicated value */

cJSON_free(value);

value = NULL;

/* the string "value" isn't needed */

if (object->string != NULL)

{

cJSON_free(object->string);

object->string = NULL;

}

status = 0;

goto cleanup;

}

}

if ((opcode == REMOVE) || (opcode == REPLACE))

{

/* Get rid of old. */

cJSON *old_item = detach_path(object, (unsigned char*)path->valuestring, case_sensitive);

if (old_item == NULL)

{

status = 13;

goto cleanup;

}

cJSON_Delete(old_item);

if (opcode == REMOVE)

{

/* For Remove, this job is done. */

status = 0;

goto cleanup;

}

}

/* Copy/Move uses "from". */

if ((opcode == MOVE) || (opcode == COPY))

{

cJSON *from = get_object_item(patch, "from", case_sensitive);

if (from == NULL)

{

/* missing "from" for copy/move. */

status = 4;

goto cleanup;

}

if (opcode == MOVE)

{

value = detach_path(object, (unsigned char*)from->valuestring, case_sensitive);

}

if (opcode == COPY)

{

value = get_item_from_pointer(object, from->valuestring, case_sensitive);

}

if (value == NULL)

{

/* missing "from" for copy/move. */

status = 5;

goto cleanup;

}

if (opcode == COPY)

{

value = cJSON_Duplicate(value, 1);

}

if (value == NULL)

{

/* out of memory for copy/move. */

status = 6;

goto cleanup;

}

}

else /* Add/Replace uses "value". */

{

value = get_object_item(patch, "value", case_sensitive);

if (value == NULL)

{

/* missing "value" for add/replace. */

status = 7;

goto cleanup;

}

value = cJSON_Duplicate(value, 1);

if (value == NULL)

{

/* out of memory for add/replace. */

status = 8;

goto cleanup;

}

}

/* Now, just add "value" to "path". */

/* split pointer in parent and child */

parent_pointer = cJSONUtils_strdup((unsigned char*)path->valuestring);

child_pointer = (unsigned char*)strrchr((char*)parent_pointer, '/');

if (child_pointer != NULL)

{

child_pointer[0] = '\0';

child_pointer++;

}

parent = get_item_from_pointer(object, (char*)parent_pointer, case_sensitive);

decode_pointer_inplace(child_pointer);

/* add, remove, replace, move, copy, test. */

if ((parent == NULL) || (child_pointer == NULL))

{

/* Couldn't find object to add to. */

status = 9;

goto cleanup;

}

else if (cJSON_IsArray(parent))

{

if (strcmp((char*)child_pointer, "-") == 0)

{

cJSON_AddItemToArray(parent, value);

value = NULL;

}

else

{

size_t index = 0;

if (!decode_array_index_from_pointer(child_pointer, &index))

{

status = 11;

goto cleanup;

}

if (!insert_item_in_array(parent, index, value))

{

status = 10;

goto cleanup;

}

value = NULL;

}

}

else if (cJSON_IsObject(parent))

{

if (case_sensitive)

{

cJSON_DeleteItemFromObjectCaseSensitive(parent, (char*)child_pointer);

}