st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix escaping

Browse source
This commit is contained in:
Roman Venediktov 2024-07-11 14:57:30 +02:00
parent 97a47f403f
commit 475ce90e9b
1 changed files with 25 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/X86_64.ml
View file

@ -1284,13 +1284,33 @@ class env prg mode =
let n = String.length x in
let buf = Buffer.create (n * 2) in
let rec iterate i =
if i < n then (
(match x.[i] with
if i < n then
match x.[i] with
| '"' ->
Buffer.add_char buf '\\';
Buffer.add_char buf '"'
| c -> Buffer.add_char buf c);
Buffer.add_char buf '"';
iterate (i + 1)
| '\\' -> (
if i + 1 >= n then (
Buffer.add_char buf '\\';
Buffer.add_char buf '\\')
else
match x.[i + 1] with
| 'n' ->
Buffer.add_char buf '\\';
Buffer.add_char buf 'n';
iterate (i + 2)
| 't' ->
Buffer.add_char buf '\\';
Buffer.add_char buf 't';
iterate (i + 2)
| _ ->
Buffer.add_char buf '\\';
Buffer.add_char buf '\\';
iterate (i + 1))
| c ->
Buffer.add_char buf c;
iterate (i + 1)
in
iterate 0;
Buffer.contents buf