Test env to develop FILO filesystem drivers in Ada
diff --git a/src/fs-filo.adb b/src/fs-filo.adb
new file mode 100644
index 0000000..3280b34
--- /dev/null
+++ b/src/fs-filo.adb
@@ -0,0 +1,22 @@
+package body FS.FILO is
+
+ procedure Read
+ (Buffer : in out Buffer_Type;
+ Offset : in Natural;
+ Bytes_Read: out Natural)
+ is
+ Sector_Size : constant Natural := 512;
+ Sector : constant Interfaces.C.unsigned_long := Offset / Sector_Size;
+ Byte_Offset : constant Interfaces.C.unsigned_long := Offset rem Sector_Size;
+ Byte_Len : constant Interfaces.C.unsigned_long := Buffer'Length;
+ begin
+
+ Bytes_Read := C_devread
+ (sector => Sector,
+ byte_offset => Byte_Offset,
+ byte_len => Byte_Len,
+ buf => Buffer'Address);
+ end Read;
+
+end FS.FILO;
+