#define _GNU_SOURCE

#include <config.h>
#include <filehandler.h>
#include <list.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <util.h>

config_t *
config_parse(char *content)
{
  list_t *keys = list_create(sizeof(ptr_wrapper_t));
  list_t *values = list_create(sizeof(ptr_wrapper_t));
  list_t *array_values = list_create(sizeof(list_t));

  char *buffer = strdup(content);
  /* For free() */
  char *x = buffer;

  char *key = trim(strsep(&buffer, DELIM));

  while (buffer != NULL) {
    buffer = ltrim(buffer);
    list_add(keys, wrap_ptr(strdup(key)));

    if (*buffer == '{') {
      buffer++;
      list_t *l = list_create(sizeof(ptr_wrapper_t));
      char *raw_array = strsep(&buffer, "}");

      char *value = strsep(&raw_array, DELIM_ARRAY);
      while (value != NULL) {
        list_add(l, wrap_ptr(strdup(trim(value))));
        value = strsep(&raw_array, DELIM_ARRAY);
      }

      list_add(array_values, l);
      list_add(values, wrap_ptr(NULL));

      free(l);
    } else {
      list_t *l = list_create(sizeof(ptr_wrapper_t));
      char *value = trim(strsep(&buffer, "\n"));

      list_add(array_values, l);
      list_add(values, wrap_ptr(strdup(value)));

      free(l);
    }

    key = trim(strsep(&buffer, DELIM));
  }

  free(x);

  config_t *config = malloc(sizeof(config_t));
  config->keys = keys;
  config->values = values;
  config->array_values = array_values;
  return config;
}

void
config_delete(config_t *config)
{
  for (size_t i = 0; i < config->keys->size; i++) {
    ptr_wrapper_t *wrapper;

    wrapper = list_get(config->values, i);
    if (wrapper->ptr != NULL)
      free(wrapper->ptr);

    list_t *l = list_get(config->array_values, i);
    for (size_t y = 0; y < l->size; y++) {
      wrapper = list_get(l, y);

      if (wrapper->ptr != NULL)
        free(wrapper->ptr);
    }
  }

  list_delete(config->keys);
  list_delete(config->values);
  list_delete(config->array_values);
  free(config);
}

config_t *
config_fetch_and_parse(char *path)
{
  FILE *f = fopen(path, "r");
  if (f == NULL) {
    printf("Could not open %s\n", path);
    return NULL;
  }

  size_t s = fsize(f);
  char *content = fcontent(f, s);
  fclose(f);

  config_t *config = config_parse(content);
  free(content);

  return config;
}