From a995e0f6a8cbf6d56a99f79a7107508f4d4b038c Mon Sep 17 00:00:00 2001
From: Philipp Gesang <phg@phi-gamma.net>
Date: Fri, 8 Apr 2016 23:26:02 +0200
Subject: [db] ditch our gzip wrappers

We again depend on the full Lualibs set for some time so our wrappers
are irrelevant as we can just use the similar once from there.
---
 src/luaotfload-database.lua | 45 ++++-----------------------------------------
 1 file changed, 4 insertions(+), 41 deletions(-)

diff --git a/src/luaotfload-database.lua b/src/luaotfload-database.lua
index 0adc262..f5aacbc 100644
--- a/src/luaotfload-database.lua
+++ b/src/luaotfload-database.lua
@@ -57,7 +57,8 @@ local fontloaderinfo           = fontloader.info
 local fontloaderclose          = fontloader.close
 local fontloaderopen           = fontloader.open
 ----- fontloaderto_table       = fontloader.to_table
-local gzipopen                 = gzip.open
+local gzipload                 = gzip.load
+local gzipsave                 = gzip.save
 local iolines                  = io.lines
 local ioopen                   = io.open
 local iopopen                  = io.popen
@@ -361,44 +362,6 @@ local initialize_namedata = function (formats, created)
     }
 end
 
---[[doc--
-
-    Since Luaotfload does not depend on the lualibs anymore we
-    have to put our own small wrappers for the gzip library in
-    place.
-
-    load_gzipped -- Read and decompress and entire gzipped file.
-    Returns the uncompressed content as a string.
-
---doc]]--
-
-local load_gzipped = function (filename)
-    local gh = gzipopen (filename,"rb")
-    if gh then
-        local data = gh:read "*all"
-        gh:close ()
-        return data
-    end
-end
-
---[[doc--
-
-    save_gzipped -- Compress and write a string to file. The return
-    value is the number of bytes written. Zlib parameters are: best
-    compression and default strategy.
-
---doc]]--
-
-local save_gzipped = function (filename, data)
-    local gh = gzipopen (filename, "wb9")
-    if gh then
-        gh:write (data)
-        local bytes = gh:seek ()
-        gh:close ()
-        return bytes
-    end
-end
-
 --- When loading a lua file we try its binary complement first, which
 --- is assumed to be located at an identical path, carrying the suffix
 --- .luc.
@@ -427,7 +390,7 @@ local load_lua_file = function (path)
 
     if not code then --- probe gzipped file
         foundname = filereplacesuffix (path, "lua.gz")
-        local chunk = load_gzipped (foundname)
+        local chunk = gzipload (foundname)
         if chunk then
             code = load (chunk, "t")
         end
@@ -3298,7 +3261,7 @@ save_names = function (currentnames)
         local gzname = luaname .. ".gz"
         if config.luaotfload.db.compress then
             local serialized = tableserialize (currentnames, true)
-            save_gzipped (gzname, serialized)
+            gzipsave (gzname, serialized)
             caches.compile (currentnames, "", lucname)
         else
             tabletofile (luaname, currentnames, true)
-- 
cgit v1.2.3