-
Notifications
You must be signed in to change notification settings - Fork 107
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
forgot to check in the ljson.lua library required by the test case in…
… the previous commit.
- Loading branch information
Showing
1 changed file
with
89 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,89 @@ | ||
local ngx_null = ngx.null | ||
local tostring = tostring | ||
local byte = string.byte | ||
local gsub = string.gsub | ||
local sort = table.sort | ||
local pairs = pairs | ||
local ipairs = ipairs | ||
local concat = table.concat | ||
|
||
local ok, new_tab = pcall(require, "table.new") | ||
if not ok then | ||
new_tab = function (narr, nrec) return {} end | ||
end | ||
|
||
local _M = {} | ||
|
||
local metachars = { | ||
['\t'] = '\\t', | ||
["\\"] = "\\\\", | ||
['"'] = '\\"', | ||
['\r'] = '\\r', | ||
['\n'] = '\\n', | ||
} | ||
|
||
local function encode_str(s) | ||
-- XXX we will rewrite this when string.buffer is implemented | ||
-- in LuaJIT 2.1 because string.gsub cannot be JIT compiled. | ||
return gsub(s, '["\\\r\n\t]', metachars) | ||
end | ||
|
||
local function is_arr(t) | ||
local exp = 1 | ||
for k, _ in pairs(t) do | ||
if k ~= exp then | ||
return nil | ||
end | ||
exp = exp + 1 | ||
end | ||
return exp - 1 | ||
end | ||
|
||
local encode | ||
|
||
encode = function (v) | ||
if v == nil or v == ngx_null then | ||
return "null" | ||
end | ||
|
||
local typ = type(v) | ||
if typ == 'string' then | ||
return '"' .. encode_str(v) .. '"' | ||
end | ||
|
||
if typ == 'number' or typ == 'boolean' then | ||
return tostring(v) | ||
end | ||
|
||
if typ == 'table' then | ||
local n = is_arr(v) | ||
if n then | ||
local bits = new_tab(n, 0) | ||
for i, elem in ipairs(v) do | ||
bits[i] = encode(elem) | ||
end | ||
return "[" .. concat(bits, ",") .. "]" | ||
end | ||
|
||
local keys = {} | ||
local i = 0 | ||
for key, _ in pairs(v) do | ||
i = i + 1 | ||
keys[i] = key | ||
end | ||
sort(keys) | ||
|
||
local bits = new_tab(0, i) | ||
i = 0 | ||
for _, key in ipairs(keys) do | ||
i = i + 1 | ||
bits[i] = encode(key) .. ":" .. encode(v[key]) | ||
end | ||
return "{" .. concat(bits, ",") .. "}" | ||
end | ||
|
||
return '"<' .. typ .. '>"' | ||
end | ||
_M.encode = encode | ||
|
||
return _M |