DN.Compiler.pas

{
#########################################################
# Copyright by Alexander Benikowski                     #
# This unit is part of the Delphinus project hosted on  #
# https://github.com/Memnarch/Delphinus                 #
#########################################################
}
unit DN.Compiler;

interface

uses
  Classes,
  Generics.Collections,
  DN.Types,
  DN.Compiler.Intf,
  DN.VariableResolver.Intf,
  DN.VariableResolver.Compiler.Factory;

type
  TDNCompiler = class(TInterfacedObject, IDNCompiler)
  private
    FDCUOutput: string;
    FDCPOutput: string;
    FEXEOutput: string;
    FBPLOutput: string;
    FTarget: TDNCompilerTarget;
    FConfig: TDNCompilerConfig;
    FPlatform: TDNCompilerPlatform;
    FLog: TStringList;
    FVariableResolverFactory: TDNCompilerVariableResolverFacory;
    function GetEXEOutput: string;
    function GetDCPOutput: string;
    function GetDCUOutput: string;
    procedure SetEXEOutput(const Value: string);
    procedure SetDCPOutput(const Value: string);
    procedure SetDCUOutput(const Value: string);
    function GetConfig: TDNCompilerConfig;
    function GetTarget: TDNCompilerTarget;
    procedure SetConfig(const Value: TDNCompilerConfig);
    procedure SetTarget(const Value: TDNCompilerTarget);
    function GetBPLOutput: string;
    procedure SetBPLOutput(const Value: string);
    function GetLog: TStrings;
    function GetPlatform: TDNCompilerPlatform;
    procedure SetPlatform(const Value: TDNCompilerPlatform);
    function GetParameterOverride(const AProperty: string): string;
    procedure SetParameterOverride(const AProperty: string; const Value: string);
  protected
    FParameterOverrides: TDictionary<string, string>;
    function GetVersion: TCompilerVersion; virtual;
    function CreateResolver: IVariableResolver;
  public
    constructor Create(const AVariableResolverFactory: TDNCompilerVariableResolverFacory);
    destructor Destroy(); override;
    function Compile(const AProjectFile: string): Boolean; virtual; abstract;
    property DCUOutput: string read GetDCUOutput write SetDCUOutput;
    property DCPOutput: string read GetDCPOutput write SetDCPOutput;
    property EXEOutput: string read GetEXEOutput write SetEXEOutput;
    property BPLOutput: string read GetBPLOutput write SetBPLOutput;
    property Target: TDNCompilerTarget read GetTarget write SetTarget;
    property Config: TDNCompilerConfig read GetConfig write SetConfig;
    property Platform: TDNCompilerPlatform read GetPlatform write SetPlatform;
    property Log: TStrings read GetLog;
    property Version: TCompilerVersion read GetVersion;
    property ParameterOverride[const AProperty: string]: string read GetParameterOverride write SetParameterOverride;
  end;

implementation

uses
  SysUtils,
  StrUtils;

{ TDNCompiler }

function TDNCompiler.GetEXEOutput: string;
begin
  Result := FEXEOutput;
end;

constructor TDNCompiler.Create(const AVariableResolverFactory: TDNCompilerVariableResolverFacory);
begin
  inherited Create();
  FLog := TStringList.Create();
  FParameterOverrides := TDictionary<string, string>.Create();
  FTarget := ctBuild;
  FConfig := ccRelease;
  FPlatform := cpWin32;
  FVariableResolverFactory := AVariableResolverFactory;
end;

function TDNCompiler.CreateResolver: IVariableResolver;
begin
  Result := FVariableResolverFactory(Platform, Config);
end;

destructor TDNCompiler.Destroy;
begin
  FLog.Free();
  FParameterOverrides.Free;
  inherited;
end;

function TDNCompiler.GetLog: TStrings;
begin
  Result := FLog;
end;

function TDNCompiler.GetParameterOverride(const AProperty: string): string;
begin
  if not FParameterOverrides.TryGetValue(AProperty, Result) then
    Result := '';
end;

function TDNCompiler.GetPlatform: TDNCompilerPlatform;
begin
  Result := FPlatform;
end;

function TDNCompiler.GetBPLOutput: string;
begin
  Result := FBPLOutput;
end;

function TDNCompiler.GetConfig: TDNCompilerConfig;
begin
  Result := FConfig;
end;

function TDNCompiler.GetDCPOutput: string;
begin
  Result := FDCPOutput;
end;

function TDNCompiler.GetDCUOutput: string;
begin
  Result := FDCUOutput;
end;

function TDNCompiler.GetTarget: TDNCompilerTarget;
begin
  Result := FTarget;
end;

function TDNCompiler.GetVersion: TCompilerVersion;
begin
  Result := 0;
end;

procedure TDNCompiler.SetEXEOutput(const Value: string);
begin
  FEXEOutput := Value;
end;

procedure TDNCompiler.SetParameterOverride(const AProperty: string;
  const Value: string);
begin
  FParameterOverrides.AddOrSetValue(AProperty, Value);
end;

procedure TDNCompiler.SetPlatform(const Value: TDNCompilerPlatform);
begin
  FPlatform := Value;
end;

procedure TDNCompiler.SetBPLOutput(const Value: string);
begin
  FBPLOutput := Value;
end;

procedure TDNCompiler.SetConfig(const Value: TDNCompilerConfig);
begin
  FConfig := Value;
end;

procedure TDNCompiler.SetDCPOutput(const Value: string);
begin
  FDCPOutput := Value;
end;

procedure TDNCompiler.SetDCUOutput(const Value: string);
begin
  FDCUOutput := Value;
end;

procedure TDNCompiler.SetTarget(const Value: TDNCompilerTarget);
begin
  FTarget := Value;
end;

end.