diff options
Diffstat (limited to 'tex/context/base/util-jsn.lua')
-rw-r--r-- | tex/context/base/util-jsn.lua | 145 |
1 files changed, 0 insertions, 145 deletions
diff --git a/tex/context/base/util-jsn.lua b/tex/context/base/util-jsn.lua deleted file mode 100644 index 7493f108d..000000000 --- a/tex/context/base/util-jsn.lua +++ /dev/null @@ -1,145 +0,0 @@ -if not modules then modules = { } end modules ['util-jsn'] = { - version = 1.001, - comment = "companion to m-json.mkiv", - author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", - copyright = "PRAGMA ADE / ConTeXt Development Team", - license = "see context related readme files" -} - --- Of course we could make a nice complete parser with proper error messages but --- as json is generated programmatically errors are systematic and we can assume --- a correct stream. If not, we have some fatal error anyway. So, we can just rely --- on strings being strings (apart from the unicode escape which is not in 5.1) and --- as we first catch known types we just assume that anything else is a number. - -local P, V, R, S, C, Cc, Cs, Ct, Cf, Cg = lpeg.P, lpeg.V, lpeg.R, lpeg.S, lpeg.C, lpeg.Cc, lpeg.Cs, lpeg.Ct, lpeg.Cf, lpeg.Cg -local lpegmatch = lpeg.match -local format = string.format -local utfchar = utf.char -local concat = table.concat - -local tonumber, tostring, rawset, type = tonumber, tostring, rawset, type - -local json = utilities.json or { } -utilities.json = json - --- moduledata = moduledata or { } --- moduledata.json = json - --- \\ \/ \b \f \n \r \t \uHHHH - -local lbrace = P("{") -local rbrace = P("}") -local lparent = P("[") -local rparent = P("]") -local comma = P(",") -local colon = P(":") -local dquote = P('"') - -local whitespace = lpeg.patterns.whitespace -local optionalws = whitespace^0 - -local escape = C(P("\\u") / "0x" * S("09","AF","af")) / function(s) return utfchar(tonumber(s)) end -local jstring = dquote * Cs((escape + (1-dquote))^0) * dquote -local jtrue = P("true") * Cc(true) -local jfalse = P("false") * Cc(false) -local jnull = P("null") * Cc(nil) -local jnumber = (1-whitespace-rparent-rbrace-comma)^1 / tonumber - -local key = jstring - -local jsonconverter = { "value", - object = lbrace * Cf(Ct("") * V("pair") * (comma * V("pair"))^0,rawset) * rbrace, - pair = Cg(optionalws * key * optionalws * colon * V("value")), - array = Ct(lparent * V("value") * (comma * V("value"))^0 * rparent), - value = optionalws * (jstring + V("object") + V("array") + jtrue + jfalse + jnull + jnumber + #rparent) * optionalws, -} - --- local jsonconverter = { "value", --- object = lbrace * Cf(Ct("") * V("pair") * (comma * V("pair"))^0,rawset) * rbrace, --- pair = Cg(optionalws * V("string") * optionalws * colon * V("value")), --- array = Ct(lparent * V("value") * (comma * V("value"))^0 * rparent), --- string = jstring, --- value = optionalws * (V("string") + V("object") + V("array") + jtrue + jfalse + jnull + jnumber) * optionalws, --- } - --- lpeg.print(jsonconverter) -- size 181 - -function json.tolua(str) - return lpegmatch(jsonconverter,str) -end - -local function tojson(value,t) -- we could optimize #t - local kind = type(value) - if kind == "table" then - local done = false - local size = #value - if size == 0 then - for k, v in next, value do - if done then - t[#t+1] = "," - else - t[#t+1] = "{" - done = true - end - t[#t+1] = format("%q:",k) - tojson(v,t) - end - if done then - t[#t+1] = "}" - else - t[#t+1] = "{}" - end - elseif size == 1 then - -- we can optimize for non tables - t[#t+1] = "[" - tojson(value[1],t) - t[#t+1] = "]" - else - for i=1,size do - if done then - t[#t+1] = "," - else - t[#t+1] = "[" - done = true - end - tojson(value[i],t) - end - t[#t+1] = "]" - end - elseif kind == "string" then - t[#t+1] = format("%q",value) - elseif kind == "number" then - t[#t+1] = value - elseif kind == "boolean" then - t[#t+1] = tostring(value) - end - return t -end - -function json.tostring(value) - -- todo optimize for non table - local kind = type(value) - if kind == "table" then - return concat(tojson(value,{}),"") - elseif kind == "string" or kind == "number" then - return value - else - return tostring(value) - end -end - --- local tmp = [[ { "a" : true, "b" : [ 123 , 456E-10, { "a" : true, "b" : [ 123 , 456 ] } ] } ]] - --- tmp = json.tolua(tmp) --- inspect(tmp) --- tmp = json.tostring(tmp) --- inspect(tmp) --- tmp = json.tolua(tmp) --- inspect(tmp) --- tmp = json.tostring(tmp) --- inspect(tmp) - --- inspect(json.tostring(true)) - -return json |