mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
324 lines
7.6 KiB
C
324 lines
7.6 KiB
C
String String_allocate(int len, char byte) {
|
|
/* Allocate a string of length 'len + 1'
|
|
* setting the first len bytes to byte
|
|
* and adding a null terminator
|
|
*
|
|
* String_alloc(10, "a") == "aaaaaaaaaa"
|
|
*/
|
|
String ptr = CARP_MALLOC(len + 1);
|
|
memset(ptr, byte, len);
|
|
ptr[len] = '\0';
|
|
return ptr;
|
|
}
|
|
|
|
void String_delete(String s) {
|
|
CARP_FREE(s);
|
|
}
|
|
|
|
void String_string_MINUS_set_BANG_(String *s, int i, char ch) {
|
|
CHK_INDEX(i, strlen(*s));
|
|
(*s)[i] = ch;
|
|
}
|
|
|
|
void String_string_MINUS_set_MINUS_at_BANG_(String *into, int i,
|
|
const String *src) {
|
|
char *dest = (*into) + i;
|
|
size_t lsrc = strlen(*src);
|
|
/* given a string and indices
|
|
*
|
|
* 0 1 2 3 4 5 6 7 8 9
|
|
* "a b c d e f g h i j"
|
|
* linto = strlen(...) = 10
|
|
*
|
|
* if we want to insert at '6' a string of length '4'
|
|
*
|
|
* 0 1 2 3
|
|
* "w x y z"
|
|
* lsrc = strlen(...) = 4
|
|
*
|
|
* we need to make sure that the new string will not grow the first
|
|
*
|
|
* 0 1 2 3 4 5 6 7 8 9
|
|
* "a b c d e f g h i j"
|
|
* ^
|
|
* |
|
|
* 0 1 2 3
|
|
* "w x y z"
|
|
*
|
|
* we check this by
|
|
* (i + lsrc) < (linto + 1)
|
|
* (6 + 4) < (10 + 1)
|
|
* 10 < 11
|
|
* true
|
|
*
|
|
* so this write is safe
|
|
*/
|
|
CHK_INDEX(i + lsrc, strlen(*into) + 1);
|
|
memcpy(dest, *src, lsrc);
|
|
}
|
|
|
|
String String_copy(const String *s) {
|
|
size_t len = strlen(*s) + 1;
|
|
String ptr = CARP_MALLOC(len);
|
|
return (String)memcpy(ptr, *s, len);
|
|
}
|
|
|
|
bool String__EQ_(const String *a, const String *b) {
|
|
return strcmp(*a, *b) == 0;
|
|
}
|
|
|
|
bool String__GT_(const String *a, const String *b) {
|
|
return strcmp(*a, *b) > 0;
|
|
}
|
|
|
|
bool String__LT_(const String *a, const String *b) {
|
|
return strcmp(*a, *b) < 0;
|
|
}
|
|
|
|
String String_append(const String *a, const String *b) {
|
|
int la = strlen(*a);
|
|
int lb = strlen(*b);
|
|
int total = la + lb + 1;
|
|
String buffer = CARP_MALLOC(total);
|
|
memcpy(buffer, *a, la);
|
|
memcpy(buffer + la, *b, lb);
|
|
buffer[la + lb] = '\0';
|
|
return buffer;
|
|
}
|
|
|
|
int String_length(const String *s) {
|
|
return strlen(*s);
|
|
}
|
|
|
|
char *String_cstr(const String *s) {
|
|
return *s;
|
|
}
|
|
|
|
String String_from_MINUS_cstr(char *s) {
|
|
return String_copy(&s);
|
|
}
|
|
|
|
String String_str(const String *s) {
|
|
return String_copy(s);
|
|
}
|
|
|
|
String String_prn(const String *s) {
|
|
int n = strlen(*s) + 4;
|
|
String buffer = CARP_MALLOC(n);
|
|
sprintf(buffer, "@\"%s\"", *s);
|
|
return buffer;
|
|
}
|
|
|
|
char String_char_MINUS_at(const String *s, int i) {
|
|
return (*s)[i];
|
|
}
|
|
|
|
String String_format(const String *str, const String *s) {
|
|
int size = snprintf(NULL, 0, *str, *s) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, *str, *s);
|
|
return buffer;
|
|
}
|
|
|
|
static size_t utf8len(const char *s) {
|
|
size_t l = 0;
|
|
for (size_t i = 0; s[i]; i++) l += (s[i] & 0xC0) != 0x80;
|
|
return l;
|
|
}
|
|
|
|
static size_t wutf8len(const wchar_t *s, size_t cnt) {
|
|
size_t l = 0;
|
|
for (size_t i = 0; i < cnt; i++) l += snprintf(0, 0, "%lc", s[i]);
|
|
return l;
|
|
}
|
|
|
|
Array String_chars(const String *s) {
|
|
int r;
|
|
Char *data;
|
|
Array chars;
|
|
chars.len = utf8len(*s);
|
|
chars.capacity = chars.len + 1;
|
|
data = CARP_MALLOC(chars.capacity * sizeof(*data));
|
|
r = sscanf(*s, "%l[^]", (wchar_t *)data);
|
|
chars.data = data;
|
|
assert(r == 1 || chars.len == 0);
|
|
return chars;
|
|
}
|
|
|
|
String String_from_MINUS_chars(const Array *a) {
|
|
wchar_t *data = (wchar_t *)a->data;
|
|
size_t cnt = a->len;
|
|
size_t sz = wutf8len(data, cnt) + 1;
|
|
String s = CARP_MALLOC(sz);
|
|
size_t sofar = 0;
|
|
for (size_t i = 0; i < cnt; i++)
|
|
sofar += snprintf(s + sofar, sz - sofar, "%lc", data[i]);
|
|
s[sofar] = 0;
|
|
return s;
|
|
}
|
|
|
|
String String_tail(const String *s) {
|
|
size_t 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) {
|
|
const String true_str = "true";
|
|
const String false_str = "false";
|
|
if (b) {
|
|
return String_copy(&true_str);
|
|
} else {
|
|
return String_copy(&false_str);
|
|
}
|
|
}
|
|
|
|
String Bool_format(const String *str, bool b) {
|
|
int size = snprintf(NULL, 0, *str, b) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, *str, b);
|
|
return buffer;
|
|
}
|
|
|
|
String Char_str(int c) {
|
|
char buf[16];
|
|
int sz = snprintf(buf, sizeof(buf), "%lc", c);
|
|
size_t nsz = sz + 1;
|
|
String buffer = CARP_MALLOC(nsz);
|
|
assert(sz > 0);
|
|
memcpy(buffer, buf, nsz);
|
|
return buffer;
|
|
}
|
|
|
|
String Char_prn(char c) {
|
|
String buffer = CARP_MALLOC(3);
|
|
sprintf(buffer, "\\%c", c);
|
|
return buffer;
|
|
}
|
|
|
|
String Char_format(const String *str, char b) {
|
|
int size = snprintf(NULL, 0, *str, b) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, *str, b);
|
|
return buffer;
|
|
}
|
|
|
|
String Double_str(double x) {
|
|
int size = snprintf(NULL, 0, "%g", x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, "%g", x);
|
|
return buffer;
|
|
}
|
|
|
|
String Double_format(const String *s, double x) {
|
|
int size = snprintf(NULL, 0, *s, x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, *s, x);
|
|
return buffer;
|
|
}
|
|
|
|
double Double_from_MINUS_string(const String *s) {
|
|
return strtod(*s, NULL);
|
|
}
|
|
|
|
String Float_str(float x) {
|
|
int size = snprintf(NULL, 0, "%gf", x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, "%gf", x);
|
|
return buffer;
|
|
}
|
|
|
|
String Float_format(const String *str, float x) {
|
|
int size = snprintf(NULL, 0, *str, x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, *str, x);
|
|
return buffer;
|
|
}
|
|
|
|
float Float_from_MINUS_string(const String *s) {
|
|
return strtof(*s, NULL);
|
|
}
|
|
|
|
String Int_str(int x) {
|
|
int size = snprintf(NULL, 0, "%d", x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, "%d", x);
|
|
return buffer;
|
|
}
|
|
|
|
String Int_format(const String *str, int x) {
|
|
int size = snprintf(NULL, 0, *str, x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, *str, x);
|
|
return buffer;
|
|
}
|
|
|
|
int Int_from_MINUS_string(const String *s) {
|
|
return atoi(*s);
|
|
}
|
|
|
|
String Long_str(Long x) {
|
|
int size = snprintf(NULL, 0, "%" PRIi64, x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, "%" PRIi64, x);
|
|
return buffer;
|
|
}
|
|
|
|
String Long_format(const String *str, Long x) {
|
|
int size = snprintf(NULL, 0, *str, x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, *str, x);
|
|
return buffer;
|
|
}
|
|
|
|
Long Long_from_MINUS_string(const String *s) {
|
|
return atol(*s);
|
|
}
|
|
|
|
String Byte_str(uint8_t x) {
|
|
int size = snprintf(NULL, 0, "%ub", x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, "%ub", x);
|
|
return buffer;
|
|
}
|
|
|
|
String Byte_format(const String *str, uint8_t x) {
|
|
int size = snprintf(NULL, 0, *str, x) + 1;
|
|
String buffer = CARP_MALLOC(size);
|
|
sprintf(buffer, *str, x);
|
|
return buffer;
|
|
}
|
|
|
|
uint8_t Byte_from_MINUS_string(const String *s) {
|
|
return atoi(*s);
|
|
}
|
|
|
|
int String_index_MINUS_of_MINUS_from(const String *s, char c, int i) {
|
|
/* Return index of first occurrence of `c` in `s` AFTER index i
|
|
* Returns -1 if not found
|
|
*/
|
|
++i; // skip first character as we want AFTER i
|
|
int len = strlen(*s);
|
|
for (; i < len; ++i) {
|
|
if (c == (*s)[i]) {
|
|
return i;
|
|
}
|
|
}
|
|
return -1;
|
|
}
|
|
|
|
int String_index_MINUS_of(const String *s, char c) {
|
|
/* Return index of first occurrence of `c` in `s`
|
|
* Returns -1 if not found
|
|
*/
|
|
return String_index_MINUS_of_MINUS_from(s, c, -1);
|
|
}
|