Changeset 12 for trunk/Packages/Kernel/UKernel.pas

Timestamp:

Sep 6, 2017, 6:47:49 PM (7 years ago)

Author:

chronos

Message:

• Modified: Separate API command to be kernel and user space. Execute API command through single callback function.

File:

• trunk/Packages/Kernel/UKernel.pas (modified) (6 diffs)

trunk/Packages/Kernel/UKernel.pas

@@ -7 +7 @@
 uses
   Classes, Math, SysUtils, UList, Contnrs, UFileSystem, UMemory, UScreen, UDevice,
-  fgl, UApp, UScheduler;
+  fgl, UApp, UScheduler, UApi;
 
 type
@@ -26 +26 @@
   TKernel = class
   private
+    Api: TKernelApi;
     procedure InitVideo;
+    function KernelApiExecute(Command: TApiCommand; Data: Pointer): Pointer;
   public
     Apps: TNamedObjectList<TApp>;
@@ -88 +90 @@
 end;
 
+function TKernel.KernelApiExecute(Command: TApiCommand;
+  Data: Pointer): Pointer;
+begin
+  Result := Api.Call(Command, Data);
+end;
+
 procedure TKernel.AppExecute(AFile: TFile);
 var
@@ -94 +102 @@
   App := TApp(Apps.FindByName(AFile.Name));
   if Assigned(App) then begin
-    App.API.Kernel := Self;
+    App.API.KernelApiCallback := KernelApiExecute;
     Scheduler.AddTask(App.Name, App.Run);
   end else raise Exception.Create('Application ''' + AFile.Name + ''' no found');
@@ -119 +127 @@
   NewFile.Name := 'Clock2';
   NewDrive.FileSystem.TopDirectory.Items.Add(NewFile);
-InitVideo;
+  InitVideo;
 end;
 
@@ -149 +157 @@
   Scheduler := TScheduler.Create;
   Screens := TFPGObjectList<TScreen>.Create;
+  Api := TKernelApi.Create;
+  Api.Kernel := Self;
 end;
 
 destructor TKernel.Destroy;
 begin
-  Screens.Free;
-  Scheduler.Free;
-  Apps.Free;
-  Drives.Free;
-  Devices.Free;
+  FreeAndNil(Api);
+  FreeAndNil(Screens);
+  FreeAndNil(Scheduler);
+  FreeAndNil(Apps);
+  FreeAndNil(Drives);
+  FreeAndNil(Devices);
   inherited Destroy;
 end;