blob: 195210e71c679f3c95cb7ffb79a15bfd737470b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
const std = @import("std");
const value = @import("../value.zig");
const ShortString = value.ShortString;
const Value = value.Value;
// Zig API
pub fn check(v: Value) bool {
return v.isOtherTag(.rune);
}
pub fn assert(v: Value) void {
if (!check(v)) {
v.dump();
@panic("not rune");
}
}
pub fn isValidRune(s: []const u8) bool {
if (s.len == 0 or s.len > 6) {
return false;
}
if (!std.ascii.isAlphabetic(s[0])) {
return false;
}
for (s[1..]) |c| {
if (!std.ascii.isAlphanumeric(c)) {
return false;
}
}
return true;
}
fn assertValidRune(s: []const u8) void {
if (!isValidRune(s)) {
std.debug.print("invalid rune: '{s}'\n", .{s});
@panic("invalid rune");
}
}
// See sstr.zig which uses equivalent code; probably good to keep in sync.
pub fn pack(s: []const u8) Value {
assertValidRune(s);
return packForced(s);
}
pub fn packForced(s: []const u8) Value {
var v = Value{ .rune = .{ .name = 0 } };
const dest: [*]u8 = @ptrCast(&v.rune.name);
@memcpy(dest, s);
return v;
}
pub fn unpack(v: Value) ShortString {
assert(v);
const s: [6]u8 = @bitCast(v.rune.name);
inline for (0..6) |i| {
if (s[i] == 0) return .{ .buffer = s, .len = i };
}
return .{ .buffer = s, .len = 6 };
}
// Zisp API
pub fn pred(v: Value) Value {
return value.boole.pack(check(v));
}
pub fn make(v: Value) Value {
const s, const l = value.sstr.unpack(v);
return pack(s[0..l]);
}
pub fn getName(v: Value) Value {
const s, const l = unpack(v);
return value.sstr.pack(s[0..l]);
}
// TODO: Registering decoders
|
