[66_7] herk->utf8 and utf8->herk

TeXmacs/tests/66_7.scm

@@ -0,0 +1,11 @@
+(import (liii check))
+
+(define (test-single-quote)
+  (let ((cork_60 (string (integer->char #x60)))
+        (cork_27 (string (integer->char #x27))))
+    (check (utf8->herk "‘’") => (string-append cork_60 "<#2019>"))
+    (check (herk->utf8 (string-append cork_60 "<#2019>")) => "‘’")))
+
+
+(tm-define (test_66_7)
+  (test-single-quote))

src/Scheme/L3/glue_moebius.lua

@@ -54,6 +54,22 @@ function main()
                 arg_list = {
                     "string"
                 }
+            },
+            {
+                scm_name = "utf8->herk",
+                cpp_name = "utf8_to_herk",
+                ret_type = "string",
+                arg_list = {
+                    "string"
+                }
+            },
+            {
+                scm_name = "herk->utf8",
+                cpp_name = "herk_to_utf8",
+                ret_type = "string",
+                arg_list = {
+                    "string"
+                }
             },
               -- routines for strings in the TeXmacs encoding
             {