paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:09:41 +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} {$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 fRange = rsAnsiAsm then if TopPascalCodeFoldBlockType=cfbtNestedComment then begin
fRange := rsAsm EndCodeFoldBlock;
else end else begin
fRange := rsUnKnown; if fRange = rsAnsiAsm then
break; fRange := rsAsm
end; else
Inc(Run); 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]); until (Run>fLineLen) or (fLine[Run] in [#0, #10, #13]);
{$ELSE} {$ELSE}
case fLine[Run] of case fLine[Run] of