source: trunk/Compiler/SourceConvertor.pas

unit SourceConvertor;

interface

uses
  Classes, SysUtils, Generics.Collections;

type
  TSource = class
    Name: string;
  end;

  TSourceClass = class of TSource;

  TSourceFileLink = class(TSource)
    FileName: string;
  end;

  { TSourceText }

  TSourceText = class(TSource)
    Code: TStringList;
    constructor Create;
    destructor Destroy; override;
  end;

  TSourceList = class
    Items: TObjectList<TSource>;
  end;

  TDebugLogEvent = procedure(Text: string) of object;

  { TConvertor }

  TConvertor = class
  private
    FOnDebugLog: TDebugLogEvent;
  public
    Name: string;
    InputType: TSourceClass;
    OutputType: TSourceClass;
    procedure Convert(Input, Output: TSourceList); virtual;
    constructor Create; virtual;
    procedure Log(Text: string);
    property OnDebugLog: TDebugLogEvent read FOnDebugLog write FOnDebugLog;
  end;

  TConvertorClass = class of TConvertor;


implementation

{ TConvertor }

procedure TConvertor.Convert(Input, Output: TSourceList);
begin
end;

constructor TConvertor.Create;
begin
end;

procedure TConvertor.Log(Text: string);
begin
  if Assigned(FOnDebugLog) then
    FOnDebugLog(Text);
end;

{ TSourceText }

constructor TSourceText.Create;
begin
  Code := TStringList.Create;
end;

destructor TSourceText.Destroy;
begin
  FreeAndNil(Code);
  inherited;
end;

end.