source: branches/easy compiler/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  UTargetCode, USourceCode, USourceExecutor, USourceGenerator, LCLIntf,
  ComCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    ButtonBuild: TButton;
    ButtonSend: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    MemoGenerator: TMemo;
    MemoOutput: TMemo;
    MemoSource: TMemo;
    PageControl1: TPageControl;
    TabSheetExecutor: TTabSheet;
    TabSheetGenerator: TTabSheet;
    procedure ButtonBuildClick(Sender: TObject);
    procedure ButtonSendClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: char);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    InputBuffer: TStringList;
    procedure ExecutorOutput(Text: string);
    function ExecutorInput: string;
  public
    FileName: string;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

uses
  UCompiler;

{ TForm1 }

procedure TForm1.FormShow(Sender: TObject);
begin
  FileName := 'Examples' + DirectorySeparator + 'Animal guessing game.lan';
  MemoSource.Lines.LoadFromFile(FileName);
end;

procedure TForm1.ButtonBuildClick(Sender: TObject);
var
  Compiler: TCompiler;
  Target: TTargetCode;
  Executor: TSourceExecutor;
  Generator: TSourceGenerator;
  SourceCode: TSourceCode;
begin
  MemoOutput.Clear;
  Compiler := TCompiler.Create;
  Target := TTargetCode.Create;
  SourceCode := TSourceCode.Create;
  Executor := TSourceExecutor.Create;
  Executor.OnOutput := ExecutorOutput;
  Executor.OnInput := ExecutorInput;
  Generator := TSourceGenerator.Create;

  Compiler.Compile(MemoSource.Text, SourceCode);
  MemoGenerator.Text := Generator.Generate(SourceCode);
  Executor.Execute(SourceCode);

  Generator.Free;
  SourceCode.Free;
  Executor.Free;
  Compiler.Free;
  Target.Free;
end;

procedure TForm1.ButtonSendClick(Sender: TObject);
begin
  InputBuffer.Add(Edit1.Text);
  Edit1.Text := '';
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then ButtonSend.Click;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  MemoSource.Lines.SaveToFile(FileName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  InputBuffer := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  InputBuffer.Free;
end;

procedure TForm1.ExecutorOutput(Text: string);
begin
  MemoOutput.Text := MemoOutput.Text + Text;
  MemoOutput.SelStart := Length(MemoOutput.Text);
  //SendMessage(MemoOutput.Handle, EM_LINESCROLL, 0, MemoOutput.Lines.Count);
end;

function TForm1.ExecutorInput: string;
begin
  while InputBuffer.Count = 0 do begin
    if Application.Terminated then Break;
    Sleep(50);
    Application.ProcessMessages;
  end;
  if InputBuffer.Count > 0 then begin
    Result := InputBuffer[0];
    InputBuffer.Delete(0);
  end else Result := '';
end;

end.