blob: 43b6ceff638eb2f2d8f5903556ea6cb52bda6f16 [file] [log] [blame]
with Interfaces.C;
package FS.FILO is
Procedure Read
(Buffer : in out Buffer_Type;
Offset : in Natural;
Success : out Boolean);
private
function C_devread
(sector : Interfaces.C.unsigned_long;
byte_offset : Interfaces.C.unsigned_long;
byte_len : Interfaces.C.unsigned_long;
buf : ... )
return Interfaces.C.int
with
SPARK_Mode => Off,
Import => True,
Conversion => C;
end FS.FILO;
-- int mount (void)
-- int read (char* buf, int len)
-- int dir (char *dirname)
-- void close (void) // not implemented