BS12 -> Ponies merge

code/modules/nano/JSON Writer.dm

@@ -0,0 +1,54 @@
+
+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+1)
+					else
+						txt = copytext(txt, 1, i) + "\\" + copytext(txt, i)
+					start = i + 2
+			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