mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-26 05:45:37 +03:00
7c1dd210d7
Issue #236
290 lines
6.3 KiB
C
290 lines
6.3 KiB
C
#pragma once
|
|
#include <string.h>
|
|
|
|
#include <carp_memory.h>
|
|
#include <core.h>
|
|
|
|
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) {
|
|
#ifndef OPTIMIZE
|
|
int l = strlen(*s);
|
|
assert(i >= 0);
|
|
assert(i < l);
|
|
#endif
|
|
(*s)[i] = ch;
|
|
}
|
|
|
|
void String_string_MINUS_set_MINUS_at_BANG_(String *into, int i, String *src) {
|
|
char *dest = (*into) + i;
|
|
int lsrc = strlen(*src);
|
|
|
|
#ifndef OPTIMIZE
|
|
int linto = strlen(*into);
|
|
assert(i >= 0);
|
|
/* given a string and indicies
|
|
*
|
|
* 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"
|
|
* ldest = 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 + ldest - 1) < linto
|
|
* (6 + 4 - 1) < 10
|
|
* (10 - 1) < 10
|
|
* 9 < 10
|
|
* true
|
|
*
|
|
* so this write is safe
|
|
*/
|
|
assert((i+lsrc-1) < linto);
|
|
#endif
|
|
|
|
strncpy(dest, *src, lsrc);
|
|
}
|
|
|
|
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);
|
|
return buffer;
|
|
}
|
|
|
|
String StringCopy_append(String a, String b) {
|
|
String buffer = String_append(&a, &b);
|
|
CARP_FREE(a);
|
|
CARP_FREE(b);
|
|
return buffer;
|
|
}
|
|
|
|
int String_length(String *s) {
|
|
return strlen(*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(2);
|
|
snprintf(buffer, 2, "%c", c);
|
|
return buffer;
|
|
}
|
|
|
|
String Char_prn(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);
|
|
}
|
|
|
|
int String_index_MINUS_of_MINUS_from(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(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);
|
|
}
|