with Interfaces; | |
with FS.FILO.Dev; | |
package body FS.FILO.Ext2 is | |
procedure Mount (Success : out Boolean) | |
is | |
begin | |
Success := False; | |
end Mount; | |
procedure Open (File_Path : String; Success : out Boolean) | |
is | |
begin | |
Success := False; | |
end Open; | |
procedure Close is null; | |
procedure Read (Buf : out Buffer_Type; Len : out Natural) | |
is | |
begin | |
Buf := (others => 16#00#); | |
Len := 0; | |
end Read; | |
end FS.FILO.Ext2; |