Carp/core/carp_string.h

#pragma once
#include <string.h>

#include <carp_memory.h>
#include <core.h>

void String_delete(String s) {
    CARP_FREE(s);
}

void String_string_MINUS_set_BANG_(String *s, int i, char ch) {
    (*s)[i] = ch;
}

String String_copy(String *s) {
    size_t len = strlen(*s) + 1;
    String ptr = CARP_MALLOC(len);

    if (ptr == NULL) {
      return NULL;
    }

    return (String) memcpy(ptr, *s, len);
}

bool String__EQ_(String *a, String *b) {
    return strcmp(*a, *b) == 0;
}

String String_append(String a, String b) {
    int la = strlen(a);
    int lb = strlen(b);
    int total = la + lb + 1;
    String buffer = CARP_MALLOC(total);
    snprintf(buffer, total, "%s%s", a, b);
    CARP_FREE(a);
    CARP_FREE(b);
    return buffer;
}

int String_count(String *s) {
    return strlen(*s);
}

// Replace with 'copy' later:
String String_duplicate(String *s) {
    return String_copy(s);
}

char* String_cstr(String *s) {
    return *s;
}

String String_str(String *s) {
    int n = strlen(*s) + 1;
    String buffer = CARP_MALLOC(n);
    snprintf(buffer, n, "%s", *s);
    return buffer;
}


String String_prn(String *s) {
    int n = strlen(*s) + 4;
    String buffer = CARP_MALLOC(n);
    snprintf(buffer, n, "@\"%s\"", *s);
    return buffer;
}

char String_char_MINUS_at(String* s, int i) {
  return (*s)[i];
}

String String_format(String *str, String *s) {
    int size = snprintf(NULL, 0, *str, *s)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, *str, *s);
    return buffer;
}

Array String_chars(String *s) {
    Array chars;
    chars.len = strlen(*s);
    chars.capacity = chars.len;
    chars.data = String_copy(s);
    return chars;
}

String String_from_MINUS_chars(Array *a) {
    String s = CARP_MALLOC(a->len+1);
    memmove(s, a->data, a->len);
    s[a->len] = '\0';
    return s;
}

String String_tail(String* s) {
  int len = strlen(*s);
  String news = CARP_MALLOC(len);
  memcpy(news, (*s)+1, len-1);
  news[len-1] = '\0';
  return news;
}

String String_empty() {
    String s = CARP_MALLOC(1);
    s[0] = '\0';
    return s;
}

String Bool_str(bool b) {
    String true_str = "true";
    String false_str = "false";
    if(b) {
        return String_copy(&true_str);
    } else {
        return String_copy(&false_str);
    }
}

String Bool_format(String* str, bool b) {
    int size = snprintf(NULL, 0, *str, b)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, *str, b);
    return buffer;
}

String Char_str(char c) {
    String buffer = CARP_MALLOC(3);
    snprintf(buffer, 3, "\\%c", c);
    return buffer;
}

String Char_format(String* str, char b) {
    int size = snprintf(NULL, 0, *str, b)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, *str, b);
    return buffer;
}

String Double_str(double x) {
    int size = snprintf(NULL, 0, "%g", x)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, "%g", x);
    return buffer;
}

String Double_format(String* s, double x) {
    int size = snprintf(NULL, 0, *s, x)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, *s, x);
    return buffer;
}

String Float_str(float x) {
    int size = snprintf(NULL, 0, "%gf", x)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, "%gf", x);
    return buffer;
}

String Float_format(String* str, float x) {
    int size = snprintf(NULL, 0, *str, x)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, *str, x);
    return buffer;
}

String Int_str(int x) {
    int size = snprintf(NULL, 0, "%d", x)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, "%d", x);
    return buffer;
}

String Int_format(String* str, int x) {
    int size = snprintf(NULL, 0, *str, x)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, *str, x);
    return buffer;
}

int Int_from_MINUS_string(String *s) {
    return atoi(*s);
}

String Long_str(long x) {
    int size = snprintf(NULL, 0, "%ldl", x)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, "%ldl", x);
    return buffer;
}

String Long_format(String* str, long x) {
    int size = snprintf(NULL, 0, *str, x)+1;
    String buffer = CARP_MALLOC(size);
    snprintf(buffer, size, *str, x);
    return buffer;
}

long Long_from_MINUS_string(String *s) {
    return atol(*s);
}