update to version 2.5 #2
@ -1,63 +1,11 @@
|
|||||||
<!DOCTYPE html>
|
package = "dkjson"
|
||||||
<html>
|
version = "2.5-2"
|
||||||
<head>
|
|
||||||
<base href="http://dkolf.de/src/dkjson-lua.fsl/artifact" />
|
|
||||||
<title>Artifact Content - dkjson</title>
|
|
||||||
<link rel="alternate" type="application/rss+xml" title="RSS Feed"
|
|
||||||
href="/src/dkjson-lua.fsl/timeline.rss" />
|
|
||||||
<link rel="stylesheet" href="/src/dkjson-lua.fsl/style.css?default" type="text/css"
|
|
||||||
media="screen" />
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
<h1>Artifact Content — dkjson</h1>
|
|
||||||
<div class="mainmenu">
|
|
||||||
<a href='/'>dkolf.de</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/home'>dkjson</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/timeline'>Timeline</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/brlist'>Branches</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/taglist'>Tags</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/wiki'>Wiki</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/login'>Login</a>
|
|
||||||
</div>
|
|
||||||
<div class="submenu">
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/timeline?n=200&uf=f1093c6b2e5a858b6100958c8c5e575ae439a0df">Checkins Using</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/raw/dkjson-2.5-2.rockspec?name=f1093c6b2e5a858b6100958c8c5e575ae439a0df">Download</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/hexdump?name=f1093c6b2e5a858b6100958c8c5e575ae439a0df">Hex</a>
|
|
||||||
</div>
|
|
||||||
<div class="content">
|
|
||||||
<script>
|
|
||||||
function gebi(x){
|
|
||||||
if(/^#/.test(x)) x = x.substr(1);
|
|
||||||
var e = document.getElementById(x);
|
|
||||||
if(!e) throw new Error("Expecting element with ID "+x);
|
|
||||||
else return e;}
|
|
||||||
</script>
|
|
||||||
<h2>Artifact f1093c6b2e5a858b6100958c8c5e575ae439a0df:</h2>
|
|
||||||
<ul>
|
|
||||||
<li>File
|
|
||||||
<a id='a1' href='/src/dkjson-lua.fsl/honeypot'>dkjson-2.5-2.rockspec</a>
|
|
||||||
<ul>
|
|
||||||
<li>
|
|
||||||
2015-03-02 20:42:23
|
|
||||||
- part of checkin
|
|
||||||
<span class="timelineHistDsp">[dbf5178674]</span>
|
|
||||||
on branch <a id='a2' href='/src/dkjson-lua.fsl/honeypot'>trunk</a>
|
|
||||||
- tested for Lua 5.3, updated rockspec
|
|
||||||
(user:
|
|
||||||
dhkolf
|
|
||||||
</ul>
|
|
||||||
</ul>
|
|
||||||
<hr />
|
|
||||||
<blockquote>
|
|
||||||
<pre>
|
|
||||||
package = "dkjson"
|
|
||||||
version = "2.5-2"
|
|
||||||
source = {
|
source = {
|
||||||
url = "http://dkolf.de/src/dkjson-lua.fsl/tarball/dkjson-2.5.tar.gz?uuid=release_2_5",
|
url = "http://dkolf.de/src/dkjson-lua.fsl/tarball/dkjson-2.5.tar.gz?uuid=release_2_5",
|
||||||
file = "dkjson-2.5.tar.gz"
|
file = "dkjson-2.5.tar.gz"
|
||||||
}
|
}
|
||||||
description = {
|
description = {
|
||||||
summary = "David Kolf's JSON module for Lua",
|
summary = "David Kolf's JSON module for Lua",
|
||||||
detailed = [[
|
detailed = [[
|
||||||
dkjson is a module for encoding and decoding JSON data. It supports UTF-8.
|
dkjson is a module for encoding and decoding JSON data. It supports UTF-8.
|
||||||
|
|
||||||
@ -67,26 +15,16 @@ on the syntax for JavaScript data structures.
|
|||||||
dkjson is written in Lua without any dependencies, but
|
dkjson is written in Lua without any dependencies, but
|
||||||
when LPeg is available dkjson uses it to speed up decoding.
|
when LPeg is available dkjson uses it to speed up decoding.
|
||||||
]],
|
]],
|
||||||
homepage = "http://dkolf.de/src/dkjson-lua.fsl/",
|
homepage = "http://dkolf.de/src/dkjson-lua.fsl/",
|
||||||
license = "MIT/X11"
|
license = "MIT/X11"
|
||||||
}
|
}
|
||||||
dependencies = {
|
dependencies = {
|
||||||
"lua >= 5.1, < 5.4"
|
"lua >= 5.1, < 5.4"
|
||||||
}
|
}
|
||||||
build = {
|
build = {
|
||||||
type = "builtin",
|
type = "builtin",
|
||||||
modules = {
|
modules = {
|
||||||
dkjson = "dkjson.lua"
|
dkjson = "dkjson.lua"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
</pre>
|
|
||||||
</blockquote>
|
|
||||||
</div>
|
|
||||||
<div class="footer">
|
|
||||||
<a href="./">dkolf.de</a>
|
|
||||||
<a href="/contact">contact</a>
|
|
||||||
(This page was generated by <a class="extlink" href="http://www.fossil-scm.org/">Fossil</a>.)
|
|
||||||
</div>
|
|
||||||
</body></html>
|
|
||||||
|
|||||||
308
dkjson.lua
308
dkjson.lua
@ -1,55 +1,3 @@
|
|||||||
<!DOCTYPE html>
|
|
||||||
<html>
|
|
||||||
<head>
|
|
||||||
<base href="http://dkolf.de/src/dkjson-lua.fsl/artifact" />
|
|
||||||
<title>Artifact Content - dkjson</title>
|
|
||||||
<link rel="alternate" type="application/rss+xml" title="RSS Feed"
|
|
||||||
href="/src/dkjson-lua.fsl/timeline.rss" />
|
|
||||||
<link rel="stylesheet" href="/src/dkjson-lua.fsl/style.css?default" type="text/css"
|
|
||||||
media="screen" />
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
<h1>Artifact Content — dkjson</h1>
|
|
||||||
<div class="mainmenu">
|
|
||||||
<a href='/'>dkolf.de</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/home'>dkjson</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/timeline'>Timeline</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/brlist'>Branches</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/taglist'>Tags</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/wiki'>Wiki</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/login'>Login</a>
|
|
||||||
</div>
|
|
||||||
<div class="submenu">
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/timeline?n=200&uf=19fd705cf41e4977b7fe04c79c0808b079836024">Checkins Using</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/raw/dkjson.lua?name=19fd705cf41e4977b7fe04c79c0808b079836024">Download</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/hexdump?name=19fd705cf41e4977b7fe04c79c0808b079836024">Hex</a>
|
|
||||||
</div>
|
|
||||||
<div class="content">
|
|
||||||
<script>
|
|
||||||
function gebi(x){
|
|
||||||
if(/^#/.test(x)) x = x.substr(1);
|
|
||||||
var e = document.getElementById(x);
|
|
||||||
if(!e) throw new Error("Expecting element with ID "+x);
|
|
||||||
else return e;}
|
|
||||||
</script>
|
|
||||||
<h2>Artifact 19fd705cf41e4977b7fe04c79c0808b079836024:</h2>
|
|
||||||
<ul>
|
|
||||||
<li>File
|
|
||||||
<a id='a1' href='/src/dkjson-lua.fsl/honeypot'>dkjson.lua</a>
|
|
||||||
<ul>
|
|
||||||
<li>
|
|
||||||
2014-04-28 21:16:16
|
|
||||||
- part of checkin
|
|
||||||
<span class="timelineHistDsp">[3d24a61dd0]</span>
|
|
||||||
on branch <a id='a2' href='/src/dkjson-lua.fsl/honeypot'>trunk</a>
|
|
||||||
- fix line breaks in readme.txt, fix release year
|
|
||||||
(user:
|
|
||||||
dhkolf
|
|
||||||
</ul>
|
|
||||||
</ul>
|
|
||||||
<hr />
|
|
||||||
<blockquote>
|
|
||||||
<pre>
|
|
||||||
-- Module options:
|
-- Module options:
|
||||||
local always_try_using_lpeg = true
|
local always_try_using_lpeg = true
|
||||||
local register_global_module_table = false
|
local register_global_module_table = false
|
||||||
@ -63,7 +11,7 @@ Version 2.5
|
|||||||
|
|
||||||
|
|
||||||
For the documentation see the corresponding readme.txt or visit
|
For the documentation see the corresponding readme.txt or visit
|
||||||
<http://dkolf.de/src/dkjson-lua.fsl/>.
|
<http://dkolf.de/src/dkjson-lua.fsl/>.
|
||||||
|
|
||||||
You can contact the author by sending an e-mail to 'david' at the
|
You can contact the author by sending an e-mail to 'david' at the
|
||||||
domain 'dkolf.de'.
|
domain 'dkolf.de'.
|
||||||
@ -73,7 +21,7 @@ Copyright (C) 2010-2014 David Heiko Kolf
|
|||||||
|
|
||||||
Permission is hereby granted, free of charge, to any person obtaining
|
Permission is hereby granted, free of charge, to any person obtaining
|
||||||
a copy of this software and associated documentation files (the
|
a copy of this software and associated documentation files (the
|
||||||
"Software"), to deal in the Software without restriction, including
|
"Software"), to deal in the Software without restriction, including
|
||||||
without limitation the rights to use, copy, modify, merge, publish,
|
without limitation the rights to use, copy, modify, merge, publish,
|
||||||
distribute, sublicense, and/or sell copies of the Software, and to
|
distribute, sublicense, and/or sell copies of the Software, and to
|
||||||
permit persons to whom the Software is furnished to do so, subject to
|
permit persons to whom the Software is furnished to do so, subject to
|
||||||
@ -82,7 +30,7 @@ the following conditions:
|
|||||||
The above copyright notice and this permission notice shall be
|
The above copyright notice and this permission notice shall be
|
||||||
included in all copies or substantial portions of the Software.
|
included in all copies or substantial portions of the Software.
|
||||||
|
|
||||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||||||
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||||||
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
||||||
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
|
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
|
||||||
@ -104,7 +52,7 @@ local strrep, gsub, strsub, strbyte, strchar, strfind, strlen, strformat =
|
|||||||
local strmatch = string.match
|
local strmatch = string.match
|
||||||
local concat = table.concat
|
local concat = table.concat
|
||||||
|
|
||||||
local json = { version = "dkjson 2.5" }
|
local json = { version = "dkjson 2.5" }
|
||||||
|
|
||||||
if register_global_module_table then
|
if register_global_module_table then
|
||||||
_G[global_module_name] = json
|
_G[global_module_name] = json
|
||||||
@ -115,12 +63,12 @@ local _ENV = nil -- blocking globals in Lua 5.2
|
|||||||
pcall (function()
|
pcall (function()
|
||||||
-- Enable access to blocked metatables.
|
-- Enable access to blocked metatables.
|
||||||
-- Don't worry, this module doesn't change anything in them.
|
-- Don't worry, this module doesn't change anything in them.
|
||||||
local debmeta = require "debug".getmetatable
|
local debmeta = require "debug".getmetatable
|
||||||
if debmeta then getmetatable = debmeta end
|
if debmeta then getmetatable = debmeta end
|
||||||
end)
|
end)
|
||||||
|
|
||||||
json.null = setmetatable ({}, {
|
json.null = setmetatable ({}, {
|
||||||
__tojson = function () return "null" end
|
__tojson = function () return "null" end
|
||||||
})
|
})
|
||||||
|
|
||||||
local function isarray (tbl)
|
local function isarray (tbl)
|
||||||
@ -128,28 +76,28 @@ local function isarray (tbl)
|
|||||||
for k,v in pairs (tbl) do
|
for k,v in pairs (tbl) do
|
||||||
if k == 'n' and type(v) == 'number' then
|
if k == 'n' and type(v) == 'number' then
|
||||||
arraylen = v
|
arraylen = v
|
||||||
if v > max then
|
if v > max then
|
||||||
max = v
|
max = v
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
if type(k) ~= 'number' or k < 1 or floor(k) ~= k then
|
if type(k) ~= 'number' or k < 1 or floor(k) ~= k then
|
||||||
return false
|
return false
|
||||||
end
|
end
|
||||||
if k > max then
|
if k > max then
|
||||||
max = k
|
max = k
|
||||||
end
|
end
|
||||||
n = n + 1
|
n = n + 1
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
if max > 10 and max > arraylen and max > n * 2 then
|
if max > 10 and max > arraylen and max > n * 2 then
|
||||||
return false -- don't create an array with too many holes
|
return false -- don't create an array with too many holes
|
||||||
end
|
end
|
||||||
return true, max
|
return true, max
|
||||||
end
|
end
|
||||||
|
|
||||||
local escapecodes = {
|
local escapecodes = {
|
||||||
["\""] = "\\\"", ["\\"] = "\\\\", ["\b"] = "\\b", ["\f"] = "\\f",
|
["\""] = "\\\"", ["\\"] = "\\\\", ["\b"] = "\\b", ["\f"] = "\\f",
|
||||||
["\n"] = "\\n", ["\r"] = "\\r", ["\t"] = "\\t"
|
["\n"] = "\\n", ["\r"] = "\\r", ["\t"] = "\\t"
|
||||||
}
|
}
|
||||||
|
|
||||||
local function escapeutf8 (uchar)
|
local function escapeutf8 (uchar)
|
||||||
@ -159,26 +107,26 @@ local function escapeutf8 (uchar)
|
|||||||
end
|
end
|
||||||
local a, b, c, d = strbyte (uchar, 1, 4)
|
local a, b, c, d = strbyte (uchar, 1, 4)
|
||||||
a, b, c, d = a or 0, b or 0, c or 0, d or 0
|
a, b, c, d = a or 0, b or 0, c or 0, d or 0
|
||||||
if a <= 0x7f then
|
if a <= 0x7f then
|
||||||
value = a
|
value = a
|
||||||
elseif 0xc0 <= a and a <= 0xdf and b >= 0x80 then
|
elseif 0xc0 <= a and a <= 0xdf and b >= 0x80 then
|
||||||
value = (a - 0xc0) * 0x40 + b - 0x80
|
value = (a - 0xc0) * 0x40 + b - 0x80
|
||||||
elseif 0xe0 <= a and a <= 0xef and b >= 0x80 and c >= 0x80 then
|
elseif 0xe0 <= a and a <= 0xef and b >= 0x80 and c >= 0x80 then
|
||||||
value = ((a - 0xe0) * 0x40 + b - 0x80) * 0x40 + c - 0x80
|
value = ((a - 0xe0) * 0x40 + b - 0x80) * 0x40 + c - 0x80
|
||||||
elseif 0xf0 <= a and a <= 0xf7 and b >= 0x80 and c >= 0x80 and d >= 0x80 then
|
elseif 0xf0 <= a and a <= 0xf7 and b >= 0x80 and c >= 0x80 and d >= 0x80 then
|
||||||
value = (((a - 0xf0) * 0x40 + b - 0x80) * 0x40 + c - 0x80) * 0x40 + d - 0x80
|
value = (((a - 0xf0) * 0x40 + b - 0x80) * 0x40 + c - 0x80) * 0x40 + d - 0x80
|
||||||
else
|
else
|
||||||
return ""
|
return ""
|
||||||
end
|
end
|
||||||
if value <= 0xffff then
|
if value <= 0xffff then
|
||||||
return strformat ("\\u%.4x", value)
|
return strformat ("\\u%.4x", value)
|
||||||
elseif value <= 0x10ffff then
|
elseif value <= 0x10ffff then
|
||||||
-- encode as UTF-16 surrogate pair
|
-- encode as UTF-16 surrogate pair
|
||||||
value = value - 0x10000
|
value = value - 0x10000
|
||||||
local highsur, lowsur = 0xD800 + floor (value/0x400), 0xDC00 + (value % 0x400)
|
local highsur, lowsur = 0xD800 + floor (value/0x400), 0xDC00 + (value % 0x400)
|
||||||
return strformat ("\\u%.4x\\u%.4x", highsur, lowsur)
|
return strformat ("\\u%.4x\\u%.4x", highsur, lowsur)
|
||||||
else
|
else
|
||||||
return ""
|
return ""
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -194,19 +142,19 @@ local function fsub (str, pattern, repl)
|
|||||||
end
|
end
|
||||||
|
|
||||||
local function quotestring (value)
|
local function quotestring (value)
|
||||||
-- based on the regexp "escapable" in https://github.com/douglascrockford/JSON-js
|
-- based on the regexp "escapable" in https://github.com/douglascrockford/JSON-js
|
||||||
value = fsub (value, "[%z\1-\31\"\\\127]", escapeutf8)
|
value = fsub (value, "[%z\1-\31\"\\\127]", escapeutf8)
|
||||||
if strfind (value, "[\194\216\220\225\226\239]") then
|
if strfind (value, "[\194\216\220\225\226\239]") then
|
||||||
value = fsub (value, "\194[\128-\159\173]", escapeutf8)
|
value = fsub (value, "\194[\128-\159\173]", escapeutf8)
|
||||||
value = fsub (value, "\216[\128-\132]", escapeutf8)
|
value = fsub (value, "\216[\128-\132]", escapeutf8)
|
||||||
value = fsub (value, "\220\143", escapeutf8)
|
value = fsub (value, "\220\143", escapeutf8)
|
||||||
value = fsub (value, "\225\158[\180\181]", escapeutf8)
|
value = fsub (value, "\225\158[\180\181]", escapeutf8)
|
||||||
value = fsub (value, "\226\128[\140-\143\168-\175]", escapeutf8)
|
value = fsub (value, "\226\128[\140-\143\168-\175]", escapeutf8)
|
||||||
value = fsub (value, "\226\129[\160-\175]", escapeutf8)
|
value = fsub (value, "\226\129[\160-\175]", escapeutf8)
|
||||||
value = fsub (value, "\239\187\191", escapeutf8)
|
value = fsub (value, "\239\187\191", escapeutf8)
|
||||||
value = fsub (value, "\239\191[\176-\191]", escapeutf8)
|
value = fsub (value, "\239\191[\176-\191]", escapeutf8)
|
||||||
end
|
end
|
||||||
return "\"" .. value .. "\""
|
return "\"" .. value .. "\""
|
||||||
end
|
end
|
||||||
json.quotestring = quotestring
|
json.quotestring = quotestring
|
||||||
|
|
||||||
@ -223,29 +171,29 @@ end
|
|||||||
local decpoint, numfilter
|
local decpoint, numfilter
|
||||||
|
|
||||||
local function updatedecpoint ()
|
local function updatedecpoint ()
|
||||||
decpoint = strmatch(tostring(0.5), "([^05+])")
|
decpoint = strmatch(tostring(0.5), "([^05+])")
|
||||||
-- build a filter that can be used to remove group separators
|
-- build a filter that can be used to remove group separators
|
||||||
numfilter = "[^0-9%-%+eE" .. gsub(decpoint, "[%^%$%(%)%%%.%[%]%*%+%-%?]", "%%%0") .. "]+"
|
numfilter = "[^0-9%-%+eE" .. gsub(decpoint, "[%^%$%(%)%%%.%[%]%*%+%-%?]", "%%%0") .. "]+"
|
||||||
end
|
end
|
||||||
|
|
||||||
updatedecpoint()
|
updatedecpoint()
|
||||||
|
|
||||||
local function num2str (num)
|
local function num2str (num)
|
||||||
return replace(fsub(tostring(num), numfilter, ""), decpoint, ".")
|
return replace(fsub(tostring(num), numfilter, ""), decpoint, ".")
|
||||||
end
|
end
|
||||||
|
|
||||||
local function str2num (str)
|
local function str2num (str)
|
||||||
local num = tonumber(replace(str, ".", decpoint))
|
local num = tonumber(replace(str, ".", decpoint))
|
||||||
if not num then
|
if not num then
|
||||||
updatedecpoint()
|
updatedecpoint()
|
||||||
num = tonumber(replace(str, ".", decpoint))
|
num = tonumber(replace(str, ".", decpoint))
|
||||||
end
|
end
|
||||||
return num
|
return num
|
||||||
end
|
end
|
||||||
|
|
||||||
local function addnewline2 (level, buffer, buflen)
|
local function addnewline2 (level, buffer, buflen)
|
||||||
buffer[buflen+1] = "\n"
|
buffer[buflen+1] = "\n"
|
||||||
buffer[buflen+2] = strrep (" ", level)
|
buffer[buflen+2] = strrep (" ", level)
|
||||||
buflen = buflen + 2
|
buflen = buflen + 2
|
||||||
return buflen
|
return buflen
|
||||||
end
|
end
|
||||||
@ -262,17 +210,17 @@ local encode2 -- forward declaration
|
|||||||
local function addpair (key, value, prev, indent, level, buffer, buflen, tables, globalorder, state)
|
local function addpair (key, value, prev, indent, level, buffer, buflen, tables, globalorder, state)
|
||||||
local kt = type (key)
|
local kt = type (key)
|
||||||
if kt ~= 'string' and kt ~= 'number' then
|
if kt ~= 'string' and kt ~= 'number' then
|
||||||
return nil, "type '" .. kt .. "' is not supported as a key by JSON."
|
return nil, "type '" .. kt .. "' is not supported as a key by JSON."
|
||||||
end
|
end
|
||||||
if prev then
|
if prev then
|
||||||
buflen = buflen + 1
|
buflen = buflen + 1
|
||||||
buffer[buflen] = ","
|
buffer[buflen] = ","
|
||||||
end
|
end
|
||||||
if indent then
|
if indent then
|
||||||
buflen = addnewline2 (level, buffer, buflen)
|
buflen = addnewline2 (level, buffer, buflen)
|
||||||
end
|
end
|
||||||
buffer[buflen+1] = quotestring (key)
|
buffer[buflen+1] = quotestring (key)
|
||||||
buffer[buflen+2] = ":"
|
buffer[buflen+2] = ":"
|
||||||
return encode2 (value, indent, level, buffer, buflen + 2, tables, globalorder, state)
|
return encode2 (value, indent, level, buffer, buflen + 2, tables, globalorder, state)
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -299,7 +247,7 @@ local function exception(reason, value, state, buffer, buflen, defaultmessage)
|
|||||||
end
|
end
|
||||||
|
|
||||||
function json.encodeexception(reason, value, state, defaultmessage)
|
function json.encodeexception(reason, value, state, defaultmessage)
|
||||||
return quotestring("<" .. defaultmessage .. ">")
|
return quotestring("<" .. defaultmessage .. ">")
|
||||||
end
|
end
|
||||||
|
|
||||||
encode2 = function (value, indent, level, buffer, buflen, tables, globalorder, state)
|
encode2 = function (value, indent, level, buffer, buflen, tables, globalorder, state)
|
||||||
@ -319,12 +267,12 @@ encode2 = function (value, indent, level, buffer, buflen, tables, globalorder, s
|
|||||||
buflen = appendcustom(ret, buffer, state)
|
buflen = appendcustom(ret, buffer, state)
|
||||||
elseif value == nil then
|
elseif value == nil then
|
||||||
buflen = buflen + 1
|
buflen = buflen + 1
|
||||||
buffer[buflen] = "null"
|
buffer[buflen] = "null"
|
||||||
elseif valtype == 'number' then
|
elseif valtype == 'number' then
|
||||||
local s
|
local s
|
||||||
if value ~= value or value >= huge or -value >= huge then
|
if value ~= value or value >= huge or -value >= huge then
|
||||||
-- This is the behaviour of the original JSON implementation.
|
-- This is the behaviour of the original JSON implementation.
|
||||||
s = "null"
|
s = "null"
|
||||||
else
|
else
|
||||||
s = num2str (value)
|
s = num2str (value)
|
||||||
end
|
end
|
||||||
@ -332,7 +280,7 @@ encode2 = function (value, indent, level, buffer, buflen, tables, globalorder, s
|
|||||||
buffer[buflen] = s
|
buffer[buflen] = s
|
||||||
elseif valtype == 'boolean' then
|
elseif valtype == 'boolean' then
|
||||||
buflen = buflen + 1
|
buflen = buflen + 1
|
||||||
buffer[buflen] = value and "true" or "false"
|
buffer[buflen] = value and "true" or "false"
|
||||||
elseif valtype == 'string' then
|
elseif valtype == 'string' then
|
||||||
buflen = buflen + 1
|
buflen = buflen + 1
|
||||||
buffer[buflen] = quotestring (value)
|
buffer[buflen] = quotestring (value)
|
||||||
@ -349,21 +297,21 @@ encode2 = function (value, indent, level, buffer, buflen, tables, globalorder, s
|
|||||||
local msg
|
local msg
|
||||||
if isa then -- JSON array
|
if isa then -- JSON array
|
||||||
buflen = buflen + 1
|
buflen = buflen + 1
|
||||||
buffer[buflen] = "["
|
buffer[buflen] = "["
|
||||||
for i = 1, n do
|
for i = 1, n do
|
||||||
buflen, msg = encode2 (value[i], indent, level, buffer, buflen, tables, globalorder, state)
|
buflen, msg = encode2 (value[i], indent, level, buffer, buflen, tables, globalorder, state)
|
||||||
if not buflen then return nil, msg end
|
if not buflen then return nil, msg end
|
||||||
if i < n then
|
if i < n then
|
||||||
buflen = buflen + 1
|
buflen = buflen + 1
|
||||||
buffer[buflen] = ","
|
buffer[buflen] = ","
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
buflen = buflen + 1
|
buflen = buflen + 1
|
||||||
buffer[buflen] = "]"
|
buffer[buflen] = "]"
|
||||||
else -- JSON object
|
else -- JSON object
|
||||||
local prev = false
|
local prev = false
|
||||||
buflen = buflen + 1
|
buflen = buflen + 1
|
||||||
buffer[buflen] = "{"
|
buffer[buflen] = "{"
|
||||||
local order = valmeta and valmeta.__jsonorder or globalorder
|
local order = valmeta and valmeta.__jsonorder or globalorder
|
||||||
if order then
|
if order then
|
||||||
local used = {}
|
local used = {}
|
||||||
@ -395,12 +343,12 @@ encode2 = function (value, indent, level, buffer, buflen, tables, globalorder, s
|
|||||||
buflen = addnewline2 (level - 1, buffer, buflen)
|
buflen = addnewline2 (level - 1, buffer, buflen)
|
||||||
end
|
end
|
||||||
buflen = buflen + 1
|
buflen = buflen + 1
|
||||||
buffer[buflen] = "}"
|
buffer[buflen] = "}"
|
||||||
end
|
end
|
||||||
tables[value] = nil
|
tables[value] = nil
|
||||||
else
|
else
|
||||||
return exception ('unsupported type', value, state, buffer, buflen,
|
return exception ('unsupported type', value, state, buffer, buflen,
|
||||||
"type '" .. valtype .. "' is not supported by JSON.")
|
"type '" .. valtype .. "' is not supported by JSON.")
|
||||||
end
|
end
|
||||||
return buflen
|
return buflen
|
||||||
end
|
end
|
||||||
@ -428,8 +376,8 @@ end
|
|||||||
local function loc (str, where)
|
local function loc (str, where)
|
||||||
local line, pos, linepos = 1, 1, 0
|
local line, pos, linepos = 1, 1, 0
|
||||||
while true do
|
while true do
|
||||||
pos = strfind (str, "\n", pos, true)
|
pos = strfind (str, "\n", pos, true)
|
||||||
if pos and pos < where then
|
if pos and pos < where then
|
||||||
line = line + 1
|
line = line + 1
|
||||||
linepos = pos
|
linepos = pos
|
||||||
pos = pos + 1
|
pos = pos + 1
|
||||||
@ -437,26 +385,26 @@ local function loc (str, where)
|
|||||||
break
|
break
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
return "line " .. line .. ", column " .. (where - linepos)
|
return "line " .. line .. ", column " .. (where - linepos)
|
||||||
end
|
end
|
||||||
|
|
||||||
local function unterminated (str, what, where)
|
local function unterminated (str, what, where)
|
||||||
return nil, strlen (str) + 1, "unterminated " .. what .. " at " .. loc (str, where)
|
return nil, strlen (str) + 1, "unterminated " .. what .. " at " .. loc (str, where)
|
||||||
end
|
end
|
||||||
|
|
||||||
local function scanwhite (str, pos)
|
local function scanwhite (str, pos)
|
||||||
while true do
|
while true do
|
||||||
pos = strfind (str, "%S", pos)
|
pos = strfind (str, "%S", pos)
|
||||||
if not pos then return nil end
|
if not pos then return nil end
|
||||||
local sub2 = strsub (str, pos, pos + 1)
|
local sub2 = strsub (str, pos, pos + 1)
|
||||||
if sub2 == "\239\187" and strsub (str, pos + 2, pos + 2) == "\191" then
|
if sub2 == "\239\187" and strsub (str, pos + 2, pos + 2) == "\191" then
|
||||||
-- UTF-8 Byte Order Mark
|
-- UTF-8 Byte Order Mark
|
||||||
pos = pos + 3
|
pos = pos + 3
|
||||||
elseif sub2 == "//" then
|
elseif sub2 == "//" then
|
||||||
pos = strfind (str, "[\n\r]", pos + 2)
|
pos = strfind (str, "[\n\r]", pos + 2)
|
||||||
if not pos then return nil end
|
if not pos then return nil end
|
||||||
elseif sub2 == "/*" then
|
elseif sub2 == "/*" then
|
||||||
pos = strfind (str, "*/", pos + 2)
|
pos = strfind (str, "*/", pos + 2)
|
||||||
if not pos then return nil end
|
if not pos then return nil end
|
||||||
pos = pos + 2
|
pos = pos + 2
|
||||||
else
|
else
|
||||||
@ -466,23 +414,23 @@ local function scanwhite (str, pos)
|
|||||||
end
|
end
|
||||||
|
|
||||||
local escapechars = {
|
local escapechars = {
|
||||||
["\""] = "\"", ["\\"] = "\\", ["/"] = "/", ["b"] = "\b", ["f"] = "\f",
|
["\""] = "\"", ["\\"] = "\\", ["/"] = "/", ["b"] = "\b", ["f"] = "\f",
|
||||||
["n"] = "\n", ["r"] = "\r", ["t"] = "\t"
|
["n"] = "\n", ["r"] = "\r", ["t"] = "\t"
|
||||||
}
|
}
|
||||||
|
|
||||||
local function unichar (value)
|
local function unichar (value)
|
||||||
if value < 0 then
|
if value < 0 then
|
||||||
return nil
|
return nil
|
||||||
elseif value <= 0x007f then
|
elseif value <= 0x007f then
|
||||||
return strchar (value)
|
return strchar (value)
|
||||||
elseif value <= 0x07ff then
|
elseif value <= 0x07ff then
|
||||||
return strchar (0xc0 + floor(value/0x40),
|
return strchar (0xc0 + floor(value/0x40),
|
||||||
0x80 + (floor(value) % 0x40))
|
0x80 + (floor(value) % 0x40))
|
||||||
elseif value <= 0xffff then
|
elseif value <= 0xffff then
|
||||||
return strchar (0xe0 + floor(value/0x1000),
|
return strchar (0xe0 + floor(value/0x1000),
|
||||||
0x80 + (floor(value/0x40) % 0x40),
|
0x80 + (floor(value/0x40) % 0x40),
|
||||||
0x80 + (floor(value) % 0x40))
|
0x80 + (floor(value) % 0x40))
|
||||||
elseif value <= 0x10ffff then
|
elseif value <= 0x10ffff then
|
||||||
return strchar (0xf0 + floor(value/0x40000),
|
return strchar (0xf0 + floor(value/0x40000),
|
||||||
0x80 + (floor(value/0x1000) % 0x40),
|
0x80 + (floor(value/0x1000) % 0x40),
|
||||||
0x80 + (floor(value/0x40) % 0x40),
|
0x80 + (floor(value/0x40) % 0x40),
|
||||||
@ -496,30 +444,30 @@ local function scanstring (str, pos)
|
|||||||
local lastpos = pos + 1
|
local lastpos = pos + 1
|
||||||
local buffer, n = {}, 0
|
local buffer, n = {}, 0
|
||||||
while true do
|
while true do
|
||||||
local nextpos = strfind (str, "[\"\\]", lastpos)
|
local nextpos = strfind (str, "[\"\\]", lastpos)
|
||||||
if not nextpos then
|
if not nextpos then
|
||||||
return unterminated (str, "string", pos)
|
return unterminated (str, "string", pos)
|
||||||
end
|
end
|
||||||
if nextpos > lastpos then
|
if nextpos > lastpos then
|
||||||
n = n + 1
|
n = n + 1
|
||||||
buffer[n] = strsub (str, lastpos, nextpos - 1)
|
buffer[n] = strsub (str, lastpos, nextpos - 1)
|
||||||
end
|
end
|
||||||
if strsub (str, nextpos, nextpos) == "\"" then
|
if strsub (str, nextpos, nextpos) == "\"" then
|
||||||
lastpos = nextpos + 1
|
lastpos = nextpos + 1
|
||||||
break
|
break
|
||||||
else
|
else
|
||||||
local escchar = strsub (str, nextpos + 1, nextpos + 1)
|
local escchar = strsub (str, nextpos + 1, nextpos + 1)
|
||||||
local value
|
local value
|
||||||
if escchar == "u" then
|
if escchar == "u" then
|
||||||
value = tonumber (strsub (str, nextpos + 2, nextpos + 5), 16)
|
value = tonumber (strsub (str, nextpos + 2, nextpos + 5), 16)
|
||||||
if value then
|
if value then
|
||||||
local value2
|
local value2
|
||||||
if 0xD800 <= value and value <= 0xDBff then
|
if 0xD800 <= value and value <= 0xDBff then
|
||||||
-- we have the high surrogate of UTF-16. Check if there is a
|
-- we have the high surrogate of UTF-16. Check if there is a
|
||||||
-- low surrogate escaped nearby to combine them.
|
-- low surrogate escaped nearby to combine them.
|
||||||
if strsub (str, nextpos + 6, nextpos + 7) == "\\u" then
|
if strsub (str, nextpos + 6, nextpos + 7) == "\\u" then
|
||||||
value2 = tonumber (strsub (str, nextpos + 8, nextpos + 11), 16)
|
value2 = tonumber (strsub (str, nextpos + 8, nextpos + 11), 16)
|
||||||
if value2 and 0xDC00 <= value2 and value2 <= 0xDFFF then
|
if value2 and 0xDC00 <= value2 and value2 <= 0xDFFF then
|
||||||
value = (value - 0xD800) * 0x400 + (value2 - 0xDC00) + 0x10000
|
value = (value - 0xD800) * 0x400 + (value2 - 0xDC00) + 0x10000
|
||||||
else
|
else
|
||||||
value2 = nil -- in case it was out of range for a low surrogate
|
value2 = nil -- in case it was out of range for a low surrogate
|
||||||
@ -546,10 +494,10 @@ local function scanstring (str, pos)
|
|||||||
end
|
end
|
||||||
if n == 1 then
|
if n == 1 then
|
||||||
return buffer[1], lastpos
|
return buffer[1], lastpos
|
||||||
elseif n > 1 then
|
elseif n > 1 then
|
||||||
return concat (buffer), lastpos
|
return concat (buffer), lastpos
|
||||||
else
|
else
|
||||||
return "", lastpos
|
return "", lastpos
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -577,9 +525,9 @@ local function scantable (what, closechar, str, startpos, nullval, objectmeta, a
|
|||||||
pos = scanwhite (str, pos)
|
pos = scanwhite (str, pos)
|
||||||
if not pos then return unterminated (str, what, startpos) end
|
if not pos then return unterminated (str, what, startpos) end
|
||||||
char = strsub (str, pos, pos)
|
char = strsub (str, pos, pos)
|
||||||
if char == ":" then
|
if char == ":" then
|
||||||
if val1 == nil then
|
if val1 == nil then
|
||||||
return nil, pos, "cannot use nil as table index (at " .. loc (str, pos) .. ")"
|
return nil, pos, "cannot use nil as table index (at " .. loc (str, pos) .. ")"
|
||||||
end
|
end
|
||||||
pos = scanwhite (str, pos + 1)
|
pos = scanwhite (str, pos + 1)
|
||||||
if not pos then return unterminated (str, what, startpos) end
|
if not pos then return unterminated (str, what, startpos) end
|
||||||
@ -594,7 +542,7 @@ local function scantable (what, closechar, str, startpos, nullval, objectmeta, a
|
|||||||
n = n + 1
|
n = n + 1
|
||||||
tbl[n] = val1
|
tbl[n] = val1
|
||||||
end
|
end
|
||||||
if char == "," then
|
if char == "," then
|
||||||
pos = pos + 1
|
pos = pos + 1
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -604,40 +552,40 @@ scanvalue = function (str, pos, nullval, objectmeta, arraymeta)
|
|||||||
pos = pos or 1
|
pos = pos or 1
|
||||||
pos = scanwhite (str, pos)
|
pos = scanwhite (str, pos)
|
||||||
if not pos then
|
if not pos then
|
||||||
return nil, strlen (str) + 1, "no valid JSON value (reached the end)"
|
return nil, strlen (str) + 1, "no valid JSON value (reached the end)"
|
||||||
end
|
end
|
||||||
local char = strsub (str, pos, pos)
|
local char = strsub (str, pos, pos)
|
||||||
if char == "{" then
|
if char == "{" then
|
||||||
return scantable ('object', "}", str, pos, nullval, objectmeta, arraymeta)
|
return scantable ('object', "}", str, pos, nullval, objectmeta, arraymeta)
|
||||||
elseif char == "[" then
|
elseif char == "[" then
|
||||||
return scantable ('array', "]", str, pos, nullval, objectmeta, arraymeta)
|
return scantable ('array', "]", str, pos, nullval, objectmeta, arraymeta)
|
||||||
elseif char == "\"" then
|
elseif char == "\"" then
|
||||||
return scanstring (str, pos)
|
return scanstring (str, pos)
|
||||||
else
|
else
|
||||||
local pstart, pend = strfind (str, "^%-?[%d%.]+[eE]?[%+%-]?%d*", pos)
|
local pstart, pend = strfind (str, "^%-?[%d%.]+[eE]?[%+%-]?%d*", pos)
|
||||||
if pstart then
|
if pstart then
|
||||||
local number = str2num (strsub (str, pstart, pend))
|
local number = str2num (strsub (str, pstart, pend))
|
||||||
if number then
|
if number then
|
||||||
return number, pend + 1
|
return number, pend + 1
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
pstart, pend = strfind (str, "^%a%w*", pos)
|
pstart, pend = strfind (str, "^%a%w*", pos)
|
||||||
if pstart then
|
if pstart then
|
||||||
local name = strsub (str, pstart, pend)
|
local name = strsub (str, pstart, pend)
|
||||||
if name == "true" then
|
if name == "true" then
|
||||||
return true, pend + 1
|
return true, pend + 1
|
||||||
elseif name == "false" then
|
elseif name == "false" then
|
||||||
return false, pend + 1
|
return false, pend + 1
|
||||||
elseif name == "null" then
|
elseif name == "null" then
|
||||||
return nullval, pend + 1
|
return nullval, pend + 1
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
return nil, pos, "no valid JSON value at " .. loc (str, pos)
|
return nil, pos, "no valid JSON value at " .. loc (str, pos)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
local function optionalmetatables(...)
|
local function optionalmetatables(...)
|
||||||
if select("#", ...) > 0 then
|
if select("#", ...) > 0 then
|
||||||
return ...
|
return ...
|
||||||
else
|
else
|
||||||
return {__jsontype = 'object'}, {__jsontype = 'array'}
|
return {__jsontype = 'object'}, {__jsontype = 'array'}
|
||||||
@ -650,10 +598,10 @@ function json.decode (str, pos, nullval, ...)
|
|||||||
end
|
end
|
||||||
|
|
||||||
function json.use_lpeg ()
|
function json.use_lpeg ()
|
||||||
local g = require ("lpeg")
|
local g = require ("lpeg")
|
||||||
|
|
||||||
if g.version() == "0.11" then
|
if g.version() == "0.11" then
|
||||||
error "due to a bug in LPeg 0.11, it cannot be used for JSON matching"
|
error "due to a bug in LPeg 0.11, it cannot be used for JSON matching"
|
||||||
end
|
end
|
||||||
|
|
||||||
local pegmatch = g.match
|
local pegmatch = g.match
|
||||||
@ -661,7 +609,7 @@ function json.use_lpeg ()
|
|||||||
|
|
||||||
local function ErrorCall (str, pos, msg, state)
|
local function ErrorCall (str, pos, msg, state)
|
||||||
if not state.msg then
|
if not state.msg then
|
||||||
state.msg = msg .. " at " .. loc (str, pos)
|
state.msg = msg .. " at " .. loc (str, pos)
|
||||||
state.pos = pos
|
state.pos = pos
|
||||||
end
|
end
|
||||||
return false
|
return false
|
||||||
@ -671,16 +619,16 @@ function json.use_lpeg ()
|
|||||||
return g.Cmt (g.Cc (msg) * g.Carg (2), ErrorCall)
|
return g.Cmt (g.Cc (msg) * g.Carg (2), ErrorCall)
|
||||||
end
|
end
|
||||||
|
|
||||||
local SingleLineComment = P"//" * (1 - S"\n\r")^0
|
local SingleLineComment = P"//" * (1 - S"\n\r")^0
|
||||||
local MultiLineComment = P"/*" * (1 - P"*/")^0 * P"*/"
|
local MultiLineComment = P"/*" * (1 - P"*/")^0 * P"*/"
|
||||||
local Space = (S" \n\r\t" + P"\239\187\191" + SingleLineComment + MultiLineComment)^0
|
local Space = (S" \n\r\t" + P"\239\187\191" + SingleLineComment + MultiLineComment)^0
|
||||||
|
|
||||||
local PlainChar = 1 - S"\"\\\n\r"
|
local PlainChar = 1 - S"\"\\\n\r"
|
||||||
local EscapeSequence = (P"\\" * g.C (S"\"\\/bfnrt" + Err "unsupported escape sequence")) / escapechars
|
local EscapeSequence = (P"\\" * g.C (S"\"\\/bfnrt" + Err "unsupported escape sequence")) / escapechars
|
||||||
local HexDigit = R("09", "af", "AF")
|
local HexDigit = R("09", "af", "AF")
|
||||||
local function UTF16Surrogate (match, pos, high, low)
|
local function UTF16Surrogate (match, pos, high, low)
|
||||||
high, low = tonumber (high, 16), tonumber (low, 16)
|
high, low = tonumber (high, 16), tonumber (low, 16)
|
||||||
if 0xD800 <= high and high <= 0xDBff and 0xDC00 <= low and low <= 0xDFFF then
|
if 0xD800 <= high and high <= 0xDBff and 0xDC00 <= low and low <= 0xDFFF then
|
||||||
return true, unichar ((high - 0xD800) * 0x400 + (low - 0xDC00) + 0x10000)
|
return true, unichar ((high - 0xD800) * 0x400 + (low - 0xDC00) + 0x10000)
|
||||||
else
|
else
|
||||||
return false
|
return false
|
||||||
@ -689,15 +637,15 @@ function json.use_lpeg ()
|
|||||||
local function UTF16BMP (hex)
|
local function UTF16BMP (hex)
|
||||||
return unichar (tonumber (hex, 16))
|
return unichar (tonumber (hex, 16))
|
||||||
end
|
end
|
||||||
local U16Sequence = (P"\\u" * g.C (HexDigit * HexDigit * HexDigit * HexDigit))
|
local U16Sequence = (P"\\u" * g.C (HexDigit * HexDigit * HexDigit * HexDigit))
|
||||||
local UnicodeEscape = g.Cmt (U16Sequence * U16Sequence, UTF16Surrogate) + U16Sequence/UTF16BMP
|
local UnicodeEscape = g.Cmt (U16Sequence * U16Sequence, UTF16Surrogate) + U16Sequence/UTF16BMP
|
||||||
local Char = UnicodeEscape + EscapeSequence + PlainChar
|
local Char = UnicodeEscape + EscapeSequence + PlainChar
|
||||||
local String = P"\"" * g.Cs (Char ^ 0) * (P"\"" + Err "unterminated string")
|
local String = P"\"" * g.Cs (Char ^ 0) * (P"\"" + Err "unterminated string")
|
||||||
local Integer = P"-"^(-1) * (P"0" + (R"19" * R"09"^0))
|
local Integer = P"-"^(-1) * (P"0" + (R"19" * R"09"^0))
|
||||||
local Fractal = P"." * R"09"^0
|
local Fractal = P"." * R"09"^0
|
||||||
local Exponent = (S"eE") * (S"+-")^(-1) * R"09"^1
|
local Exponent = (S"eE") * (S"+-")^(-1) * R"09"^1
|
||||||
local Number = (Integer * Fractal^(-1) * Exponent^(-1))/str2num
|
local Number = (Integer * Fractal^(-1) * Exponent^(-1))/str2num
|
||||||
local Constant = P"true" * g.Cc (true) + P"false" * g.Cc (false) + P"null" * g.Carg (1)
|
local Constant = P"true" * g.Cc (true) + P"false" * g.Cc (false) + P"null" * g.Carg (1)
|
||||||
local SimpleValue = Number + String + Constant
|
local SimpleValue = Number + String + Constant
|
||||||
local ArrayContent, ObjectContent
|
local ArrayContent, ObjectContent
|
||||||
|
|
||||||
@ -730,13 +678,13 @@ function json.use_lpeg ()
|
|||||||
return pos, setmetatable (t, state.objectmeta)
|
return pos, setmetatable (t, state.objectmeta)
|
||||||
end
|
end
|
||||||
|
|
||||||
local Array = P"[" * g.Cmt (g.Carg(1) * g.Carg(2), parsearray) * Space * (P"]" + Err "']' expected")
|
local Array = P"[" * g.Cmt (g.Carg(1) * g.Carg(2), parsearray) * Space * (P"]" + Err "']' expected")
|
||||||
local Object = P"{" * g.Cmt (g.Carg(1) * g.Carg(2), parseobject) * Space * (P"}" + Err "'}' expected")
|
local Object = P"{" * g.Cmt (g.Carg(1) * g.Carg(2), parseobject) * Space * (P"}" + Err "'}' expected")
|
||||||
local Value = Space * (Array + Object + SimpleValue)
|
local Value = Space * (Array + Object + SimpleValue)
|
||||||
local ExpectedValue = Value + Space * Err "value expected"
|
local ExpectedValue = Value + Space * Err "value expected"
|
||||||
ArrayContent = Value * Space * (P"," * g.Cc'cont' + g.Cc'last') * g.Cp()
|
ArrayContent = Value * Space * (P"," * g.Cc'cont' + g.Cc'last') * g.Cp()
|
||||||
local Pair = g.Cg (Space * String * Space * (P":" + Err "colon expected") * ExpectedValue)
|
local Pair = g.Cg (Space * String * Space * (P":" + Err "colon expected") * ExpectedValue)
|
||||||
ObjectContent = Pair * Space * (P"," * g.Cc'cont' + g.Cc'last') * g.Cp()
|
ObjectContent = Pair * Space * (P"," * g.Cc'cont' + g.Cc'last') * g.Cp()
|
||||||
local DecodeValue = ExpectedValue * g.Cp ()
|
local DecodeValue = ExpectedValue * g.Cp ()
|
||||||
|
|
||||||
function json.decode (str, pos, nullval, ...)
|
function json.decode (str, pos, nullval, ...)
|
||||||
@ -755,7 +703,7 @@ function json.use_lpeg ()
|
|||||||
|
|
||||||
json.using_lpeg = true
|
json.using_lpeg = true
|
||||||
|
|
||||||
return json -- so you can get the module using json = require "dkjson".use_lpeg()
|
return json -- so you can get the module using json = require "dkjson".use_lpeg()
|
||||||
end
|
end
|
||||||
|
|
||||||
if always_try_using_lpeg then
|
if always_try_using_lpeg then
|
||||||
@ -764,13 +712,3 @@ end
|
|||||||
|
|
||||||
return json
|
return json
|
||||||
|
|
||||||
|
|
||||||
</pre>
|
|
||||||
</blockquote>
|
|
||||||
</div>
|
|
||||||
<div class="footer">
|
|
||||||
<a href="./">dkolf.de</a>
|
|
||||||
<a href="/contact">contact</a>
|
|
||||||
(This page was generated by <a class="extlink" href="http://www.fossil-scm.org/">Fossil</a>.)
|
|
||||||
</div>
|
|
||||||
</body></html>
|
|
||||||
|
|||||||
444
jsontest.lua
444
jsontest.lua
@ -1,55 +1,3 @@
|
|||||||
<!DOCTYPE html>
|
|
||||||
<html>
|
|
||||||
<head>
|
|
||||||
<base href="http://dkolf.de/src/dkjson-lua.fsl/artifact" />
|
|
||||||
<title>Artifact Content - dkjson</title>
|
|
||||||
<link rel="alternate" type="application/rss+xml" title="RSS Feed"
|
|
||||||
href="/src/dkjson-lua.fsl/timeline.rss" />
|
|
||||||
<link rel="stylesheet" href="/src/dkjson-lua.fsl/style.css?default" type="text/css"
|
|
||||||
media="screen" />
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
<h1>Artifact Content — dkjson</h1>
|
|
||||||
<div class="mainmenu">
|
|
||||||
<a href='/'>dkolf.de</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/home'>dkjson</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/timeline'>Timeline</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/brlist'>Branches</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/taglist'>Tags</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/wiki'>Wiki</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/login'>Login</a>
|
|
||||||
</div>
|
|
||||||
<div class="submenu">
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/timeline?n=200&uf=4711879926db7149e28e639af37a95356026c770">Checkins Using</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/raw/jsontest.lua?name=4711879926db7149e28e639af37a95356026c770">Download</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/hexdump?name=4711879926db7149e28e639af37a95356026c770">Hex</a>
|
|
||||||
</div>
|
|
||||||
<div class="content">
|
|
||||||
<script>
|
|
||||||
function gebi(x){
|
|
||||||
if(/^#/.test(x)) x = x.substr(1);
|
|
||||||
var e = document.getElementById(x);
|
|
||||||
if(!e) throw new Error("Expecting element with ID "+x);
|
|
||||||
else return e;}
|
|
||||||
</script>
|
|
||||||
<h2>Artifact 4711879926db7149e28e639af37a95356026c770:</h2>
|
|
||||||
<ul>
|
|
||||||
<li>File
|
|
||||||
<a id='a1' href='/src/dkjson-lua.fsl/honeypot'>jsontest.lua</a>
|
|
||||||
<ul>
|
|
||||||
<li>
|
|
||||||
2014-03-11 21:36:39
|
|
||||||
- part of checkin
|
|
||||||
<span class="timelineHistDsp">[14a1712f0a]</span>
|
|
||||||
on branch <a id='a2' href='/src/dkjson-lua.fsl/honeypot'>trunk</a>
|
|
||||||
- handle multi line comments
|
|
||||||
(user:
|
|
||||||
dhkolf
|
|
||||||
</ul>
|
|
||||||
</ul>
|
|
||||||
<hr />
|
|
||||||
<blockquote>
|
|
||||||
<pre>
|
|
||||||
local encode, decode, dkencode, dkdecode
|
local encode, decode, dkencode, dkdecode
|
||||||
|
|
||||||
|
|
||||||
@ -66,18 +14,18 @@ local test_module, opt = ... -- command line argument
|
|||||||
--local test_module = 'th-json'
|
--local test_module = 'th-json'
|
||||||
test_module = test_module or 'dkjson'
|
test_module = test_module or 'dkjson'
|
||||||
|
|
||||||
--local opt = "esc" -- Test which characters in the BMP get escaped and whether this is correct
|
--local opt = "esc" -- Test which characters in the BMP get escaped and whether this is correct
|
||||||
--local opt = "esc_full" -- Full range from 0 to 0x10ffff
|
--local opt = "esc_full" -- Full range from 0 to 0x10ffff
|
||||||
--local opt = "esc_asc" -- Just 0 to 127
|
--local opt = "esc_asc" -- Just 0 to 127
|
||||||
|
|
||||||
--local opt = "refcycle" -- What happens when a reference cycle gets encoded?
|
--local opt = "refcycle" -- What happens when a reference cycle gets encoded?
|
||||||
|
|
||||||
local testlocale = "de_DE.UTF8"
|
local testlocale = "de_DE.UTF8"
|
||||||
|
|
||||||
local function inlocale(fn)
|
local function inlocale(fn)
|
||||||
local oldloc = os.setlocale(nil, 'numeric')
|
local oldloc = os.setlocale(nil, 'numeric')
|
||||||
if not os.setlocale(testlocale, 'numeric') then
|
if not os.setlocale(testlocale, 'numeric') then
|
||||||
print("test could not switch to locale "..testlocale)
|
print("test could not switch to locale "..testlocale)
|
||||||
else
|
else
|
||||||
fn()
|
fn()
|
||||||
end
|
end
|
||||||
@ -86,19 +34,19 @@ end
|
|||||||
|
|
||||||
if test_module == 'dkjson-nopeg' then
|
if test_module == 'dkjson-nopeg' then
|
||||||
test_module = 'dkjson'
|
test_module = 'dkjson'
|
||||||
package.preload["lpeg"] = function () error "lpeg disabled" end
|
package.preload["lpeg"] = function () error "lpeg disabled" end
|
||||||
package.loaded["lpeg"] = nil
|
package.loaded["lpeg"] = nil
|
||||||
lpeg = nil
|
lpeg = nil
|
||||||
end
|
end
|
||||||
|
|
||||||
if test_module == 'dkjson-lulpeg' then
|
if test_module == 'dkjson-lulpeg' then
|
||||||
test_module = 'dkjson'
|
test_module = 'dkjson'
|
||||||
package.loaded["lpeg"] = require "lulpeg"
|
package.loaded["lpeg"] = require "lulpeg"
|
||||||
end
|
end
|
||||||
|
|
||||||
do
|
do
|
||||||
-- http://chiselapp.com/user/dhkolf/repository/dkjson/
|
-- http://chiselapp.com/user/dhkolf/repository/dkjson/
|
||||||
local dkjson = require "dkjson"
|
local dkjson = require "dkjson"
|
||||||
dkencode = dkjson.encode
|
dkencode = dkjson.encode
|
||||||
dkdecode = dkjson.decode
|
dkdecode = dkjson.decode
|
||||||
end
|
end
|
||||||
@ -106,7 +54,7 @@ end
|
|||||||
if test_module == 'cmj-json' then
|
if test_module == 'cmj-json' then
|
||||||
-- https://github.com/craigmj/json4lua/
|
-- https://github.com/craigmj/json4lua/
|
||||||
-- http://json.luaforge.net/
|
-- http://json.luaforge.net/
|
||||||
local json = require "cmjjson" -- renamed, the original file was just 'json'
|
local json = require "cmjjson" -- renamed, the original file was just 'json'
|
||||||
encode = json.encode
|
encode = json.encode
|
||||||
decode = json.decode
|
decode = json.decode
|
||||||
elseif test_module == 'dkjson' then
|
elseif test_module == 'dkjson' then
|
||||||
@ -115,59 +63,59 @@ elseif test_module == 'dkjson' then
|
|||||||
decode = dkdecode
|
decode = dkdecode
|
||||||
elseif test_module == 'fleece' then
|
elseif test_module == 'fleece' then
|
||||||
-- http://www.eonblast.com/fleece/
|
-- http://www.eonblast.com/fleece/
|
||||||
local fleece = require "fleece"
|
local fleece = require "fleece"
|
||||||
encode = function(x) return fleece.json(x, "E4") end
|
encode = function(x) return fleece.json(x, "E4") end
|
||||||
elseif test_module == 'jf-json' then
|
elseif test_module == 'jf-json' then
|
||||||
-- http://regex.info/blog/lua/json
|
-- http://regex.info/blog/lua/json
|
||||||
local json = require "jfjson" -- renamed, the original file was just 'JSON'
|
local json = require "jfjson" -- renamed, the original file was just 'JSON'
|
||||||
encode = function(x) return json:encode(x) end
|
encode = function(x) return json:encode(x) end
|
||||||
decode = function(x) return json:decode(x) end
|
decode = function(x) return json:decode(x) end
|
||||||
elseif test_module == 'lua-yajl' then
|
elseif test_module == 'lua-yajl' then
|
||||||
-- http://github.com/brimworks/lua-yajl
|
-- http://github.com/brimworks/lua-yajl
|
||||||
local yajl = require ("yajl")
|
local yajl = require ("yajl")
|
||||||
encode = yajl.to_string
|
encode = yajl.to_string
|
||||||
decode = yajl.to_value
|
decode = yajl.to_value
|
||||||
elseif test_module == 'mp-cjson' then
|
elseif test_module == 'mp-cjson' then
|
||||||
-- http://www.kyne.com.au/~mark/software/lua-cjson.php
|
-- http://www.kyne.com.au/~mark/software/lua-cjson.php
|
||||||
local json = require "cjson"
|
local json = require "cjson"
|
||||||
encode = json.encode
|
encode = json.encode
|
||||||
decode = json.decode
|
decode = json.decode
|
||||||
elseif test_module == 'nm-json' then
|
elseif test_module == 'nm-json' then
|
||||||
-- http://luaforge.net/projects/luajsonlib/
|
-- http://luaforge.net/projects/luajsonlib/
|
||||||
local json = require "LuaJSON"
|
local json = require "LuaJSON"
|
||||||
encode = json.encode or json.stringify
|
encode = json.encode or json.stringify
|
||||||
decode = json.decode or json.parse
|
decode = json.decode or json.parse
|
||||||
elseif test_module == 'sb-json' then
|
elseif test_module == 'sb-json' then
|
||||||
-- http://www.chipmunkav.com/downloads/Json.lua
|
-- http://www.chipmunkav.com/downloads/Json.lua
|
||||||
local json = require "sbjson" -- renamed, the original file was just 'Json'
|
local json = require "sbjson" -- renamed, the original file was just 'Json'
|
||||||
encode = json.Encode
|
encode = json.Encode
|
||||||
decode = json.Decode
|
decode = json.Decode
|
||||||
elseif test_module == 'th-json' then
|
elseif test_module == 'th-json' then
|
||||||
-- https://github.com/harningt/luajson
|
-- https://github.com/harningt/luajson
|
||||||
-- http://luaforge.net/projects/luajson/
|
-- http://luaforge.net/projects/luajson/
|
||||||
local json = require "json"
|
local json = require "json"
|
||||||
encode = json.encode
|
encode = json.encode
|
||||||
decode = json.decode
|
decode = json.decode
|
||||||
else
|
else
|
||||||
print "No module specified"
|
print "No module specified"
|
||||||
return
|
return
|
||||||
end
|
end
|
||||||
|
|
||||||
if not encode then
|
if not encode then
|
||||||
print ("No encode method")
|
print ("No encode method")
|
||||||
else
|
else
|
||||||
local x, r
|
local x, r
|
||||||
|
|
||||||
local escapecodes = {
|
local escapecodes = {
|
||||||
["\""] = "\\\"", ["\\"] = "\\\\", ["\b"] = "\\b", ["\f"] = "\\f",
|
["\""] = "\\\"", ["\\"] = "\\\\", ["\b"] = "\\b", ["\f"] = "\\f",
|
||||||
["\n"] = "\\n", ["\r"] = "\\r", ["\t"] = "\\t", ["/"] = "\\/"
|
["\n"] = "\\n", ["\r"] = "\\r", ["\t"] = "\\t", ["/"] = "\\/"
|
||||||
}
|
}
|
||||||
local function test (x, n, expect)
|
local function test (x, n, expect)
|
||||||
local enc = encode{ x }:match("^%s*%[%s*%\"(.-)%\"%s*%]%s*$")
|
local enc = encode{ x }:match("^%s*%[%s*%\"(.-)%\"%s*%]%s*$")
|
||||||
if not enc or (escapecodes[x] ~= enc
|
if not enc or (escapecodes[x] ~= enc
|
||||||
and ("\\u%04x"):format(n) ~= enc:gsub("[A-F]", string.lower)
|
and ("\\u%04x"):format(n) ~= enc:gsub("[A-F]", string.lower)
|
||||||
and not (expect and enc:match("^"..expect.."$"))) then
|
and not (expect and enc:match("^"..expect.."$"))) then
|
||||||
print(("U+%04X isn't encoded correctly: %q"):format(n, enc))
|
print(("U+%04X isn't encoded correctly: %q"):format(n, enc))
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -175,81 +123,81 @@ else
|
|||||||
for i = 0,31 do
|
for i = 0,31 do
|
||||||
test(string.char(i), i)
|
test(string.char(i), i)
|
||||||
end
|
end
|
||||||
test("\"", ("\""):byte())
|
test("\"", ("\""):byte())
|
||||||
test("\\", ("\\"):byte())
|
test("\\", ("\\"):byte())
|
||||||
-- necessary escapes for JavaScript:
|
-- necessary escapes for JavaScript:
|
||||||
test("\226\128\168", 0x2028)
|
test("\226\128\168", 0x2028)
|
||||||
test("\226\128\169", 0x2029)
|
test("\226\128\169", 0x2029)
|
||||||
-- invalid escapes that were seen in the wild:
|
-- invalid escapes that were seen in the wild:
|
||||||
test("'", ("'"):byte(), "%'")
|
test("'", ("'"):byte(), "%'")
|
||||||
|
|
||||||
r,x = pcall (encode, { [1000] = "x" })
|
r,x = pcall (encode, { [1000] = "x" })
|
||||||
if not r then
|
if not r then
|
||||||
print ("encoding a sparse array (#=0) raises an error:", x)
|
print ("encoding a sparse array (#=0) raises an error:", x)
|
||||||
else
|
else
|
||||||
if #x > 30 then
|
if #x > 30 then
|
||||||
print ("sparse array (#=0) encoded as:", x:sub(1,15).." <...> "..x:sub(-15,-1), "#"..#x)
|
print ("sparse array (#=0) encoded as:", x:sub(1,15).." <...> "..x:sub(-15,-1), "#"..#x)
|
||||||
else
|
else
|
||||||
print ("sparse array (#=0) encoded as:", x)
|
print ("sparse array (#=0) encoded as:", x)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
r,x = pcall (encode, { [1] = "a", [1000] = "x" })
|
r,x = pcall (encode, { [1] = "a", [1000] = "x" })
|
||||||
if not r then
|
if not r then
|
||||||
print ("encoding a sparse array (#=1) raises an error:", x)
|
print ("encoding a sparse array (#=1) raises an error:", x)
|
||||||
else
|
else
|
||||||
if #x > 30 then
|
if #x > 30 then
|
||||||
print ("sparse array (#=1) encoded as:", x:sub(1,15).." <...> "..x:sub(-15,-1), "#str="..#x)
|
print ("sparse array (#=1) encoded as:", x:sub(1,15).." <...> "..x:sub(-15,-1), "#str="..#x)
|
||||||
else
|
else
|
||||||
print ("sparse array (#=1) encoded as:", x)
|
print ("sparse array (#=1) encoded as:", x)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
r,x = pcall (encode, { [1] = "a", [5] = "c", ["x"] = "x" })
|
r,x = pcall (encode, { [1] = "a", [5] = "c", ["x"] = "x" })
|
||||||
if not r then
|
if not r then
|
||||||
print ("encoding a mixed table raises an error:", x)
|
print ("encoding a mixed table raises an error:", x)
|
||||||
else
|
else
|
||||||
print ("mixed table encoded as:", x)
|
print ("mixed table encoded as:", x)
|
||||||
end
|
end
|
||||||
|
|
||||||
r, x = pcall(encode, { math.huge*0 }) -- NaN
|
r, x = pcall(encode, { math.huge*0 }) -- NaN
|
||||||
if not r then
|
if not r then
|
||||||
print ("encoding NaN raises an error:", x)
|
print ("encoding NaN raises an error:", x)
|
||||||
else
|
else
|
||||||
r = dkdecode(x)
|
r = dkdecode(x)
|
||||||
if not r then
|
if not r then
|
||||||
print ("NaN isn't converted into valid JSON:", x)
|
print ("NaN isn't converted into valid JSON:", x)
|
||||||
elseif type(r[1]) == "number" and r[1] == r[1] then -- a number, but not NaN
|
elseif type(r[1]) == "number" and r[1] == r[1] then -- a number, but not NaN
|
||||||
print ("NaN is converted into a valid number:", x)
|
print ("NaN is converted into a valid number:", x)
|
||||||
else
|
else
|
||||||
print ("NaN is converted to:", x)
|
print ("NaN is converted to:", x)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
if test_module == 'fleece' then
|
if test_module == 'fleece' then
|
||||||
print ("Fleece (0.3.1) is known to freeze on +/-Inf")
|
print ("Fleece (0.3.1) is known to freeze on +/-Inf")
|
||||||
else
|
else
|
||||||
r, x = pcall(encode, { math.huge }) -- +Inf
|
r, x = pcall(encode, { math.huge }) -- +Inf
|
||||||
if not r then
|
if not r then
|
||||||
print ("encoding +Inf raises an error:", x)
|
print ("encoding +Inf raises an error:", x)
|
||||||
else
|
else
|
||||||
r = dkdecode(x)
|
r = dkdecode(x)
|
||||||
if not r then
|
if not r then
|
||||||
print ("+Inf isn't converted into valid JSON:", x)
|
print ("+Inf isn't converted into valid JSON:", x)
|
||||||
else
|
else
|
||||||
print ("+Inf is converted to:", x)
|
print ("+Inf is converted to:", x)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
r, x = pcall(encode, { -math.huge }) -- -Inf
|
r, x = pcall(encode, { -math.huge }) -- -Inf
|
||||||
if not r then
|
if not r then
|
||||||
print ("encoding -Inf raises an error:", x)
|
print ("encoding -Inf raises an error:", x)
|
||||||
else
|
else
|
||||||
r = dkdecode(x)
|
r = dkdecode(x)
|
||||||
if not r then
|
if not r then
|
||||||
print ("-Inf isn't converted into valid JSON:", x)
|
print ("-Inf isn't converted into valid JSON:", x)
|
||||||
else
|
else
|
||||||
print ("-Inf is converted to:", x)
|
print ("-Inf is converted to:", x)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -257,9 +205,9 @@ else
|
|||||||
inlocale(function ()
|
inlocale(function ()
|
||||||
local r, x = pcall(encode, { 0.5 })
|
local r, x = pcall(encode, { 0.5 })
|
||||||
if not r then
|
if not r then
|
||||||
print("encoding 0.5 in locale raises an error:", x)
|
print("encoding 0.5 in locale raises an error:", x)
|
||||||
elseif not x:find(".", 1, true) then
|
elseif not x:find(".", 1, true) then
|
||||||
print("In locale 0.5 isn't converted into valid JSON:", x)
|
print("In locale 0.5 isn't converted into valid JSON:", x)
|
||||||
end
|
end
|
||||||
end)
|
end)
|
||||||
|
|
||||||
@ -270,35 +218,35 @@ else
|
|||||||
local state = {
|
local state = {
|
||||||
exception = function (w, v, s)
|
exception = function (w, v, s)
|
||||||
why, value, exstate = w, v, s
|
why, value, exstate = w, v, s
|
||||||
return "\"demo\""
|
return "\"demo\""
|
||||||
end
|
end
|
||||||
}
|
}
|
||||||
local encfunction = function () end
|
local encfunction = function () end
|
||||||
r, x = pcall(dkencode, { encfunction }, state )
|
r, x = pcall(dkencode, { encfunction }, state )
|
||||||
if not r then
|
if not r then
|
||||||
print("encoding a function with exception handler raises an error:", x)
|
print("encoding a function with exception handler raises an error:", x)
|
||||||
else
|
else
|
||||||
if x ~= "[\"demo\"]" then
|
if x ~= "[\"demo\"]" then
|
||||||
print("expected to see output of exception handler for type exception, but got", x)
|
print("expected to see output of exception handler for type exception, but got", x)
|
||||||
end
|
end
|
||||||
if why ~= "unsupported type" then
|
if why ~= "unsupported type" then
|
||||||
print("expected exception reason to be 'unsupported type' for type exception")
|
print("expected exception reason to be 'unsupported type' for type exception")
|
||||||
end
|
end
|
||||||
if value ~= encfunction then
|
if value ~= encfunction then
|
||||||
print("expected to recieve value for type exception")
|
print("expected to recieve value for type exception")
|
||||||
end
|
end
|
||||||
if exstate ~= state then
|
if exstate ~= state then
|
||||||
print("expected to recieve state for type exception")
|
print("expected to recieve state for type exception")
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
r, x = pcall(dkencode, { function () end }, {
|
r, x = pcall(dkencode, { function () end }, {
|
||||||
exception = function (w, v, s)
|
exception = function (w, v, s)
|
||||||
return nil, "demo"
|
return nil, "demo"
|
||||||
end
|
end
|
||||||
})
|
})
|
||||||
if r or x ~= "demo" then
|
if r or x ~= "demo" then
|
||||||
print("expected custom error for type exception, but got:", r, x)
|
print("expected custom error for type exception, but got:", r, x)
|
||||||
end
|
end
|
||||||
|
|
||||||
r, x = pcall(dkencode, { function () end }, {
|
r, x = pcall(dkencode, { function () end }, {
|
||||||
@ -306,8 +254,8 @@ else
|
|||||||
return nil
|
return nil
|
||||||
end
|
end
|
||||||
})
|
})
|
||||||
if r or x ~= "type 'function' is not supported by JSON." then
|
if r or x ~= "type 'function' is not supported by JSON." then
|
||||||
print("expected default error for type exception, but got:", r, x)
|
print("expected default error for type exception, but got:", r, x)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -316,34 +264,34 @@ else
|
|||||||
local state = {
|
local state = {
|
||||||
exception = function (w, v, s)
|
exception = function (w, v, s)
|
||||||
why, value, exstate = w, v, s
|
why, value, exstate = w, v, s
|
||||||
return "\"demo\""
|
return "\"demo\""
|
||||||
end
|
end
|
||||||
}
|
}
|
||||||
local a = {}
|
local a = {}
|
||||||
a[1] = a
|
a[1] = a
|
||||||
r, x = pcall(dkencode, a, state )
|
r, x = pcall(dkencode, a, state )
|
||||||
if not r then
|
if not r then
|
||||||
print("encoding a reference cycle with exception handler raises an error:", x)
|
print("encoding a reference cycle with exception handler raises an error:", x)
|
||||||
else
|
else
|
||||||
if x ~= "[\"demo\"]" then
|
if x ~= "[\"demo\"]" then
|
||||||
print("expected to see output of exception handler for reference cycle exception, but got", x)
|
print("expected to see output of exception handler for reference cycle exception, but got", x)
|
||||||
end
|
end
|
||||||
if why ~= "reference cycle" then
|
if why ~= "reference cycle" then
|
||||||
print("expected exception reason to be 'reference cycle' for reference cycle exception")
|
print("expected exception reason to be 'reference cycle' for reference cycle exception")
|
||||||
end
|
end
|
||||||
if value ~= a then
|
if value ~= a then
|
||||||
print("expected to recieve value for reference cycle exception")
|
print("expected to recieve value for reference cycle exception")
|
||||||
end
|
end
|
||||||
if exstate ~= state then
|
if exstate ~= state then
|
||||||
print("expected to recieve state for reference cycle exception")
|
print("expected to recieve state for reference cycle exception")
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
do -- example exception handler
|
do -- example exception handler
|
||||||
r = dkencode(function () end, { exception = require "dkjson".encodeexception })
|
r = dkencode(function () end, { exception = require "dkjson".encodeexception })
|
||||||
if r ~= [["<type 'function' is not supported by JSON.>"]] then
|
if r ~= [["<type 'function' is not supported by JSON.>"]] then
|
||||||
print("expected the exception encoder to encode default error message, but got", r)
|
print("expected the exception encoder to encode default error message, but got", r)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -358,54 +306,54 @@ else
|
|||||||
return true
|
return true
|
||||||
end
|
end
|
||||||
}) }, origstate)
|
}) }, origstate)
|
||||||
if usedstate ~= origstate then print("expected tojson-function to recieve the original state") end
|
if usedstate ~= origstate then print("expected tojson-function to recieve the original state") end
|
||||||
if type(usedbuffer) ~= 'table' or #usedbuffer < 1 then print("expected buffer in tojson-function to be an array") end
|
if type(usedbuffer) ~= 'table' or #usedbuffer < 1 then print("expected buffer in tojson-function to be an array") end
|
||||||
if usedbufferlen ~= 1 then print("expected bufferlen in tojson-function to be 1, but got "..tostring(usedbufferlen)) end
|
if usedbufferlen ~= 1 then print("expected bufferlen in tojson-function to be 1, but got "..tostring(usedbufferlen)) end
|
||||||
end
|
end
|
||||||
|
|
||||||
do -- do not keep buffer and bufferlen when they were not present initially
|
do -- do not keep buffer and bufferlen when they were not present initially
|
||||||
local origstate = {}
|
local origstate = {}
|
||||||
dkencode(setmetatable({}, {__tojson = function() return true end}), origstate)
|
dkencode(setmetatable({}, {__tojson = function() return true end}), origstate)
|
||||||
if origstate.buffer ~= nil then print("expected buffer to be reset to nil") end
|
if origstate.buffer ~= nil then print("expected buffer to be reset to nil") end
|
||||||
if origstate.bufferlen ~= nil then print("expected bufferlen to be reset to nil") end
|
if origstate.bufferlen ~= nil then print("expected bufferlen to be reset to nil") end
|
||||||
end
|
end
|
||||||
|
|
||||||
do -- keep buffer and update bufferlen when they were present initially
|
do -- keep buffer and update bufferlen when they were present initially
|
||||||
local origbuffer = {}
|
local origbuffer = {}
|
||||||
local origstate = { buffer = origbuffer }
|
local origstate = { buffer = origbuffer }
|
||||||
dkencode(true, origstate)
|
dkencode(true, origstate)
|
||||||
if origstate.buffer ~= origbuffer then print("expected original buffer to remain") end
|
if origstate.buffer ~= origbuffer then print("expected original buffer to remain") end
|
||||||
if origstate.bufferlen ~= 1 then print("expected bufferlen to be updated") end
|
if origstate.bufferlen ~= 1 then print("expected bufferlen to be updated") end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
if not decode then
|
if not decode then
|
||||||
print ("No decode method")
|
print ("No decode method")
|
||||||
else
|
else
|
||||||
local x, r
|
local x, r
|
||||||
|
|
||||||
x = decode[=[ ["\u0000"] ]=]
|
x = decode[=[ ["\u0000"] ]=]
|
||||||
if x[1] ~= "\000" then
|
if x[1] ~= "\000" then
|
||||||
print ("\\u0000 isn't decoded correctly")
|
print ("\\u0000 isn't decoded correctly")
|
||||||
end
|
end
|
||||||
|
|
||||||
x = decode[=[ ["\u20AC"] ]=]
|
x = decode[=[ ["\u20AC"] ]=]
|
||||||
if x[1] ~= "\226\130\172" then
|
if x[1] ~= "\226\130\172" then
|
||||||
print ("\\u20AC isn't decoded correctly")
|
print ("\\u20AC isn't decoded correctly")
|
||||||
end
|
end
|
||||||
|
|
||||||
x = decode[=[ ["\uD834\uDD1E"] ]=]
|
x = decode[=[ ["\uD834\uDD1E"] ]=]
|
||||||
if x[1] ~= "\240\157\132\158" then
|
if x[1] ~= "\240\157\132\158" then
|
||||||
print ("\\uD834\\uDD1E isn't decoded correctly")
|
print ("\\uD834\\uDD1E isn't decoded correctly")
|
||||||
end
|
end
|
||||||
|
|
||||||
r, x = pcall(decode, [=[
|
r, x = pcall(decode, [=[
|
||||||
{"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x":
|
{"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x":
|
||||||
{"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x":
|
{"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x":
|
||||||
{"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x":
|
{"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x":
|
||||||
{"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x":
|
{"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x": {"x":{"x":{"x":{"x":{"x":
|
||||||
"deep down"
|
"deep down"
|
||||||
} } } } } } } } } } } } } } }
|
} } } } } } } } } } } } } } }
|
||||||
} } } } } } } } } } } } } } }
|
} } } } } } } } } } } } } } }
|
||||||
} } } } } } } } } } } } } } }
|
} } } } } } } } } } } } } } }
|
||||||
@ -413,132 +361,132 @@ else
|
|||||||
]=])
|
]=])
|
||||||
|
|
||||||
if not r then
|
if not r then
|
||||||
print ("decoding a deep nested table raises an error:", x)
|
print ("decoding a deep nested table raises an error:", x)
|
||||||
else
|
else
|
||||||
local i = 0
|
local i = 0
|
||||||
while type(x) == 'table' do
|
while type(x) == 'table' do
|
||||||
i = i + 1
|
i = i + 1
|
||||||
x = x.x
|
x = x.x
|
||||||
end
|
end
|
||||||
if i ~= 60 or x ~= "deep down" then
|
if i ~= 60 or x ~= "deep down" then
|
||||||
print ("deep nested table isn't decoded correctly")
|
print ("deep nested table isn't decoded correctly")
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
if false and test_module == 'cmj-json' then
|
if false and test_module == 'cmj-json' then
|
||||||
-- unfortunatly the version can't be read
|
-- unfortunatly the version can't be read
|
||||||
print ("decoding a big array takes ages (or forever?) on cmj-json prior to version 0.9.5")
|
print ("decoding a big array takes ages (or forever?) on cmj-json prior to version 0.9.5")
|
||||||
else
|
else
|
||||||
r, x = pcall(decode, "["..("0,"):rep(100000).."0]")
|
r, x = pcall(decode, "["..("0,"):rep(100000).."0]")
|
||||||
if not r then
|
if not r then
|
||||||
print ("decoding a big array raises an error:", x)
|
print ("decoding a big array raises an error:", x)
|
||||||
else
|
else
|
||||||
if type(x) ~= 'table' or #x ~= 100001 then
|
if type(x) ~= 'table' or #x ~= 100001 then
|
||||||
print ("big array isn't decoded correctly")
|
print ("big array isn't decoded correctly")
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
r, x = pcall(decode, "{}")
|
r, x = pcall(decode, "{}")
|
||||||
if not r then
|
if not r then
|
||||||
print ("decoding an empty object raises an error:", x)
|
print ("decoding an empty object raises an error:", x)
|
||||||
end
|
end
|
||||||
|
|
||||||
r, x = pcall(decode, "[]")
|
r, x = pcall(decode, "[]")
|
||||||
if not r then
|
if not r then
|
||||||
print ("decoding an empty array raises an error:", x)
|
print ("decoding an empty array raises an error:", x)
|
||||||
end
|
end
|
||||||
|
|
||||||
r, x = pcall(decode, "[1e+2]")
|
r, x = pcall(decode, "[1e+2]")
|
||||||
if not r then
|
if not r then
|
||||||
print ("decoding a number with exponential notation raises an error:", x)
|
print ("decoding a number with exponential notation raises an error:", x)
|
||||||
elseif x[1] ~= 1e+2 then
|
elseif x[1] ~= 1e+2 then
|
||||||
print ("1e+2 decoded incorrectly:", r[1])
|
print ("1e+2 decoded incorrectly:", r[1])
|
||||||
end
|
end
|
||||||
|
|
||||||
inlocale(function ()
|
inlocale(function ()
|
||||||
local r, x = pcall(decode, "[0.5]")
|
local r, x = pcall(decode, "[0.5]")
|
||||||
if not r then
|
if not r then
|
||||||
print("decoding 0.5 in locale raises an error:", x)
|
print("decoding 0.5 in locale raises an error:", x)
|
||||||
elseif not x then
|
elseif not x then
|
||||||
print("cannot decode 0.5 in locale")
|
print("cannot decode 0.5 in locale")
|
||||||
elseif x[1] ~= 0.5 then
|
elseif x[1] ~= 0.5 then
|
||||||
print("decoded 0.5 incorrectly in locale:", x[1])
|
print("decoded 0.5 incorrectly in locale:", x[1])
|
||||||
end
|
end
|
||||||
end)
|
end)
|
||||||
|
|
||||||
-- special tests for dkjson:
|
-- special tests for dkjson:
|
||||||
if test_module == 'dkjson' then
|
if test_module == 'dkjson' then
|
||||||
x = dkdecode[=[ [{"x":0}] ]=]
|
x = dkdecode[=[ [{"x":0}] ]=]
|
||||||
local m = getmetatable(x)
|
local m = getmetatable(x)
|
||||||
if not m or m.__jsontype ~= 'array' then
|
if not m or m.__jsontype ~= 'array' then
|
||||||
print ("<metatable>.__jsontype ~= array")
|
print ("<metatable>.__jsontype ~= array")
|
||||||
end
|
end
|
||||||
local m = getmetatable(x[1])
|
local m = getmetatable(x[1])
|
||||||
if not m or m.__jsontype ~= 'object' then
|
if not m or m.__jsontype ~= 'object' then
|
||||||
print ("<metatable>.__jsontype ~= object")
|
print ("<metatable>.__jsontype ~= object")
|
||||||
end
|
end
|
||||||
|
|
||||||
local x,p,m = dkdecode" invalid "
|
local x,p,m = dkdecode" invalid "
|
||||||
if p ~= 2 or type(m) ~= 'string' or not m:find("at line 1, column 2$") then
|
if p ~= 2 or type(m) ~= 'string' or not m:find("at line 1, column 2$") then
|
||||||
print (("Invalid location: position=%d, message=%q"):format(p,m))
|
print (("Invalid location: position=%d, message=%q"):format(p,m))
|
||||||
end
|
end
|
||||||
local x,p,m = dkdecode" \n invalid "
|
local x,p,m = dkdecode" \n invalid "
|
||||||
if p ~= 4 or type(m) ~= 'string' or not m:find("at line 2, column 2$") then
|
if p ~= 4 or type(m) ~= 'string' or not m:find("at line 2, column 2$") then
|
||||||
print (("Invalid location: position=%d, message=%q"):format(p,m))
|
print (("Invalid location: position=%d, message=%q"):format(p,m))
|
||||||
end
|
end
|
||||||
|
|
||||||
do -- single line comments
|
do -- single line comments
|
||||||
local x, p, m = dkdecode [[
|
local x, p, m = dkdecode [[
|
||||||
{"test://" // comment // --?
|
{"test://" // comment // --?
|
||||||
: [ // continues
|
: [ // continues
|
||||||
0] //
|
0] //
|
||||||
}
|
}
|
||||||
]]
|
]]
|
||||||
if type(x) ~= 'table' or type(x["test://"]) ~= 'table' or x["test://"][1] ~= 0 then
|
if type(x) ~= 'table' or type(x["test://"]) ~= 'table' or x["test://"][1] ~= 0 then
|
||||||
print("could not decode a string with single line comments: "..tostring(m))
|
print("could not decode a string with single line comments: "..tostring(m))
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
do -- multi line comments
|
do -- multi line comments
|
||||||
local x, p, m = dkdecode [[
|
local x, p, m = dkdecode [[
|
||||||
{"test:/*"/**//*
|
{"test:/*"/**//*
|
||||||
hi! this is a comment
|
hi! this is a comment
|
||||||
*/ : [/** / **/ 0]
|
*/ : [/** / **/ 0]
|
||||||
}
|
}
|
||||||
]]
|
]]
|
||||||
if type(x) ~= 'table' or type(x["test:/*"]) ~= 'table' or x["test:/*"][1] ~= 0 then
|
if type(x) ~= 'table' or type(x["test:/*"]) ~= 'table' or x["test:/*"][1] ~= 0 then
|
||||||
print("could not decode a string with multi line comments: "..tostring(m))
|
print("could not decode a string with multi line comments: "..tostring(m))
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
if encode and opt == "refcycle" then
|
if encode and opt == "refcycle" then
|
||||||
local a = {}
|
local a = {}
|
||||||
a.a = a
|
a.a = a
|
||||||
print ("Trying a reference cycle...")
|
print ("Trying a reference cycle...")
|
||||||
encode(a)
|
encode(a)
|
||||||
end
|
end
|
||||||
|
|
||||||
if encode and (opt or ""):sub(1,3) == "esc" then
|
if encode and (opt or ""):sub(1,3) == "esc" then
|
||||||
|
|
||||||
local strchar, strbyte, strformat = string.char, string.byte, string.format
|
local strchar, strbyte, strformat = string.char, string.byte, string.format
|
||||||
local floor = math.floor
|
local floor = math.floor
|
||||||
|
|
||||||
local function unichar (value)
|
local function unichar (value)
|
||||||
if value < 0 then
|
if value < 0 then
|
||||||
return nil
|
return nil
|
||||||
elseif value <= 0x007f then
|
elseif value <= 0x007f then
|
||||||
return strchar (value)
|
return strchar (value)
|
||||||
elseif value <= 0x07ff then
|
elseif value <= 0x07ff then
|
||||||
return strchar (0xc0 + floor(value/0x40),
|
return strchar (0xc0 + floor(value/0x40),
|
||||||
0x80 + (floor(value) % 0x40))
|
0x80 + (floor(value) % 0x40))
|
||||||
elseif value <= 0xffff then
|
elseif value <= 0xffff then
|
||||||
return strchar (0xe0 + floor(value/0x1000),
|
return strchar (0xe0 + floor(value/0x1000),
|
||||||
0x80 + (floor(value/0x40) % 0x40),
|
0x80 + (floor(value/0x40) % 0x40),
|
||||||
0x80 + (floor(value) % 0x40))
|
0x80 + (floor(value) % 0x40))
|
||||||
elseif value <= 0x10ffff then
|
elseif value <= 0x10ffff then
|
||||||
return strchar (0xf0 + floor(value/0x40000),
|
return strchar (0xf0 + floor(value/0x40000),
|
||||||
0x80 + (floor(value/0x1000) % 0x40),
|
0x80 + (floor(value/0x1000) % 0x40),
|
||||||
0x80 + (floor(value/0x40) % 0x40),
|
0x80 + (floor(value/0x40) % 0x40),
|
||||||
@ -549,53 +497,53 @@ local function unichar (value)
|
|||||||
end
|
end
|
||||||
|
|
||||||
local escapecodes = {
|
local escapecodes = {
|
||||||
["\""] = "\\\"", ["\\"] = "\\\\", ["\b"] = "\\b", ["\f"] = "\\f",
|
["\""] = "\\\"", ["\\"] = "\\\\", ["\b"] = "\\b", ["\f"] = "\\f",
|
||||||
["\n"] = "\\n", ["\r"] = "\\r", ["\t"] = "\\t", ["/"] = "\\/"
|
["\n"] = "\\n", ["\r"] = "\\r", ["\t"] = "\\t", ["/"] = "\\/"
|
||||||
}
|
}
|
||||||
|
|
||||||
local function escapeutf8 (uchar)
|
local function escapeutf8 (uchar)
|
||||||
local a, b, c, d = strbyte (uchar, 1, 4)
|
local a, b, c, d = strbyte (uchar, 1, 4)
|
||||||
a, b, c, d = a or 0, b or 0, c or 0, d or 0
|
a, b, c, d = a or 0, b or 0, c or 0, d or 0
|
||||||
if a <= 0x7f then
|
if a <= 0x7f then
|
||||||
value = a
|
value = a
|
||||||
elseif 0xc0 <= a and a <= 0xdf and b >= 0x80 then
|
elseif 0xc0 <= a and a <= 0xdf and b >= 0x80 then
|
||||||
value = (a - 0xc0) * 0x40 + b - 0x80
|
value = (a - 0xc0) * 0x40 + b - 0x80
|
||||||
elseif 0xe0 <= a and a <= 0xef and b >= 0x80 and c >= 0x80 then
|
elseif 0xe0 <= a and a <= 0xef and b >= 0x80 and c >= 0x80 then
|
||||||
value = ((a - 0xe0) * 0x40 + b - 0x80) * 0x40 + c - 0x80
|
value = ((a - 0xe0) * 0x40 + b - 0x80) * 0x40 + c - 0x80
|
||||||
elseif 0xf0 <= a and a <= 0xf7 and b >= 0x80 and c >= 0x80 and d >= 0x80 then
|
elseif 0xf0 <= a and a <= 0xf7 and b >= 0x80 and c >= 0x80 and d >= 0x80 then
|
||||||
value = (((a - 0xf0) * 0x40 + b - 0x80) * 0x40 + c - 0x80) * 0x40 + d - 0x80
|
value = (((a - 0xf0) * 0x40 + b - 0x80) * 0x40 + c - 0x80) * 0x40 + d - 0x80
|
||||||
else
|
else
|
||||||
return ""
|
return ""
|
||||||
end
|
end
|
||||||
if value <= 0xffff then
|
if value <= 0xffff then
|
||||||
return strformat ("\\u%.4x", value)
|
return strformat ("\\u%.4x", value)
|
||||||
elseif value <= 0x10ffff then
|
elseif value <= 0x10ffff then
|
||||||
-- encode as UTF-16 surrogate pair
|
-- encode as UTF-16 surrogate pair
|
||||||
value = value - 0x10000
|
value = value - 0x10000
|
||||||
local highsur, lowsur = 0xD800 + floor (value/0x400), 0xDC00 + (value % 0x400)
|
local highsur, lowsur = 0xD800 + floor (value/0x400), 0xDC00 + (value % 0x400)
|
||||||
return strformat ("\\u%.4x\\u%.4x", highsur, lowsur)
|
return strformat ("\\u%.4x\\u%.4x", highsur, lowsur)
|
||||||
else
|
else
|
||||||
return ""
|
return ""
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
local isspecial = {}
|
local isspecial = {}
|
||||||
local unifile = io.open("UnicodeData.txt")
|
local unifile = io.open("UnicodeData.txt")
|
||||||
if unifile then
|
if unifile then
|
||||||
-- <http://www.unicode.org/Public/UNIDATA/UnicodeData.txt>
|
-- <http://www.unicode.org/Public/UNIDATA/UnicodeData.txt>
|
||||||
-- each line consists of 15 parts for each defined codepoints
|
-- each line consists of 15 parts for each defined codepoints
|
||||||
local pat = {}
|
local pat = {}
|
||||||
for i = 1,14 do
|
for i = 1,14 do
|
||||||
pat[i] = "[^;]*;"
|
pat[i] = "[^;]*;"
|
||||||
end
|
end
|
||||||
pat[1] = "([^;]*);" -- Codepoint
|
pat[1] = "([^;]*);" -- Codepoint
|
||||||
pat[3] = "([^;]*);" -- Category
|
pat[3] = "([^;]*);" -- Category
|
||||||
pat[15] = "[^;]*"
|
pat[15] = "[^;]*"
|
||||||
pat = table.concat(pat)
|
pat = table.concat(pat)
|
||||||
|
|
||||||
for line in unifile:lines() do
|
for line in unifile:lines() do
|
||||||
local cp, cat = line:match(pat)
|
local cp, cat = line:match(pat)
|
||||||
if cat:match("^C[^so]") or cat:match("^Z[lp]") then
|
if cat:match("^C[^so]") or cat:match("^Z[lp]") then
|
||||||
isspecial[tonumber(cp, 16)] = cat
|
isspecial[tonumber(cp, 16)] = cat
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -608,72 +556,72 @@ end
|
|||||||
local esc = {}
|
local esc = {}
|
||||||
local escerr = {}
|
local escerr = {}
|
||||||
local range
|
local range
|
||||||
if opt == "esc_full" then range = 0x10ffff
|
if opt == "esc_full" then range = 0x10ffff
|
||||||
elseif opt == "esc_asc" then range = 0x7f
|
elseif opt == "esc_asc" then range = 0x7f
|
||||||
else range = 0xffff end
|
else range = 0xffff end
|
||||||
|
|
||||||
for i = 0,range do
|
for i = 0,range do
|
||||||
t[1] = unichar(i)
|
t[1] = unichar(i)
|
||||||
xe = encode(t)
|
xe = encode(t)
|
||||||
x = string.match(xe, "^%s*%[%s*%\"(.*)%\"%s*%]%s*$")
|
x = string.match(xe, "^%s*%[%s*%\"(.*)%\"%s*%]%s*$")
|
||||||
if type(x) ~= 'string' then
|
if type(x) ~= 'string' then
|
||||||
escerr[i] = xe
|
escerr[i] = xe
|
||||||
elseif string.lower(x) == escapeutf8(t[1]) then
|
elseif string.lower(x) == escapeutf8(t[1]) then
|
||||||
esc[i] = 'u'
|
esc[i] = 'u'
|
||||||
elseif x == escapecodes[t[1]] then
|
elseif x == escapecodes[t[1]] then
|
||||||
esc[i] = 'c'
|
esc[i] = 'c'
|
||||||
elseif x:sub(1,1) == "\\" then
|
elseif x:sub(1,1) == "\\" then
|
||||||
escerr[i] = xe
|
escerr[i] = xe
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
do
|
do
|
||||||
local i = 0
|
local i = 0
|
||||||
while i <= range do
|
while i <= range do
|
||||||
local first
|
local first
|
||||||
while i <= range and not (esc[i] or isspecial[i]) do i = i + 1 end
|
while i <= range and not (esc[i] or isspecial[i]) do i = i + 1 end
|
||||||
if i > range then break end
|
if i > range then break end
|
||||||
first = i
|
first = i
|
||||||
local special = isspecial[i]
|
local special = isspecial[i]
|
||||||
if esc[i] and special then
|
if esc[i] and special then
|
||||||
while esc[i] and isspecial[i] == special do i = i + 1 end
|
while esc[i] and isspecial[i] == special do i = i + 1 end
|
||||||
if i-1 > first then
|
if i-1 > first then
|
||||||
print (("Escaped %s characters from U+%04X to U+%04X"):format(special,first,i-1))
|
print (("Escaped %s characters from U+%04X to U+%04X"):format(special,first,i-1))
|
||||||
else
|
else
|
||||||
print (("Escaped %s character U+%04X"):format(special,first))
|
print (("Escaped %s character U+%04X"):format(special,first))
|
||||||
end
|
end
|
||||||
elseif esc[i] then
|
elseif esc[i] then
|
||||||
while esc[i] and not isspecial[i] do i = i + 1 end
|
while esc[i] and not isspecial[i] do i = i + 1 end
|
||||||
if i-1 > first then
|
if i-1 > first then
|
||||||
print (("Escaped from U+%04X to U+%04X"):format(first,i-1))
|
print (("Escaped from U+%04X to U+%04X"):format(first,i-1))
|
||||||
else
|
else
|
||||||
if first >= 32 and first <= 127 then
|
if first >= 32 and first <= 127 then
|
||||||
print (("Escaped U+%04X (%c)"):format(first,first))
|
print (("Escaped U+%04X (%c)"):format(first,first))
|
||||||
else
|
else
|
||||||
print (("Escaped U+%04X"):format(first))
|
print (("Escaped U+%04X"):format(first))
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
elseif special then
|
elseif special then
|
||||||
while not esc[i] and isspecial[i] == special do i = i + 1 end
|
while not esc[i] and isspecial[i] == special do i = i + 1 end
|
||||||
if i-1 > first then
|
if i-1 > first then
|
||||||
print (("Unescaped %s characters from U+%04X to U+%04X"):format(special,first,i-1))
|
print (("Unescaped %s characters from U+%04X to U+%04X"):format(special,first,i-1))
|
||||||
else
|
else
|
||||||
print (("Unescaped %s character U+%04X"):format(special,first))
|
print (("Unescaped %s character U+%04X"):format(special,first))
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
do
|
do
|
||||||
local i = 0
|
local i = 0
|
||||||
while i <= range do
|
while i <= range do
|
||||||
local first
|
local first
|
||||||
while i <= range and not escerr[i] do i = i + 1 end
|
while i <= range and not escerr[i] do i = i + 1 end
|
||||||
if not escerr[i] then break end
|
if not escerr[i] then break end
|
||||||
first = i
|
first = i
|
||||||
while escerr[i] do i = i + 1 end
|
while escerr[i] do i = i + 1 end
|
||||||
if i-1 > first then
|
if i-1 > first then
|
||||||
print (("Errors while escaping from U+%04X to U+%04X"):format(first, i-1))
|
print (("Errors while escaping from U+%04X to U+%04X"):format(first, i-1))
|
||||||
else
|
else
|
||||||
print (("Errors while escaping U+%04X"):format(first))
|
print (("Errors while escaping U+%04X"):format(first))
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -684,7 +632,7 @@ end
|
|||||||
--
|
--
|
||||||
-- Permission is hereby granted, free of charge, to any person obtaining
|
-- Permission is hereby granted, free of charge, to any person obtaining
|
||||||
-- a copy of this software and associated documentation files (the
|
-- a copy of this software and associated documentation files (the
|
||||||
-- "Software"), to deal in the Software without restriction, including
|
-- "Software"), to deal in the Software without restriction, including
|
||||||
-- without limitation the rights to use, copy, modify, merge, publish,
|
-- without limitation the rights to use, copy, modify, merge, publish,
|
||||||
-- distribute, sublicense, and/or sell copies of the Software, and to
|
-- distribute, sublicense, and/or sell copies of the Software, and to
|
||||||
-- permit persons to whom the Software is furnished to do so, subject to
|
-- permit persons to whom the Software is furnished to do so, subject to
|
||||||
@ -693,7 +641,7 @@ end
|
|||||||
-- The above copyright notice and this permission notice shall be
|
-- The above copyright notice and this permission notice shall be
|
||||||
-- included in all copies or substantial portions of the Software.
|
-- included in all copies or substantial portions of the Software.
|
||||||
--
|
--
|
||||||
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||||||
-- EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
-- EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||||||
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
||||||
-- NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
|
-- NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
|
||||||
@ -703,13 +651,3 @@ end
|
|||||||
-- SOFTWARE.
|
-- SOFTWARE.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</pre>
|
|
||||||
</blockquote>
|
|
||||||
</div>
|
|
||||||
<div class="footer">
|
|
||||||
<a href="./">dkolf.de</a>
|
|
||||||
<a href="/contact">contact</a>
|
|
||||||
(This page was generated by <a class="extlink" href="http://www.fossil-scm.org/">Fossil</a>.)
|
|
||||||
</div>
|
|
||||||
</body></html>
|
|
||||||
|
|||||||
90
readme.txt
90
readme.txt
@ -1,55 +1,3 @@
|
|||||||
<!DOCTYPE html>
|
|
||||||
<html>
|
|
||||||
<head>
|
|
||||||
<base href="http://dkolf.de/src/dkjson-lua.fsl/artifact" />
|
|
||||||
<title>Artifact Content - dkjson</title>
|
|
||||||
<link rel="alternate" type="application/rss+xml" title="RSS Feed"
|
|
||||||
href="/src/dkjson-lua.fsl/timeline.rss" />
|
|
||||||
<link rel="stylesheet" href="/src/dkjson-lua.fsl/style.css?default" type="text/css"
|
|
||||||
media="screen" />
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
<h1>Artifact Content — dkjson</h1>
|
|
||||||
<div class="mainmenu">
|
|
||||||
<a href='/'>dkolf.de</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/home'>dkjson</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/timeline'>Timeline</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/brlist'>Branches</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/taglist'>Tags</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/wiki'>Wiki</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/login'>Login</a>
|
|
||||||
</div>
|
|
||||||
<div class="submenu">
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/timeline?n=200&uf=14fd609d5835b5c808632c2ef0d11c6a92e8f967">Checkins Using</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/raw/readme.txt?name=14fd609d5835b5c808632c2ef0d11c6a92e8f967">Download</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/hexdump?name=14fd609d5835b5c808632c2ef0d11c6a92e8f967">Hex</a>
|
|
||||||
</div>
|
|
||||||
<div class="content">
|
|
||||||
<script>
|
|
||||||
function gebi(x){
|
|
||||||
if(/^#/.test(x)) x = x.substr(1);
|
|
||||||
var e = document.getElementById(x);
|
|
||||||
if(!e) throw new Error("Expecting element with ID "+x);
|
|
||||||
else return e;}
|
|
||||||
</script>
|
|
||||||
<h2>Artifact 14fd609d5835b5c808632c2ef0d11c6a92e8f967:</h2>
|
|
||||||
<ul>
|
|
||||||
<li>File
|
|
||||||
<a id='a1' href='/src/dkjson-lua.fsl/honeypot'>readme.txt</a>
|
|
||||||
<ul>
|
|
||||||
<li>
|
|
||||||
2014-04-28 21:16:16
|
|
||||||
- part of checkin
|
|
||||||
<span class="timelineHistDsp">[3d24a61dd0]</span>
|
|
||||||
on branch <a id='a2' href='/src/dkjson-lua.fsl/honeypot'>trunk</a>
|
|
||||||
- fix line breaks in readme.txt, fix release year
|
|
||||||
(user:
|
|
||||||
dhkolf
|
|
||||||
</ul>
|
|
||||||
</ul>
|
|
||||||
<hr />
|
|
||||||
<blockquote>
|
|
||||||
<pre>
|
|
||||||
David Kolf's JSON module for Lua 5.1/5.2
|
David Kolf's JSON module for Lua 5.1/5.2
|
||||||
========================================
|
========================================
|
||||||
|
|
||||||
@ -58,7 +6,7 @@ David Kolf's JSON module for Lua 5.1/5.2
|
|||||||
In the default configuration this module writes no global values, not even
|
In the default configuration this module writes no global values, not even
|
||||||
the module table. Import it using
|
the module table. Import it using
|
||||||
|
|
||||||
json = require ("dkjson")
|
json = require ("dkjson")
|
||||||
|
|
||||||
In environments where `require` or a similiar function are not available
|
In environments where `require` or a similiar function are not available
|
||||||
and you cannot receive the return value of the module, you can set the
|
and you cannot receive the return value of the module, you can set the
|
||||||
@ -107,8 +55,8 @@ cycles.
|
|||||||
When `exception` is given, it will be called whenever the encoder
|
When `exception` is given, it will be called whenever the encoder
|
||||||
cannot encode a given value.
|
cannot encode a given value.
|
||||||
The parameters are `reason`, `value`, `state` and `defaultmessage`.
|
The parameters are `reason`, `value`, `state` and `defaultmessage`.
|
||||||
`reason` is either `"reference cycle"`, `"custom encoder failed"` or
|
`reason` is either `"reference cycle"`, `"custom encoder failed"` or
|
||||||
`"unsupported type"`. `value` is the original value that caused the
|
`"unsupported type"`. `value` is the original value that caused the
|
||||||
exception, `state` is this state table, `defaultmessage` is the message
|
exception, `state` is this state table, `defaultmessage` is the message
|
||||||
of the error that would usually be raised.
|
of the error that would usually be raised.
|
||||||
You can either return `true` and add directly to the buffer or you can
|
You can either return `true` and add directly to the buffer or you can
|
||||||
@ -144,18 +92,18 @@ To prevent the assigning of metatables pass `nil`:
|
|||||||
|
|
||||||
json.decode (string, position, null, nil)
|
json.decode (string, position, null, nil)
|
||||||
|
|
||||||
`<metatable>.__jsonorder`
|
`<metatable>.__jsonorder`
|
||||||
-------------------------
|
-------------------------
|
||||||
|
|
||||||
`__jsonorder` can overwrite the `keyorder` for a specific table.
|
`__jsonorder` can overwrite the `keyorder` for a specific table.
|
||||||
|
|
||||||
`<metatable>.__jsontype`
|
`<metatable>.__jsontype`
|
||||||
------------------------
|
------------------------
|
||||||
|
|
||||||
`__jsontype` can be either `"array"` or `"object"`. This value is only
|
`__jsontype` can be either `"array"` or `"object"`. This value is only
|
||||||
checked for empty tables. (The default for empty tables is `"array"`).
|
checked for empty tables. (The default for empty tables is `"array"`).
|
||||||
|
|
||||||
`<metatable>.__tojson (self, state)`
|
`<metatable>.__tojson (self, state)`
|
||||||
------------------------------------
|
------------------------------------
|
||||||
|
|
||||||
You can provide your own `__tojson` function in a metatable. In this
|
You can provide your own `__tojson` function in a metatable. In this
|
||||||
@ -171,7 +119,7 @@ You can use this value for setting explicit `null` values.
|
|||||||
`json.version`
|
`json.version`
|
||||||
--------------
|
--------------
|
||||||
|
|
||||||
Set to `"dkjson 2.5"`.
|
Set to `"dkjson 2.5"`.
|
||||||
|
|
||||||
`json.quotestring (string)`
|
`json.quotestring (string)`
|
||||||
---------------------------
|
---------------------------
|
||||||
@ -201,7 +149,7 @@ LPeg support
|
|||||||
When the local configuration variable `always_try_using_lpeg` is set,
|
When the local configuration variable `always_try_using_lpeg` is set,
|
||||||
this module tries to load LPeg to replace the `decode` function. The
|
this module tries to load LPeg to replace the `decode` function. The
|
||||||
speed increase is significant. You can get the LPeg module at
|
speed increase is significant. You can get the LPeg module at
|
||||||
<http://www.inf.puc-rio.br/~roberto/lpeg/>.
|
<http://www.inf.puc-rio.br/~roberto/lpeg/>.
|
||||||
When LPeg couldn't be loaded, the pure Lua functions stay active.
|
When LPeg couldn't be loaded, the pure Lua functions stay active.
|
||||||
|
|
||||||
In case you don't want this module to require LPeg on its own,
|
In case you don't want this module to require LPeg on its own,
|
||||||
@ -217,12 +165,12 @@ and `decode` with functions that use LPeg patterns.
|
|||||||
This function returns the module table, so you can load the module
|
This function returns the module table, so you can load the module
|
||||||
using:
|
using:
|
||||||
|
|
||||||
json = require "dkjson".use_lpeg()
|
json = require "dkjson".use_lpeg()
|
||||||
|
|
||||||
Alternatively you can use `pcall` so the JSON module still works when
|
Alternatively you can use `pcall` so the JSON module still works when
|
||||||
LPeg isn't found.
|
LPeg isn't found.
|
||||||
|
|
||||||
json = require "dkjson"
|
json = require "dkjson"
|
||||||
pcall (json.use_lpeg)
|
pcall (json.use_lpeg)
|
||||||
|
|
||||||
### `json.using_lpeg`
|
### `json.using_lpeg`
|
||||||
@ -243,7 +191,7 @@ domain 'dkolf.de'.
|
|||||||
|
|
||||||
Permission is hereby granted, free of charge, to any person obtaining
|
Permission is hereby granted, free of charge, to any person obtaining
|
||||||
a copy of this software and associated documentation files (the
|
a copy of this software and associated documentation files (the
|
||||||
"Software"), to deal in the Software without restriction, including
|
"Software"), to deal in the Software without restriction, including
|
||||||
without limitation the rights to use, copy, modify, merge, publish,
|
without limitation the rights to use, copy, modify, merge, publish,
|
||||||
distribute, sublicense, and/or sell copies of the Software, and to
|
distribute, sublicense, and/or sell copies of the Software, and to
|
||||||
permit persons to whom the Software is furnished to do so, subject to
|
permit persons to whom the Software is furnished to do so, subject to
|
||||||
@ -252,7 +200,7 @@ the following conditions:
|
|||||||
The above copyright notice and this permission notice shall be
|
The above copyright notice and this permission notice shall be
|
||||||
included in all copies or substantial portions of the Software.
|
included in all copies or substantial portions of the Software.
|
||||||
|
|
||||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||||||
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||||||
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
||||||
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
|
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
|
||||||
@ -261,13 +209,3 @@ ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|||||||
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||||
SOFTWARE.
|
SOFTWARE.
|
||||||
|
|
||||||
|
|
||||||
</pre>
|
|
||||||
</blockquote>
|
|
||||||
</div>
|
|
||||||
<div class="footer">
|
|
||||||
<a href="./">dkolf.de</a>
|
|
||||||
<a href="/contact">contact</a>
|
|
||||||
(This page was generated by <a class="extlink" href="http://www.fossil-scm.org/">Fossil</a>.)
|
|
||||||
</div>
|
|
||||||
</body></html>
|
|
||||||
|
|||||||
134
speedtest.lua
134
speedtest.lua
@ -1,55 +1,3 @@
|
|||||||
<!DOCTYPE html>
|
|
||||||
<html>
|
|
||||||
<head>
|
|
||||||
<base href="http://dkolf.de/src/dkjson-lua.fsl/artifact" />
|
|
||||||
<title>Artifact Content - dkjson</title>
|
|
||||||
<link rel="alternate" type="application/rss+xml" title="RSS Feed"
|
|
||||||
href="/src/dkjson-lua.fsl/timeline.rss" />
|
|
||||||
<link rel="stylesheet" href="/src/dkjson-lua.fsl/style.css?default" type="text/css"
|
|
||||||
media="screen" />
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
<h1>Artifact Content — dkjson</h1>
|
|
||||||
<div class="mainmenu">
|
|
||||||
<a href='/'>dkolf.de</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/home'>dkjson</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/timeline'>Timeline</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/brlist'>Branches</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/taglist'>Tags</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/wiki'>Wiki</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/login'>Login</a>
|
|
||||||
</div>
|
|
||||||
<div class="submenu">
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/timeline?n=200&uf=18fa972b68042a87ff3ae03c9f6accf575b13d2d">Checkins Using</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/raw/speedtest.lua?name=18fa972b68042a87ff3ae03c9f6accf575b13d2d">Download</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/hexdump?name=18fa972b68042a87ff3ae03c9f6accf575b13d2d">Hex</a>
|
|
||||||
</div>
|
|
||||||
<div class="content">
|
|
||||||
<script>
|
|
||||||
function gebi(x){
|
|
||||||
if(/^#/.test(x)) x = x.substr(1);
|
|
||||||
var e = document.getElementById(x);
|
|
||||||
if(!e) throw new Error("Expecting element with ID "+x);
|
|
||||||
else return e;}
|
|
||||||
</script>
|
|
||||||
<h2>Artifact 18fa972b68042a87ff3ae03c9f6accf575b13d2d:</h2>
|
|
||||||
<ul>
|
|
||||||
<li>File
|
|
||||||
<a id='a1' href='/src/dkjson-lua.fsl/honeypot'>speedtest.lua</a>
|
|
||||||
<ul>
|
|
||||||
<li>
|
|
||||||
2011-08-05 21:59:09
|
|
||||||
- part of checkin
|
|
||||||
<span class="timelineHistDsp">[e0a83a39ad]</span>
|
|
||||||
on branch <a id='a2' href='/src/dkjson-lua.fsl/honeypot'>trunk</a>
|
|
||||||
- updated the tests to reflect the new version of cmj-JSON4Lua
|
|
||||||
(user:
|
|
||||||
dhkolf
|
|
||||||
</ul>
|
|
||||||
</ul>
|
|
||||||
<hr />
|
|
||||||
<blockquote>
|
|
||||||
<pre>
|
|
||||||
local encode, decode
|
local encode, decode
|
||||||
|
|
||||||
local test_module = ... -- command line argument
|
local test_module = ... -- command line argument
|
||||||
@ -67,57 +15,57 @@ local test_module = ... -- command line argument
|
|||||||
|
|
||||||
if test_module == 'cmj-json' then
|
if test_module == 'cmj-json' then
|
||||||
-- http://json.luaforge.net/
|
-- http://json.luaforge.net/
|
||||||
local json = require "cmjjson" -- renamed, the original file was just 'json'
|
local json = require "cmjjson" -- renamed, the original file was just 'json'
|
||||||
encode = json.encode
|
encode = json.encode
|
||||||
decode = json.decode
|
decode = json.decode
|
||||||
elseif test_module == 'dkjson' then
|
elseif test_module == 'dkjson' then
|
||||||
-- http://chiselapp.com/user/dhkolf/repository/dkjson/
|
-- http://chiselapp.com/user/dhkolf/repository/dkjson/
|
||||||
local dkjson = require "dkjson"
|
local dkjson = require "dkjson"
|
||||||
encode = dkjson.encode
|
encode = dkjson.encode
|
||||||
decode = dkjson.decode
|
decode = dkjson.decode
|
||||||
elseif test_module == 'dkjson-nopeg' then
|
elseif test_module == 'dkjson-nopeg' then
|
||||||
package.preload["lpeg"] = function () error "lpeg disabled" end
|
package.preload["lpeg"] = function () error "lpeg disabled" end
|
||||||
package.loaded["lpeg"] = nil
|
package.loaded["lpeg"] = nil
|
||||||
lpeg = nil
|
lpeg = nil
|
||||||
local dkjson = require "dkjson"
|
local dkjson = require "dkjson"
|
||||||
encode = dkjson.encode
|
encode = dkjson.encode
|
||||||
decode = dkjson.decode
|
decode = dkjson.decode
|
||||||
elseif test_module == 'fleece' then
|
elseif test_module == 'fleece' then
|
||||||
-- http://www.eonblast.com/fleece/
|
-- http://www.eonblast.com/fleece/
|
||||||
local fleece = require "fleece"
|
local fleece = require "fleece"
|
||||||
encode = function(x) return fleece.json(x, "E4") end
|
encode = function(x) return fleece.json(x, "E4") end
|
||||||
elseif test_module == 'jf-json' then
|
elseif test_module == 'jf-json' then
|
||||||
-- http://regex.info/blog/lua/json
|
-- http://regex.info/blog/lua/json
|
||||||
local json = require "jfjson" -- renamed, the original file was just 'JSON'
|
local json = require "jfjson" -- renamed, the original file was just 'JSON'
|
||||||
encode = function(x) return json:encode(x) end
|
encode = function(x) return json:encode(x) end
|
||||||
decode = function(x) return json:decode(x) end
|
decode = function(x) return json:decode(x) end
|
||||||
elseif test_module == 'lua-yajl' then
|
elseif test_module == 'lua-yajl' then
|
||||||
-- http://github.com/brimworks/lua-yajl
|
-- http://github.com/brimworks/lua-yajl
|
||||||
local yajl = require ("yajl")
|
local yajl = require ("yajl")
|
||||||
encode = yajl.to_string
|
encode = yajl.to_string
|
||||||
decode = yajl.to_value
|
decode = yajl.to_value
|
||||||
elseif test_module == 'mp-cjson' then
|
elseif test_module == 'mp-cjson' then
|
||||||
-- http://www.kyne.com.au/~mark/software/lua-cjson.php
|
-- http://www.kyne.com.au/~mark/software/lua-cjson.php
|
||||||
local json = require "cjson"
|
local json = require "cjson"
|
||||||
encode = json.encode
|
encode = json.encode
|
||||||
decode = json.decode
|
decode = json.decode
|
||||||
elseif test_module == 'nm-json' then
|
elseif test_module == 'nm-json' then
|
||||||
-- http://luaforge.net/projects/luajsonlib/
|
-- http://luaforge.net/projects/luajsonlib/
|
||||||
local json = require "LuaJSON"
|
local json = require "LuaJSON"
|
||||||
encode = json.encode or json.stringify
|
encode = json.encode or json.stringify
|
||||||
decode = json.decode or json.parse
|
decode = json.decode or json.parse
|
||||||
elseif test_module == 'sb-json' then
|
elseif test_module == 'sb-json' then
|
||||||
-- http://www.chipmunkav.com/downloads/Json.lua
|
-- http://www.chipmunkav.com/downloads/Json.lua
|
||||||
local json = require "sbjson" -- renamed, the original file was just 'Json'
|
local json = require "sbjson" -- renamed, the original file was just 'Json'
|
||||||
encode = json.Encode
|
encode = json.Encode
|
||||||
decode = json.Decode
|
decode = json.Decode
|
||||||
elseif test_module == 'th-json' then
|
elseif test_module == 'th-json' then
|
||||||
-- http://luaforge.net/projects/luajson/
|
-- http://luaforge.net/projects/luajson/
|
||||||
local json = require "json"
|
local json = require "json"
|
||||||
encode = json.encode
|
encode = json.encode
|
||||||
decode = json.decode
|
decode = json.decode
|
||||||
else
|
else
|
||||||
print "No module specified"
|
print "No module specified"
|
||||||
return
|
return
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -126,34 +74,34 @@ end
|
|||||||
|
|
||||||
local str = [[
|
local str = [[
|
||||||
{
|
{
|
||||||
"Herausgeber": "Xema",
|
"Herausgeber": "Xema",
|
||||||
"Nummer": "1234-5678-9012-3456",
|
"Nummer": "1234-5678-9012-3456",
|
||||||
"Deckung": 26,
|
"Deckung": 26,
|
||||||
"Währung": "EUR",
|
"Währung": "EUR",
|
||||||
"Inhaber": {
|
"Inhaber": {
|
||||||
"Name": "Mustermann",
|
"Name": "Mustermann",
|
||||||
"Vorname": "Max",
|
"Vorname": "Max",
|
||||||
"männlich": true,
|
"männlich": true,
|
||||||
"Depot": {},
|
"Depot": {},
|
||||||
"Hobbys": [ "Reiten", "Golfen", "Lesen" ],
|
"Hobbys": [ "Reiten", "Golfen", "Lesen" ],
|
||||||
"Alter": 42,
|
"Alter": 42,
|
||||||
"Kinder": [0],
|
"Kinder": [0],
|
||||||
"Partner": null
|
"Partner": null
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
]]
|
]]
|
||||||
|
|
||||||
local tbl = {
|
local tbl = {
|
||||||
Herausgeber= "Xema",
|
Herausgeber= "Xema",
|
||||||
Nummer= "1234-5678-9012-3456",
|
Nummer= "1234-5678-9012-3456",
|
||||||
Deckung= 2e+6,
|
Deckung= 2e+6,
|
||||||
["Währung"]= "EUR",
|
["Währung"]= "EUR",
|
||||||
Inhaber= {
|
Inhaber= {
|
||||||
Name= "Mustermann",
|
Name= "Mustermann",
|
||||||
Vorname= "Max",
|
Vorname= "Max",
|
||||||
["männlich"]= true,
|
["männlich"]= true,
|
||||||
Depot= {},
|
Depot= {},
|
||||||
Hobbys= { "Reiten", "Golfen", "Lesen" },
|
Hobbys= { "Reiten", "Golfen", "Lesen" },
|
||||||
Alter= 42,
|
Alter= 42,
|
||||||
Kinder= {},
|
Kinder= {},
|
||||||
Partner= nil
|
Partner= nil
|
||||||
@ -169,7 +117,7 @@ if decode then
|
|||||||
decode (str)
|
decode (str)
|
||||||
end
|
end
|
||||||
t2 = os.clock ()
|
t2 = os.clock ()
|
||||||
print ("Decoding:", t2 - t1)
|
print ("Decoding:", t2 - t1)
|
||||||
end
|
end
|
||||||
|
|
||||||
if encode then
|
if encode then
|
||||||
@ -178,16 +126,6 @@ if encode then
|
|||||||
encode (tbl)
|
encode (tbl)
|
||||||
end
|
end
|
||||||
t2 = os.clock ()
|
t2 = os.clock ()
|
||||||
print ("Encoding:", t2 - t1)
|
print ("Encoding:", t2 - t1)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
</pre>
|
|
||||||
</blockquote>
|
|
||||||
</div>
|
|
||||||
<div class="footer">
|
|
||||||
<a href="./">dkolf.de</a>
|
|
||||||
<a href="/contact">contact</a>
|
|
||||||
(This page was generated by <a class="extlink" href="http://www.fossil-scm.org/">Fossil</a>.)
|
|
||||||
</div>
|
|
||||||
</body></html>
|
|
||||||
|
|||||||
68
versions.txt
68
versions.txt
@ -1,55 +1,3 @@
|
|||||||
<!DOCTYPE html>
|
|
||||||
<html>
|
|
||||||
<head>
|
|
||||||
<base href="http://dkolf.de/src/dkjson-lua.fsl/artifact" />
|
|
||||||
<title>Artifact Content - dkjson</title>
|
|
||||||
<link rel="alternate" type="application/rss+xml" title="RSS Feed"
|
|
||||||
href="/src/dkjson-lua.fsl/timeline.rss" />
|
|
||||||
<link rel="stylesheet" href="/src/dkjson-lua.fsl/style.css?default" type="text/css"
|
|
||||||
media="screen" />
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
<h1>Artifact Content — dkjson</h1>
|
|
||||||
<div class="mainmenu">
|
|
||||||
<a href='/'>dkolf.de</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/home'>dkjson</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/timeline'>Timeline</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/brlist'>Branches</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/taglist'>Tags</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/wiki'>Wiki</a>
|
|
||||||
<a href='/src/dkjson-lua.fsl/login'>Login</a>
|
|
||||||
</div>
|
|
||||||
<div class="submenu">
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/timeline?n=200&uf=441fcf232729d1ec667cb34cc60ebda85579ed9e">Checkins Using</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/raw/versions.txt?name=441fcf232729d1ec667cb34cc60ebda85579ed9e">Download</a>
|
|
||||||
<a class="label" href="/src/dkjson-lua.fsl/hexdump?name=441fcf232729d1ec667cb34cc60ebda85579ed9e">Hex</a>
|
|
||||||
</div>
|
|
||||||
<div class="content">
|
|
||||||
<script>
|
|
||||||
function gebi(x){
|
|
||||||
if(/^#/.test(x)) x = x.substr(1);
|
|
||||||
var e = document.getElementById(x);
|
|
||||||
if(!e) throw new Error("Expecting element with ID "+x);
|
|
||||||
else return e;}
|
|
||||||
</script>
|
|
||||||
<h2>Artifact 441fcf232729d1ec667cb34cc60ebda85579ed9e:</h2>
|
|
||||||
<ul>
|
|
||||||
<li>File
|
|
||||||
<a id='a1' href='/src/dkjson-lua.fsl/honeypot'>versions.txt</a>
|
|
||||||
<ul>
|
|
||||||
<li>
|
|
||||||
2014-04-28 21:01:14
|
|
||||||
- part of checkin
|
|
||||||
<span class="timelineHistDsp">[fdee269361]</span>
|
|
||||||
on branch <a id='a2' href='/src/dkjson-lua.fsl/honeypot'>trunk</a>
|
|
||||||
- increased version
|
|
||||||
(user:
|
|
||||||
dhkolf
|
|
||||||
</ul>
|
|
||||||
</ul>
|
|
||||||
<hr />
|
|
||||||
<blockquote>
|
|
||||||
<pre>
|
|
||||||
Version 2.5 (2014-04-28)
|
Version 2.5 (2014-04-28)
|
||||||
===========
|
===========
|
||||||
|
|
||||||
@ -124,7 +72,7 @@ Version 1.1 (2011-07-08)
|
|||||||
|
|
||||||
Changes since version 1.0:
|
Changes since version 1.0:
|
||||||
|
|
||||||
* The values NaN/+Inf/-Inf are recognised and encoded as "null" like in
|
* The values NaN/+Inf/-Inf are recognised and encoded as "null" like in
|
||||||
the original JavaScript implementation.
|
the original JavaScript implementation.
|
||||||
* Read __tojson even from blocked metatables through the debug module.
|
* Read __tojson even from blocked metatables through the debug module.
|
||||||
* Fixed decoding single numbers.
|
* Fixed decoding single numbers.
|
||||||
@ -148,8 +96,8 @@ Changes since version 1.0:
|
|||||||
However, you can specify your own metatables as arguments).
|
However, you can specify your own metatables as arguments).
|
||||||
* There are no spaces added any longer when encoding.
|
* There are no spaces added any longer when encoding.
|
||||||
* It is possible to explicitly sort keys for encoding by providing an array with key
|
* It is possible to explicitly sort keys for encoding by providing an array with key
|
||||||
names to the option "keyorder" or the metatable field __jsonorder.
|
names to the option "keyorder" or the metatable field __jsonorder.
|
||||||
* The values NaN/+Inf/-Inf are recognised and encoded as "null" like in
|
* The values NaN/+Inf/-Inf are recognised and encoded as "null" like in
|
||||||
the original JavaScript implementation.
|
the original JavaScript implementation.
|
||||||
|
|
||||||
Version 1.0
|
Version 1.0
|
||||||
@ -157,13 +105,3 @@ Version 1.0
|
|||||||
|
|
||||||
Initial version, released 2010-08-28.
|
Initial version, released 2010-08-28.
|
||||||
|
|
||||||
|
|
||||||
</pre>
|
|
||||||
</blockquote>
|
|
||||||
</div>
|
|
||||||
<div class="footer">
|
|
||||||
<a href="./">dkolf.de</a>
|
|
||||||
<a href="/contact">contact</a>
|
|
||||||
(This page was generated by <a class="extlink" href="http://www.fossil-scm.org/">Fossil</a>.)
|
|
||||||
</div>
|
|
||||||
</body></html>
|
|
||||||
|
|||||||
Reference in New Issue
Block a user