Changeset 6 for trunk/UAPI.pas

Timestamp:

Nov 23, 2014, 11:17:11 PM (10 years ago)

Author:

chronos

Message:

• Added: Preparation for support for IPC messaging.

File:

• trunk/UAPI.pas (modified) (2 diffs)

trunk/UAPI.pas

@@ -16 +16 @@
     procedure WriteText(Text: string);
     procedure Sleep(Time: TDateTime);
+    procedure ReadMessage(Message: TIPCMessage);
   end;
 
@@ -39 +40 @@
 
 procedure TAPI.Sleep(Time: TDateTime);
+var
+  Task: TTask;
 begin
-  SysUtils.Sleep(Trunc(Time / OneMillisecond));
+  Task := Kernel.Scheduler.GetCurrentTask;
+  Task.Sleep(Time);
+end;
+
+procedure TAPI.ReadMessage(Message: TIPCMessage);
+var
+  Task: TTask;
+begin
+  Task := Kernel.Scheduler.GetCurrentTask;
+  while Task.Messages.Count = 0 do Task.WaitForMessage;
 end;