Str.h

#pragma once
 
#include <stdio.h>
#include <string.h>
 
#include "AudioTools/AudioLogger.h"
 
namespace audio_tools {
 
class Str {
 public:
  Str() = default;
 
  Str(const char* chars) {
    if (chars != nullptr) {
      int len = strlen(chars);
      set((char*)chars, len, len, true);
    } else {
      this->is_const = true;
      clear();
    }
  }
 
  Str(char chars[], int maxlen, int len = 0) { set(chars, maxlen, len, false); }
 
  virtual void set(const char* alt) {
    if (alt == nullptr) {
      this->len = 0;
    } else {
      int new_len = strlen(alt);
      grow(new_len);
      this->len = new_len;
      if (this->isConst()) {
        this->maxlen = this->len;
        this->chars = (char*)alt;
      } else {
        strncpy(this->chars, alt, this->maxlen);
        this->chars[len] = 0;
      }
    }
  }
  virtual void set(const Str& alt) {
    grow(alt.len);
    this->len = alt.len;
 
    if (this->isConst()) {
      this->chars = alt.chars;
    } else {
      strncpy(this->chars, alt.chars, this->maxlen);
      this->chars[len] = 0;
    }
  }
 
  virtual void set(const char c) {
    clear();
    add(c);
  }
 
  virtual void set(int value) {
    clear();
    add(value);
  }
 
  virtual void set(double value, int precision = 2, int withd = 0) {
    clear();
    add(value);
  }
 
  virtual void swap(Str& str) {
    char* cpy_chars = chars;
    ;
    bool cpy_is_const = is_const;
    int cpy_len = len;
    int cpy_maxlen = maxlen;
 
    chars = str.chars;
    is_const = str.is_const;
    len = str.len;
    maxlen = str.maxlen;
 
    str.chars = cpy_chars;
    str.is_const = cpy_is_const;
    str.len = cpy_len;
    str.maxlen = cpy_maxlen;
  }
 
  virtual void set(char chars[], int maxlen, int len = 0,
                   bool isConst = false) {
    this->chars = chars;
    this->maxlen = maxlen;
    this->len = len;
    this->is_const = isConst;
    if (len == 0 && !isConst) {
      this->chars[0] = 0;
    }
  }
 
  virtual void add(int value) {
    if (!this->isConst()) {
      grow(this->length() + 11);
      snprintf(this->chars + len, 10, "%d", value);
      len = strlen(chars);
    }
  }
 
  virtual void add(double value, int precision = 2, int withd = 0) {
    if (!this->isConst()) {
      grow(this->length() + 20);
      floatToString(this->chars + len, value, precision, withd);
      len = strlen(chars);
    }
  }
 
  virtual void add(const char* append) {
    if (!isConst() && append != nullptr) {
      int append_len = strlen(append);
      grow(this->length() + append_len + 1);
      int n = (len + append_len) < maxlen - 1 ? append_len : maxlen - len - 1;
      strncat(chars, append, n);
      chars[len + n] = 0;
      len = strlen(chars);
    }
  }
 
  virtual void add(const char c) {
    if (!isConst() && len < maxlen - 1) {
      grow(this->length() + 1);
      chars[len] = c;
      chars[++len] = 0;
    }
  }
 
  virtual bool equals(const char* str) {
    if (str == nullptr) return false;
    return strcmp(this->chars, str) == 0;
  }
 
  virtual bool startsWith(const char* str) {
    if (str == nullptr) return false;
    int len = strlen(str);
    return strncmp(this->chars, str, len) == 0;
  }
 
  virtual bool endsWith(const char* str) {
    if (str == nullptr) return false;
    int endlen = strlen(str);
    return strncmp(this->chars + (len - endlen), str, endlen) == 0;
  }
 
  virtual bool endsWithIgnoreCase(const char* str) {
    if (str == nullptr) return false;
    int endlen = strlen(str);
    return strncmp_i(this->chars + (len - endlen), str, endlen) == 0;
  }
 
 
  virtual bool matches(const char* pattern) {
    int wildcard = 0;
    const char* line = this->chars;
 
    const char* last_pattern_start = 0;
    const char* last_line_start = 0;
    do {
      if (*pattern == *line) {
        if (wildcard == 1) last_line_start = line + 1;
 
        line++;
        pattern++;
        wildcard = 0;
      } else if (*pattern == '?') {
        if (*(line) == '\0')  
          return 0;
        if (wildcard == 1) last_line_start = line + 1;
        line++;
        pattern++;
        wildcard = 0;
      } else if (*pattern == '*') {
        if (*(pattern + 1) == '\0') {
          return 1;
        }
 
        last_pattern_start = pattern;
        // last_line_start = line + 1;
        wildcard = 1;
 
        pattern++;
      } else if (wildcard) {
        if (*line == *pattern) {
          wildcard = 0;
          line++;
          pattern++;
          last_line_start = line + 1;
        } else {
          line++;
        }
      } else {
        if ((*pattern) == '\0' && (*line) == '\0')  
          return 1;  
        else {
          if (last_pattern_start != 0)  
          {
            pattern = last_pattern_start;
            line = last_line_start;
            last_line_start = 0;
          } else {
            return false;
          }
        }
      }
 
    } while (*line);
 
    if (*pattern == '\0') {
      return true;
    } else {
      return false;
    }
  }
 
  virtual int indexOf(const char c, int start = 0) {
    for (int j = start; j < len; j++) {
      if (c == chars[j]) {
        return j;
      }
    }
    return -1;
  }
 
  virtual bool contains(const char* str) { return indexOf(str) != -1; }
 
  virtual int indexOf(const char* cont, int start = 0) {
    if (chars == nullptr || cont == nullptr) return -1;
    int contLen = strlen(cont);
    for (int j = start; j < len; j++) {
      char* pt = chars + j;
      if (strncmp(pt, cont, contLen) == 0) {
        return j;
      }
    }
    return -1;
  }
 
  virtual int lastIndexOf(const char* cont) {
    if (cont == nullptr) return -1;
    int contLen = strlen(cont);
    for (int j = (len - contLen); j >= 0; j--) {
      if (strncmp(cont, chars + j, contLen) == 0) {
        return j;
      }
    }
    return -1;
  }
 
  virtual void operator=(const char* str) { set(str); }
 
  virtual void operator=(char* str) { set(str); }
 
  virtual void operator=(char c) { set(c); }
 
  virtual void operator=(double val) { set(val); }
 
  virtual void operator=(int value) { set(value); }
 
  virtual void operator<<(int n) {
    if (isConst()) {
      this->chars += n;
      this->len -= n;
    } else {
      memmove(this->chars, this->chars + n, len + 1);
    }
  }
 
  virtual char operator[](int index) { return chars[index]; }
 
  virtual void operator+=(const char* str) { add(str); }
 
  virtual void operator+=(int value) { add(value); }
 
  virtual void operator+=(double value) { add(value); }
 
  virtual void operator+=(const char value) { add(value); }
 
  virtual bool operator==(const Str& alt) const {
    if (this->len != alt.len) return false;
    return strncmp(this->chars, alt.chars, this->len) == 0;
  }
 
  virtual bool operator==(const char* alt) const {
    return strncmp(this->chars, alt, this->len) == 0;
  }
 
  virtual bool operator!=(const Str& alt) const {
    return strncmp(this->chars, alt.chars, this->len) != 0;
  }
 
  virtual bool operator!=(const char* alt) const {
    return strncmp(this->chars, alt, this->len) != 0;
  }
 
  virtual const char* c_str() { return chars; }
 
  virtual int length() { return len; }
 
  virtual bool isEmpty() { return len == 0; }
 
  virtual int maxLength() { return maxlen; }
 
  virtual bool replace(const char* toReplace, const char* replaced) {
    bool result = false;
    if (toReplace == nullptr || replaced == nullptr) {
      return result;
    }
    if (!isConst()) {
      int pos = indexOf(toReplace);
      int old_len = length();
      int insert_len = 0;
      if (pos >= 0) {
        int len_replaced = strlen(replaced);
        int len_to_replace = strlen(toReplace);
        insert_len = len_replaced - len_to_replace;
        grow(this->length() + insert_len);
        // save remainder and create gap
        memmove(this->chars + pos + len_replaced,
                this->chars + pos + len_to_replace,
                old_len - pos - len_to_replace + 1);
        // move new string into gap
        memmove(this->chars + pos, replaced, len_replaced);
        result = true;
        len += insert_len;
      }
    }
    return result;
  }
 
  virtual bool replaceAll(const char* toReplace, const char* replaced) {
    if (indexOf(toReplace) == -1) {
      return false;
    }
    while (replace(toReplace, replaced));
    return true;
  }
 
  virtual void remove(const char* toRemove) {
    if (!isConst() && chars != nullptr) {
      int removeLen = strlen(toRemove);
      int pos = indexOf(toRemove);
      if (pos >= 0) {
        memmove((void*)(chars + pos), (void*)(chars + pos + removeLen),
                len - (pos + removeLen) + 1);
        len -= removeLen;
      }
    }
  }
 
  virtual void removeAll(const char* toRemove) {
    if (!isConst() && chars != nullptr) {
      int removeLen = strlen(toRemove);
      while (true) {
        int pos = indexOf(toRemove);
        if (pos == -1) {
          break;
        }
        memmove((void*)(chars + pos), (void*)(chars + pos + removeLen),
                len - (pos + removeLen) + 1);
        len -= removeLen;
      }
    }
  }
 
  virtual void setLength(int len, bool addZero = true) {
    if (!isConst() && addZero) {
      this->savedChar = chars[len];
      this->savedLen = len;
      this->len = len;
      chars[len] = 0;
    }
  }
 
  virtual void setLengthUndo() {
    if (savedLen >= 0) {
      chars[len] = savedChar;
      this->len = savedLen;
      savedLen = -1;
    }
  }
 
  virtual void substring(Str& from, int start, int end) {
    if (end > start) {
      int len = end - start;
      grow(len);
      if (this->chars != nullptr) {
        len = len < this->maxlen ? len : this->maxlen;
        strncpy(this->chars, from.chars + start, len);
        this->len = len;
        this->chars[len] = 0;
      }
    }
  }
 
  virtual void substring(const char* from, int start, int end) {
    if (end > start) {
      int len = end - start;
      grow(len);
      if (this->chars != nullptr) {
        strncpy(this->chars, from + start, len);
        this->chars[len] = 0;
        this->len = len;
      }
    }
  }
 
  virtual void trim() {
    if (chars == nullptr) return;
    rtrim();
    ltrim();
  }
 
  virtual int count(char c, int startPos) {
    for (int j = startPos; j < len; j++) {
      if (chars[j] != c) {
        return j;
      }
    }
    return 0;
  }
 
  virtual void ltrim() {
    if (chars == nullptr) return;
    int n = count(' ', 0);
    if (n > 0) *this << n;
  }
 
  virtual void rtrim() {
    if (chars == nullptr) return;
    if (!isConst()) {
      while (isspace(chars[len])) {
        len--;
        chars[len] = 0;
      }
    }
  }
 
  virtual void clear() {
    if (chars != nullptr && !isConst()) {
      chars[0] = 0;
    }
    len = 0;
  }
 
  virtual bool isOnHeap() { return false; }
 
  virtual bool isConst() { return is_const; }
 
  virtual void insert(int pos, const char* str) {
    if (!isConst()) {
      int insert_len = strlen(str);
      grow(this->length() + insert_len);
      int move_len = this->len - pos + 1;
      memmove(chars + pos + insert_len, chars + pos, move_len);
      strncpy(chars + pos, str, insert_len);
    }
  }
 
  virtual bool equalsIgnoreCase(const char* alt) const {
    if ((size_t)len != strlen(alt)) {
      return false;
    }
    for (int j = 0; j < len; j++) {
      if (tolower(chars[j]) != tolower(alt[j])) return false;
    }
    return true;
  }
 
  int toInt() {
    int result = 0;
    if (!isEmpty()) {
      result = atoi(chars);
    }
    return result;
  }
 
  long toLong() {
    long result = 0;
    if (!isEmpty()) {
      result = atol(chars);
    }
    return result;
  }
 
  double toDouble() {
    double result = 0;
    char* eptr;
    if (!isEmpty()) {
      result = strtod(chars, &eptr);
    }
    return result;
  }
 
  void toLowerCase() {
    if (chars != nullptr) {
      for (int j = 0; j < len; j++) {
        chars[j] = tolower(chars[j]);
      }
    }
  }
 
  void toUpperCase() {
    if (chars != nullptr) {
      for (int j = 0; j < len; j++) {
        chars[j] = toupper(chars[j]);
      }
    }
  }
 
  static const char* toBinary(void const* const ptr, size_t const size) {
    static char result[160];
    unsigned char* b = (unsigned char*)ptr;
    unsigned char byte;
    int i, j, idx = 0;
 
    for (i = size - 1; i >= 0; i--) {
      for (j = 7; j >= 0; j--) {
        byte = (b[i] >> j) & 1;
        result[idx++] = byte ? '1' : '0';
      }
    }
    result[idx] = 0;
    return result;
  }
 
  bool containsNumber() {
    for (int j = 0; j < len; j++) {
      if (isdigit(chars[j])) {
        return true;
      }
    }
    return false;
  }
 
  bool isInteger() {
    bool result = containsNumber();
    int minus_count = 0;
    for (int j = 0; j < len; j++) {
      char c = chars[j];
      if (!isdigit(c)) {
        switch (c) {
          case '-':
            minus_count++;
            if (minus_count > 1) {
              result = false;
            }
            break;
          default:
            result = false;
            break;
        }
      }
    }
    return result;
  }
 
  int numberOfDecimals() {
    int result = 0;
    int pos = indexOf(".");
    if (pos >= 0) {
      for (int j = pos + 1; j < len; j++) {
        if (isdigit(chars[j])) {
          pos++;
        } else {
          break;
        }
      }
    }
    return result;
  }
 
  // Returns true if the string is a number
  bool isNumber() {
    bool result = containsNumber();
    int dot_count = 0;
    int minus_count = 0;
    for (int j = 0; j < len; j++) {
      char c = chars[j];
      if (!isdigit(c)) {
        switch (c) {
          case '-':
            minus_count++;
            if (minus_count > 1) {
              result = false;
            }
            break;
          case '.':
            dot_count++;
            if (dot_count > 1) {
              result = false;
            }
            break;
          default:
            result = false;
            break;
        }
      }
    }
    return result;
  }
 
 protected:
  char* chars = nullptr;
  bool is_const = false;
  int len = 0;
  int maxlen = 0;
  int savedLen = -1;
  char savedChar;
 
  virtual bool grow(int newMaxLen) { return false; }
 
  static char* itoa(int n, char s[]) {
    int i, sign;
    if ((sign = n) < 0) /* record sign */
      n = -n;           /* make n positive */
    i = 0;
    do {                     /* generate digits in reverse order */
      s[i++] = n % 10 + '0'; /* get next digit */
    } while ((n /= 10) > 0); /* delete it */
    if (sign < 0) s[i++] = '-';
    s[i] = '\0';
    reverse(s);
    return s;
  }
 
  static void reverse(char s[]) {
    int i, j;
    char c;
 
    for (i = 0, j = strlen(s) - 1; i < j; i++, j--) {
      c = s[i];
      s[i] = s[j];
      s[j] = c;
    }
  }
 
  static char* floatToString(char* outstr, double val, int precision,
                             int widthp) {
    char temp[16];
    int i;
 
    double roundingFactor = 0.5;
    unsigned long mult = 1;
    for (i = 0; i < precision; i++) {
      roundingFactor /= 10.0;
      mult *= 10;
    }
 
    temp[0] = '\0';
    outstr[0] = '\0';
 
    if (val < 0.0) {
      strcpy(outstr, "-\0");
      val = -val;
    }
 
    val += roundingFactor;
 
    strcat(outstr, itoa(int(val), temp));  // prints the int part
    if (precision > 0) {
      strcat(outstr, ".\0");  
      unsigned long frac;
      unsigned long mult = 1;
      int padding = precision - 1;
      while (precision--) mult *= 10;
 
      if (val >= 0)
        frac = (val - int(val)) * mult;
      else
        frac = (int(val) - val) * mult;
      unsigned long frac1 = frac;
 
      while (frac1 /= 10) padding--;
 
      while (padding--) strcat(outstr, "0\0");
 
      strcat(outstr, itoa(frac, temp));
    }
 
    if ((widthp != 0) && ((size_t)widthp >= strlen(outstr))) {
      int J = 0;
      J = widthp - strlen(outstr);
 
      for (i = 0; i < J; i++) {
        temp[i] = ' ';
      }
 
      temp[i++] = '\0';
      strcat(temp, outstr);
      strcpy(outstr, temp);
    }
 
    return outstr;
  }
 
  static int strncmp_i(const char* s1, const char* s2, int n) {
    if (n == 0) return (0);
    do {
      if (tolower(*s1) != tolower(*s2++))
        return (*(unsigned char*)s1 - *(unsigned char*)--s2);
      if (*s1++ == 0) break;
    } while (--n != 0);
    return (0);
  }
};
 
}  // namespace audio_tools