From 8098be4eb1e9a10f967398196407c39d2cb5ef46 Mon Sep 17 00:00:00 2001 From: Waqas Hussain Date: Sun, 5 May 2013 15:02:33 -0400 Subject: util.json: Optimize long string parsing. --- util/json.lua | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/util/json.lua b/util/json.lua index 9c2dd2c6..6251af1a 100644 --- a/util/json.lua +++ b/util/json.lua @@ -258,16 +258,16 @@ function json.decode(json) return val; end local function readstring() - local s = ""; + local s = {}; checkandskip("\""); while ch do while ch and ch ~= "\\" and ch ~= "\"" do - s = s..ch; next(); + t_insert(s, ch); next(); end if ch == "\\" then next(); if unescapes[ch] then - s = s..unescapes[ch]; + t_insert(s, unescapes[ch]); next(); elseif ch == "u" then local seq = ""; @@ -277,13 +277,13 @@ function json.decode(json) if not ch:match("[0-9a-fA-F]") then error("invalid unicode escape sequence in string"); end seq = seq..ch; end - s = s..codepoint_to_utf8(tonumber(seq, 16)); + t_insert(s, codepoint_to_utf8(tonumber(seq, 16))); next(); else error("invalid escape sequence in string"); end end if ch == "\"" then next(); - return s; + return t_concat(s); end end error("eof while reading string"); -- cgit v1.2.3