source: trunk/Compiler/Modules/DynamicC/ModuleDynamicC.pas

unit ModuleDynamicC;

interface

uses
  Classes, SysUtils, ModularSystem, TargetDynamicC, CompilerAPI;

type

  { TModuleDynamicC }

  TModuleDynamicC = class(TModule)
  public
    Target: TTargetDynamicC;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure DoInstall; override;
    procedure DoUninstall; override;
  end;


implementation

resourcestring
  SDynamicC = 'Dynamic C';

{ TModuleDynamicC }

constructor TModuleDynamicC.Create;
begin
  inherited;
  Identification := 'DynamicC';
  Title := SDynamicC;
end;

destructor TModuleDynamicC.Destroy;
begin
  inherited;
end;

procedure TModuleDynamicC.DoInstall;
begin
  Target := TTargetDynamicC.Create;
  with TCompilerAPI(API) do begin
    RegisterTarget(TTargetDynamicC);
  end;
  inherited;
end;

procedure TModuleDynamicC.DoUninstall;
begin
  with TCompilerAPI(API) do begin
    UnregisterTarget(TTargetDynamicC);
  end;
  inherited;
end;

end.