source: trunk/Packages/Kernel/Kernel.API.pas

unit Kernel.API;

interface

uses
  SysUtils, Kernel.List, DateUtils, Kernel.Memory, Kernel.Graphics, Kernel.Device,
  Kernel.IPC, Kernel.Scheduler, Kernel.Screen;

type
  TApiCommand = (acNone, acWriteText, acDrawText, acDrawLine, acDrawRect, acSleep,
    acReadMessage, acWindowCreate, acWindowSetAttr, acGetWindowCanvas,
    acDrawFrame);

  TDrawTextParams = record
    CanvasId: Integer;
    P: TPoint;
    Text: string;
    Color: TColor;
  end;

  TDrawLineParams = record
    CanvasId: Integer;
    P1: TPoint;
    P2: TPoint;
    Color: TColor;
  end;

  TWindowSetAttrParams = record
    WindowId: Integer;
    Bounds: TRectangle;
    Visible: Boolean;
  end;

  TDrawRectParams = record
    CanvasId: Integer;
    Rect: TRectangle;
    Color: TColor;
  end;

  { TSystemApi }

  TSystemApi = class
    function Call(Command: TApiCommand; Data: Pointer): Pointer; virtual; abstract;
    procedure WriteText(Text: string); virtual; abstract;
    procedure DrawText(CanvasId: Integer; P: TPoint; Text: string; Color: TColor); virtual; abstract;
    procedure DrawLine(CanvasId: Integer; P1, P2: TPoint; Color: TColor); virtual; abstract;
    procedure DrawRect(CanvasId: Integer; Rect: TRectangle; Color: TColor); virtual; abstract;
    procedure DrawFrame(CanvasId: Integer; Rect: TRectangle; Color: TColor); virtual; abstract;
    procedure Sleep(Time: TDateTime); virtual; abstract;
    procedure ReadMessage(Message: TIPCMessage); virtual; abstract;
    function WindowCreate: Integer; virtual; abstract;
    function GetWindowCanvas(WindowId: Integer): Integer; virtual; abstract;
    procedure WindowSetAttr(WindowId: Integer; Bounds: TRectangle; Visible: Boolean); virtual; abstract;
  end;

  TApiCall = function (Command: TApiCommand; Data: Pointer): Pointer of object;

  { TUserApi }

  TUserApi = class
    KernelApiCallback: TApiCall;
    function Call(Command: TApiCommand; Data: Pointer): Pointer;
    procedure WriteText(Text: string);
    procedure DrawText(CanvasId: Integer; P: TPoint; Text: string; Color: TColor);
    procedure DrawLine(CanvasId: Integer; P1, P2: TPoint; Color: TColor);
    procedure DrawRect(CanvasId: Integer; Rect: TRectangle; Color: TColor);
    procedure DrawFrame(CanvasId: Integer; Rect: TRectangle; Color: TColor);
    procedure Sleep(Time: TDateTime);
    procedure ReadMessage(Message: TIPCMessage);
    function WindowCreate: Integer;
    function GetWindowCanvas(WindowId: Integer): Integer;
    procedure WindowSetAttr(WindowId: Integer; Bounds: TRectangle; Visible: Boolean);
  end;


implementation

uses
  Kernel.Core;

{ TUserApi }

function TUserApi.Call(Command: TApiCommand; Data: Pointer
  ): Pointer;
begin
  Result := KernelApiCallback(Command, Data);
end;

procedure TUserApi.WriteText(Text: string);
begin
  Call(acWriteText, Pointer(Text));
end;

procedure TUserApi.DrawText(CanvasId: Integer; P: TPoint; Text: string; Color: TColor);
var
  Params: TDrawTextParams;
begin
  Params.CanvasId := CanvasId;
  Params.P := P;
  Params.Text := Text;
  Params.Color := Color;
  Call(acDrawText, @Params);
end;

procedure TUserApi.DrawLine(CanvasId: Integer; P1, P2: TPoint; Color: TColor);
var
  Params: TDrawLineParams;
begin
  Params.CanvasId := CanvasId;
  Params.P1 := P1;
  Params.P2 := P2;
  Params.Color := Color;
  Call(acDrawLine, @Params);
end;

procedure TUserApi.DrawRect(CanvasId: Integer; Rect: TRectangle; Color: TColor);
var
  Params: TDrawRectParams;
begin
  Params.CanvasId := CanvasId;
  Params.Rect := Rect;
  Params.Color := Color;
  Call(acDrawRect, @Params);
end;

procedure TUserApi.DrawFrame(CanvasId: Integer; Rect: TRectangle; Color: TColor
  );
var
  Params: TDrawRectParams;
begin
  Params.CanvasId := CanvasId;
  Params.Rect := Rect;
  Params.Color := Color;
  Call(acDrawFrame, @Params);
end;

procedure TUserApi.Sleep(Time: TDateTime);
begin
  Call(acSleep, @Time);
end;

procedure TUserApi.ReadMessage(Message: TIPCMessage);
begin
  Call(acReadMessage, Message);
end;

function TUserApi.WindowCreate: Integer;
begin
  Result := Integer(Call(acWindowCreate, nil));
end;

function TUserApi.GetWindowCanvas(WindowId: Integer): Integer;
begin
  Call(acGetWindowCanvas, Pointer(WindowId));
end;

procedure TUserApi.WindowSetAttr(WindowId: Integer; Bounds: TRectangle; Visible: Boolean);
var
  Params: TWindowSetAttrParams;
begin
  Params.WindowId := WindowId;
  Params.Bounds := Bounds;
  Params.Visible := Visible;
  Call(acWindowSetAttr, @Params);
end;

end.