Add WireLib.ParseEscapes

lua/entities/gmod_wire_value.lua

@@ -65,9 +65,7 @@ function parsers.ANGLE( val )
 		return Angle(tonumber(p),tonumber(y),tonumber(r))
 	end
 end
-function parsers.STRING( val )
-	return string.gsub( tostring( val ), "\\[n0\\]", {["\\\\"] = "\\", ["\\n"] = "\n", ["\\0"] = "\0"} )
-end
+parsers.STRING = WireLib.ParseEscapes
 
 function ENT:ParseValue( value, tp )
 	if parsers[tp] then

lua/wire/wireshared.lua

@@ -9,6 +9,11 @@ local LocalPlayer = LocalPlayer
 local Entity = Entity
 
 local string = string
+local string_gsub = string.gsub
+local string_char = string.char
+local string_match = string.match
+local string_sub = string.sub
+local utf8_char = utf8.char
 local hook = hook
 
 -- extra table functions
@@ -946,6 +951,36 @@ function WireLib.setLocalAng(ent, ang)
 	return ent:SetLocalAngles(ang)
 end
 
+local escapeChars = { n = "\n", r = "\r", t = "\t", ["\\"] = "\\", ["'"] = "'", ["\""] = "\"", a = "\a",
+b = "\b", f = "\f", v = "\v" }
+
+--- Replaces escape sequences with the appropriate character. Uses Lua escape sequences. Invalid sequences are skipped.
+--- @param str string
+function WireLib.ParseEscapes(str)
+	str = string_gsub(str, "\\(.?)([^\\]?[^\\]?[^\\]?[^\\]?[^\\]?[^\\]?[^\\]?}?)", function(i, arg)
+		if escapeChars[i] then
+			return escapeChars[i] .. arg
+		elseif i == "x" then
+			local num = string_match(arg, "^(%x%x)")
+			if not num then return false end
+			return string_char(tonumber(num, 16)) .. string_sub(arg, #num + 1)
+		elseif i >= "0" and i <= "9" then
+			local num = string_match(arg, "^(%d?%d?)")
+			if not num then return false end
+			local tonum = tonumber(i .. num)
+			return tonum < 256 and (string_char(tonum) .. string_sub(arg, #num + 1))
+		elseif i == "u" then
+			local num = string_match(arg, "^{(%x%x?%x?%x?%x?%x?)}")
+			if not num then return false end
+			local tonum = tonumber(num, 16)
+			return tonum <= 0x10ffff and utf8_char(tonum) .. string_sub(arg, #num + 3)
+		else
+			return false
+		end
+	end)
+	return str
+end
+
 -- Used by any applyForce function available to the user
 -- Ensures that the force is within the range of a float, to prevent
 -- physics engine crashes