cJSON_Utils.c 25.8 KB
Newer Older
M
Max Bruckner 已提交
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
/*
  Copyright (c) 2009-2017 Dave Gamble and cJSON contributors

  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.
*/

23
#pragma GCC visibility push(default)
24
#include <ctype.h>
25 26
#include <string.h>
#include <stdlib.h>
27
#include <stdio.h>
M
Max Bruckner 已提交
28
#include <limits.h>
29
#pragma GCC visibility pop
M
Max Bruckner 已提交
30

31 32
#include "cJSON_Utils.h"

33
static unsigned char* cJSONUtils_strdup(const unsigned char* str)
34
{
M
Max Bruckner 已提交
35
    size_t len = 0;
36
    unsigned char *copy = NULL;
37

38 39
    len = strlen((const char*)str) + 1;
    if (!(copy = (unsigned char*)malloc(len)))
40
    {
41
        return NULL;
42 43 44 45 46 47
    }
    memcpy(copy, str, len);

    return copy;
}

48
static int cJSONUtils_strcasecmp(const unsigned char *s1, const unsigned char *s2)
49
{
M
Max Bruckner 已提交
50 51 52 53 54 55 56 57
    if (!s1)
    {
        return (s1 == s2) ? 0 : 1; /* both NULL? */
    }
    if (!s2)
    {
        return 1;
    }
M
Max Bruckner 已提交
58
    for(; tolower(*s1) == tolower(*s2); (void)++s1, ++s2)
M
Max Bruckner 已提交
59 60 61 62 63 64 65
    {
        if(*s1 == 0)
        {
            return 0;
        }
    }

66
    return tolower(*s1) - tolower(*s2);
67 68
}

69
/* JSON Pointer implementation: */
70
static int cJSONUtils_Pstrcasecmp(const unsigned char *a, const unsigned char *e)
71
{
72 73 74 75
    if (!a || !e)
    {
        return (a == e) ? 0 : 1; /* both NULL? */
    }
M
Max Bruckner 已提交
76
    for (; *a && *e && (*e != '/'); (void)a++, e++) /* compare until next '/' */
77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
    {
        if (*e == '~')
        {
            /* check for escaped '~' (~0) and '/' (~1) */
            if (!((e[1] == '0') && (*a == '~')) && !((e[1] == '1') && (*a == '/')))
            {
                /* invalid escape sequence or wrong character in *a */
                return 1;
            }
            else
            {
                e++;
            }
        }
        else if (tolower(*a) != tolower(*e))
        {
            return 1;
        }
    }
    if (((*e != 0) && (*e != '/')) != (*a != 0))
    {
        /* one string has ended, the other not */
        return 1;
    }

    return 0;
103 104
}

105
static size_t cJSONUtils_PointerEncodedstrlen(const unsigned char *s)
106
{
107
    size_t l = 0;
M
Max Bruckner 已提交
108
    for (; *s; (void)s++, l++)
109 110 111 112 113 114 115 116 117
    {
        if ((*s == '~') || (*s == '/'))
        {
            l++;
        }
    }

    return l;
}
118

119
static void cJSONUtils_PointerEncodedstrcpy(unsigned char *d, const unsigned char *s)
120
{
121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139
    for (; *s; s++)
    {
        if (*s == '/')
        {
            *d++ = '~';
            *d++ = '1';
        }
        else if (*s == '~')
        {
            *d++ = '~';
            *d++ = '0';
        }
        else
        {
            *d++ = *s;
        }
    }

    *d = '\0';
140 141
}

142
CJSON_PUBLIC(char *) cJSONUtils_FindPointerFromObjectTo(cJSON *object, cJSON *target)
143
{
144
    size_t c = 0;
145
    cJSON *obj = 0;
146

147 148 149
    if (object == target)
    {
        /* found */
150
        return (char*)cJSONUtils_strdup((const unsigned char*)"");
151
    }
152

153
    /* recursively search all children of the object */
M
Max Bruckner 已提交
154
    for (obj = object->child; obj; (void)(obj = obj->next), c++)
155
    {
156
        unsigned char *found = (unsigned char*)cJSONUtils_FindPointerFromObjectTo(obj, target);
157 158
        if (found)
        {
159
            if (cJSON_IsArray(object))
160 161
            {
                /* reserve enough memory for a 64 bit integer + '/' and '\0' */
162
                unsigned char *ret = (unsigned char*)malloc(strlen((char*)found) + 23);
163 164 165 166 167 168 169 170
                /* check if conversion to unsigned long is valid
                 * This should be eliminated at compile time by dead code elimination
                 * if size_t is an alias of unsigned long, or if it is bigger */
                if (c > ULONG_MAX)
                {
                    free(found);
                    return NULL;
                }
171
                sprintf((char*)ret, "/%lu%s", (unsigned long)c, found); /* /<array_index><path> */
172 173
                free(found);

174
                return (char*)ret;
175
            }
176
            else if (cJSON_IsObject(object))
177
            {
178
                unsigned char *ret = (unsigned char*)malloc(strlen((char*)found) + cJSONUtils_PointerEncodedstrlen((unsigned char*)obj->string) + 2);
179
                *ret = '/';
180 181
                cJSONUtils_PointerEncodedstrcpy(ret + 1, (unsigned char*)obj->string);
                strcat((char*)ret, (char*)found);
182 183
                free(found);

184
                return (char*)ret;
185 186 187 188
            }

            /* reached leaf of the tree, found nothing */
            free(found);
189
            return NULL;
190 191 192 193
        }
    }

    /* not found */
194
    return NULL;
195 196
}

197
CJSON_PUBLIC(cJSON *) cJSONUtils_GetPointer(cJSON *object, const char *pointer)
198
{
199 200 201
    /* follow path of the pointer */
    while ((*pointer++ == '/') && object)
    {
202
        if (cJSON_IsArray(object))
203
        {
204
            size_t which = 0;
205 206 207
            /* parse array index */
            while ((*pointer >= '0') && (*pointer <= '9'))
            {
M
Max Bruckner 已提交
208
                which = (10 * which) + (size_t)(*pointer++ - '0');
209 210 211 212
            }
            if (*pointer && (*pointer != '/'))
            {
                /* not end of string or new path token */
213
                return NULL;
214
            }
M
Max Bruckner 已提交
215 216 217 218 219
            if (which > INT_MAX)
            {
                return NULL;
            }
            object = cJSON_GetArrayItem(object, (int)which);
220
        }
221
        else if (cJSON_IsObject(object))
222 223 224
        {
            object = object->child;
            /* GetObjectItem. */
225
            while (object && cJSONUtils_Pstrcasecmp((unsigned char*)object->string, (const unsigned char*)pointer))
226 227 228 229 230 231 232 233 234 235 236
            {
                object = object->next;
            }
            /* skip to the next path token or end of string */
            while (*pointer && (*pointer != '/'))
            {
                pointer++;
            }
        }
        else
        {
237
            return NULL;
238 239 240 241
        }
    }

    return object;
242 243
}

244
/* JSON Patch implementation. */
245
static void cJSONUtils_InplaceDecodePointerString(unsigned char *string)
246
{
247
    unsigned char *s2 = string;
248 249 250 251 252

    if (string == NULL) {
        return;
    }

M
Max Bruckner 已提交
253
    for (; *string; (void)s2++, string++)
254
    {
255
        *s2 = (unsigned char) ((*string != '~')
256 257 258
            ? (*string)
            : ((*(++string) == '0')
                    ? '~'
259
                    : '/'));
260 261 262
    }

    *s2 = '\0';
263 264
}

265
static cJSON *cJSONUtils_PatchDetach(cJSON *object, const unsigned char *path)
266
{
267 268
    unsigned char *parentptr = NULL;
    unsigned char *childptr = NULL;
269 270
    cJSON *parent = NULL;
    cJSON *ret = NULL;
271 272

    /* copy path and split it in parent and child */
273
    parentptr = cJSONUtils_strdup(path);
274 275 276 277
    if (parentptr == NULL) {
        return NULL;
    }

278
    childptr = (unsigned char*)strrchr((char*)parentptr, '/'); /* last '/' */
279
    if (childptr == NULL)
280
    {
281 282
        free(parentptr);
        return NULL;
283
    }
284 285 286
    /* split strings */
    *childptr++ = '\0';

287
    parent = cJSONUtils_GetPointer(object, (char*)parentptr);
288
    cJSONUtils_InplaceDecodePointerString(childptr);
289

290 291 292
    if (!parent)
    {
        /* Couldn't find object to remove child from. */
293
        ret = NULL;
294
    }
295
    else if (cJSON_IsArray(parent))
296
    {
297
        ret = cJSON_DetachItemFromArray(parent, atoi((char*)childptr));
298
    }
299
    else if (cJSON_IsObject(parent))
300
    {
301
        ret = cJSON_DetachItemFromObject(parent, (char*)childptr);
302 303
    }
    free(parentptr);
304

305 306
    /* return the detachted item */
    return ret;
307 308
}

M
Max Bruckner 已提交
309
static int cJSONUtils_Compare(cJSON *a, cJSON *b)
310
{
311
    if ((a == NULL) || (b == NULL) || ((a->type & 0xFF) != (b->type & 0xFF)))
M
Max Bruckner 已提交
312 313 314 315
    {
        /* mismatched type. */
        return -1;
    }
316
    switch (a->type & 0xFF)
M
Max Bruckner 已提交
317 318 319 320 321 322 323 324
    {
        case cJSON_Number:
            /* numeric mismatch. */
            return ((a->valueint != b->valueint) || (a->valuedouble != b->valuedouble)) ? -2 : 0;
        case cJSON_String:
            /* string mismatch. */
            return (strcmp(a->valuestring, b->valuestring) != 0) ? -3 : 0;
        case cJSON_Array:
M
Max Bruckner 已提交
325
            for ((void)(a = a->child), b = b->child; a && b; (void)(a = a->next), b = b->next)
M
Max Bruckner 已提交
326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
            {
                int err = cJSONUtils_Compare(a, b);
                if (err)
                {
                    return err;
                }
            }
            /* array size mismatch? (one of both children is not NULL) */
            return (a || b) ? -4 : 0;
        case cJSON_Object:
            cJSONUtils_SortObject(a);
            cJSONUtils_SortObject(b);
            a = a->child;
            b = b->child;
            while (a && b)
            {
M
Max Bruckner 已提交
342
                int err = 0;
M
Max Bruckner 已提交
343
                /* compare object keys */
344
                if (cJSONUtils_strcasecmp((unsigned char*)a->string, (unsigned char*)b->string))
M
Max Bruckner 已提交
345 346 347 348 349 350 351 352 353 354 355 356 357 358
                {
                    /* missing member */
                    return -6;
                }
                err = cJSONUtils_Compare(a, b);
                if (err)
                {
                    return err;
                }
                a = a->next;
                b = b->next;
            }
            /* object length mismatch (one of both children is not null) */
            return (a || b) ? -5 : 0;
359

M
Max Bruckner 已提交
360 361 362 363 364
        default:
            break;
    }
    /* null, true or false */
    return 0;
365 366
}

367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404
/* non broken version of cJSON_InsertItemInArray */
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;
}

M
Max Bruckner 已提交
405
static int cJSONUtils_ApplyPatch(cJSON *object, cJSON *patch)
406
{
407 408 409 410
    cJSON *op = NULL;
    cJSON *path = NULL;
    cJSON *value = NULL;
    cJSON *parent = NULL;
M
Max Bruckner 已提交
411
    int opcode = 0;
412 413
    unsigned char *parentptr = NULL;
    unsigned char *childptr = NULL;
414

M
Max Bruckner 已提交
415 416 417 418 419 420 421
    op = cJSON_GetObjectItem(patch, "op");
    path = cJSON_GetObjectItem(patch, "path");
    if (!op || !path)
    {
        /* malformed patch. */
        return 2;
    }
422

M
Max Bruckner 已提交
423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453
    /* decode operation */
    if (!strcmp(op->valuestring, "add"))
    {
        opcode = 0;
    }
    else if (!strcmp(op->valuestring, "remove"))
    {
        opcode = 1;
    }
    else if (!strcmp(op->valuestring, "replace"))
    {
        opcode = 2;
    }
    else if (!strcmp(op->valuestring, "move"))
    {
        opcode = 3;
    }
    else if (!strcmp(op->valuestring, "copy"))
    {
        opcode = 4;
    }
    else if (!strcmp(op->valuestring, "test"))
    {
        /* compare value: {...} with the given path */
        return cJSONUtils_Compare(cJSONUtils_GetPointer(object, path->valuestring), cJSON_GetObjectItem(patch, "value"));
    }
    else
    {
        /* unknown opcode. */
        return 3;
    }
454

M
Max Bruckner 已提交
455 456 457 458
    /* Remove/Replace */
    if ((opcode == 1) || (opcode == 2))
    {
        /* Get rid of old. */
459
        cJSON_Delete(cJSONUtils_PatchDetach(object, (unsigned char*)path->valuestring));
M
Max Bruckner 已提交
460 461 462 463 464 465
        if (opcode == 1)
        {
            /* For Remove, this is job done. */
            return 0;
        }
    }
466

M
Max Bruckner 已提交
467 468 469 470 471 472 473 474 475
    /* Copy/Move uses "from". */
    if ((opcode == 3) || (opcode == 4))
    {
        cJSON *from = cJSON_GetObjectItem(patch, "from");
        if (!from)
        {
            /* missing "from" for copy/move. */
            return 4;
        }
476

M
Max Bruckner 已提交
477 478 479
        if (opcode == 3)
        {
            /* move */
480
            value = cJSONUtils_PatchDetach(object, (unsigned char*)from->valuestring);
M
Max Bruckner 已提交
481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516
        }
        if (opcode == 4)
        {
            /* copy */
            value = cJSONUtils_GetPointer(object, from->valuestring);
        }
        if (!value)
        {
            /* missing "from" for copy/move. */
            return 5;
        }
        if (opcode == 4)
        {
            value = cJSON_Duplicate(value, 1);
        }
        if (!value)
        {
            /* out of memory for copy/move. */
            return 6;
        }
    }
    else /* Add/Replace uses "value". */
    {
        value = cJSON_GetObjectItem(patch, "value");
        if (!value)
        {
            /* missing "value" for add/replace. */
            return 7;
        }
        value = cJSON_Duplicate(value, 1);
        if (!value)
        {
            /* out of memory for add/replace. */
            return 8;
        }
    }
517

M
Max Bruckner 已提交
518
    /* Now, just add "value" to "path". */
519

M
Max Bruckner 已提交
520
    /* split pointer in parent and child */
521 522
    parentptr = cJSONUtils_strdup((unsigned char*)path->valuestring);
    childptr = (unsigned char*)strrchr((char*)parentptr, '/');
M
Max Bruckner 已提交
523 524 525 526
    if (childptr)
    {
        *childptr++ = '\0';
    }
527
    parent = cJSONUtils_GetPointer(object, (char*)parentptr);
M
Max Bruckner 已提交
528
    cJSONUtils_InplaceDecodePointerString(childptr);
529

M
Max Bruckner 已提交
530
    /* add, remove, replace, move, copy, test. */
531
    if ((parent == NULL) || (childptr == NULL))
M
Max Bruckner 已提交
532 533 534 535 536 537
    {
        /* Couldn't find object to add to. */
        free(parentptr);
        cJSON_Delete(value);
        return 9;
    }
538
    else if (cJSON_IsArray(parent))
M
Max Bruckner 已提交
539
    {
540
        if (!strcmp((char*)childptr, "-"))
M
Max Bruckner 已提交
541 542 543 544 545
        {
            cJSON_AddItemToArray(parent, value);
        }
        else
        {
546 547 548 549 550 551
            if (!insert_item_in_array(parent, (size_t)atoi((char*)childptr), value))
            {
                free(parentptr);
                cJSON_Delete(value);
                return 10;
            }
M
Max Bruckner 已提交
552 553
        }
    }
554
    else if (cJSON_IsObject(parent))
M
Max Bruckner 已提交
555
    {
556 557
        cJSON_DeleteItemFromObject(parent, (char*)childptr);
        cJSON_AddItemToObject(parent, (char*)childptr, value);
M
Max Bruckner 已提交
558 559 560 561 562 563 564 565 566
    }
    else
    {
        cJSON_Delete(value);
    }
    free(parentptr);

    return 0;
}
567

568
CJSON_PUBLIC(int) cJSONUtils_ApplyPatches(cJSON *object, cJSON *patches)
569
{
M
Max Bruckner 已提交
570
    int err = 0;
571

572
    if (!cJSON_IsArray(patches))
573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590
    {
        /* malformed patches. */
        return 1;
    }
    if (patches)
    {
        patches = patches->child;
    }
    while (patches)
    {
        if ((err = cJSONUtils_ApplyPatch(object, patches)))
        {
            return err;
        }
        patches = patches->next;
    }

    return 0;
591
}
592

593
static void cJSONUtils_GeneratePatch(cJSON *patches, const unsigned char *op, const unsigned char *path, const unsigned char *suffix, cJSON *val)
594
{
595
    cJSON *patch = cJSON_CreateObject();
596
    cJSON_AddItemToObject(patch, "op", cJSON_CreateString((const char*)op));
597 598
    if (suffix)
    {
599 600 601
        unsigned char *newpath = (unsigned char*)malloc(strlen((const char*)path) + cJSONUtils_PointerEncodedstrlen(suffix) + 2);
        cJSONUtils_PointerEncodedstrcpy(newpath + sprintf((char*)newpath, "%s/", (const char*)path), suffix);
        cJSON_AddItemToObject(patch, "path", cJSON_CreateString((const char*)newpath));
602 603 604 605
        free(newpath);
    }
    else
    {
606
        cJSON_AddItemToObject(patch, "path", cJSON_CreateString((const char*)path));
607 608 609 610 611 612
    }
    if (val)
    {
        cJSON_AddItemToObject(patch, "value", cJSON_Duplicate(val, 1));
    }
    cJSON_AddItemToArray(patches, patch);
613 614
}

615
CJSON_PUBLIC(void) cJSONUtils_AddPatchToArray(cJSON *array, const char *op, const char *path, cJSON *val)
M
Max Bruckner 已提交
616
{
617
    cJSONUtils_GeneratePatch(array, (const unsigned char*)op, (const unsigned char*)path, 0, val);
M
Max Bruckner 已提交
618
}
619

620
static void cJSONUtils_CompareToPatch(cJSON *patches, const unsigned char *path, cJSON *from, cJSON *to)
621
{
622 623 624 625 626
    if ((from == NULL) || (to == NULL))
    {
        return;
    }

627
    if ((from->type & 0xFF) != (to->type & 0xFF))
628
    {
629
        cJSONUtils_GeneratePatch(patches, (const unsigned char*)"replace", path, 0, to);
630 631 632
        return;
    }

633
    switch ((from->type & 0xFF))
634 635 636 637
    {
        case cJSON_Number:
            if ((from->valueint != to->valueint) || (from->valuedouble != to->valuedouble))
            {
638
                cJSONUtils_GeneratePatch(patches, (const unsigned char*)"replace", path, 0, to);
639 640 641 642 643 644
            }
            return;

        case cJSON_String:
            if (strcmp(from->valuestring, to->valuestring) != 0)
            {
645
                cJSONUtils_GeneratePatch(patches, (const unsigned char*)"replace", path, 0, to);
646 647
            }
            return;
648

649 650
        case cJSON_Array:
        {
651
            size_t c = 0;
652
            unsigned char *newpath = (unsigned char*)malloc(strlen((const char*)path) + 23); /* Allow space for 64bit int. */
653
            /* generate patches for all array elements that exist in "from" and "to" */
M
Max Bruckner 已提交
654
            for ((void)(c = 0), (void)(from = from->child), to = to->child; from && to; (void)(from = from->next), (void)(to = to->next), c++)
655
            {
656 657 658 659 660 661 662 663
                /* check if conversion to unsigned long is valid
                 * This should be eliminated at compile time by dead code elimination
                 * if size_t is an alias of unsigned long, or if it is bigger */
                if (c > ULONG_MAX)
                {
                    free(newpath);
                    return;
                }
664
                sprintf((char*)newpath, "%s/%lu", path, (unsigned long)c); /* path of the current array element */
665 666 667
                cJSONUtils_CompareToPatch(patches, newpath, from, to);
            }
            /* remove leftover elements from 'from' that are not in 'to' */
M
Max Bruckner 已提交
668
            for (; from; (void)(from = from->next), c++)
669
            {
670 671 672 673 674 675 676 677
                /* check if conversion to unsigned long is valid
                 * This should be eliminated at compile time by dead code elimination
                 * if size_t is an alias of unsigned long, or if it is bigger */
                if (c > ULONG_MAX)
                {
                    free(newpath);
                    return;
                }
678
                sprintf((char*)newpath, "%lu", (unsigned long)c);
679
                cJSONUtils_GeneratePatch(patches, (const unsigned char*)"remove", path, newpath, 0);
680 681
            }
            /* add new elements in 'to' that were not in 'from' */
M
Max Bruckner 已提交
682
            for (; to; (void)(to = to->next), c++)
683
            {
684
                cJSONUtils_GeneratePatch(patches, (const unsigned char*)"add", path, (const unsigned char*)"-", to);
685 686 687 688 689 690 691
            }
            free(newpath);
            return;
        }

        case cJSON_Object:
        {
M
Max Bruckner 已提交
692 693
            cJSON *a = NULL;
            cJSON *b = NULL;
694 695 696 697 698 699 700 701
            cJSONUtils_SortObject(from);
            cJSONUtils_SortObject(to);

            a = from->child;
            b = to->child;
            /* for all object values in the object with more of them */
            while (a || b)
            {
702
                int diff = (!a) ? 1 : ((!b) ? -1 : cJSONUtils_strcasecmp((unsigned char*)a->string, (unsigned char*)b->string));
703 704 705
                if (!diff)
                {
                    /* both object keys are the same */
706 707
                    unsigned char *newpath = (unsigned char*)malloc(strlen((const char*)path) + cJSONUtils_PointerEncodedstrlen((unsigned char*)a->string) + 2);
                    cJSONUtils_PointerEncodedstrcpy(newpath + sprintf((char*)newpath, "%s/", path), (unsigned char*)a->string);
708 709 710 711 712 713 714 715 716
                    /* create a patch for the element */
                    cJSONUtils_CompareToPatch(patches, newpath, a, b);
                    free(newpath);
                    a = a->next;
                    b = b->next;
                }
                else if (diff < 0)
                {
                    /* object element doesn't exist in 'to' --> remove it */
717
                    cJSONUtils_GeneratePatch(patches, (const unsigned char*)"remove", path, (unsigned char*)a->string, 0);
718 719 720 721 722
                    a = a->next;
                }
                else
                {
                    /* object element doesn't exist in 'from' --> add it */
723
                    cJSONUtils_GeneratePatch(patches, (const unsigned char*)"add", path, (unsigned char*)b->string, b);
724 725 726 727 728 729 730 731 732 733
                    b = b->next;
                }
            }
            return;
        }

        default:
            break;
    }
}
734

735
CJSON_PUBLIC(cJSON *) cJSONUtils_GeneratePatches(cJSON *from, cJSON *to)
736
{
737
    cJSON *patches = cJSON_CreateArray();
738
    cJSONUtils_CompareToPatch(patches, (const unsigned char*)"", from, to);
739

740 741
    return patches;
}
742

M
Max Bruckner 已提交
743
/* sort lists using mergesort */
744 745
static cJSON *cJSONUtils_SortList(cJSON *list)
{
M
Max Bruckner 已提交
746 747 748
    cJSON *first = list;
    cJSON *second = list;
    cJSON *ptr = list;
749

M
Max Bruckner 已提交
750 751 752 753 754
    if (!list || !list->next)
    {
        /* One entry is sorted already. */
        return list;
    }
755

756
    while (ptr && ptr->next && (cJSONUtils_strcasecmp((unsigned char*)ptr->string, (unsigned char*)ptr->next->string) < 0))
M
Max Bruckner 已提交
757 758 759 760 761 762 763 764 765
    {
        /* Test for list sorted. */
        ptr = ptr->next;
    }
    if (!ptr || !ptr->next)
    {
        /* Leave sorted lists unmodified. */
        return list;
    }
766

M
Max Bruckner 已提交
767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782
    /* reset ptr to the beginning */
    ptr = list;
    while (ptr)
    {
        /* Walk two pointers to find the middle. */
        second = second->next;
        ptr = ptr->next;
        /* advances ptr two steps at a time */
        if (ptr)
        {
            ptr = ptr->next;
        }
    }
    if (second && second->prev)
    {
        /* Split the lists */
783
        second->prev->next = NULL;
M
Max Bruckner 已提交
784
    }
785

M
Max Bruckner 已提交
786 787 788
    /* Recursively sort the sub-lists. */
    first = cJSONUtils_SortList(first);
    second = cJSONUtils_SortList(second);
789
    list = ptr = NULL;
M
Max Bruckner 已提交
790 791 792

    while (first && second) /* Merge the sub-lists */
    {
793
        if (cJSONUtils_strcasecmp((unsigned char*)first->string, (unsigned char*)second->string) < 0)
M
Max Bruckner 已提交
794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847
        {
            if (!list)
            {
                /* start merged list with the first element of the first list */
                list = ptr = first;
            }
            else
            {
                /* add first element of first list to merged list */
                ptr->next = first;
                first->prev = ptr;
                ptr = first;
            }
            first = first->next;
        }
        else
        {
            if (!list)
            {
                /* start merged list with the first element of the second list */
                list = ptr = second;
            }
            else
            {
                /* add first element of second list to merged list */
                ptr->next = second;
                second->prev = ptr;
                ptr = second;
            }
            second = second->next;
        }
    }
    if (first)
    {
        /* Append rest of first list. */
        if (!list)
        {
            return first;
        }
        ptr->next = first;
        first->prev = ptr;
    }
    if (second)
    {
        /* Append rest of second list */
        if (!list)
        {
            return second;
        }
        ptr->next = second;
        second->prev = ptr;
    }

    return list;
848 849
}

850
CJSON_PUBLIC(void) cJSONUtils_SortObject(cJSON *object)
M
Max Bruckner 已提交
851 852 853
{
    object->child = cJSONUtils_SortList(object->child);
}
854

855
CJSON_PUBLIC(cJSON *) cJSONUtils_MergePatch(cJSON *target, cJSON *patch)
856
{
857
    if (!cJSON_IsObject(patch))
M
Max Bruckner 已提交
858 859 860 861 862
    {
        /* scalar value, array or NULL, just duplicate */
        cJSON_Delete(target);
        return cJSON_Duplicate(patch, 1);
    }
863

864
    if (!cJSON_IsObject(target))
M
Max Bruckner 已提交
865 866 867 868 869 870 871 872
    {
        cJSON_Delete(target);
        target = cJSON_CreateObject();
    }

    patch = patch->child;
    while (patch)
    {
873
        if (cJSON_IsNull(patch))
M
Max Bruckner 已提交
874 875 876 877 878 879 880 881 882 883 884 885
        {
            /* NULL is the indicator to remove a value, see RFC7396 */
            cJSON_DeleteItemFromObject(target, patch->string);
        }
        else
        {
            cJSON *replaceme = cJSON_DetachItemFromObject(target, patch->string);
            cJSON_AddItemToObject(target, patch->string, cJSONUtils_MergePatch(replaceme, patch));
        }
        patch = patch->next;
    }
    return target;
886
}
887

888
CJSON_PUBLIC(cJSON *) cJSONUtils_GenerateMergePatch(cJSON *from, cJSON *to)
889
{
890
    cJSON *patch = NULL;
891 892 893 894 895
    if (!to)
    {
        /* patch to delete everything */
        return cJSON_CreateNull();
    }
896
    if (!cJSON_IsObject(to) || !cJSON_IsObject(from))
897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937
    {
        return cJSON_Duplicate(to, 1);
    }

    cJSONUtils_SortObject(from);
    cJSONUtils_SortObject(to);

    from = from->child;
    to = to->child;
    patch = cJSON_CreateObject();
    while (from || to)
    {
        int compare = from ? (to ? strcmp(from->string, to->string) : -1) : 1;
        if (compare < 0)
        {
            /* from has a value that to doesn't have -> remove */
            cJSON_AddItemToObject(patch, from->string, cJSON_CreateNull());
            from = from->next;
        }
        else if (compare > 0)
        {
            /* to has a value that from doesn't have -> add to patch */
            cJSON_AddItemToObject(patch, to->string, cJSON_Duplicate(to, 1));
            to = to->next;
        }
        else
        {
            /* object key exists in both objects */
            if (cJSONUtils_Compare(from, to))
            {
                /* not identical --> generate a patch */
                cJSON_AddItemToObject(patch, to->string, cJSONUtils_GenerateMergePatch(from, to));
            }
            /* next key in the object */
            from = from->next;
            to = to->next;
        }
    }
    if (!patch->child)
    {
        cJSON_Delete(patch);
938
        return NULL;
939 940 941
    }

    return patch;
M
Max Bruckner 已提交
942
}