kojote/cmd/ucdtest/main.ha
Drew DeVault 8183289d6f Add line break properties to UCD
Signed-off-by: Drew DeVault <sir@cmpwn.com>
2024-04-16 13:17:50 +02:00

25 lines
517 B
Hare

use fmt;
use os;
use strings;
use unicode;
export fn main() void = {
const in = os::args[1];
const iter = strings::iter(in);
for (true) {
const rn = match (strings::next(&iter)) {
case let rn: rune =>
yield rn;
case => break;
};
const gc = unicode::rune_gc(rn);
const sc = unicode::rune_script(rn);
const lb = unicode::rune_line_break(rn);
fmt::printfln("'{}'/{:x}: {} : {} : {}",
rn, rn: u32,
unicode::gc_code(gc),
unicode::script_code(sc),
unicode::line_break_code(lb))!;
};
};