mirror of
https://github.com/vgstation-coders/vgstation13.git
synced 2025-12-10 10:21:11 +00:00
60 lines
1.4 KiB
Plaintext
60 lines
1.4 KiB
Plaintext
|
|
json_writer
|
|
proc
|
|
WriteObject(list/L)
|
|
. = "{"
|
|
var/i = 1
|
|
for(var/k in L)
|
|
var/val = L[k]
|
|
. += {"\"[k]\":[write(val)]"}
|
|
if(i++ < L.len)
|
|
. += ","
|
|
.+= "}"
|
|
|
|
write(val)
|
|
if(isnum(val))
|
|
return num2text(val, 100)
|
|
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]")
|
|
|
|
write_array(list/L)
|
|
. = "\["
|
|
for(var/i = 1 to L.len)
|
|
. += write(L[i])
|
|
if(i < L.len)
|
|
. += ","
|
|
. += "]"
|
|
|
|
write_string(txt)
|
|
var/static/list/json_escape = list("\\", "\"", "'", "\n")
|
|
for(var/targ in json_escape)
|
|
var/start = 1
|
|
while(start <= lentext(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) // apostrophies 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]""}
|
|
|
|
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
|