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

codetools: get pasdoc comment: ignore comments starting with % or $

Browse Source 
git-svn-id: trunk@46500 -
This commit is contained in:
mattias 2014-10-09 20:10:51 +00:00
parent c0d3fe1b99
commit 0c8a412564
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/pascalreadertool.pas
View File

@ -3351,6 +3351,8 @@ function TPascalReaderTool.GetPasDocComments(Node: TCodeTreeNode;
// property Color; // description of Color
//
// Comments can be in the following line if started with <
//
// comment starting with $ or % are ignored
function CommentBelongsToPrior(CommentStart: integer): boolean;
var
@ -3388,6 +3390,7 @@ function TPascalReaderTool.GetPasDocComments(Node: TCodeTreeNode;
function Scan(StartPos, EndPos: integer): boolean;
var
p: LongInt;
pp: PChar;
begin
// read comments (start in front of node)
//DebugLn(['TPascalReaderTool.GetPasDocComments Scan Src=',copy(Src,StartPos,EndPos-StartPos)]);
@ -3395,9 +3398,11 @@ function TPascalReaderTool.GetPasDocComments(Node: TCodeTreeNode;
p:=FindLineEndOrCodeInFrontOfPosition(StartPos,true);
while p<EndPos do begin
p:=FindNextComment(Src,p,EndPos);
if (p>=EndPos)
or ((Src[p]='{') and (Src[p+1]='$'))
or ((Src[p]='(') and (Src[p+1]='*') and (Src[p+2]='$'))
if (p>=EndPos) then break;
pp:=@Src[p];
if ((pp^='/') and (pp[1]='/') and (pp[2] in ['$','%']))
or ((pp^='{') and (pp[1] in ['$','%']))
or ((pp^='(') and (pp[1]='*') and (pp[2]='$'))
then
break;
//debugln(['TStandardCodeTool.GetPasDocComments Comment="',copy(Src,p,FindCommentEnd(Src,p,Scanner.NestedComments)-p),'"']);