source: trunk/StudioModules/LDModuleBrainfuck/UBrainfuckCode.pas

unit UBrainfuckCode;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, USource, SpecializedList;

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

  { TSourceBrainFuck }

  TSourceBrainFuck = class(TSource)
    Code: TListByte;
    constructor Create;
    destructor Destroy; override;
  end;

  { TConvertorTextToBF }

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


implementation

uses
  ULDModuleBasic;

{ TSourceBrainFuck }

constructor TSourceBrainFuck.Create;
begin
  Code := TListByte.Create;
end;

destructor TSourceBrainFuck.Destroy;
begin
  Code.Free;
  inherited Destroy;
end;

{ TConvertorTextToBF }

constructor TConvertorTextToBF.Create;
begin
  inherited Create;
  Name := 'TextToBF';
  InputType := TSourceText;
  OutputType := TSourceBrainFuck;
end;

procedure TConvertorTextToBF.Convert(Input, Output: TSourceList);
var
  I: Integer;
  Code: string;
  Index: Integer;
begin
  inherited;
  //DebugSteps.Clear;
  TSourceBrainFuck(Output).Code.Clear;
  Index := 0;
  Code := TSourceText(Input).Content.Text;
  for I := 1 to Length(Code) do begin
    case Code[I] of
      '+': begin
        TSourceBrainFuck(Output).Code.Add(Byte(cmInc));
      end;
      '-': begin
        TSourceBrainFuck(Output).Code.Add(Byte(cmDec));
      end;
      '>': begin
        TSourceBrainFuck(Output).Code.Add(Byte(cmPointerInc));
      end;
      '<': begin
        TSourceBrainFuck(Output).Code.Add(Byte(cmPointerDec));
      end;
      ',': begin
        TSourceBrainFuck(Output).Code.Add(Byte(cmInput));
      end;
      '.': begin
        TSourceBrainFuck(Output).Code.Add(Byte(cmOutput));
      end;
      '[': begin
        TSourceBrainFuck(Output).Code.Add(Byte(cmLoopStart));
      end;
      ']': begin
        TSourceBrainFuck(Output).Code.Add(Byte(cmLoopEnd));
      end
    end;
  end;
end;

end.