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

Jedi Code Format: Read jcfsettings.cfg into a cmd line JCF from the same folder as the IDE plugin. Issue #39929, patch by Domingo Galmés.

Browse Source
This commit is contained in:
Juha 2022-10-05 08:06:11 +03:00
parent c55c7e45b4
commit 06f9cdf968
1 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/jcf2/CommandLine/Lazarus/jcf.lpr
View File

@ -159,10 +159,13 @@ uses
StatusMessageReceiver in '..\StatusMessageReceiver.pas',
MoveSpaceToBeforeColon in '..\..\Process\Spacing\MoveSpaceToBeforeColon.pas';
const
CONFIG_FILE_NAME = 'jcfsettings.cfg';
var
feReturnCode: TJcfCommandLineReturnCode;
fbCmdLineShowHelp: boolean;
fbQuietFail: boolean;
fbCmdLineShowHelp: boolean = false;
fbQuietFail: boolean = false;
fbCmdLineObfuscate: boolean;
@ -205,6 +208,7 @@ var
fbYesAll := False;
fbHasNamedConfigFile := False;
fsConfigFileName := '';
lsPath := '';
for liLoop := 1 to ParamCount do
begin
@ -305,7 +309,22 @@ var
WriteLn;
fbQuietFail := True;
feReturnCode := rcConfigFileNotFound;
end;
end
else
begin // read default file configuration
fsConfigFileName:=CONFIG_FILE_NAME;
if FileExists(fsConfigFileName) then
begin
FormatSettingsFromFile(fsConfigFileName);
end
else
begin
WriteLn('Named config file ' + fsConfigFileName + ' was not found');
WriteLn;
fbQuietFail := True;
feReturnCode := rcConfigFileNotFound;
end;
end;
{ must have read from registry or file }
@ -378,9 +397,17 @@ var
end;
end;
// we want lowercase filename the same as Lazarus ide.
function CmdLineDefGetDefaultSettingsFileName: string;
begin
Result := IncludeTrailingPathDelimiter(GetApplicationFolder) + CONFIG_FILE_NAME;
end;
{ main program starts here }
begin
Application.Initialize;
GetDefaultSettingsFileName := CmdLineDefGetDefaultSettingsFileName;
feReturnCode := rcSuccess;
{ read registry }
GetRegSettings.ReadAll;
@ -389,6 +416,9 @@ begin
ParseCommandLine;
if fbCmdLineShowHelp then
fbQuietFail:=false;
{ format setttings will be altered by the command line.
Do not persist these changes
do this after parsing the command line }