#include "php_snuffleupagus.h"

size_t sp_line_no;

static int validate_str(const char *value) {
  int balance = 0;  // ghetto [] validation

  if (!strchr(value, '[')) {
    return 0;
  }

  for (size_t i = 0; i < strlen(value); i++) {
    if (value[i] == '[') {
      balance++;
    } else if (value[i] == ']') {
      balance--;
    }
    if (balance < 0) {
      sp_log_err("config", "The string '%s' contains unbalanced brackets.", value);
      return -1;
    }
  }
  if (balance != 0) {
    sp_log_err("config", "You forgot to close %d bracket%c in the string '%s'",
      balance, (balance>1)?'s':' ', value);
    return -1;
  }
  return 0;
}

int parse_keywords(sp_config_functions *funcs, char *line) {
  int value_len = 0;
  const char *original_line = line;
  for (size_t i = 0; funcs[i].func; i++) {
    if (!strncmp(funcs[i].token, line, strlen(funcs[i].token))) {
      line += strlen(funcs[i].token);
      value_len = funcs[i].func(line, funcs[i].token, funcs[i].retval) + 1;
      if (value_len == 0) {  // bad parameter
        return -1;
      }
      line += value_len;
      i = -1;  // we start the loop again
    }
  }
  while (*line == ';' || *line == '\t' || *line == ' ') {
    line++;
  }

  if (*line == '#') {
    return 0;
  }

  if (*line) {
    sp_log_err("config", "Trailing chars '%s' at the end of '%s' on line %zu.",
     line, original_line, sp_line_no);
    return -1;
  }
  return 0;
}

static char *get_string(size_t *consumed, char *restrict line,
                        const char *restrict keyword) {
  enum { IN_ESCAPE, NONE } state = NONE;
  char *original_line = line;
  size_t j = 0;

  char *ret = NULL;
  if (NULL == line || '\0' == *line) {
    goto err;
  }

  ret = pecalloc(sizeof(char), strlen(original_line) + 1, 1);

  /* The first char of a string is always '"', since they MUST be quoted. */
  if ('"' == *line) {
    line++;
  } else {
    goto err;
  }

  for (size_t i = 0; line[i] && j < strlen(original_line) - 2; i++) {
    switch (line[i]) {
      case '"':
        /* A double quote at this point is either:
          - at the very end of the string.
          - escaped
          */
        if ((state == NONE) && (line[i + 1] == SP_TOKEN_END_PARAM)) {
          /* The `+2` if for
           1. the terminal double-quote
           2. the SP_TOKEN_END_PARAM
           */
          *consumed = i + 2;
          return ret;
        } else if (state == IN_ESCAPE) {
          break;  // we're on an escped double quote
        } else {
          goto err;
        }
      case '\\':
        if (state == NONE) {
          state = IN_ESCAPE;
          continue;
        }
      default:
        break;
    }
    if (state == IN_ESCAPE) {
      state = NONE;
    }
    ret[j++] = line[i];
  }
err:
  if (0 == j) {
    sp_log_err("error", "A valid string as parameter is expected on line %zu.", sp_line_no);
  } else {
    sp_log_err("error",
               "There is an issue with the parsing of '%s': it doesn't look like a valid string on line %zu.",
               original_line ? original_line : "NULL", sp_line_no);
  }
  line = NULL;
  return NULL;
}

char *get_param(size_t *consumed, char *restrict line, sp_type type,
                const char *restrict keyword) {
  char *retval = get_string(consumed, line, keyword);

  if (retval && 0 == validate_str(retval)) {
      return retval;
  }

  return NULL;
}

// FIXME this is leaking like hell @blotus
int array_to_list(char **name_ptr, sp_node_t **keys) {
  int in_key = 0;
  size_t i = 0;
  char *name = *name_ptr;
  char *key_name = ecalloc(strlen(name) + 1, 1);  // im way too lazy for
                                                       // now
  char *tmp = ecalloc(strlen(name) + 1, 1);

  for (i = 0; name[i] != '['; i++) {
    tmp[i] = name[i];
  }
  tmp[i] = 0;

  for (size_t j = 0; name[i]; i++) {
    const char c = name[i];
    if (c == '[') {
      if (in_key == 0) {
        in_key = 1;
      } else {
        efree(key_name);
        return -1;
      }
    } else if (c == ']') {
      if (in_key == 0) {
        efree(key_name);
        return -1;
      } else {
        in_key = 0;
        j = 0;
        sp_list_insert(*keys, pestrdup(key_name, 1));
        memset(key_name, 0, strlen(name) + 1);
      }
    } else if (in_key == 1) {
      key_name[j] = c;
      j++;
    }
  }
  efree(key_name);
  *name_ptr = pestrdup(tmp, 1);
  return in_key;
}


zend_always_inline sp_node_t *parse_functions_list(char *value) {
  const char *sep = ">";

  if (NULL == strchr(value, sep[0])) {
    return NULL;
  }

  sp_node_t *list = sp_list_new();
  char* tmp = strdup(value);
  char* function_name;
  char *next_token = tmp;
  while ((function_name = strtok_r(NULL, sep, &next_token))) {
    sp_list_prepend(list, strdup(function_name));
  }
  free(tmp);

  return list;
}