source: trunk/Compiler/CompilerAPI.pas

unit CompilerAPI;

interface

uses
  Classes, SysUtils, ModularSystem, Analyzer, Target, SourceConvertor,
  Generics.Collections, Executor;

type

  { TCompilerAPI }

  TCompilerAPI = class(TAPI)
    Compiler: TObject; //TCompiler;
    procedure RegisterTarget(AClass: TTargetClass);
    procedure UnregisterTarget(AClass: TTargetClass);
    procedure RegisterConvertor(AClass: TConvertorClass);
    procedure UnregisterConvertor(AClass: TConvertorClass);
    procedure RegisterExecutor(AClass: TExecutorClass);
    procedure UnregisterExecutor(AClass: TExecutorClass);
    constructor Create;
    destructor Destroy; override;
  end;


implementation

uses
  Compiler;


{ TCompilerAPI }

procedure TCompilerAPI.RegisterTarget(AClass: TTargetClass);
begin
  TCompiler(Compiler).Targets.Add(AClass.Create);
end;

procedure TCompilerAPI.UnregisterTarget(AClass: TTargetClass);
begin
  //TCompiler(Compiler).Targets.Remove(TObject(AClass));
end;

procedure TCompilerAPI.RegisterConvertor(AClass: TConvertorClass);
begin
  TCompiler(Compiler).Convertors.Add(TObject(AClass));
end;

procedure TCompilerAPI.UnregisterConvertor(AClass: TConvertorClass);
begin
  TCompiler(Compiler).Convertors.Remove(TObject(AClass));
end;

procedure TCompilerAPI.RegisterExecutor(AClass: TExecutorClass);
begin
  TCompiler(Compiler).Executors.Add(TObject(AClass));
end;

procedure TCompilerAPI.UnregisterExecutor(AClass: TExecutorClass);
begin
  TCompiler(Compiler).Executors.Remove(TObject(AClass));
end;

constructor TCompilerAPI.Create;
begin
end;

destructor TCompilerAPI.Destroy;
begin
  inherited;
end;

end.