feat(vm): Add Char <-> Int conversion functions

gluon-lang · Mar 30, 2018 · 620df40 · 620df40
1 parent ecbbc13
commit 620df40
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/tests/pass/char.glu b/tests/pass/char.glu
@@ -0,0 +1,11 @@
+let { run, Test, assert_eq, test, group, ? }  = import! std.test
+let { (<|) } = import! std.function
+let prelude  = import! std.prelude
+let { Applicative, (*>), ? } = import! std.applicative
+let char @ { ? } = import! std.char
+
+group "char" [
+    test "from_int" <| \_ -> assert_eq (char.from_int 97) (Some 'a'),
+    test "from_int_error" <| \_ -> assert_eq (char.from_int 0x110000) None,
+    test "to_int" <| \_ -> assert_eq (char.to_int 'a') 97,
+]
diff --git a/vm/src/primitives.rs b/vm/src/primitives.rs
@@ -465,6 +465,8 @@ pub fn load_char(vm: &Thread) -> Result<ExternModule> {
     ExternModule::new(
         vm,
         record! {
+            from_int => named_primitive!(1, "std.char.prim.from_int", ::std::char::from_u32),
+            to_int => named_primitive!(1, "std.char.prim.to_int", |c: char| c as u32),
             is_digit => primitive!(2 std::char::prim::is_digit),
             to_digit => primitive!(2 std::char::prim::to_digit),
             len_utf8 => primitive!(1 std::char::prim::len_utf8),