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

LazBuild: Remove the "get-target-path" parameter. By n7800.

Browse Source
This commit is contained in:
Juha 2024-03-31 11:46:20 +03:00
parent 4021b5235c
commit 0fce9ec928
2 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -178,8 +178,6 @@ resourcestring
'The absence of macros in the text means the name of the macro. '+
'By default, active build mode is used.';
lisGetBuildModes = 'Print a list of build modes in the project. Active mode is listed first.';
lisGetTargetPath = 'Print the full path to the executable file in the specified build mode.'
+' By default, active build mode is used.';
lisLazbuildOptionsSyntax = 'lazbuild [options] <project/package filename or package name>';

14
ide/lazbuild.lpr
View File

@ -818,12 +818,6 @@ var
exit(true);
end;
TargetExeName := Project1.CompilerOptions.CreateTargetFilename;
if HasLongOptIgnoreCase('get-target-path',S) then begin
WriteLn(TargetExeName);
exit(true);
end;
CompilerParams:=nil;
CmdLineParams:=nil;
try
@ -868,6 +862,7 @@ var
PrintErrorAndHalt(ErrorBuildFailed, 'Unable to create project unit output directory "' + S + '"');
// create target output directory
TargetExeName := Project1.CompilerOptions.CreateTargetFilename;
S := ExtractFileDir(TargetExeName);
if not ForceDirectory(S) then
PrintErrorAndHalt(ErrorBuildFailed, 'Unable to create project target directory "' + S + '"');
@ -1539,8 +1534,7 @@ begin
// ConsoleVerbosity
if HasLongOptIgnoreCase('get-build-modes', p) or
HasLongOptIgnoreCase('get-expand-text', p) or
HasLongOptIgnoreCase('get', p) or
HasLongOptIgnoreCase('get-target-path', p)
HasLongOptIgnoreCase('get', p)
then
ConsoleVerbosity := -100 // do not output anything other than the result
else
@ -1587,7 +1581,6 @@ begin
LongOptions.Add('get-expand-text:');
LongOptions.Add('get:');
LongOptions.Add('get-build-modes');
LongOptions.Add('get-target-path');
ErrorMsg:=RepairedCheckOptions('lBrdq',LongOptions,Options,NonOptions);
if ErrorMsg<>'' then
PrintErrorAndHalt(ErrorInvalidSyntax, ErrorMsg);
@ -1835,9 +1828,6 @@ begin
writeln('--get-build-modes');
w(lisGetBuildModes);
writeln('');
writeln('--get-target-path');
w(lisGetTargetPath);
writeln('');
end;
procedure TLazBuildApplication.PrintInfo(const Msg: string);