source: branches/ByteArray/Forms/FormSourceEditor.pas

unit FormSourceEditor;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus,
  ActnList, FormMessages, FormAssembler, Project, FormEx, Assembler,
  Machine, IntMemory;

type

  { TFormSourceEditor }

  TFormSourceEditor = class(TFormEx)
    AClose: TAction;
    ACompile: TAction;
    AStop: TAction;
    APause: TAction;
    AStepOver: TAction;
    AStepOut: TAction;
    AStepIn: TAction;
    ARunToCursor: TAction;
    ARun: TAction;
    ANew: TAction;
    ASaveAs: TAction;
    ASave: TAction;
    AOpenRecent: TAction;
    AOpen: TAction;
    AExit: TAction;
    ActionList1: TActionList;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem16: TMenuItem;
    MenuItem17: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem21: TMenuItem;
    MenuItem22: TMenuItem;
    MenuItem23: TMenuItem;
    MenuItem24: TMenuItem;
    MenuItem25: TMenuItem;
    MenuItem26: TMenuItem;
    MenuItem27: TMenuItem;
    MenuItem28: TMenuItem;
    MenuItem29: TMenuItem;
    Separator3: TMenuItem;
    Separator2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    Separator1: TMenuItem;
    PanelBottom: TPanel;
    PanelCenter: TPanel;
    Splitter1: TSplitter;
    procedure ACloseExecute(Sender: TObject);
    procedure ACompileExecute(Sender: TObject);
    procedure ANewExecute(Sender: TObject);
    procedure AOpenExecute(Sender: TObject);
    procedure ARunExecute(Sender: TObject);
    procedure ASaveAsExecute(Sender: TObject);
    procedure ASaveExecute(Sender: TObject);
    procedure AStopExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  public
    Assembler: TAssembler;
    FormMessages: TFormMessages;
    FormAssembler: TFormAssembler;
    Project: TProject;
    CompiledProgram: TMemory;
    Machine: TMachine;
    procedure DockInit;
    procedure UpdateInterface;
  end;


implementation

{$R *.lfm}

uses
  Utils, Core;

{ TFormSourceEditor }

procedure TFormSourceEditor.FormCreate(Sender: TObject);
begin
  CompiledProgram := TMemory.Create;
  Assembler := TAssembler.Create;
  FormMessages := TFormMessages.Create(nil);
  FormAssembler := TFormAssembler.Create(nil);
  FormMessages.OnSelect := FormAssembler.Select;
end;

procedure TFormSourceEditor.ANewExecute(Sender: TObject);
begin
  Project.New;
end;

procedure TFormSourceEditor.ACloseExecute(Sender: TObject);
begin
  Project.Close;
end;

procedure TFormSourceEditor.ACompileExecute(Sender: TObject);
begin
  AStop.Execute;
  with Assembler do begin
    DataWidth := Machine.Cpu.DataWidth;
    AddressWidth := Machine.Cpu.AddressWidth;
    Compile(FormAssembler.SynEdit1.Lines.Text);
    Memory.SaveToFile('compiled.bin');
    CompiledProgram.Assign(Memory);
    Machine.Memory.Position := 0;
    Machine.Memory.WriteMemoryPos(CompiledProgram);
    FormMessages.Messages := Messages;
  end;
  if FormMessages.Visible then
    FormMessages.Reload;
end;

procedure TFormSourceEditor.AOpenExecute(Sender: TObject);
var
  OpenDialog: TOpenDialog;
begin
  OpenDialog := TOpenDialog.Create(nil);
  try
    if OpenDialog.Execute then
      Project.Open(OpenDialog.FileName);
  finally
    OpenDialog.Free;
  end;
end;

procedure TFormSourceEditor.ARunExecute(Sender: TObject);
begin
  ACompile.Execute;
  Machine.PowerOn;
end;

procedure TFormSourceEditor.ASaveAsExecute(Sender: TObject);
var
  SaveDialog: TSaveDialog;
begin
  SaveDialog := TSaveDialog.Create(nil);
  try
    if SaveDialog.Execute then
      Project.SaveAs(SaveDialog.FileName);
  finally
    SaveDialog.Free;
  end;
end;

procedure TFormSourceEditor.ASaveExecute(Sender: TObject);
begin
  Project.Save;
end;

procedure TFormSourceEditor.AStopExecute(Sender: TObject);
begin
  Machine.PowerOff;
end;

procedure TFormSourceEditor.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  if Core.Core.MainForm = Self then Application.Terminate;
end;

procedure TFormSourceEditor.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FormAssembler);
  FreeAndNil(FormMessages);
  FreeAndNil(Assembler);
  FreeAndNil(CompiledProgram);
end;

procedure TFormSourceEditor.FormShow(Sender: TObject);
begin
  DockInit;
  FormAssembler.SynEdit1.Lines.LoadFromFile('Sample.asm');
end;

procedure TFormSourceEditor.DockInit;
begin
  DockForm(FormAssembler, PanelCenter);
  DockForm(FormMessages, PanelBottom);
  PanelBottom.Height := Height div 5;
end;

procedure TFormSourceEditor.UpdateInterface;
begin

end;

end.