paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented freepascal highlighter with nested comments for (* comments

Browse Source 
git-svn-id: trunk@9602 -
This commit is contained in:
mattias 2006-07-14 11:26:39 +00:00
parent 25cfb2b746
commit b399abb1a0
1 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/synhighlighterpas.pp
View File

@ -1470,16 +1470,27 @@ begin
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
fTokenID := tkComment; fTokenID := tkComment;
repeat repeat
if fLine[Run]=#0 then break; if fLine[Run]=#0 then
if (fLine[Run] = '*') and (Run<fLineLen) and (fLine[Run + 1] = ')') then break
begin else if (fLine[Run] = '*') and (Run<fLineLen) and (fLine[Run + 1] = ')')
then begin
Inc(Run, 2); Inc(Run, 2);
if TopPascalCodeFoldBlockType=cfbtNestedComment then begin
EndCodeFoldBlock;
end else begin
if fRange = rsAnsiAsm then if fRange = rsAnsiAsm then
fRange := rsAsm fRange := rsAsm
else else
fRange := rsUnKnown; fRange := rsUnKnown;
break; break;
end; end;
end
else if NestedComments
and (fLine[Run] = '(') and (Run<fLineLen) and (fLine[Run + 1] = '*') then
begin
Inc(Run,2);
StartPascalCodeFoldBlock(cfbtNestedComment);
end else
Inc(Run); Inc(Run);
until (Run>fLineLen) or (fLine[Run] in [#0, #10, #13]); until (Run>fLineLen) or (fLine[Run] in [#0, #10, #13]);
{$ELSE} {$ELSE}