source: trunk/Compiler/Modules/Java/ModuleJava.pas

unit ModuleJava;

interface

uses
  Classes, SysUtils, ModularSystem, SourceConvertor, TargetJava;

type
  { TModuleJava }

  TModuleJava = class(TModule)
    Target: TTargetJava;
    constructor Create(AOwner: TComponent); override;
    procedure DoInstall; override;
    procedure DoUninstall; override;
  end;


implementation

uses
  CompilerAPI;

resourcestring
  SJava = 'Java';

{ TModuleJava }

constructor TModuleJava.Create;
begin
  inherited;
  Identification := 'Java';
  Title := SJava;
end;

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

procedure TModuleJava.DoUninstall;
begin
  with TCompilerAPI(API) do begin
    UnregisterTarget(TTargetJava);
  end;
  inherited;
end;

end.