Nico Huber | 1d7727f | 2023-11-30 15:58:46 +0100 | [diff] [blame] | 1 | with Interfaces; |
2 | |||||
3 | with FS.FILO.Dev; | ||||
4 | |||||
5 | package body FS.FILO.Ext2 is | ||||
6 | |||||
7 | procedure Mount (Success : out Boolean) | ||||
8 | is | ||||
9 | begin | ||||
10 | Success := False; | ||||
11 | end Mount; | ||||
12 | |||||
13 | procedure Open (File_Path : String; Success : out Boolean) | ||||
14 | is | ||||
15 | begin | ||||
16 | Success := False; | ||||
17 | end Open; | ||||
18 | |||||
19 | procedure Close is null; | ||||
20 | |||||
21 | procedure Read (Buf : out Buffer_Type; Len : out Natural) | ||||
22 | is | ||||
23 | begin | ||||
24 | Buf := (others => 16#00#); | ||||
25 | Len := 0; | ||||
26 | end Read; | ||||
27 | |||||
28 | end FS.FILO.Ext2; |