/*
 * Copyright (C) 2023 Spacemit Limited
 * All Rights Reserved.
 */
#include "cjson.h"

#include <ctype.h>
#include <float.h>
#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

static const char *ep;

const char *cJSON_GetErrorPtr(void) { return ep; }

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;
}

/* Internal constructor. */
static cJSON *cJSON_New_Item(void) {
  cJSON *node = (cJSON *)cJSON_malloc(sizeof(cJSON));
  if (node) memset(node, 0, sizeof(cJSON));
  return 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->type & cJSON_StringIsConst) && c->string) cJSON_free(c->string);
    cJSON_free(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;

  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 == '-')
      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;
}

static int pow2gt(int x) {
  --x;
  x |= x >> 1;
  x |= x >> 2;
  x |= x >> 4;
  x |= x >> 8;
  x |= x >> 16;
  return x + 1;
}

typedef struct {
  char *buffer;
  int length;
  int offset;
} printbuffer;

static char *ensure(printbuffer *p, int needed) {
  char *newbuffer;
  int newsize;
  if (!p || !p->buffer) return 0;
  needed += p->offset;
  if (needed <= p->length) return p->buffer + p->offset;

  newsize = pow2gt(needed);
  newbuffer = (char *)cJSON_malloc(newsize);
  if (!newbuffer) {
    cJSON_free(p->buffer);
    p->length = 0, p->buffer = 0;
    return 0;
  }
  if (newbuffer) memcpy(newbuffer, p->buffer, p->length);
  cJSON_free(p->buffer);
  p->length = newsize;
  p->buffer = newbuffer;
  return newbuffer + p->offset;
}

static int update(printbuffer *p) {
  char *str;
  if (!p || !p->buffer) return 0;
  str = p->buffer + p->offset;
  return p->offset + strlen(str);
}

/* Render the number nicely from the given item into a string. */
static char *print_number(cJSON *item, printbuffer *p) {
  char *str = 0;
  double d = item->valuedouble;
  if (d == 0) {
    if (p)
      str = ensure(p, 2);
    else
      str = (char *)cJSON_malloc(2); /* special case for 0. */
    if (str) strcpy(str, "0");
  } else if (fabs(((double)item->valueint) - d) <= DBL_EPSILON &&
             d <= INT_MAX && d >= INT_MIN) {
    if (p)
      str = ensure(p, 21);
    else
      str =
          (char *)cJSON_malloc(21); /* 2^64+1 can be represented in 21 chars. */
    if (str) sprintf(str, "%d", item->valueint);
  } else {
    if (p)
      str = ensure(p, 64);
    else
      str = (char *)cJSON_malloc(64); /* This is a nice tradeoff. */
    if (str) {
      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 *ptr = str + 1;
  char *ptr2;
  char *out;
  int len = 0;
  unsigned uc, uc2;
  if (*str != '\"') {
    ep = str;
    return 0;
  } /* not a string! */

  while (*ptr != '\"' && *ptr && ++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 != '\"' && *ptr) {
    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. */
          uc = parse_hex4(ptr + 1);
          ptr += 4; /* get the unicode char. */

          if ((uc >= 0xDC00 && uc <= 0xDFFF) || uc == 0)
            break; /* check for invalid.	*/

          if (uc >= 0xD800 && uc <= 0xDBFF) /* UTF16 surrogate pairs.	*/
          {
            if (ptr[1] != '\\' || ptr[2] != 'u')
              break; /* missing second-half of surrogate.	*/
            uc2 = parse_hex4(ptr + 3);
            ptr += 6;
            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;
            case 3:
              *--ptr2 = ((uc | 0x80) & 0xBF);
              uc >>= 6;
            case 2:
              *--ptr2 = ((uc | 0x80) & 0xBF);
              uc >>= 6;
            case 1:
              *--ptr2 = (uc | firstByteMark[len]);
          }
          ptr2 += len;
          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, printbuffer *p) {
  const char *ptr;
  char *ptr2, *out;
  int len = 0, flag = 0;
  unsigned char token;

  for (ptr = str; *ptr; ptr++)
    flag |=
        ((*ptr > 0 && *ptr < 32) || (*ptr == '\"') || (*ptr == '\\')) ? 1 : 0;
  if (!flag) {
    len = ptr - str;
    if (p)
      out = ensure(p, len + 3);
    else
      out = (char *)cJSON_malloc(len + 3);
    if (!out) return 0;
    ptr2 = out;
    *ptr2++ = '\"';
    strcpy(ptr2, str);
    ptr2[len] = '\"';
    ptr2[len + 1] = 0;
    return out;
  }

  if (!str) {
    if (p)
      out = ensure(p, 3);
    else
      out = (char *)cJSON_malloc(3);
    if (!out) return 0;
    strcpy(out, "\"\"");
    return out;
  }
  ptr = str;
  while ((token = *ptr) && ++len) {
    if (strchr("\"\\\b\f\n\r\t", token))
      len++;
    else if (token < 32)
      len += 5;
    ptr++;
  }

  if (p)
    out = ensure(p, len + 3);
  else
    out = (char *)cJSON_malloc(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, printbuffer *p) {
  return print_string_ptr(item->valuestring, p);
}

/* Predeclare these prototypes. */
static const char *parse_value(cJSON *item, const char *value);
static char *print_value(cJSON *item, int depth, int fmt, printbuffer *p);
static const char *parse_array(cJSON *item, const char *value);
static char *print_array(cJSON *item, int depth, int fmt, printbuffer *p);
static const char *parse_object(cJSON *item, const char *value);
static char *print_object(cJSON *item, int depth, int fmt, printbuffer *p);

/* 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) {
  const char *end = 0;
  cJSON *c = cJSON_New_Item();
  ep = 0;
  if (!c) return 0; /* memory fail */

  end = parse_value(c, skip(value));
  if (!end) {
    cJSON_Delete(c);
    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;
      return 0;
    }
  }
  if (return_parse_end) *return_parse_end = end;
  return c;
}
/* Default options for cJSON_Parse */
cJSON *cJSON_Parse(const char *value) {
  return cJSON_ParseWithOpts(value, 0, 0);
}

/* Render a cJSON item/entity/structure to text. */
char *cJSON_Print(cJSON *item) { return print_value(item, 0, 1, 0); }
char *cJSON_PrintUnformatted(cJSON *item) { return print_value(item, 0, 0, 0); }

char *cJSON_PrintBuffered(cJSON *item, int prebuffer, int fmt) {
  printbuffer p;
  p.buffer = (char *)cJSON_malloc(prebuffer);
  p.length = prebuffer;
  p.offset = 0;
  return print_value(item, 0, fmt, &p);
  return p.buffer;
}

/* 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);
  }

  ep = value;
  return 0; /* failure. */
}

/* Render a value to text. */
static char *print_value(cJSON *item, int depth, int fmt, printbuffer *p) {
  char *out = 0;
  if (!item) return 0;
  if (p) {
    switch ((item->type) & 255) {
      case cJSON_NULL: {
        out = ensure(p, 5);
        if (out) strcpy(out, "null");
        break;
      }
      case cJSON_False: {
        out = ensure(p, 6);
        if (out) strcpy(out, "false");
        break;
      }
      case cJSON_True: {
        out = ensure(p, 5);
        if (out) strcpy(out, "true");
        break;
      }
      case cJSON_Number:
        out = print_number(item, p);
        break;
      case cJSON_String:
        out = print_string(item, p);
        break;
      case cJSON_Array:
        out = print_array(item, depth, fmt, p);
        break;
      case cJSON_Object:
        out = print_object(item, depth, fmt, p);
        break;
    }
  } else {
    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, 0);
        break;
      case cJSON_String:
        out = print_string(item, 0);
        break;
      case cJSON_Array:
        out = print_array(item, depth, fmt, 0);
        break;
      case cJSON_Object:
        out = print_object(item, depth, fmt, 0);
        break;
    }
  }
  return out;
}

/* Build an array from input text. */
static const char *parse_array(cJSON *item, const char *value) {
  cJSON *child;
  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 */
  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())) 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 */
  ep = value;
  return 0; /* malformed. */
}

/* Render an array to text */
static char *print_array(cJSON *item, int depth, int fmt, printbuffer *p) {
  char **entries;
  char *out = 0, *ptr, *ret;
  int len = 5;
  cJSON *child = item->child;
  int numentries = 0, i = 0, fail = 0;
  size_t tmplen = 0;

  /* How many entries in the array? */
  while (child) numentries++, child = child->next;
  /* Explicitly handle numentries==0 */
  if (!numentries) {
    if (p)
      out = ensure(p, 3);
    else
      out = (char *)cJSON_malloc(3);
    if (out) strcpy(out, "[]");
    return out;
  }

  if (p) {
    /* Compose the output array. */
    i = p->offset;
    ptr = ensure(p, 1);
    if (!ptr) return 0;
    *ptr = '[';
    p->offset++;
    child = item->child;
    while (child && !fail) {
      print_value(child, depth + 1, fmt, p);
      p->offset = update(p);
      if (child->next) {
        len = fmt ? 2 : 1;
        ptr = ensure(p, len + 1);
        if (!ptr) return 0;
        *ptr++ = ',';
        if (fmt) *ptr++ = ' ';
        *ptr = 0;
        p->offset += len;
      }
      child = child->next;
    }
    ptr = ensure(p, 2);
    if (!ptr) return 0;
    *ptr++ = ']';
    *ptr = 0;
    out = (p->buffer) + i;
  } else {
    /* 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, 0);
      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 = (char *)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++) {
      tmplen = strlen(entries[i]);
      memcpy(ptr, entries[i], tmplen);
      ptr += tmplen;
      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 != '{') {
    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)));
  if (!value) return 0;
  child->string = child->valuestring;
  child->valuestring = 0;
  if (*value != ':') {
    ep = 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())) 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 != ':') {
      ep = 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 */
  ep = value;
  return 0; /* malformed. */
}

/* Render an object to text. */
static char *print_object(cJSON *item, int depth, int fmt, printbuffer *p) {
  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;
  size_t tmplen = 0;
  /* Count the number of entries. */
  while (child) numentries++, child = child->next;
  /* Explicitly handle empty object case */
  if (!numentries) {
    if (p)
      out = ensure(p, fmt ? depth + 4 : 3);
    else
      out = (char *)cJSON_malloc(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;
  }
  if (p) {
    /* Compose the output: */
    i = p->offset;
    len = fmt ? 2 : 1;
    ptr = ensure(p, len + 1);
    if (!ptr) return 0;
    *ptr++ = '{';
    if (fmt) *ptr++ = '\n';
    *ptr = 0;
    p->offset += len;
    child = item->child;
    depth++;
    while (child) {
      if (fmt) {
        ptr = ensure(p, depth);
        if (!ptr) return 0;
        for (j = 0; j < depth; j++) *ptr++ = '\t';
        p->offset += depth;
      }
      print_string_ptr(child->string, p);
      p->offset = update(p);

      len = fmt ? 2 : 1;
      ptr = ensure(p, len);
      if (!ptr) return 0;
      *ptr++ = ':';
      if (fmt) *ptr++ = '\t';
      p->offset += len;

      print_value(child, depth, fmt, p);
      p->offset = update(p);

      len = (fmt ? 1 : 0) + (child->next ? 1 : 0);
      ptr = ensure(p, len + 1);
      if (!ptr) return 0;
      if (child->next) *ptr++ = ',';
      if (fmt) *ptr++ = '\n';
      *ptr = 0;
      p->offset += len;
      child = child->next;
    }
    ptr = ensure(p, fmt ? (depth + 1) : 2);
    if (!ptr) return 0;
    if (fmt)
      for (i = 0; i < depth - 1; i++) *ptr++ = '\t';
    *ptr++ = '}';
    *ptr = 0;
    out = (p->buffer) + i;
  } else {
    /* 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, 0);
      entries[i++] = ret = print_value(child, depth, fmt, 0);
      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]) cJSON_free(names[i]);
        if (entries[i]) cJSON_free(entries[i]);
      }
      cJSON_free(names);
      cJSON_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';
      tmplen = strlen(names[i]);
      memcpy(ptr, names[i], tmplen);
      ptr += tmplen;
      *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();
  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 = array->child;
  if (!item) return;
  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) return;
  if (item->string) cJSON_free(item->string);
  item->string = cJSON_strdup(string);
  cJSON_AddItemToArray(object, item);
}
void cJSON_AddItemToObjectCS(cJSON *object, const char *string, cJSON *item) {
  if (!item) return;
  if (!(item->type & cJSON_StringIsConst) && item->string)
    cJSON_free(item->string);
  item->string = (char *)string;
  item->type |= cJSON_StringIsConst;
  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_InsertItemInArray(cJSON *array, int which, cJSON *newitem) {
  cJSON *c = array->child;
  while (c && which > 0) c = c->next, which--;
  if (!c) {
    cJSON_AddItemToArray(array, newitem);
    return;
  }
  newitem->next = c;
  newitem->prev = c->prev;
  c->prev = newitem;
  if (c == array->child)
    array->child = newitem;
  else
    newitem->prev->next = newitem;
}
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(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 = cJSON_strdup(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 = cJSON_strdup(item->valuestring);
    if (!newitem->valuestring) {
      cJSON_Delete(newitem);
      return 0;
    }
  }
  if (item->string) {
    newitem->string = cJSON_strdup(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) {
    newchild = cJSON_Duplicate(
        cptr, 1); /* Duplicate (with recurse) each item in the ->next chain */
    if (!newchild) {
      cJSON_Delete(newitem);
      return 0;
    }
    if (nptr) {
      nptr->next = newchild, newchild->prev = nptr;
      nptr = newchild;
    } /* If newitem->child already set, then crosswire ->prev and ->next and
         move on */
    else {
      newitem->child = newchild;
      nptr = newchild;
    } /* Set newitem->child and move to it */
    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++;
        *into++ = *json++;
      }
      *into++ = *json++;
    } /* string literals, which are \" sensitive. */
    else
      *into++ = *json++; /* All other characters. */
  }
  *into = 0; /* and null-terminate. */
}
