source: branches/templates/Devices/Device.pas

unit Device;

interface

uses
  Classes, SysUtils, AddrChannel;

type
  TWriteEvent = procedure (Address: QWord; Data: QWord) of object;
  TReadEvent = function (Address: QWord): QWord of object;

  {$MACRO ON}

  {$DEFINE TGDevice := TDevice8}
  {$DEFINE TGDeviceData := Byte}
  {$DEFINE TGDeviceAddrChannel := TAddrChannel8}
  {$DEFINE TGDeviceWidth := 8}
  {$DEFINE INTERFACE}
  {$I 'Device.inc'}

  {$DEFINE TGDevice := TDevice16}
  {$DEFINE TGDeviceData := Word}
  {$DEFINE TGDeviceAddrChannel := TAddrChannel16}
  {$DEFINE TGDeviceWidth := 16}
  {$DEFINE INTERFACE}
  {$I 'Device.inc'}

  {$DEFINE TGDevice := TDevice32}
  {$DEFINE TGDeviceData := DWord}
  {$DEFINE TGDeviceAddrChannel := TAddrChannel32}
  {$DEFINE TGDeviceWidth := 32}
  {$DEFINE INTERFACE}
  {$I 'Device.inc'}

  {$DEFINE TGDevice := TDevice64}
  {$DEFINE TGDeviceData := QWord}
  {$DEFINE TGDeviceAddrChannel := TAddrChannel64}
  {$DEFINE TGDeviceWidth := 64}
  {$DEFINE INTERFACE}
  {$I 'Device.inc'}

  { TDevice }

  TDevice = class
  private
    FDevice16: TDevice16;
    FDevice32: TDevice32;
    FDevice64: TDevice64;
    FDevice8: TDevice8;
    FWidth: TBitWidth;
    procedure SetWidth(AValue: TBitWidth);
  public
    procedure SetDataBus(Channel: TAddrChannel);
    constructor Create;
    property Width: TBitWidth read FWidth write SetWidth;
    property Device8: TDevice8 read FDevice8;
    property Device16: TDevice16 read FDevice16;
    property Device32: TDevice32 read FDevice32;
    property Device64: TDevice64 read FDevice64;
  end;

implementation

{ TDevice }

procedure TDevice.SetWidth(AValue: TBitWidth);
begin
  if FWidth = AValue then Exit;
  case FWidth of
    bw8: FreeAndNil(FDevice8);
    bw16: FreeAndNil(FDevice16);
    bw32: FreeAndNil(FDevice32);
    bw64: FreeAndNil(FDevice64);
  end;
  FWidth := AValue;
  case FWidth of
    bw8: FDevice8 := TDevice8.Create;
    bw16: FDevice16 := TDevice16.Create;
    bw32: FDevice32 := TDevice32.Create;
    bw64: FDevice64 := TDevice64.Create;
  end;
end;

procedure TDevice.SetDataBus(Channel: TAddrChannel);
begin
  if Width <> Channel.Width then raise Exception.Create('Bit width mismatch.');
  case Width of
    bw8: Device8.SetDataBus(Channel.AddrChannel8);
    bw16: Device16.SetDataBus(Channel.AddrChannel16);
    bw32: Device32.SetDataBus(Channel.AddrChannel32);
    bw64: Device64.SetDataBus(Channel.AddrChannel64);
  end;
end;

constructor TDevice.Create;
begin
  FDevice8 := TDevice8.Create;
end;

{$DEFINE TGDevice := TDevice8}
{$DEFINE TGDeviceData := Byte}
{$DEFINE TGDeviceAddrChannel := TAddrChannel8}
{$DEFINE TGDeviceWidth := 8}
{$DEFINE IMPLEMENTATION}
{$I 'Device.inc'}

{$DEFINE TGDevice := TDevice16}
{$DEFINE TGDeviceData := Word}
{$DEFINE TGDeviceAddrChannel := TAddrChannel16}
{$DEFINE TGDeviceWidth := 16}
{$DEFINE IMPLEMENTATION}
{$I 'Device.inc'}

{$DEFINE TGDevice := TDevice32}
{$DEFINE TGDeviceData := DWord}
{$DEFINE TGDeviceAddrChannel := TAddrChannel32}
{$DEFINE TGDeviceWidth := 32}
{$DEFINE IMPLEMENTATION}
{$I 'Device.inc'}

{$DEFINE TGDevice := TDevice64}
{$DEFINE TGDeviceData := QWord}
{$DEFINE TGDeviceAddrChannel := TAddrChannel64}
{$DEFINE TGDeviceWidth := 64}
{$DEFINE IMPLEMENTATION}
{$I 'Device.inc'}

end.