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

updatemakefiles: update Makefiles of lpk with conditionals

Browse Source
This commit is contained in:
mattias 2025-08-07 09:04:45 +02:00
parent f88ac90f12
commit 5b0c1ead5b
1 changed files with 31 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
tools/updatemakefiles.lpr
View File

@ -96,12 +96,12 @@ begin
writeln('NOTE: no lpk found in ',CreateRelativePath(Dir,LazarusDir),' for ',MainSrc,'. Probably this requires a custom Makefile.');
end;
procedure CheckMakefileCompiled(MakefileCompiledFilename: string; LPKFiles: TStrings);
procedure CheckMakefileCompiled(MakefileCompiledFilename: string; LPKFiles, ExtraMakefiles: TStrings);
var
MakefileCompiled: TXMLConfig;
MainSrcFilename: String;
p: Integer;
LPKFilename: String;
LPKFilename, MakeFilename: String;
HasConditionals: boolean;
begin
//writeln('CheckMakefileCompiled ',MakefileCompiledFilename);
@ -115,17 +115,17 @@ begin
LPKFilename:=FindLPK(ExtractFilePath(MakefileCompiledFilename),MainSrcFilename,HasConditionals);
//writeln(' MakefileCompiled=',CreateRelativePath(MakefileCompiledFilename,LazarusDir),' MainSrc=',MainSrcFilename,' lpk=',CreateRelativePath(LPKFilename,LazarusDir),' HasConditionals=',HasConditionals);
if (LPKFilename='') then exit;
if HasConditionals then begin
writeln('Skipping ',LPKFilename,' due to conditionals');
exit;
end;
LPKFiles.Add(CreateRelativePath(LPKFilename,LazarusDir));
MakeFilename:=ChangeFileExt(MakefileCompiledFilename,'');
if HasConditionals then
ExtraMakefiles.Add(MakeFilename)
else
LPKFiles.Add(CreateRelativePath(LPKFilename,LazarusDir));
finally
MakefileCompiled.Free;
end;
end;
procedure FindLPKFilesWithMakefiles(Dir: string; LPKFiles: TStrings);
procedure FindLPKFilesWithMakefiles(Dir: string; LPKFiles, ExtraMakefiles: TStrings);
var
FileInfo: TSearchRec;
begin
@ -135,9 +135,9 @@ begin
if (FileInfo.Name='') or (FileInfo.Name='.') or (FileInfo.Name='..') then
continue;
if (FileInfo.Attr and faDirectory)<>0 then
FindLPKFilesWithMakefiles(Dir+FileInfo.Name,LPKFiles)
FindLPKFilesWithMakefiles(Dir+FileInfo.Name,LPKFiles,ExtraMakefiles)
else if FileInfo.Name='Makefile.compiled' then
CheckMakefileCompiled(Dir+FileInfo.Name,LPKFiles);
CheckMakefileCompiled(Dir+FileInfo.Name,LPKFiles,ExtraMakefiles);
until FindNextUTF8(FileInfo)<>0;
end;
FindCloseUTF8(FileInfo);
@ -160,18 +160,17 @@ begin
Lines.Free;
end;
procedure UpdateCustomMakefiles;
procedure UpdateCustomMakefiles(ExtraMakefiles: TStrings);
const
Dirs: array[1..6] of string = (
Dirs: array[1..5] of string = (
'lcl/interfaces',
'components/virtualtreeview',
'components/chmhelp/lhelp',
'components',
'ide',
'tools'
);
var
Dir: String;
Dir, Filename: String;
Lines: TStringList;
begin
for Dir in Dirs do begin
@ -180,11 +179,17 @@ begin
//writeln(Lines.Text);
Lines.Free;
end;
for Filename in ExtraMakefiles do begin
writeln(Filename);
Lines:=RunTool(FPCMake,'-TAll',ExtractFilePath(Filename));
//writeln(Lines.Text);
Lines.Free;
end;
end;
var
LPKFiles: TStringList;
LazbuildOut: TStringList;
LazbuildOut, ExtraMakefiles: TStringList;
LazbuildExe: String;
begin
if Paramcount>0 then begin
@ -203,8 +208,11 @@ begin
LazarusDir:=AppendPathDelim(LazarusDir);
LPKFiles:=TStringList.Create;
FindLPKFilesWithMakefiles(LazarusDir,LPKFiles);
ExtraMakefiles:=TStringList.Create;
FindLPKFilesWithMakefiles(LazarusDir,LPKFiles,ExtraMakefiles);
writeln(LPKFiles.Text);
writeln(ExtraMakefiles.Text);
LPKFiles.StrictDelimiter:=true;
LPKFiles.Delimiter:=' ';
LazbuildExe:=SetDirSeparators(LazarusDir+'lazbuild'+ExeExt);
@ -213,11 +221,17 @@ begin
writeln('Error: missing ',LazbuildExe);
Halt(1);
end;
// run lazbuild
LazbuildOut:=RunTool(SetDirSeparators(LazarusDir+'lazbuild'+ExeExt),'--lazarusdir="'+LazarusDir+'" --create-makefile '+LPKFiles.DelimitedText,LazarusDir);
writeln(LazbuildOut.Text);
// update custom Makefiles
LazbuildOut.Free;
LPKFiles.Free;
UpdateCustomMakefiles;
UpdateCustomMakefiles(ExtraMakefiles);
ExtraMakefiles.Free;
end.