kinsoku: create ltj-kinsoku.{lua.gz,luc} if not found

[luatex-ja/luatexja.git] / src / luatexja.lua

diff --git a/src/luatexja.lua b/src/luatexja.lua
index 988f519..5b8dfd1 100644 (file)
--- a/src/luatexja.lua
+++ b/src/luatexja.lua
@@ -347,6 +347,22 @@ do
    end
 end
 
+do
+    local cache_ver = 1 -- must be same as ltj-kinsoku.tex
+    local cache_outdate_fn = function (t) return t.version~=cache_ver end
+    local t = luatexja.stack.charprop_stack_table
+    function luatexja.load_kinsoku()
+        for i,_ in pairs(t) do t[i]=nil; end
+        tex.setcount('ltj@@stack',0)
+        local kinsoku = ltjb.load_cache('ltj-kinsoku',cache_outdate_fn)
+        t[0] = kinsoku and kinsoku[1] or {}
+        if t[0] then
+            tex.print(cat_lp, '\\input ltj-kinsoku.tex\\relax')
+        end
+        luatexja.load_kinsoku=nil
+    end
+end
+
 -- debug
 
 do