Initial project import

kernel/console/console.adb

@@ -0,0 +1,18 @@
+with Ada.Text_IO;
+
+package body Console is
+   procedure Initialize is
+   begin
+      null;
+   end Initialize;
+
+   procedure Write (Text : String) is
+   begin
+      Ada.Text_IO.Put (Text);
+   end Write;
+
+   procedure Write_Line (Text : String) is
+   begin
+      Ada.Text_IO.Put_Line (Text);
+   end Write_Line;
+end Console;

kernel/console/console.ads

@@ -0,0 +1,5 @@
+package Console is
+   procedure Initialize;
+   procedure Write (Text : String);
+   procedure Write_Line (Text : String);
+end Console;

kernel/cpu/cpu.adb

@@ -0,0 +1,6 @@
+package body Cpu is
+   procedure Initialize is
+   begin
+      null;
+   end Initialize;
+end Cpu;

kernel/cpu/cpu.ads

@@ -0,0 +1,3 @@
+package Cpu is
+   procedure Initialize;
+end Cpu;

kernel/interrupt/interrupt.adb

@@ -0,0 +1,6 @@
+package body Interrupt is
+   procedure Initialize is
+   begin
+      null;
+   end Initialize;
+end Interrupt;

kernel/interrupt/interrupt.ads

@@ -0,0 +1,3 @@
+package Interrupt is
+   procedure Initialize;
+end Interrupt;

kernel/kernel.adb

@@ -0,0 +1,26 @@
+with CPU;
+with Memory;
+with Console;
+with Scheduler;
+with Interrupt;
+with Timer;
+
+package body Kernel is
+   procedure Start is
+   begin
+      CPU.Initialize;
+      Memory.Initialize;
+      Console.Initialize;
+      Interrupt.Initialize;
+      Timer.Initialize;
+      Scheduler.Initialize;
+
+      Console.Write_Line ("Agila Open Kernel 0.1");
+      Console.Write_Line ("CPU: initialized");
+      Console.Write_Line ("Memory: initialized");
+      Console.Write_Line ("Interrupts: initialized");
+      Console.Write_Line ("Timer: initialized");
+      Console.Write_Line ("Scheduler: initialized");
+      Console.Write_Line ("System ready");
+   end Start;
+end Kernel;

kernel/kernel.ads

@@ -0,0 +1,3 @@
+package Kernel is
+   procedure Start;
+end Kernel;

kernel/main.adb

@@ -0,0 +1,6 @@
+with Kernel;
+
+procedure Main is
+begin
+   Kernel.Start;
+end Main;

kernel/memory/memory.adb

@@ -0,0 +1,6 @@
+package body Memory is
+   procedure Initialize is
+   begin
+      null;
+   end Initialize;
+end Memory;

kernel/memory/memory.ads

@@ -0,0 +1,3 @@
+package Memory is
+   procedure Initialize;
+end Memory;

kernel/scheduler/scheduler.adb

@@ -0,0 +1,6 @@
+package body Scheduler is
+   procedure Initialize is
+   begin
+      null;
+   end Initialize;
+end Scheduler;

kernel/scheduler/scheduler.ads

@@ -0,0 +1,3 @@
+package Scheduler is
+   procedure Initialize;
+end Scheduler;

kernel/timer/timer.adb

@@ -0,0 +1,6 @@
+package body Timer is
+   procedure Initialize is
+   begin
+      null;
+   end Initialize;
+end Timer;

kernel/timer/timer.ads

@@ -0,0 +1,3 @@
+package Timer is
+   procedure Initialize;
+end Timer;