22 lines
479 B
Lua
22 lines
479 B
Lua
|
local function mkstr(d)
|
||
|
|
local dat = "\""
|
||
|
|
for i=1, #d do
|
||
|
|
if (d:sub(i,i) == "\\") then
|
||
|
|
dat = dat .. ("\\\\")
|
||
|
|
elseif (d:sub(i,i) == "\"") then
|
||
|
|
dat = dat .. ("\\\"")
|
||
|
|
elseif (d:sub(i,i) == "\n") then
|
||
|
|
dat = dat .. ("\\n")
|
||
|
|
elseif (d:sub(i,i) == "\r") then
|
||
|
|
dat = dat .. ("\\r")
|
||
|
|
elseif (d:sub(i,i) == "\t") then
|
||
|
|
dat = dat .. ("\\t")
|
||
|
|
else
|
||
|
|
dat = dat .. (d:sub(i,i))
|
||
|
|
end
|
||
|
|
end
|
||
|
|
dat = dat .. ("\"")
|
||
|
|
return dat
|
||
|
|
end
|
||
|
|
|
||
|
|
io.stdout:write(mkstr(io.stdin:read("*a")))
|