array.c

#include <stdlib.h>
#include <string.h>

#include "array.h"
#include "obj.h"
#include "boolean.h"
#include "number.h"
#include "null.h"
#include "str.h"
#include "common.h"

JsonValue *match_array(char *json, int *index, int size)
{
  JsonValue *result = create_json_value();
  result->start = *index;
  result->end = *index;
  result->type = JSON_ARRAY;
  result->array = create_json_array();
  result->error->code = "";

  // should start with a left square bracket
  if (json[*index] != '[')
  {
    result->error->code = "array-no-opening-bracket";
    return result;
  }

  result->partial = 1;
  result->end++;

  JsonValue *item = NULL;
  int expect_item = 0;
  char ch = '\0';

  while (result->end < size)
  {

    skip_empty(json, &result->end, size);

    ch = json[result->end];

    if (item == NULL || expect_item)
    {
      // try and match a closing bracket
      if (expect_item == 0 && ch == ']')
      {
        free_json_error(result->error);
        result->error = NULL;
        break;
      }

      // try and match an item
      item = match_any(json, &result->end, size);

      if (item->error == NULL)
      {
        // add item to array
        append_to_json_array(result->array, item);

        // for numbers, last index is exclusive
        result->end = item->end + (item->type == JSON_NUMBER ? 0 : 1);
        expect_item = 0;

        continue;
      }

      result->error = item->error;
      break;
    }

    // array can end after item
    if (ch == ']')
    {
      free_json_error(result->error);
      result->error = NULL;
      break;
    }

    if (ch != ',')
    {
      result->error->code = "array-missing-comma";
      result->error->index = result->end;
      break;
    }

    // should be a comma
    item = NULL;
    expect_item = 1;
    result->end++;
  }

  // re-check last index is a closing bracket
  if (result->error != NULL)
  {
    if (json[result->end] != ']' && strcmp(result->error->code, "") == 0)
    {
      result->error->code = "array-no-closing-bracket";
      result->error->index = result->end;
    }
  }

  return result;
}