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

IDE: Replace TProjectReadFlags with a boolean LoadParts.

Browse Source 
git-svn-id: trunk@45757 -
This commit is contained in:
juha 2014-07-03 11:50:41 +00:00
parent 2cd802037c
commit 4486bfc9ed
3 changed files with 14 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/mainbase.pas
View File

@ -473,7 +473,7 @@ begin
if not FileExistsUTF8(AFilename) then
CopySecondaryConfigFile(DefaultProjectOptionsFilename);
if FileExistsUTF8(AFilename) then begin
if AProject.ReadProject(AFilename,nil,[prfLoadParts,prfLoadPartBuildModes])<>mrOk then
if AProject.ReadProject(AFilename,nil,True)<>mrOk then
DebugLn(['TMainIDEBase.DoLoadDefaultCompilerOptions failed']);
end else begin
// old way (<0.9.31)

30
ide/project.pp
View File

@ -807,7 +807,7 @@ type
FUseAsDefault: Boolean;
// Variables used by ReadProject / WriteProject
FXMLConfig: TXMLConfig;
FReadFlags: TProjectReadFlags;
FLoadParts: Boolean;
FFileVersion: Integer;
FNewMainUnitID: LongInt;
FProjectWriteFlags: TProjectWriteFlags;
@ -929,7 +929,7 @@ type
procedure IgnoreProjectInfoFileOnDisk;
function ReadProject(const NewProjectInfoFile: string;
GlobalMatrixOptions: TBuildMatrixOptions;
ReadFlags: TProjectReadFlags = []): TModalResult;
LoadParts: Boolean = False): TModalResult;
function WriteProject(ProjectWriteFlags: TProjectWriteFlags;
const OverrideProjectInfoFile: string;
GlobalMatrixOptions: TBuildMatrixOptions): TModalResult;
@ -2829,7 +2829,7 @@ begin
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TProject.ReadProject C reading values');{$ENDIF}
FFileVersion:= FXMLConfig.GetValue(Path+'Version/Value',0);
if not (prfLoadParts in FReadFlags) then
if not FLoadParts then
begin
if (FFileVersion=0) and (FXMLConfig.GetValue(Path+'Units/Count',0)=0) then
if IDEMessageDialog(lisStrangeLpiFile,
@ -2872,15 +2872,12 @@ begin
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TProject.ReadProject E reading comp sets');{$ENDIF}
end;
// load MacroValues and compiler options
if FReadFlags <> [prfLoadParts] then begin // Test for: prfLoadParts, no prfLoadPartBuildModes
if prfLoadParts in FReadFlags then
ClearBuildModes;
BuildModes.LoadProjOptsFromXMLConfig(FXMLConfig, Path);
// load matrix options
BuildModes.SharedMatrixOptions.LoadFromXMLConfig(FXMLConfig, Path+'BuildModes/SharedMatrixOptions/');
end;
ClearBuildModes;
BuildModes.LoadProjOptsFromXMLConfig(FXMLConfig, Path);
// load matrix options
BuildModes.SharedMatrixOptions.LoadFromXMLConfig(FXMLConfig, Path+'BuildModes/SharedMatrixOptions/');
// Resources
if not (prfLoadParts in FReadFlags) then
if not FLoadParts then
begin
ProjResources.ReadFromProjectFile(FXMLConfig, Path);
// load custom data
@ -2919,7 +2916,7 @@ begin
FFileVersion:=FXMLConfig.GetValue(Path+'Version/Value',0);
// load MacroValues and compiler options
BuildModes.LoadSessionFromXMLConfig(FXMLConfig, Path, prfLoadParts in FReadFlags);
BuildModes.LoadSessionFromXMLConfig(FXMLConfig, Path, FLoadParts);
// load custom defines
LoadCustomDefines(Path);
@ -2936,7 +2933,7 @@ var
PIFile: String;
begin
Result:=mrOk;
if prfLoadParts in FReadFlags then begin
if FLoadParts then begin
// read only parts of the lpi, keep other values
try
FXMLConfig := TCodeBufXMLConfig.CreateWithCache(Filename,true)
@ -2977,7 +2974,6 @@ begin
exit;
end;
end;
fLastReadLPIFilename:=PIFile;
fLastReadLPIFileDate:=Now;
FNewMainUnitID:=-1;
@ -3029,13 +3025,13 @@ end;
// Method ReadProject itself
function TProject.ReadProject(const NewProjectInfoFile: string;
GlobalMatrixOptions: TBuildMatrixOptions; ReadFlags: TProjectReadFlags): TModalResult;
GlobalMatrixOptions: TBuildMatrixOptions; LoadParts: Boolean): TModalResult;
begin
Result := mrCancel;
BeginUpdate(true);
try
BuildModes.FGlobalMatrixOptions := GlobalMatrixOptions;
FReadFlags := ReadFlags;
FLoadParts := LoadParts;
// load project lpi file
Result:=DoLoadLPI(NewProjectInfoFile);
@ -3044,7 +3040,7 @@ begin
// load session file (if available)
if (SessionStorage in pssHasSeparateSession)
and (CompareFilenames(ProjectInfoFile,ProjectSessionFile)<>0)
and not (prfLoadParts in ReadFlags) then
and not FLoadParts then
begin
Result:=DoLoadSession(ProjectSessionFile);
if Result<>mrOK then Exit;

6
ide/projectdefs.pas
View File

@ -46,12 +46,6 @@ uses
type
TOnLoadSaveFilename = procedure(var Filename:string; Load:boolean) of object;
TProjectReadFlag = (
prfLoadParts,
prfLoadPartBuildModes
);
TProjectReadFlags = set of TProjectReadFlag;
TProjectWriteFlag = (
pwfSkipClosedUnits, // skip history data
pwfSaveOnlyProjectUnits,