#include "str.h"

#include "stralloc.h"

/**
  @file str.c
  @author djb
  @source qmail
  @brief string handling functions
*/

unsigned int str_copy(char *s, const char *t)
{
  int len = 0;

  for (;;) {
    // clang-format off
    if (!(*s = *t)) { return len; } ++s; ++t; ++len;
    if (!(*s = *t)) { return len; } ++s; ++t; ++len;
    if (!(*s = *t)) { return len; } ++s; ++t; ++len;
    if (!(*s = *t)) { return len; } ++s; ++t; ++len;
    // clang-format on
  }
}

unsigned int str_copyb(char *s, const char *t, unsigned int max)
{
  int len = 0;

  while (max-- > 0) {
    // clang-format off
    if (!(*s = *t)) { return len; } ++s; ++t; ++len;
    if (!(*s = *t)) { return len; } ++s; ++t; ++len;
    if (!(*s = *t)) { return len; } ++s; ++t; ++len;
    if (!(*s = *t)) { return len; } ++s; ++t; ++len;
    // clang-format on
  }

  return len;
}

int str_diff(const char *s, const char *t)
{
  char x;

  for (;;) {
    // clang-format off
    x = *s; if (x != *t) { break; } if (!x) { break; } ++s; ++t;
    x = *s; if (x != *t) { break; } if (!x) { break; } ++s; ++t;
    x = *s; if (x != *t) { break; } if (!x) { break; } ++s; ++t;
    x = *s; if (x != *t) { break; } if (!x) { break; } ++s; ++t;
    // clang-format on
  }
  return ((int)(unsigned int)(unsigned char)x) - ((int)(unsigned int)(unsigned char)*t);
}

int str_diffn(const char *s, const char *t, unsigned int len)
{
  char x;

  for (;;) {
    // clang-format off
    if (!len--) { return 0; } x = *s; if (x != *t) { break; } if (!x) { break; } ++s; ++t;
    if (!len--) { return 0; } x = *s; if (x != *t) { break; } if (!x) { break; } ++s; ++t;
    if (!len--) { return 0; } x = *s; if (x != *t) { break; } if (!x) { break; } ++s; ++t;
    if (!len--) { return 0; } x = *s; if (x != *t) { break; } if (!x) { break; } ++s; ++t;
    // clang-format on
  }
  return ((int)(unsigned int)(unsigned char)x) - ((int)(unsigned int)(unsigned char)*t);
}

unsigned int str_len(const char *s)
{
  const char *t = s;

  for (;;) {
    // clang-format off
    if (!*t) { return t - s; } ++t;
    if (!*t) { return t - s; } ++t;
    if (!*t) { return t - s; } ++t;
    if (!*t) { return t - s; } ++t;
    // clang-format on
  }
}

unsigned int str_chr(const char *s, int c)
{
  char ch = c;
  const char *t = s;

  for (;;) {
    // clang-format off
    if (!*t) { break; } if (*t == ch) { break; } ++t;
    if (!*t) { break; } if (*t == ch) { break; } ++t;
    if (!*t) { break; } if (*t == ch) { break; } ++t;
    if (!*t) { break; } if (*t == ch) { break; } ++t;
    // clang-format on
  }
  return t - s;
}

unsigned int str_rchr(const char *s, int c)
{
  char ch = c;
  const char *t = s;
  const char *u = 0;

  for (;;) {
    // clang-format off
    if (!*t) { break; } if (*t == ch) { u = t; } ++t;
    if (!*t) { break; } if (*t == ch) { u = t; } ++t;
    if (!*t) { break; } if (*t == ch) { u = t; } ++t;
    if (!*t) { break; } if (*t == ch) { u = t; } ++t;
    // clang-format on
  }
  if (!u) u = t;
  return u - s;
}

int str_start(const char *s, const char *t)
{
  char x;

  for (;;) {
    // clang-format off
    x = *t++; if (!x) return 1; if (x != *s++) return 0;
    x = *t++; if (!x) return 1; if (x != *s++) return 0;
    x = *t++; if (!x) return 1; if (x != *s++) return 0;
    x = *t++; if (!x) return 1; if (x != *s++) return 0;
    // clang-format on
  }
}

char *str_append(char *dest, const char *s)
{
  static stralloc sa = {0};

  stralloc_copys(&sa, dest);
  stralloc_catb(&sa, s, sizeof(s));
  return sa.s;
}