source: branches/Void/UMainForm.pas

unit UMainForm;

{$mode Delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ComCtrls, SynHighlighterPas, SynEdit, SynHighlighterCpp,
  UCompilator, UOutputGenerator, UModelViewer, UPascalGenerator, UCGenerator,
  UZ80Generator;

const
  SourceFileName = 'Example.void';

type

  { TMainForm }

  TMainForm = class(TForm)
    ButtonCompile: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ListView1: TListView;
    SynCppSyn1: TSynCppSyn;
    SynEdit1: TSynEdit;
    SynEdit2: TSynEdit;
    SynPasSyn1: TSynPasSyn;
    TreeView1: TTreeView;
    procedure ButtonCompileClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
  private
    SourceCode: TMemoryStream;
    ModelViewer: TModelViewer;
    procedure CompilatorError(Text: string; var Terminate: Boolean;
      Position: TPoint);
  public
    Compilator: TCompilator;
  end;

var
  MainForm: TMainForm;

implementation

{ TMainForm }

procedure TMainForm.FormShow(Sender: TObject);
begin
  SynEdit1.Lines.LoadFromFile(SourceFileName);
  ButtonCompileClick(Self);
end;

procedure TMainForm.ListView1Click(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then begin
    SynEdit1.CaretXY := TErrorMessage(Compilator.ErrorMessages[
      ListView1.Selected.Index]).CodePosition;
    SynEdit1.SetFocus;
  end;
end;

procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  SynEdit1.Lines.SaveToFile(SourceFileName);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Compilator := TCompilator.Create;
  Compilator.OnError := CompilatorError;
  ModelViewer := TModelViewer.Create;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  Compilator.Destroy;
  ModelViewer.Destroy;
end;

procedure TMainForm.ButtonCompileClick(Sender: TObject);
var
  Code: string;
  OutputFileName: string;
begin
  with Compilator do begin
    ListView1.Clear;
    Code := SynEdit1.Lines.Text;
    SourceCode.Size := 0;
    SourceCode.Write(Code[1], Length(Code));
    if Assigned(Generator) then Generator.Destroy;
    if ComboBox1.ItemIndex = 0 then begin
      Generator := TPascalGenerator.Create;
      SynEdit2.Highlighter := SynPasSyn1;
      OutputFileName := 'Output.dpr';
    end else
    if ComboBox1.ItemIndex = 1 then begin
      Generator := TCGenerator.Create;
      SynEdit2.Highlighter := SynCppSyn1;
      OutputFileName := 'Output.c';
    end else
    if ComboBox1.ItemIndex = 2 then begin
      Generator := TZ80Generator.Create;
      SynEdit2.Highlighter := SynCppSyn1;
      OutputFileName := 'Output.asm';
    end;

    try
      Compile;
    except
    end;

    SynEdit2.Lines.Assign(Generator.Output);
    SynEdit2.Lines.SaveToFile(OutputFileName);
    ModelViewer.Show(TreeView1);
  end;
end;

procedure TMainForm.CompilatorError(Text: string; var Terminate: Boolean;
  Position: TPoint);
var
  NewItem: TListItem;
begin
  Terminate := False;
  NewItem := ListView1.Items.Add;
  with NewItem do begin
    Caption := '';
    SubItems.Add(IntToStr(Position.X) + ', ' + IntToStr(Position.Y));
    SubItems.Add('Error: ' + Text);
  end;
end;

initialization
  {$I UMainForm.lrs}

end.