#include "dstr.h"
#include "aliases.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

// Use this scalar to allocate extra memory in order to avoid having to
// constantly reallocate
#define CAPACITY_SCALAR 8

struct dstr {
  u64 capacity;
  u64 size;
  char buf[];
};

String *wapp_dstr_with_capacity(u64 capacity) {
  String *out = (String *)malloc(sizeof(String) + capacity + 1);

  if (!out) {
    return NULL;
  }

  out->capacity = capacity;
  out->size = 0;
  memset(out->buf, 0, capacity + 1);

  return out;
}

String *wapp_dstr_from_string(const char *str) {
  if (!str) {
    return NULL;
  }

  u64 length = strlen(str);

  u64 capacity = length * CAPACITY_SCALAR;

  String *out = wapp_dstr_with_capacity(capacity);

  if (!out) {
    return NULL;
  }

  out->size = length;
  strncpy(out->buf, str, length);

  return out;
}

void wapp_dstr_update(String **dst, const char *src) {
  if (!dst || !(*dst)) {
    return;
  }

  u64 length = strlen(src);

  String *str = *dst;

  if (length <= str->capacity) {
    memset(str->buf, 0, str->capacity);

    str->size = length;

    strncpy(str->buf, src, length);
  } else {
    u64 capacity = length * CAPACITY_SCALAR;

    String *tmp = (String *)realloc(*dst, sizeof(String) + capacity + 1);

    if (!tmp) {
      return;
    }

    tmp->capacity = capacity;
    tmp->size = length;
    strncpy(tmp->buf, src, length);

    *dst = tmp;
  }
}

void wapp_dstr_free(String **str) {
  if (!str || !(*str)) {
    return;
  }

  free(*str);
  *str = NULL;
}

void wapp_dstr_concat(String **dst, const char *src) {
  if (!dst || !(*dst)) {
    return;
  }

  u64 src_length = strlen(src);

  if (src_length == 0) {
    return;
  }

  u64 new_length = (*dst)->size + src_length;

  char str[new_length + 1];
  memset(str, 0, new_length + 1);

  strncpy(str, (*dst)->buf, (*dst)->size);
  strncat(str, src, src_length);

  wapp_dstr_update(dst, str);
}

void wapp_dstr_append(String **dst, char c) {
  if (!dst || !(*dst)) {
    return;
  }

  u64 new_length = (*dst)->size + 1;

  char str[new_length + 1];
  memset(str, 0, new_length + 1);

  strncpy(str, (*dst)->buf, (*dst)->size);
  str[(*dst)->size] = c;

  wapp_dstr_update(dst, str);
}

void wapp_dstr_resize(String **str) {
  if (!str || !(*str)) {
    return;
  }

  u64 capacity = (*str)->size;

  String *tmp = (String *)realloc(*str, sizeof(String) + capacity + 1);

  if (!tmp) {
    return;
  }

  tmp->capacity = capacity;

  *str = tmp;
}

void wapp_dstr_clear(String *str) {
  if (!str || str->size == 0) {
    return;
  }

  memset(str->buf, 0, str->capacity);
  str->size = 0;
}

void wapp_dstr_print(const String *str) {
  if (!str) {
    return;
  }

  printf("%s\n", str->buf);
}

i64 wapp_dstr_find(const String *str, const char *substr) {
  if (!str || !substr) {
    return -1;
  }

  u64 substr_length = strlen(substr);

  if (substr_length == 0 || substr_length > str->size) {
    return -1;
  }

  char buf[substr_length + 1];
  memset(buf, 0, substr_length + 1);

  for (u64 i = 0; i < str->size; ++i) {
    if (i + substr_length >= str->size) {
      break;
    }

    for (u64 j = 0; j < substr_length; ++j) {
      buf[j] = str->buf[i + j];
    }

    if (strcmp(buf, substr) == 0) {
      return i;
    }
  }

  return -1;
}

u64 wapp_dstr_length(const String *str) {
  if (!str) {
    return 0;
  }

  return str->size;
}

u64 wapp_dstr_capacity(const String *str) {
  if (!str) {
    return 0;
  }

  return str->capacity;
}

const char *wapp_dstr_to_cstr(const String *str) {
  if (!str) {
    return "";
  }

  return str->buf;
}