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

Jedi code format: takes into account the obfuscation options.

Browse Source
This commit is contained in:
DomingoGP 2024-11-08 14:23:04 +01:00
parent d37c67876e
commit efef2162f8
1 changed files with 24 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
components/jcf2/Process/AllProcesses.pas
View File

@ -79,7 +79,7 @@ uses
//GlobalInclude,
{ obfuscate}
FixCase, RemoveComment, RemoveBlankLine, RemoveReturn, ReduceWhiteSpace,
RemoveConsecutiveWhiteSpace, RemoveUnneededWhiteSpace, RebreakLines,
RemoveConsecutiveWhiteSpace, RemoveUnneededWhiteSpace, RebreakLines, SettingsTypes,
{ transform }
FindReplace, UsesClauseInsert, UsesClauseRemove, UsesClauseFindReplace,
RemoveEmptyComment, AddBeginEnd, AddBlockEndSemicolon, SortUses,
@ -218,19 +218,31 @@ end;
procedure TAllProcesses.Obfuscate;
begin
// apply them all
ApplyVisitorType(TFixCase);
ApplyVisitorType(TRemoveComment, [TVisitSetXY]);
ApplyVisitorType(TRemoveBlankLine, [TVisitSetXY]);
ApplyVisitorType(TRemoveReturn);
ApplyVisitorType(TReduceWhiteSpace);
ApplyVisitorType(TRemoveConsecutiveWhiteSpace);
if FormattingSettings.Obfuscate.Caps <> ctLeaveAlone then
ApplyVisitorType(TFixCase);
ApplyVisitorType(TRemoveUnneededWhiteSpace);
if FormattingSettings.Obfuscate.RemoveComments then
ApplyVisitorType(TRemoveComment, [TVisitSetXY]);
ApplyVisitorType(TVisitSetXY);
ApplyVisitorType(TVisitStripEmptySpace);
ApplyVisitorType(TRebreakLines);
if FormattingSettings.Obfuscate.RemoveWhiteSpace then
begin
ApplyVisitorType(TRemoveBlankLine, [TVisitSetXY]);
ApplyVisitorType(TRemoveReturn);
ApplyVisitorType(TReduceWhiteSpace);
ApplyVisitorType(TRemoveConsecutiveWhiteSpace);
end;
if FormattingSettings.Obfuscate.RemoveIndent then
ApplyVisitorType(TRemoveUnneededWhiteSpace);
if FormattingSettings.Obfuscate.RemoveWhiteSpace then
begin
ApplyVisitorType(TVisitSetXY);
ApplyVisitorType(TVisitStripEmptySpace);
end;
if FormattingSettings.Obfuscate.RebreakLines then
ApplyVisitorType(TRebreakLines);
end;
procedure TAllProcesses.ClarifySetup;