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

Jedi Code Format: Remove blank lines before type, const, var, begin tokens inside a procedure/function. Issue #39990, patch by Domingo Galmés.

Browse Source
This commit is contained in:
Juha 2022-11-06 23:35:52 +02:00
parent 2d95dc76d7
commit f112427168
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/jcf2/Process/Returns/RemoveBlankLinesAfterProcHeader.pas
View File

@ -46,7 +46,7 @@ implementation
uses
JcfSettings, FormatFlags, Tokens, TokenUtils,
ParseTreeNodeType;
ParseTreeNodeType, ParseTreeNode;
function IsPlaceForBlankLineRemoval(const ptToken, ptNextSolidToken:
TSourceToken): boolean;
@ -90,6 +90,8 @@ var
lcNext, lcTest: TSourceToken;
liReturnCount: integer;
liMaxReturns: integer;
lcBlock: TParseTreeNode;
lcDeclSection: TParseTreeNode;
begin
Result := False;
lcSourceToken := TSourceToken(pcNode);
@ -102,6 +104,8 @@ begin
exit;
lcNext := lcSourceToken.NextTokenWithExclusions([ttWhiteSpace, ttReturn]);
if lcNext=nil then
exit;
{ it must be a 'var', 'const', 'type' or 'begin'
in the procedure defs/body section }
@ -115,6 +119,27 @@ begin
liMaxReturns := FormattingSettings.Returns.MaxBlankLinesInSection + 1;
lcTest := lcSourceToken;
// function fooo;
// --> no blank lines beetwen function/procedure declaration and sections.
// var, const, type, begin.
// find nBlock, can be grandfader or great-grandfather of node
lcDeclSection:=nil;
lcDeclSection:=lcNext.Parent;
if (lcDeclSection<>nil) and not (lcDeclSection.NodeType in [nDeclSection,nCompoundStatement]) then
lcDeclSection:=lcDeclSection.Parent;
if (lcDeclSection<>nil) and not (lcDeclSection.NodeType in [nDeclSection,nCompoundStatement]) then
lcDeclSection:=lcDeclSection.Parent;
if lcDeclSection<>nil then
begin
lcBlock:=lcDeclSection.Parent;
if (lcBlock<>nil) and (lcBlock.NodeType=nBlock) then
begin
//if lcBlock.IndexOfChild(lcDeclSection)=0 then //Only the first section of nBlock
liMaxREturns:=1;
end;
end;
{ remove all returns up to that point (except one) }
while (lcTest <> lcNext) do
begin