source: trunk/StudioCommon/USource.pas

unit USource;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, SpecializedList, Forms;

type
  TSourceType = class;

  { TSource }

  TSource = class
  private
    FName: string;
    procedure SetName(AValue: string);
  public
    Modified: Boolean;
    Form: TForm;
    FileType: TSourceType;
    property Name: string read FName write SetName;
  end;

  TSourceClass = class of TSource;

  TSourceList = class
    Items: TListObject; // TListObject<TSource>
    Main: TSource;
  end;


  { TSourceType }

  TSourceType = class
    Extension: string;
    Title: string;
    Form: TFormClass;
    SourceClass: TSourceClass;
    constructor Create; virtual;
  end;

  TFileTypeClass = class of TSourceType;

  { TFileTypes }

  TFileTypes = class(TListObject)
    function GetDialogFilter: string;
    function FindByExt(Extension: string): TSourceType;
  end;

  { TFileTemplate }

  TFileTemplate = class
  public
    Name: string;
    Description: TStringList;
    FileTypeClass: TSourceType;
    constructor Create; virtual;
    destructor Destroy; override;
    function Execute: TSource; virtual;
  end;

  TFileTemplates = class(TListObject)
  end;

  TDebugLogEvent = procedure(Text: string) of object;
  TDebugPositionEvent = procedure (Position: Integer) of object;

  { TConvertor }

  TConvertor = class
  private
    FOnDebugLog: TDebugLogEvent;
    FOnDebugPosition: TDebugPositionEvent;
  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;
    property OnDebugPosition: TDebugPositionEvent read FOnDebugPosition
      write FOnDebugPosition;
  end;

  TConvertorClass = class of TConvertor;


implementation

resourcestring
  SAllFiles = 'All files';

{ TSourceType }

constructor TSourceType.Create;
begin
  inherited;
  SourceClass := TSource;
end;

procedure TSource.SetName(AValue: string);
begin
  if FName = AValue then Exit;
  FName := AValue;
  if Assigned(Form) then
    Form.Caption := ExtractFileName(FName);
end;


{ TFileTemplate }

constructor TFileTemplate.Create;
begin
  Description := TStringList.Create;
end;

destructor TFileTemplate.Destroy;
begin
  Description.Free;
  inherited Destroy;
end;

function TFileTemplate.Execute: TSource;
begin

end;


{ TFileTypes }

function TFileTypes.GetDialogFilter: string;
var
  I: Integer;
begin
  Result := '';
  for I := 0 to Count - 1 do
    Result := Result + TSourceType(Items[I]).Title + ' (*' +
    TSourceType(Items[I]).Extension + ')|' +
      TSourceType(Items[I]).Extension + '|';
  Result := Result + SAllFiles + ' (*.*)|*.*';
end;

function TFileTypes.FindByExt(Extension: string): TSourceType;
var
  I: Integer;
begin
  I := 0;
  while (I < count) and (TSourceType(Items[I]).Extension <> Extension) do Inc(I);
  if I < Count then Result := TSourceType(Items[I])
    else Result := nil;
end;

{ 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;

end.