Changeset 4 for trunk/UKernel.pas

Timestamp:

Nov 23, 2014, 12:56:33 AM (9 years ago)

Author:

chronos

Message:

• Added: Now applications can write text to serial device which is displayed on form.

File:

• trunk/UKernel.pas (modified) (10 diffs)

trunk/UKernel.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UList, Contnrs, UFileSystem, UAPI;
+  Classes, SysUtils, UList, Contnrs, UFileSystem, UMemory;
 
 type
-  TEvent = procedure of object;
+  TBasicEvent = procedure of object;
 
   TTaskState = (tsStopped, tsRunning, tsSuspended);
@@ -18 +18 @@
     Name: string;
     State: TTaskState;
-    EntryPoint: TEvent;
+    EntryPoint: TBasicEvent;
     constructor Create; virtual;
   end;
@@ -31 +31 @@
     Running: Boolean;
     procedure Start; virtual;
-    procedure Stop;
-    function AddTask(Name: string; EntryPoint: TEvent): TTask; virtual;
+    procedure Stop; virtual;
+    function AddTask(Name: string; EntryPoint: TBasicEvent): TTask; virtual;
     constructor Create; virtual;
     destructor Destroy; override;
@@ -43 +43 @@
   end;
 
+  { TDevice }
+
+  TDevice = class(TNamedObject)
+    ClassName: string;
+    constructor Create; virtual;
+    procedure Service(Index: Integer; DataIn, DataOut: TMemory); virtual;
+  end;
+
   { TKernel }
 
@@ -51 +59 @@
     SchedulerClass: TSchedulerClass;
     FileSystemClass: TFileSystemClass;
+    Devices: TNamedObjectList; // TList<TDevice>
     procedure AppExecute(AFile: TFile);
     procedure Init;
@@ -59 +68 @@
 
 implementation
+
+uses
+  UApp;
+
+{ TDevice }
+
+constructor TDevice.Create;
+begin
+  inherited Create;
+end;
+
+procedure TDevice.Service(Index: Integer; DataIn, DataOut: TMemory);
+begin
+
+end;
 
 { TTask }
@@ -79 +103 @@
 end;
 
-function TScheduler.AddTask(Name: string; EntryPoint: TEvent): TTask;
+function TScheduler.AddTask(Name: string; EntryPoint: TBasicEvent): TTask;
 var
   NewTask: TTask;
@@ -111 +135 @@
   App := TApp(Apps.FindByName(AFile.Name));
   if Assigned(App) then begin
+    App.API.Kernel := Self;
     Scheduler.AddTask(App.Name, App.Run);
   end else raise Exception.Create('Application ''' + AFile.Name + ''' no found');
@@ -152 +177 @@
 constructor TKernel.Create;
 begin
+  Devices := TNamedObjectList.Create;
   Drives := TNamedObjectList.Create;
   Apps := TNamedObjectList.Create;
@@ -162 +188 @@
   Apps.Free;
   Drives.Free;
+  Devices.Free;
   inherited Destroy;
 end;