From 2eee382a62a909d5a3f2f5eda94f30fe68fd5335 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Fri, 20 Jan 2012 13:41:10 +0000
Subject: initial import of the C runtime

---
 src/runtime/c/gu/intern.c | 59 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 src/runtime/c/gu/intern.c

(limited to 'src/runtime/c/gu/intern.c')

diff --git a/src/runtime/c/gu/intern.c b/src/runtime/c/gu/intern.c
new file mode 100644
index 000000000..35eaa1c5f
--- /dev/null
+++ b/src/runtime/c/gu/intern.c
@@ -0,0 +1,59 @@
+#include "intern.h"
+
+struct GuIntern {
+	GuPool* str_pool;
+	GuMap* map;
+};
+
+GuIntern*
+gu_new_intern(GuPool* str_pool, GuPool* pool)
+{
+	GuIntern* intern = gu_new(GuIntern, pool);
+	intern->str_pool = str_pool;
+	intern->map = gu_new_set(const char*, gu_str_hasher, pool);
+	return intern;
+}
+
+const char*
+gu_intern_str(GuIntern* intern, const char* cstr)
+{
+	const char* const* strp = gu_map_find_key(intern->map, &cstr);
+	if (strp) {
+		return *strp;
+	}
+	const char* str = gu_strdup(cstr, intern->str_pool);
+	gu_map_insert(intern->map, &str);
+	return str;
+}
+
+
+
+
+struct GuSymTable {
+	GuPool* sym_pool;
+	GuMap* map;
+};
+
+GuSymTable*
+gu_new_symtable(GuPool* sym_pool, GuPool* pool)
+{
+	GuSymTable* tab = gu_new(GuSymTable, pool);
+	tab->sym_pool = sym_pool;
+	tab->map = gu_new_set(GuSymbol, gu_string_hasher, pool);
+	return tab;
+}
+
+GuSymbol
+gu_symtable_intern(GuSymTable* tab, GuString string)
+{
+	if (gu_string_is_stable(string)) {
+		return string;
+	}
+	const GuSymbol* symp = gu_map_find_key(tab->map, &string);
+	if (symp) {
+		return *symp;
+	}
+	GuSymbol sym = gu_string_copy(string, tab->sym_pool);
+	gu_map_insert(tab->map, &sym);
+	return sym;
+}
-- 
cgit v1.2.3