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

* Add Description, License and Author to fpmake.pp

Browse Source 
git-svn-id: trunk@62952 -
This commit is contained in:
joost 2020-04-12 17:26:28 +00:00
parent 9ba565019e
commit a98fa8cbba
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packager/packagesystem.pas
View File

@ -4845,6 +4845,19 @@ var
end; end;
end; end;
function TextToString(const s: string): string;
var
LineEndingStr: string;
i: Integer;
begin
LineEndingStr := '';
for i := 1 to length(LineEnding) do
LineEndingStr := LineEndingStr + '#' + IntToStr(Ord(String(sLineBreak)[i]));
Result := AnsiQuotedStr(Trim(s), '''');
Result := ReplaceStr(Result, #13#10, ''''+LineEndingStr+'''');
Result := ReplaceStr(Result, #10, ''''+LineEndingStr+'''');
end;
var var
s: String; s: String;
e: string; e: string;
@ -4950,6 +4963,15 @@ begin
s:=s+''+e; s:=s+''+e;
s:=s+' P.Directory:=ADirectory;'+e; s:=s+' P.Directory:=ADirectory;'+e;
s:=s+''+e; s:=s+''+e;
if APackage.Author<>'' then
s:=s+' P.Author:='+TextToString(APackage.Author)+';'+e;
if APackage.License<>'' then
s:=s+' P.License:='+TextToString(APackage.License)+';'+e;
if APackage.Description<>'' then
s:=s+' P.Description:='+TextToString(APackage.Description)+';'+e;
s:=s+''+e;
if APackage.PackageType in [lptDesignTime, lptRunAndDesignTime] then if APackage.PackageType in [lptDesignTime, lptRunAndDesignTime] then
s:=s+' P.Flags.Add(''LazarusDsgnPkg'');'+e+e; s:=s+' P.Flags.Add(''LazarusDsgnPkg'');'+e+e;