67 lines
1.7 KiB
Plaintext
67 lines
1.7 KiB
Plaintext
import "@std/mem"
|
|
import "@std/arraylist"
|
|
import "@std/hashmap"
|
|
|
|
# cross-cutting concern, hence global singleton (owned by main.hon)
|
|
strings StringPool := undefined
|
|
|
|
InternError :: enum { out_of_space }
|
|
|
|
StringId :: alias u32
|
|
|
|
NO_ID_STR :: maxval!(StringId)
|
|
|
|
StringPool :: struct {
|
|
ids hashmap.StringHashMap(StringId) # string → id
|
|
strings arraylist.ArrayList([]u8) # id → owned string
|
|
allocator mem.Allocator
|
|
}
|
|
|
|
init proc(allocator mem.Allocator) StringPool {
|
|
return StringPool{
|
|
ids = hashmap.init(allocator),
|
|
strings = arraylist.init(allocator),
|
|
allocator = allocator,
|
|
}
|
|
}
|
|
|
|
deinit proc(pool @mut StringPool) void {
|
|
hashmap.deinit(&pool.ids)
|
|
for pool.strings.items |str| {
|
|
mem.free(pool.allocator, str)
|
|
}
|
|
arraylist.deinit(&pool.strings)
|
|
}
|
|
|
|
intern proc(pool @mut StringPool, str []u8) StringId ! (mem.AllocError | InternError) {
|
|
if hashmap.get(&pool.ids, str) |id| return id
|
|
|
|
if (pool.strings.items.len >= usize(NO_ID_STR)) return .out_of_space
|
|
id StringId :: StringId(pool.strings.items.len)
|
|
|
|
owned_str []mut u8 :: try mem.alloc(u8, pool.allocator, str.len)
|
|
errdefer mem.free(pool.allocator, owned_str)
|
|
memcopy!(owned_str, str)
|
|
|
|
try arraylist.append(&pool.strings, owned_str)
|
|
errdefer _ = arraylist.pop(&pool.strings)
|
|
|
|
hashmap.put(&pool.ids, owned_str, id) catch |err| {
|
|
match err {
|
|
.key_exists: unreachable
|
|
else: return err
|
|
}
|
|
}
|
|
|
|
return id
|
|
}
|
|
|
|
get_str proc(pool @StringPool, id StringId) ?[]u8 {
|
|
if (usize(id) >= pool.strings.items.len) return null
|
|
return pool.strings.items[usize(id)]
|
|
}
|
|
|
|
get_id proc(pool @StringPool, str []u8) ?StringId {
|
|
return hashmap.get(&pool.ids, str)
|
|
}
|