paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 09:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Json-Highlighter, improve parsing speed a bit (Issue #40709). Fix handling of \-escape in strings.

Browse Source
This commit is contained in:
Martin 2024-01-20 19:58:29 +01:00
parent 291962796c
commit 701119f0a0
1 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/synedit/synhighlighterjscript.pas
View File

@ -1720,16 +1720,33 @@ end;
procedure TSynJScriptSyn.StringProc;
var
l_strChar : String;
p: PChar;
begin
fTokenID := tkString;
l_strChar := FLine[Run]; // We could have '"' or #39
if (FLine[Run + 1] = l_strChar) and (FLine[Run + 2] = l_strChar) then inc(Run, 2);
repeat
case FLine[Run] of
#0, #10, #13: break;
end;
inc(Run);
until (FLine[Run] = l_strChar) and (FLine[Pred(Run)] <> '\');
p := @fLine[Run+1];
if l_strChar ='"' then
repeat
while not(p^ in [#0, #10, #13, '"', '\']) do
inc(p);
if (p^ = '\') and not (p[1] in [#0, #10, #13]) then
inc(p,2)
else
break;
until false
else
repeat
while not(p^ in [#0, #10, #13, '''', '\']) do
inc(p);
if (p^ = '\') and not (p[1] in [#0, #10, #13]) then
inc(p,2)
else
break;
until false;
Run := p - fLine;
if FLine[Run] <> #0 then
Inc(Run);
end;