mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 20:49:05 +03:00
198 lines
4.1 KiB
C
198 lines
4.1 KiB
C
#pragma once
|
|
#include <string.h>
|
|
|
|
#include <carp_memory.h>
|
|
#include <core.h>
|
|
|
|
void String_delete(String s) {
|
|
CARP_FREE(s);
|
|
}
|
|
|
|
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);
|
|
}
|