add primitive load-hyphenation-dictionary

gfngfn · Mar 25, 2024 · 98a956b · 98a956b
1 parent b944260
commit 98a956b
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tools/gencode/vminst.ml b/tools/gencode/vminst.ml
@@ -137,6 +137,20 @@ Context(ctx, { ctxsub with code_text_command = ctcmd; })
         ~is_pdf_mode_primitive:true
         ~code:{|
 Context({ ctx with hyphen_dictionary = hyph; }, ctxsub)
+|}
+    ; inst "LoadHyphenationDictionary"
+        ~name:"load-hyphenation-dictionary"
+        ~type_:Type.(tS @-> tHYPH)
+        ~fields:[
+        ]
+        ~params:[
+          param "abspathstr_hyph" ~type_:"string";
+        ]
+        ~is_pdf_mode_primitive:true
+        ~code:{|
+let abspath_hyph = MyUtil.make_abs_path abspathstr_hyph in
+let hyph = LoadHyph.main abspath_hyph in
+BaseConstant(BCHyphenation(hyph))
 |}
     ; inst "PrimitiveGetLeftMathClass"
         ~name:"get-left-math-class"