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

LazBuild: Add "get" alias for "get-expand-text" parameter. By n7800.

Browse Source
This commit is contained in:
Juha 2024-03-29 17:15:22 +02:00
parent a82d8be15b
commit 6e7ce6c7a2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/lazbuild.lpr
View File

@ -800,7 +800,8 @@ var
// apply options
MainBuildBoss.SetBuildTargetProject1(true,smsfsSkip);
if HasLongOptIgnoreCase('get-expand-text',S) then begin
if HasLongOptIgnoreCase('get',S) or
HasLongOptIgnoreCase('get-expand-text',S) then begin
// check for macros
HasMacro := false;
for i := 1 to length(S) - 1 do // skip last char
@ -1538,6 +1539,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)
then
ConsoleVerbosity := -100 // do not output anything other than the result
@ -1583,6 +1585,7 @@ begin
LongOptions.Add('max-process-count:');
LongOptions.Add('no-write-project');
LongOptions.Add('get-expand-text:');
LongOptions.Add('get:');
LongOptions.Add('get-build-modes');
LongOptions.Add('get-target-path');
ErrorMsg:=RepairedCheckOptions('lBrdq',LongOptions,Options,NonOptions);
@ -1826,7 +1829,7 @@ begin
writeln('--no-write-project');
w(lisDoNotWriteUpdatedProjectInfoAfterBuild);
writeln('');
writeln('--get-expand-text=<text>');
writeln('--get=<text>, --get-expand-text=<text>');
w(lisGetExpandText);
writeln('');
writeln('--get-build-modes');