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

* Added some functionality to create configuration-files

Browse Source 
git-svn-id: trunk@36375 -
This commit is contained in:
joost 2017-05-30 21:55:49 +00:00
parent 188ec0f0c7
commit 59e0ca7278
1 changed files with 43 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
packages/fppkg/src/pkgoptions.pp
View File

@ -126,6 +126,8 @@ Type
procedure SetPrefix(AValue: string);
procedure SetRepositoryName(AValue: string);
procedure SetPath(AValue: string);
protected
procedure SaveToStrings(AStrings: TStrings); override;
public
procedure AddKeyValue(const AKey, AValue: string); override;
procedure LogValues(ALogLevel: TLogLevel); override;
@ -202,6 +204,8 @@ Type
procedure BindToCompilerOptions(ACompilerOptions: TCompilerOptions);
procedure AddRepositoriesForCompilerSettings(ACompilerOptions: TCompilerOptions);
function AddRepositoryOptionSection(ASectionClass: TFppkgRepositoryOptionSectionClass): TFppkgRepositoryOptionSection;
function AddIncludeFilesOptionSection(AFileMask: string): TFppkgIncludeFilesOptionSection;
property SectionList: TFppkgOptionSectionList read GetSectionList;
property GlobalSection: TFppkgGLobalOptionSection read GetGlobalSection;
@ -437,6 +441,18 @@ begin
FPath := fpmkunit.FixPath(AValue, True);
end;
procedure TFppkgRepositoryOptionSection.SaveToStrings(AStrings: TStrings);
begin
inherited SaveToStrings(AStrings);
AStrings.Add('['+KeyRepositorySection+']');
AStrings.Add(KeyRepositoryName+'='+RepositoryName);
AStrings.Add(KeyRepositoryDescription+'='+Description);
AStrings.Add(KeyRepositoryPath+'='+FPath);
AStrings.Add(KeyRepositoryPrefix+'='+FPrefix);
if InstallRepositoryName<>'' then
AStrings.Add(KeyInstallRepositoryName+'='+InstallRepositoryName);
end;
procedure TFppkgRepositoryOptionSection.AddKeyValue(const AKey, AValue: string);
begin
if SameText(AKey,KeyRepositoryName) then
@ -827,12 +843,24 @@ procedure TFppkgOptions.SaveToFile(const AFileName: string);
var
IniFile: TStringList;
CurrentSection: TFppkgOptionSection;
GSection: TFppkgGlobalOptionSection;
i: Integer;
begin
IniFile:=TStringList.Create;
try
// Only the Global-section is being written, with some default values
CurrentSection := GlobalSection;
CurrentSection.SaveToStrings(IniFile);
GSection := GlobalSection;
GSection.SaveToStrings(IniFile);
for i := 0 to SectionList.Count-1 do
begin
CurrentSection := SectionList[i];
if CurrentSection<>GSection then
begin
IniFile.Add('');
CurrentSection.SaveToStrings(IniFile);
end;
end;
Inifile.SaveToFile(AFileName);
finally
Inifile.Free;
@ -898,6 +926,18 @@ begin
end;
end;
function TFppkgOptions.AddRepositoryOptionSection(ASectionClass: TFppkgRepositoryOptionSectionClass): TFppkgRepositoryOptionSection;
begin
Result := ASectionClass.Create(FOptionParser);
FSectionList.Add(Result);
end;
function TFppkgOptions.AddIncludeFilesOptionSection(AFileMask: string): TFppkgIncludeFilesOptionSection;
begin
Result := TFppkgIncludeFilesOptionSection.Create(FOptionParser, Self, AFileMask);
FSectionList.Add(Result);
end;
{*****************************************************************************
TCompilerOptions
*****************************************************************************}