notwa/mm
1
0
Fork 0
mirror of https://github.com/notwa/mm synced 2024-11-04 22:49:03 -08:00
Code Issues Releases Wiki Activity

fix a certain case in serialize.lua

Browse source 
this should actually check if the whole string
matches [A-Za-z_][0-9A-Za-z_]*
but thats for another time
This commit is contained in:
Connor Olding 2016-01-19 16:30:00 -08:00
parent 617a10cba3
commit e6b5fe590f
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Lua/lib/serialize.lua
View file

@ -16,7 +16,9 @@ local function kill_bom(s)
end
local function sanitize(v)
return type(v) == 'string' and strfmt('%q', v) or tostring(v)
local force = type(v) == 'string' and v:sub(1, 1):match('%d')
force = force and true or false
return type(v) == 'string' and strfmt('%q', v) or tostring(v), force
end
local function _serialize(value, writer, level)
@ -25,15 +27,16 @@ local function _serialize(value, writer, level)
local indent = strrep('\t', level)
writer('{\n')
for key,value in opairs(value) do
local sane = sanitize(key)
local keyval = sane == '"'..key..'"' and key or '['..sane..']'
local sane, force = sanitize(key)
local keyval = (sane == '"'..key..'"' and not force) and key or '['..sane..']'
writer(indent..keyval..' = ')
_serialize(value, writer, level + 1)
writer(',\n')
end
writer(strrep('\t', level - 1)..'}')
else
writer(sanitize(value))
local sane, force = sanitize(value)
writer(sane)
end
end