SquashFS compressed filesystem reader in pure OCaml
Upgrade to ocamlformat 0.29.0; fix csvt/sexpt streaming; reformat
- Update .ocamlformat to 0.29.0 across all 591 files
- csvt: reuse single Buffer.t for field reads (no alloc per field)
- sexpt: Obj members decoded from stream into Dict, typed Variant GADT
- Reformat all source files for 0.29.0
+5
-4
+4
-3
lib/squashfs.ml
+4
-3
lib/squashfs.ml
···
1191
1191
let error = ref None in
1192
1192
let entries = ref [] in
1193
1193
for _ = 1 to count do
1194
-
if !error = None then begin
1195
-
if !pos + 4 > data_len then error := Some "xattr entry header truncated"
1194
+
if !error = None then
1195
+
begin if !pos + 4 > data_len then
1196
+
error := Some "xattr entry header truncated"
1196
1197
else begin
1197
1198
let entry_type = u16_le data !pos in
1198
1199
let name_size = u16_le data (!pos + 2) in
···
1221
1222
end
1222
1223
end
1223
1224
end
1224
-
end
1225
+
end
1225
1226
done;
1226
1227
match !error with Some e -> Error e | None -> Ok (List.rev !entries)
1227
1228