comparison: gzip/squish.gzip.lua
gzip/squish.gzip.lua
- changeset 75
- 6028ae579fde
- parent 74
- 4a76d75a1456
equal
deleted
inserted
replaced
| 74:4a76d75a1456 | 75:6028ae579fde |
|---|---|
| 40 outfile:write("local ungz = (function ()", require_resource "gunzip.lua", " end)()\n"); | 40 outfile:write("local ungz = (function ()", require_resource "gunzip.lua", " end)()\n"); |
| 41 | 41 |
| 42 outfile:write[[return assert(loadstring((function (i)local o={} ungz{input=i,output=function(b)table.insert(o,string.char(b))end}return table.concat(o)end) ]]; | 42 outfile:write[[return assert(loadstring((function (i)local o={} ungz{input=i,output=function(b)table.insert(o,string.char(b))end}return table.concat(o)end) ]]; |
| 43 | 43 |
| 44 --outfile:write [[return assert(loadstring(_gunzip]] | 44 --outfile:write [[return assert(loadstring(_gunzip]] |
| 45 outfile:write(string.format("%q", code)); | 45 outfile:write((string.format("%q", code):gsub("\026", "\\026"))); |
| 46 --outfile:write("[", string.rep("=", maxequals+1), "[", code, "]", string.rep("=", maxequals+1), "]"); | 46 --outfile:write("[", string.rep("=", maxequals+1), "[", code, "]", string.rep("=", maxequals+1), "]"); |
| 47 outfile:write(", '@", outfile_fn,"'))()"); | 47 outfile:write(", '@", outfile_fn,"'))()"); |
| 48 outfile:close(); | 48 outfile:close(); |
| 49 os.rename(outfile_fn..".gzipped", outfile_fn); | 49 os.rename(outfile_fn..".gzipped", outfile_fn); |
| 50 end | 50 end |
