2026-03-12 12:08:21 +01:00
|
|
|
module Fat = Mfat.Make (struct
|
|
|
|
|
include Mkernel.Block
|
|
|
|
|
|
|
|
|
|
let read = atomic_read
|
|
|
|
|
let write = atomic_write
|
|
|
|
|
end)
|
|
|
|
|
|
|
|
|
|
include Fat
|
|
|
|
|
|
2026-03-12 13:11:10 +01:00
|
|
|
type entry = Mfat.entry = {
|
|
|
|
|
name: string;
|
|
|
|
|
is_dir: bool;
|
|
|
|
|
size: int32;
|
|
|
|
|
}
|
|
|
|
|
|
2026-03-12 12:08:21 +01:00
|
|
|
type t = Mkernel.Block.t Mfat.t
|
|
|
|
|
|
|
|
|
|
module type FS = sig
|
2026-03-12 12:11:47 +01:00
|
|
|
val t : t
|
2026-03-12 12:08:21 +01:00
|
|
|
end
|