paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 03:00:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: ExtractProcHead: omit skip comments

Browse Source 
git-svn-id: trunk@44926 -
This commit is contained in:
mattias 2014-05-05 13:08:40 +00:00
parent 223e884008
commit 46d144081e
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/codetools/pascalparsertool.pas
View File

@ -5046,6 +5046,8 @@ procedure TPascalParserTool.ExtractNextAtom(AddAtom: boolean;
var
LastAtomEndPos: integer;
LastStreamPos: TFPCStreamSeekType;
p, StartP, EndP: PChar;
const
space: char = ' ';
begin
@ -5053,8 +5055,23 @@ begin
if LastAtoms.Count>0 then begin
LastAtomEndPos:=LastAtoms.GetValueAt(0).EndPos;
if phpWithComments in Attr then begin
// add space/comment between pascal atoms
ExtractMemStream.Write(Src[LastAtomEndPos],CurPos.StartPos-LastAtomEndPos);
// add space/comment between pascal atoms, but without the
// codetools-skip-comment brackets {#3 #3}
p:=PChar(Src)+LastAtomEndPos-1;
EndP:=PChar(Src)+CurPos.StartPos-1;
StartP:=p;
repeat
if (p>=EndP) then begin
ExtractMemStream.Write(StartP^,p-StartP);
break;
end else if ((p^='{') and (p[1]=#3)) or ((p^=#3) and (p[1]='}')) then
begin
ExtractMemStream.Write(StartP^,p-StartP);
inc(p,2);
StartP:=p;
end else
inc(p);
until false;
end else if (ExtractMemStream.Position>0) then
begin
// some space/comments were skipped