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

IDE: renamed buildmodeset to buildmodegraph

Browse Source 
git-svn-id: trunk@21444 -
This commit is contained in:
mattias 2009-08-25 15:15:19 +00:00
parent 777ca09779
commit 7e95a8e0c5
1 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
ide/compileroptions.pp
View File

@ -71,15 +71,15 @@ type
procedure SetDefaultValue(const AValue: string); override; procedure SetDefaultValue(const AValue: string); override;
end; end;
TBuildModeSet = class; TBuildModeGraph = class;
{ TIDEBuildVariables } { TIDEBuildVariables }
TIDEBuildVariables = class(TLazBuildVariables) TIDEBuildVariables = class(TLazBuildVariables)
private private
FBuildPropertySet: TBuildModeSet; FBuildModeGraph: TBuildModeGraph;
fPrevVars, fNextVars: TIDEBuildVariables; fPrevVars, fNextVars: TIDEBuildVariables;
procedure SetBuildPropertySet(const AValue: TBuildModeSet); procedure SetBuildPropertySet(const AValue: TBuildModeGraph);
protected protected
FItems: TFPList;// list of TIDEBuildVariable FItems: TFPList;// list of TIDEBuildVariable
function GetItems(Index: integer): TLazBuildVariable; override; function GetItems(Index: integer): TLazBuildVariable; override;
@ -100,12 +100,12 @@ type
procedure CreateDiff(OtherProperties: TLazBuildVariables; procedure CreateDiff(OtherProperties: TLazBuildVariables;
Tool: TCompilerDiffTool); Tool: TCompilerDiffTool);
procedure Assign(Source: TLazBuildVariables); procedure Assign(Source: TLazBuildVariables);
property BuildPropertySet: TBuildModeSet read FBuildPropertySet write SetBuildPropertySet;// active in BuildModeSet property BuildPropertySet: TBuildModeGraph read FBuildModeGraph write SetBuildPropertySet;// active in BuildModeSet
end; end;
{ TBuildModeSet } { TBuildModeGraph }
TBuildModeSet = class TBuildModeGraph = class
private private
FEvaluator: TExpressionEvaluator; FEvaluator: TExpressionEvaluator;
FFirstBuildVars: TIDEBuildVariables; FFirstBuildVars: TIDEBuildVariables;
@ -121,7 +121,7 @@ type
{ TGlobalBuildProperties } { TGlobalBuildProperties }
TGlobalBuildProperties = class(TBuildModeSet) TGlobalBuildProperties = class(TBuildModeGraph)
private private
FMainProperty: TIDEBuildVariable; FMainProperty: TIDEBuildVariable;
FStdProperties: TIDEBuildVariables; FStdProperties: TIDEBuildVariables;
@ -3442,19 +3442,19 @@ begin
FTargetOS:=AValue; FTargetOS:=AValue;
end; end;
{ TBuildModeSet } { TBuildModeGraph }
procedure TBuildModeSet.Changed; procedure TBuildModeGraph.Changed;
begin begin
IncreaseCompilerParseStamp; IncreaseCompilerParseStamp;
end; end;
constructor TBuildModeSet.Create; constructor TBuildModeGraph.Create;
begin begin
FEvaluator:=TExpressionEvaluator.Create; FEvaluator:=TExpressionEvaluator.Create;
end; end;
destructor TBuildModeSet.Destroy; destructor TBuildModeGraph.Destroy;
var var
BuildVar: TIDEBuildVariables; BuildVar: TIDEBuildVariables;
NextVar: TIDEBuildVariables; NextVar: TIDEBuildVariables;
@ -3470,7 +3470,7 @@ begin
inherited Destroy; inherited Destroy;
end; end;
function TBuildModeSet.FindVarWithIdentifier(Identifier: string; out function TBuildModeGraph.FindVarWithIdentifier(Identifier: string; out
BuildVars: TIDEBuildVariables; out BuildVar: TIDEBuildVariable): boolean; BuildVars: TIDEBuildVariables; out BuildVar: TIDEBuildVariable): boolean;
begin begin
BuildVar:=nil; BuildVar:=nil;
@ -3483,7 +3483,7 @@ begin
Result:=false; Result:=false;
end; end;
function TBuildModeSet.GetUniqueVarName(CheckToo: TIDEBuildVariables): string; function TBuildModeGraph.GetUniqueVarName(CheckToo: TIDEBuildVariables): string;
var var
i: Integer; i: Integer;
BuildVars: TIDEBuildVariables; BuildVars: TIDEBuildVariables;
@ -3612,24 +3612,24 @@ end;
{ TIDEBuildVariables } { TIDEBuildVariables }
procedure TIDEBuildVariables.SetBuildPropertySet(const AValue: TBuildModeSet); procedure TIDEBuildVariables.SetBuildPropertySet(const AValue: TBuildModeGraph);
begin begin
if FBuildPropertySet=AValue then exit; if FBuildModeGraph=AValue then exit;
if FBuildPropertySet<>nil then begin if FBuildModeGraph<>nil then begin
if FBuildPropertySet.FFirstBuildVars=Self then if FBuildModeGraph.FFirstBuildVars=Self then
FBuildPropertySet.FFirstBuildVars:=fNextVars; FBuildModeGraph.FFirstBuildVars:=fNextVars;
if fNextVars<>nil then fNextVars.fPrevVars:=fPrevVars; if fNextVars<>nil then fNextVars.fPrevVars:=fPrevVars;
if fPrevVars<>nil then fPrevVars.fNextVars:=fNextVars; if fPrevVars<>nil then fPrevVars.fNextVars:=fNextVars;
fPrevVars:=nil; fPrevVars:=nil;
fNextVars:=nil; fNextVars:=nil;
FBuildPropertySet.Changed; FBuildModeGraph.Changed;
end; end;
FBuildPropertySet:=AValue; FBuildModeGraph:=AValue;
if FBuildPropertySet<>nil then begin if FBuildModeGraph<>nil then begin
fNextVars:=FBuildPropertySet.FFirstBuildVars; fNextVars:=FBuildModeGraph.FFirstBuildVars;
FBuildPropertySet.FFirstBuildVars:=Self; FBuildModeGraph.FFirstBuildVars:=Self;
if fNextVars<>nil then fNextVars.fPrevVars:=Self; if fNextVars<>nil then fNextVars.fPrevVars:=Self;
FBuildPropertySet.Changed; FBuildModeGraph.Changed;
end; end;
end; end;