Changeset 5 for os/trunk/System

Timestamp:

Jun 2, 2013, 2:34:55 PM (11 years ago)

Author:

chronos

Message:

• Added: Implemented sample desktop manager as simple application.

Location:

os/trunk

Files:

• . (modified) (1 prop)
• System (modified) (1 prop)
• System/LDOS.Kernel.pas (moved) (moved from os/trunk/Xvcl.Kernel.pas ) (12 diffs)
• System/LDOS.Task.pas (added)

os/trunk

@@ -1 +1 @@
 Win32
 *.~dsk
+__history

@@ -1 +1 @@
 Win32
 *.~dsk
+__history

os/trunk/System/LDOS.Kernel.pas

@@ -1 @@
-unit Xvcl.Kernel;
+unit LDOS.Kernel;
 
 interface
@@ -17 +17 @@
     Priority: Integer;
     State: TProcessState;
+    TimerExpire: TDateTime;
+    Application: TApplication;
     procedure Execute; virtual;
+    procedure Terminate; virtual;
+  end;
+
+  TTimer = class
+  end;
+
+  TScheduler = class
+    Kernel: TKernel;
+    procedure Reschedule;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -33 +46 @@
 
   TScreen = class(TComponent)
+  private
+  public
+    Kernel: TKernel;
     Canvas: TScreenCanvas;
     Size: TPoint;
     Forms: TList<TForm>;
     VideoDevice: TVideoDevice;
+    procedure HandleResize;
     procedure Paint;
     procedure FocusForm(Form: TForm);
@@ -57 +74 @@
   end;
 
-  TScheduler = class
-    Kernel: TKernel;
-    procedure Reschedule;
-  end;
-
   TKernel = class
   private
     FOnAfterDriverInit: TNotifyEvent;
     FOnTick: TNotifyEvent;
+    procedure HandleTaskList;
   public
+    Timers: TList<TTimer>;
     Processes: TList<TProcess>;
     Drivers: TList<TDriver>;
@@ -78 +92 @@
     procedure PowerOff;
     procedure Reboot;
+    function GetProcessId: Integer;
+    procedure RunApplication(App: TApplication);
     constructor Create;
     destructor Destroy; override;
@@ -99 +115 @@
 
   for App in StartOnBoot do
-    App.Run;
+    RunApplication(App);
 
   repeat
@@ -113 +129 @@
 begin
   Processes := TList<TProcess>.Create;
+  Timers := TList<TTimer>.Create;
   Drivers := TList<TDriver>.Create;
   Screen := TScreen.Create;
+  Screen.Kernel := Self;
   StartOnBoot := TList<TApplication>.Create;
   Scheduler := TScheduler.Create;
+  Scheduler.Kernel := Self;
   Keyboard := TKeyboard.Create;
   Keyboard.Kernel := Self;
@@ -132 +151 @@
   Drivers.Destroy;
   Processes.Destroy;
-  inherited;
-end;
-
+  Timers.Destroy;
+  inherited;
+end;
+
+
+function TKernel.GetProcessId: Integer;
+var
+  I: Integer;
+begin
+  Result := 1;
+  for I := 0 to Processes.Count - 1 do
+    if Processes[I].Id > Result then Result := Processes[I].Id + 1;
+end;
 
 procedure TKernel.PowerOff;
@@ -144 +173 @@
 begin
 
+end;
+
+procedure TKernel.RunApplication(App: TApplication);
+var
+  NewProcess: TProcess;
+  I: Integer;
+begin
+  NewProcess := TProcess.Create;
+  NewProcess.Application := App;
+  NewProcess.Id := GetProcessId;
+  Processes.Add(NewProcess);
+  App.Run;
+  NewProcess.Name := App.Caption;
+  HandleTaskList;
+end;
+
+procedure TKernel.HandleTaskList;
+var
+  Form: TForm;
+  NewMessage: TMessageTaskList;
+  Process: TProcess;
+begin
+  NewMessage := TMessageTaskList.Create;
+  try
+    for Form in Screen.Forms do
+      Form.HandleMessage(NewMessage);
+    for Process in Processes do
+      Process.Application.HandleMessage(NewMessage);
+  finally
+    NewMessage.Destroy;
+  end;
 end;
 
@@ -176 +236 @@
 end;
 
+procedure TScreen.HandleResize;
+var
+  Form: TForm;
+  NewMessage: TMessageResize;
+  Process: TProcess;
+begin
+  NewMessage := TMessageResize.Create;
+  try
+    for Form in Kernel.Screen.Forms do
+      Form.HandleMessage(NewMessage);
+    for Process in Kernel.Processes do
+      Process.Application.HandleMessage(NewMessage);
+  finally
+    NewMessage.Destroy;
+  end;
+end;
+
 procedure TScreen.Paint;
 var
@@ -199 +276 @@
 { TScheduler }
 
+constructor TScheduler.Create;
+begin
+  inherited;
+end;
+
+destructor TScheduler.Destroy;
+begin
+
+  inherited;
+end;
+
 procedure TScheduler.Reschedule;
 begin
@@ -218 +306 @@
 
 procedure TProcess.Execute;
+begin
+
+end;
+
+procedure TProcess.Terminate;
 begin
 

@@ -1 +1 @@
 Win32
 *.~dsk
+__history