Block device abstraction for OCaml 5 with Eio direct-style I/O and Bytesrw integration
fix(lint): resolve E305 module naming convention across packages
Rename CamelCase internal modules to Snake_case per OCaml convention:
- ocaml-hap: TlvType→Tlv_type, HapError→Hap_error, CharType→Char_type
- ocaml-cookeio: SameSite→Same_site, DateParser→Date_parser
- ocaml-claudeio: PreToolUse→Pre_tool_use, PostToolUse→Post_tool_use,
UserPromptSubmit→User_prompt_submit, SubagentStop→Subagent_stop,
PreCompact→Pre_compact (wire format strings preserved)
- irmin: StringMap→String_map, PathSet→Path_set
- ocaml-block: ReadOnly→Read_only, WithCrc→With_crc
+6
-6
+6
-6
lib/block.ml
+6
-6
lib/block.ml
···
128
128
T { state; impl = (module Memory) }
129
129
130
130
(* Read-only wrapper *)
131
-
module ReadOnly = struct
131
+
module Read_only = struct
132
132
type state = { inner : t }
133
133
134
134
let info t =
···
142
142
end
143
143
144
144
let read_only t =
145
-
let state = { ReadOnly.inner = t } in
146
-
T { state; impl = (module ReadOnly) }
145
+
let state = { Read_only.inner = t } in
146
+
T { state; impl = (module Read_only) }
147
147
148
148
let of_string ~sector_size data =
149
149
let len = String.length data in
···
261
261
T { state; impl = (module Sub) }
262
262
263
263
(* CRC32C wrapper *)
264
-
module WithCrc = struct
264
+
module With_crc = struct
265
265
type state = { inner : t; data_size : int }
266
266
267
267
let crc32c data =
···
335
335
let i = info t in
336
336
let data_size = i.sector_size - 4 in
337
337
if data_size < 1 then invalid_arg "sector_size too small for CRC";
338
-
let state = { WithCrc.inner = t; data_size } in
339
-
T { state; impl = (module WithCrc) }
338
+
let state = { With_crc.inner = t; data_size } in
339
+
T { state; impl = (module With_crc) }
340
340
341
341
(* Bytesrw integration *)
342
342
let to_reader t ~offset ~length =