From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Thu, 9 Mar 2023 11:25:29 +0000 (+0900)
Subject: gzip.save -> write(gzip.compress()) (gzip.save does not work?)
X-Git-Tag: 20230409.0~14
X-Git-Url: http://git.osdn.jp/view?a=commitdiff_plain;h=82571daa3d4a0926ead859e079208fe74fd88e2d;p=luatex-ja%2Fluatexja.git

gzip.save -> write(gzip.compress()) (gzip.save does not work?)
---

diff --git a/src/ltj-base.lua b/src/ltj-base.lua
index 4a95616..2af3908 100644
--- a/src/ltj-base.lua
+++ b/src/ltj-base.lua
@@ -285,12 +285,17 @@ do
       end
    end
 
+   local compress, decompress = gzip.compress, gzip.decompress
    local function save_cache(filename, t)
       local fullpath = savepath .. '/' ..  filename .. '.lua.gz'
       local s = serialize(t, 'return', false, serial_spec)
       if s then
-         gzip.save(fullpath, s, 1)
-         texio.write('log', '(save cache: ' .. fullpath .. ')')
+	 local f = io.open(fullpath, 'wb')
+	 if f then
+	    f:write(compress(s, 31))
+	    texio.write('log', '(save cache: ' .. fullpath .. ')')
+            f:close()
+	 end
          save_cache_luc(filename, t, s)
       end
    end
@@ -302,7 +307,8 @@ do
 	 if isreadable(fn) then
 	    texio.write('log','(load cache: ' .. filename .. ')')
 	    if compressed then
-	      result = loadstring(gzip.load(fn))
+	      local f = io.open(fn, 'rb');  result = f:read'*a'; f:close()
+	      result = loadstring(decompress(result, 31))
 	    else
 	      result = loadfile(fn)
 	    end