From e8ee011bf530ce8c9fc8b55ebc05e4258ac2dd21 Mon Sep 17 00:00:00 2001
From: Taylan Kammer <taylan.kammer@gmail.com>
Date: Sun, 16 Feb 2025 22:07:26 +0100
Subject: update

---
 src/libzisp/value/char.zig | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/libzisp/value/char.zig

(limited to 'src/libzisp/value/char.zig')

diff --git a/src/libzisp/value/char.zig b/src/libzisp/value/char.zig
new file mode 100644
index 0000000..7034128
--- /dev/null
+++ b/src/libzisp/value/char.zig
@@ -0,0 +1,24 @@
+const Value = @import("../value.zig").Value;
+
+pub fn check(v: Value) bool {
+    return v.isPacked() and
+        !v.char.fixnum and
+        !v.char.ptr and
+        v.char.tag == .char;
+}
+
+pub fn assert(v: Value) void {
+    if (!check(v)) {
+        v.dump();
+        @panic("not char");
+    }
+}
+
+pub fn pack(c: u21) Value {
+    return .{ .char = .{c} };
+}
+
+pub fn unpack(v: Value) u21 {
+    assert(v);
+    return v.char.value;
+}
-- 
cgit v1.2.3