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

updatemakefiles: write note

Browse Source 
git-svn-id: trunk@40696 -
This commit is contained in:
mattias 2013-04-02 10:26:07 +00:00
parent 51d0aff5e3
commit ca72db350a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tools/updatemakefiles.lpr
View File

@ -143,6 +143,12 @@ var
LPKFiles: TStringList;
LazbuildOut: TStringList;
begin
if Paramcount>0 then begin
writeln('Updates for every lpk in the lazarus directory the Makefile.fpc, Makefile.compiled and Makefile.');
writeln;
writeln('Usage: ./tools/updatemakefiles');
exit;
end;
LazarusDir:=CleanAndExpandDirectory(GetCurrentDirUTF8);
if ExtractFileName(ChompPathDelim(LazarusDir))='tools' then
LazarusDir:=ExtractFilePath(ChompPathDelim(LazarusDir));
@ -151,7 +157,7 @@ begin
writeln(LPKFiles.Text);
LPKFiles.StrictDelimiter:=true;
LPKFiles.Delimiter:=' ';
LazbuildOut:=RunTool(SetDirSeparators('./lazbuild'+ExeExt),'--lazarusdir='+LazarusDir+' --create-makefile '+LPKFiles.DelimitedText,LazarusDir);
LazbuildOut:=RunTool(SetDirSeparators('./lazbuild'+ExeExt),'--lazarusdir="'+LazarusDir+'" --create-makefile '+LPKFiles.DelimitedText,LazarusDir);
writeln(LazbuildOut.Text);
LPKFiles.Free;
end.