initial import of the C runtime

src/runtime/c/gu/str.c

@@ -0,0 +1,85 @@
+#include <gu/assert.h>
+#include <gu/str.h>
+#include <string.h>
+#include <wchar.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+const char gu_empty_str[] = "";
+const char* const gu_null_str = NULL;
+
+char* 
+gu_new_str(size_t size, GuPool* pool)
+{
+	char* str = gu_new_n(char, size + 1, pool);
+	memset(str, '\0', size + 1);
+	return str;
+}
+
+char*
+gu_strdup(const char* cstr, GuPool* pool)
+{
+	int len = strlen(cstr);
+	char* str = gu_new_str(len, pool);
+	memcpy(str, cstr, len);
+	return str;
+}
+
+bool
+gu_str_eq(GuStr s1, GuStr s2)
+{
+	return (strcmp(s1, s2)) == 0;
+}
+
+static bool
+gu_str_is_equal(GuEquality* self, const void* p1, const void* p2)
+{
+	(void) self;
+	const GuStr* sp1 = p1;
+	const GuStr* sp2 = p2;
+	return gu_str_eq(*sp1, *sp2);
+}
+
+static GuHash
+gu_str_hasher_hash(GuHasher* self, const void* p)
+{
+	(void) self;
+	GuHash h = 0;
+	const GuStr* sp = p;
+	for (const char* s = *sp; *s != '\0'; s++) {
+		h = 101 * h + (unsigned char) *s;
+	}
+	return h;
+}
+
+GuHasher gu_str_hasher[1] = {
+	{
+		.eq = { .is_equal = gu_str_is_equal },
+		.hash = gu_str_hasher_hash
+	}
+};
+
+GU_DEFINE_TYPE(GuStr, repr, _);
+
+char* 
+gu_vasprintf(const char* fmt, va_list args, GuPool* pool)
+{
+	va_list args2;
+	va_copy(args2, args);
+	int len = vsnprintf(NULL, 0, fmt, args2);
+	gu_assert_msg(len >= 0, "Invalid format string: \"%s\"", fmt);
+	va_end(args2);
+	char* str = gu_new_str(len, pool);
+	vsnprintf(str, len + 1, fmt, args);
+	return str;
+}
+
+char* 
+gu_asprintf(GuPool* pool, const char* fmt, ...)
+{
+	va_list args;
+	va_start(args, fmt);
+	char* str = gu_vasprintf(fmt, args, pool);
+	va_end(args);
+	return str;
+}