source: trunk/Compiler/Modules/Brainfuck/ModuleBrainfuck.pas

unit ModuleBrainfuck;

interface

uses
  Classes, SysUtils, ModularSystem, SourceConvertor;

type
  TBrainFuckCommand = (cmNoOperation, cmInc, cmDec, cmPointerInc, cmPointerDec,
      cmOutput, cmInput, cmLoopStart, cmLoopEnd, cmDebug);

  TSourceBrainfuck = class(TSource)
    Code: array of TBrainFuckCommand;
  end;

  { TConvertorTextToBF }

  TConvertorTextToBF = class(TConvertor)
    procedure Convert(Input, Output: TSourceList); override;
    constructor Create; override;
  end;

  { TConvertorBFToPascal }

  TConvertorBFToPascal = class(TConvertor)
    procedure Convert(Input, Output: TSourceList); override;
    constructor Create; override;
  end;

  { TModuleBrainfuck }

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


implementation

uses
  CompilerAPI, SourceCodePascal;

resourcestring
  SBrainfuck = 'Brainfuck';

{ TConvertorBFToPascal }

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

constructor TConvertorBFToPascal.Create;
begin
  inherited;
  Name := 'BFToPascal';
  InputType := TSourceBrainfuck;
  OutputType := TProgram;
end;

{ TConvertorTextToBF }

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

constructor TConvertorTextToBF.Create;
begin
  inherited;
  Name := 'TextToBF';
  InputType := TSourceFileLink;
  OutputType := TSourceBrainfuck;
end;

{ TModuleBrainfuck }

constructor TModuleBrainfuck.Create;
begin
  inherited;
  Name := 'Brainfuck';
  Title := SBrainfuck;
  Dependencies.Add('Pascal');
end;

procedure TModuleBrainfuck.DoInstall;
begin
  inherited;
  TCompilerAPI(API).RegisterConvertor(TConvertorTextToBF);
  TCompilerAPI(API).RegisterConvertor(TConvertorBFToPascal);
end;

procedure TModuleBrainfuck.DoUninstall;
begin
  TCompilerAPI(API).UnregisterConvertor(TConvertorTextToBF);
  TCompilerAPI(API).UnregisterConvertor(TConvertorBFToPascal);
  inherited;
end;

end.