paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 01:55:54 +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

31
components/synedit/synhighlighterpas.pp
View File

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