source: branches/bigint/DeviceManager.pas

unit DeviceManager;

interface

uses
  Classes, SysUtils, Int, Generics.Collections, Device;

type

  TRegisteredDevice = class
    Device: TDevice;
    ReadBaseAddr: TInt;
    WriteBaseAddr: TInt;
    ReadCount: TInt;
    WriteCount: TInt;
  end;

  TRegisterdDevices = TObjectList<TRegisteredDevice>;

  { TDeviceManager }

  TDeviceManager = class
    Devices: TRegisterdDevices;
    ReadHandlers: TReadEvents;
    WriteHandlers: TWriteEvents;
    procedure Write(Address, Data: TInt);
    function Read(Address: TInt): TInt;
    procedure RegisterDevice(Device: TDevice);
    procedure UnreagisterDevice(Device: TDevice);
    constructor Create;
    destructor Destroy; override;
  end;


implementation

{ TDeviceManager }

procedure TDeviceManager.Write(Address, Data: TInt);
begin
  WriteHandlers[Address](Data);
end;

function TDeviceManager.Read(Address: TInt): TInt;
begin
  Result := ReadHandlers[Address];
end;

procedure TDeviceManager.RegisterDevice(Device: TDevice);
var
  Handlers: THandlers;
  RegisteredDevice: TRegisteredDevice;
  I: Integer;
begin
  Handlers := Device.GetHandlers;
  RegisteredDevice := TRegisteredDevice.Create;
  RegisteredDevice.Device := Device;
  RegisteredDevice.ReadBaseAddr := ReadHandlers.Count;
  RegisteredDevice.ReadCount := Handlers.ReadHandlers.Count;
  RegisteredDevice.WriteBaseAddr := WriteHandlers.Count;
  RegisteredDevice.WriteCount := Handlers.WriteHandlers.Count;
  for I := 0 to Handlers.ReadHandlers.Count - 1 do begin
    ReadHandlers.Add(Handlers.ReadHandlers[I]);
  end;
  for I := 0 to Handlers.WriteHandlers.Count - 1 do begin
    WriteHandlers.Add(Handlers.WriteHandlers[I]);
  end;
  Devices.Add(RegisteredDevice);
  Handlers.Free;
end;

procedure TDeviceManager.UnreagisterDevice(Device: TDevice);
begin
  // TODO
end;

constructor TDeviceManager.Create;
begin
  Devices := TRegisterdDevices.Create;
  ReadHandlers := TReadEvents.Create;
  WriteHandlers := TWriteEvents.Create;
end;

destructor TDeviceManager.Destroy;
begin
  FreeAndNil(ReadHandlers);
  FreeAndNil(WriteHandlers);
  FreeAndNil(Devices);
  inherited;
end;

end.