paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 20:39:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: skip codetools comment

Browse Source 
git-svn-id: trunk@38201 -
This commit is contained in:
mattias 2012-08-08 07:58:43 +00:00
parent 80ab27d495
commit 1264a95e7c
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/codetools/pascalreadertool.pas
View File

@ -277,16 +277,30 @@ begin
if IsCommentStartChar[Src[CommentStart]] then begin
CurCommentPos:=CommentStart;
case Src[CurCommentPos] of
'{': // pascal comment
'{':
begin
CommentLvl:=1;
inc(CurCommentPos);
while (CurCommentPos<CommentEnd) and (CommentLvl>0) do begin
case Src[CurCommentPos] of
'{': if Scanner.NestedComments then inc(CommentLvl);
'}': dec(CommentLvl);
end;
if (CurCommentPos<CommentEnd) and (Src[CurCommentPos]=#3) then begin
// codetools skip comment
inc(CurCommentPos);
while (CurCommentPos<CommentEnd) do begin
if (Src[CurCommentPos]=#3) and (CurCommentPos+1<CommentEnd)
and (Src[CurCommentPos]='}') then begin
inc(CurCommentPos,2);
break;
end;
inc(CurCommentPos);
end;
end else begin
// pascal comment
CommentLvl:=1;
while (CurCommentPos<CommentEnd) and (CommentLvl>0) do begin
case Src[CurCommentPos] of
'{': if Scanner.NestedComments then inc(CommentLvl);
'}': dec(CommentLvl);
end;
inc(CurCommentPos);
end;
end;
end;
'/': // Delphi comment