# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1274929264 -3600
# Node ID 165b36273ce75adbc9372d37b905a8e894e47d1a
# Parent  17121881cbf7564548972d297887c8c86d7d90c7
gzip: Add support for gzipping output files, based on a very hacked compress.deflatelua by David Manura

diff -r 17121881cbf7 -r 165b36273ce7 gzip/deflatelua.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gzip/deflatelua.lua	Thu May 27 04:01:04 2010 +0100
@@ -0,0 +1,476 @@
+-- dmlib.deflate
+-- deflate (and gunzip) implemented in Lua.
+--
+-- Note: only supports decompression.
+-- Compression not implemented.
+--
+-- References
+-- [1] DEFLATE Compressed Data Format Specification version 1.3
+--     http://tools.ietf.org/html/rfc1951
+-- [2] GZIP file format specification version 4.3
+--     http://tools.ietf.org/html/rfc1952
+-- [3] http://en.wikipedia.org/wiki/DEFLATE
+-- [4] pyflate, by Paul Sladen
+--     http://www.paul.sladen.org/projects/pyflate/
+-- [5] Compress::Zlib::Perl - partial pure Perl implementation of
+--     Compress::Zlib
+--     http://search.cpan.org/~nwclark/Compress-Zlib-Perl/Perl.pm
+--
+-- (c) 2008 David Manura.  Licensed under the same terms as Lua (MIT).
+
+local assert, error, ipairs, pairs, tostring, type, setmetatable, io, math, table_sort, 
+	math_max, string_char, io_open, _G =
+      assert, error, ipairs, pairs, tostring, type, setmetatable, io, math, table.sort, 
+	math.max, string.char, io.open, _G;
+
+local function memoize(f)
+  local mt = {};
+  local t = setmetatable({}, mt)
+  function mt:__index(k)
+    local v = f(k); t[k] = v
+    return v
+  end
+  return t
+end
+
+local function runtime_error(s, level)
+  level = level or 1
+  error({s}, level+1)
+end
+
+
+local function make_os(outbs)
+  local os = {}
+  os.outbs = outbs
+  os.wnd = {}
+  os.wnd_pos = 1
+  return os
+end
+
+
+local function output(os, byte)
+  -- debug('OUTPUT:', s)
+  local wnd_pos = os.wnd_pos
+  os.outbs(byte)
+  os.wnd[wnd_pos] = byte
+  os.wnd_pos = wnd_pos % 32768 + 1  -- 32K
+end
+
+
+local function noeof(val)
+  return assert(val, 'unexpected end of file')
+end
+
+
+local function hasbit(bits, bit)
+  return bits % (bit + bit) >= bit
+end
+
+
+-- small optimization (lookup table for powers of 2)
+local pow2 = memoize(function(n) return 2^n end)
+--local tbits = memoize(
+--  function(bits)
+--    return memoize( function(bit) return getbit(bits, bit) end )
+--  end )
+
+
+-- weak metatable marking objects as bitstream type
+local is_bitstream = setmetatable({}, {__mode='k'})
+
+
+
+local function bytestream_from_string(s)
+  local i = 1
+  local o = {}
+  function o:read()
+    local by
+    if i <= #s then
+      by = s:byte(i)
+      i = i + 1
+    end
+    return by
+  end
+  return o
+end
+
+local left
+local function bitstream_from_bytestream(bys)
+  local buf_byte, buf_nbit, o = 0, 0, {};
+ 
+  function o:nbits_left_in_byte()
+    return buf_nbit
+  end
+
+  function o:read(nbits)
+    nbits = nbits or 1
+    while buf_nbit < nbits do
+      local byte = bys:read()
+      if not byte then return end  -- note: more calls also return nil
+      buf_byte = buf_byte + pow2[buf_nbit] * byte
+      buf_nbit = buf_nbit + 8
+    end
+    local m = pow2[nbits]
+    local bits = buf_byte % m
+    buf_byte = (buf_byte - bits) / m
+    buf_nbit = buf_nbit - nbits
+    return bits
+  end
+
+  is_bitstream[o] = true
+
+  return o
+end
+
+
+local function get_bitstream(o)
+    return is_bitstream[o] and o or bitstream_from_bytestream(bytestream_from_string(o))
+end
+
+
+local function get_obytestream(o)
+  local bs
+  if io.type(o) == 'file' then
+    bs = function(sbyte) o:write(string_char(sbyte)) end
+  elseif type(o) == 'function' then
+    bs = o
+  end
+  return bs
+end
+
+
+local function HuffmanTable(init, is_full)
+  local t = {}
+  if is_full then
+    for val,nbits in pairs(init) do
+      if nbits ~= 0 then
+        t[#t+1] = {val=val, nbits=nbits}
+        --debug('*',val,nbits)
+      end
+    end
+  else
+    for i=1,#init-2,2 do
+      local firstval, nbits, nextval = init[i], init[i+1], init[i+2]
+      --debug(val, nextval, nbits)
+      if nbits ~= 0 then
+        for val=firstval,nextval-1 do
+          t[#t+1] = {val=val, nbits=nbits}
+        end
+      end
+    end
+  end
+  table_sort(t, function(a,b)
+    return a.nbits == b.nbits and a.val < b.val or a.nbits < b.nbits
+  end)
+
+  -- assign codes
+  local code = 1  -- leading 1 marker
+  local nbits = 0
+  for i,s in ipairs(t) do
+    if s.nbits ~= nbits then
+      code = code * pow2[s.nbits - nbits]
+      nbits = s.nbits
+    end
+    s.code = code
+    --debug('huffman code:', i, s.nbits, s.val, code, bits_tostring(code))
+    code = code + 1
+  end
+
+  local minbits = math.huge
+  local look = {}
+  for i,s in ipairs(t) do
+    minbits = math.min(minbits, s.nbits)
+    look[s.code] = s.val
+  end
+
+  --for _,o in ipairs(t) do
+  --  debug(':', o.nbits, o.val)
+  --end
+
+  -- function t:lookup(bits) return look[bits] end
+
+  local function msb(bits, nbits)
+    local res = 0
+    for i=1,nbits do
+      local b = bits % 2
+      bits = (bits - b) / 2
+      res = res * 2 + b
+    end
+    return res
+  end
+  local tfirstcode = memoize(
+    function(bits) return pow2[minbits] + msb(bits, minbits) end)
+
+  function t:read(bs)
+    local code, nbits = 1, 0 -- leading 1 marker
+    while 1 do
+      if nbits == 0 then  -- small optimization (optional)
+        code = tfirstcode[noeof(bs:read(minbits))]
+        nbits = nbits + minbits
+      else
+        local b = noeof(bs:read())
+        nbits = nbits + 1
+        --debug('b',b)
+        code = code * 2 + b   -- MSB first
+      end
+      --debug('code?', code, bits_tostring(code))
+      local val = look[code]
+      if val then
+        --debug('FOUND', val)
+        return val
+      end
+    end
+  end
+
+  return t
+end
+
+
+local function parse_gzip_header(bs)
+  -- local FLG_FTEXT = 2^0
+  local FLG_FHCRC = 2^1
+  local FLG_FEXTRA = 2^2
+  local FLG_FNAME = 2^3
+  local FLG_FCOMMENT = 2^4
+
+  local id1 = bs:read(8)
+  local id2 = bs:read(8)
+  local cm = bs:read(8)  -- compression method
+  local flg = bs:read(8) -- FLaGs
+  local mtime = bs:read(32) -- Modification TIME
+  local xfl = bs:read(8) -- eXtra FLags
+  local os = bs:read(8) -- Operating System
+
+  if hasbit(flg, FLG_FEXTRA) then
+    local xlen = bs:read(16)
+    local extra = 0
+    for i=1,xlen do
+      extra = bs:read(8)
+    end
+  end
+
+  if hasbit(flg, FLG_FNAME) then
+      while bs:read(8) ~= 0 do end
+  end
+
+  if hasbit(flg, FLG_FCOMMENT) then
+      while bs:read(8) ~= 0 do end
+  end
+  if hasbit(flg, FLG_FHCRC) then
+    bs:read(16)
+  end
+end
+
+
+local function parse_huffmantables(bs)
+    local hlit = bs:read(5)  -- # of literal/length codes - 257
+    local hdist = bs:read(5) -- # of distance codes - 1
+    local hclen = noeof(bs:read(4)) -- # of code length codes - 4
+
+    local ncodelen_codes = hclen + 4
+    local codelen_init = {}
+    local codelen_vals = {
+      16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15}
+    for i=1,ncodelen_codes do
+      local nbits = bs:read(3)
+      local val = codelen_vals[i]
+      codelen_init[val] = nbits
+    end
+    local codelentable = HuffmanTable(codelen_init, true)
+
+    local function decode(ncodes)
+      local init = {}
+      local nbits
+      local val = 0
+      while val < ncodes do
+        local codelen = codelentable:read(bs)
+        --FIX:check nil?
+        local nrepeat
+        if codelen <= 15 then
+          nrepeat = 1
+          nbits = codelen
+          --debug('w', nbits)
+        elseif codelen == 16 then
+          nrepeat = 3 + noeof(bs:read(2))
+          -- nbits unchanged
+        elseif codelen == 17 then
+          nrepeat = 3 + noeof(bs:read(3))
+          nbits = 0
+        elseif codelen == 18 then
+          nrepeat = 11 + noeof(bs:read(7))
+          nbits = 0
+        else
+          error 'ASSERT'
+        end
+        for i=1,nrepeat do
+          init[val] = nbits
+          val = val + 1
+        end
+      end
+      local huffmantable = HuffmanTable(init, true)
+      return huffmantable
+    end
+
+    local nlit_codes = hlit + 257
+    local ndist_codes = hdist + 1
+
+    local littable = decode(nlit_codes)
+    local disttable = decode(ndist_codes)
+
+    return littable, disttable
+end
+
+
+local tdecode_len_base
+local tdecode_len_nextrabits
+local tdecode_dist_base
+local tdecode_dist_nextrabits
+local function parse_compressed_item(bs, os, littable, disttable)
+  local val = littable:read(bs)
+  --debug(val, val < 256 and string_char(val))
+  if val < 256 then -- literal
+    output(os, val)
+  elseif val == 256 then -- end of block
+    return true
+  else
+    if not tdecode_len_base then
+      local t = {[257]=3}
+      local skip = 1
+      for i=258,285,4 do
+        for j=i,i+3 do t[j] = t[j-1] + skip end
+        if i ~= 258 then skip = skip * 2 end
+      end
+      t[285] = 258
+      tdecode_len_base = t
+      --for i=257,285 do debug('T1',i,t[i]) end
+    end
+    if not tdecode_len_nextrabits then
+      local t = {}
+      for i=257,285 do
+        local j = math_max(i - 261, 0)
+        t[i] = (j - (j % 4)) / 4
+      end
+      t[285] = 0
+      tdecode_len_nextrabits = t
+      --for i=257,285 do debug('T2',i,t[i]) end
+    end
+    local len_base = tdecode_len_base[val]
+    local nextrabits = tdecode_len_nextrabits[val]
+    local extrabits = bs:read(nextrabits)
+    local len = len_base + extrabits
+
+    if not tdecode_dist_base then
+      local t = {[0]=1}
+      local skip = 1
+      for i=1,29,2 do
+        for j=i,i+1 do t[j] = t[j-1] + skip end
+        if i ~= 1 then skip = skip * 2 end
+      end
+      tdecode_dist_base = t
+      --for i=0,29 do debug('T3',i,t[i]) end
+    end
+    if not tdecode_dist_nextrabits then
+      local t = {}
+      for i=0,29 do
+        local j = math_max(i - 2, 0)
+        t[i] = (j - (j % 2)) / 2
+      end
+      tdecode_dist_nextrabits = t
+      --for i=0,29 do debug('T4',i,t[i]) end
+    end
+    local dist_val = disttable:read(bs)
+    local dist_base = tdecode_dist_base[dist_val]
+    local dist_nextrabits = tdecode_dist_nextrabits[dist_val]
+    local dist_extrabits = bs:read(dist_nextrabits)
+    local dist = dist_base + dist_extrabits
+
+    --debug('BACK', len, dist)
+    for i=1,len do
+      local pos = (os.wnd_pos - 1 - dist) % 32768 + 1  -- 32K
+      output(os, assert(os.wnd[pos], 'invalid distance'))
+    end
+  end
+  return false
+end
+
+
+local function parse_block(bs, os)
+  local bfinal = bs:read(1)
+  local btype = bs:read(2)
+
+  local BTYPE_NO_COMPRESSION = 0
+  local BTYPE_FIXED_HUFFMAN = 1
+  local BTYPE_DYNAMIC_HUFFMAN = 2
+  local BTYPE_RESERVED = 3
+
+  if btype == BTYPE_NO_COMPRESSION then
+    bs:read(bs:nbits_left_in_byte())
+    local len = bs:read(16)
+    local nlen = noeof(bs:read(16))
+
+    for i=1,len do
+      local by = noeof(bs:read(8))
+      output(os, by)
+    end
+  elseif btype == BTYPE_FIXED_HUFFMAN or btype == BTYPE_DYNAMIC_HUFFMAN then
+    local littable, disttable
+    if btype == BTYPE_DYNAMIC_HUFFMAN then
+      littable, disttable = parse_huffmantables(bs)
+    else
+      littable  = HuffmanTable {0,8, 144,9, 256,7, 280,8, 288,nil}
+      disttable = HuffmanTable {0,5, 32,nil}
+    end
+
+    repeat until parse_compressed_item(
+        bs, os, littable, disttable
+    );
+  end
+
+  return bfinal ~= 0
+end
+
+
+local function deflate(t)
+  local bs, os = get_bitstream(t.input)
+  	, make_os(get_obytestream(t.output))
+  repeat until parse_block(bs, os)
+end
+
+function gunzip(t)
+  local bs = get_bitstream(t.input)
+  local outbs = get_obytestream(t.output)
+
+  parse_gzip_header(bs)
+
+  deflate{input=bs, output=outbs}
+
+  bs:read(bs:nbits_left_in_byte())
+  bs:read()
+end
+
+
+--[[
+LICENSE
+
+Copyright (C) 2008, David Manura.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+
+(end license)
+--]]
diff -r 17121881cbf7 -r 165b36273ce7 gzip/squish.gzip.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gzip/squish.gzip.lua	Thu May 27 04:01:04 2010 +0100
@@ -0,0 +1,47 @@
+function gzip_file(infile_fn, outfile_fn)
+	local infile, err = io.open(infile_fn);
+	if not infile then
+		print_err("Can't open input file for reading: "..tostring(err));
+		return;
+	end
+	
+	local outfile, err = io.open(outfile_fn..".gzipped", "w+");
+	if not outfile then
+		print_err("Can't open output file for writing: "..tostring(err));
+		return;
+	end
+	
+	local data = infile:read("*a");
+	infile:close();
+	
+	local shebang, newdata = data:match("^(#.-\n)(.+)$");
+	local code = newdata or data;
+	if shebang then
+		outfile:write(shebang)
+	end
+
+	local compressed = io.popen("gzip -c '"..infile_fn.."'");
+	code = compressed:read("*a");
+
+	local maxequals = 0;
+	code:gsub("(=+)", function (equals_string) maxequals = math.max(maxequals, #equals_string); end);
+	
+	outfile:write(require_resource "gunzip.lua");
+		
+	outfile:write[[function _gunzip(data) local uncompressed = {};
+	gunzip{input=data,output=function(b) table.insert(uncompressed, string.char(b)) end};
+	return table.concat(uncompressed, ""); end ]];
+
+	outfile:write [[return assert(loadstring(_gunzip]]
+	outfile:write(string.format("%q", code));
+	--outfile:write("[", string.rep("=", maxequals+1), "[", code, "]", string.rep("=", maxequals+1), "]");
+	outfile:write(", '@", outfile_fn,"'))()");
+	outfile:close();
+	os.rename(outfile_fn..".gzipped", outfile_fn);
+end
+
+if opts.gzip then
+	print_info("Gzipping "..out_fn.."...");
+	gzip_file(out_fn, out_fn);
+	print_info("OK!");
+end
diff -r 17121881cbf7 -r 165b36273ce7 gzip/squishy
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gzip/squishy	Thu May 27 04:01:04 2010 +0100
@@ -0,0 +1,3 @@
+Option "minify-level" "full"
+Main "deflatelua.lua"
+Output "gunzip.lua"