mirror of
https://github.com/vgstation-coders/vgstation13.git
synced 2025-12-10 18:32:03 +00:00
9e371f3884
* starting the crusade against relative pathing * new() part1 * new() part 2 * FOR VALHALLA * you sneaky buggers * part 5: the reckoning * chapter 6: rejuvination * chapter 7: age of conflict * dammit travis
65 lines
1.6 KiB
Plaintext
65 lines
1.6 KiB
Plaintext
json_writer/proc/WriteObject(list/L)
|
|
. = list()
|
|
. += "{"
|
|
var/i = 1
|
|
for(var/k in L)
|
|
var/val = L[k]
|
|
. += {"\"[k]\":[write(val)]"}
|
|
if(i++ < L.len)
|
|
. += ","
|
|
.+= "}"
|
|
. = jointext(.,"")
|
|
|
|
json_writer/proc/write(val)
|
|
if(isnum(val))
|
|
var/n = num2text(val, 100)
|
|
if(abs(val) == INFINITY || val != val) //JSON doesn't support the infinities or NaN, so save those as strings instead of numbers. (NaN != NaN, by the way.)
|
|
return write_string(n)
|
|
else
|
|
return n
|
|
else if(isnull(val))
|
|
return "null"
|
|
else if(istype(val, /list))
|
|
if(is_associative(val))
|
|
return WriteObject(val)
|
|
else
|
|
return write_array(val)
|
|
else
|
|
. += write_string("[val]")
|
|
|
|
json_writer/proc/write_array(list/L)
|
|
. = list()
|
|
. += "\["
|
|
for(var/i = 1 to L.len)
|
|
. += write(L[i])
|
|
if(i < L.len)
|
|
. += ","
|
|
. += "]"
|
|
. = jointext(., "")
|
|
|
|
json_writer/proc/write_string(txt)
|
|
var/static/list/json_escape = list("\\", "\"", "'", "\n")
|
|
for(var/targ in json_escape)
|
|
var/start = 1
|
|
while(start <= length(txt))
|
|
var/i = findtext(txt, targ, start)
|
|
if(!i)
|
|
break
|
|
if(targ == "\n")
|
|
txt = copytext(txt, 1, i) + "\\n" + copytext(txt, i+2)
|
|
start = i + 1 // 1 character added
|
|
if(targ == "'")
|
|
txt = copytext(txt, 1, i) + "`" + copytext(txt, i+1) // apostrophes fuck shit up...
|
|
start = i + 1 // 1 character added
|
|
else
|
|
txt = copytext(txt, 1, i) + "\\" + copytext(txt, i)
|
|
start = i + 2 // 2 characters added
|
|
|
|
return {""[txt]""}
|
|
|
|
json_writer/proc/is_associative(list/L)
|
|
for(var/key in L)
|
|
// if the key is a list that means it's actually an array of lists (stupid Byond...)
|
|
if(!isnum(key) && !istype(key, /list))
|
|
return TRUE
|