SquashFS compressed filesystem reader in pure OCaml
ocaml-squashfs: reflow squashfs_writer.mli example after dune fmt
Pure formatting: dune fmt outdents by 2 spaces and pulls the
multi-line add_file binding into its own block.
+16
-14
+16
-14
lib/squashfs_writer.mli
+16
-14
lib/squashfs_writer.mli
···
11
11
{2 Example}
12
12
13
13
{[
14
-
(* Create a simple squashfs image. Paths are relative -- absolute paths
14
+
(* Create a simple squashfs image. Paths are relative -- absolute paths
15
15
and ".." are rejected (see {!section-Security_Considerations}). *)
16
-
let fs = Squashfs.Writer.v ()
17
-
let () = Squashfs.Writer.add_directory fs "bin" ~mode:0o755
18
-
let () =
19
-
Squashfs.Writer.add_file fs "bin/hello" ~mode:0o755
20
-
"#!/bin/sh\necho Hello\n"
21
-
let () = Squashfs.Writer.add_symlink fs "bin/hi" "bin/hello"
22
-
let image = Squashfs.Writer.finalize fs
23
-
let () = assert (String.length image > 0)
16
+
let fs = Squashfs.Writer.v ()
17
+
let () = Squashfs.Writer.add_directory fs "bin" ~mode:0o755
18
+
19
+
let () =
20
+
Squashfs.Writer.add_file fs "bin/hello" ~mode:0o755
21
+
"#!/bin/sh\necho Hello\n"
22
+
23
+
let () = Squashfs.Writer.add_symlink fs "bin/hi" "bin/hello"
24
+
let image = Squashfs.Writer.finalize fs
25
+
let () = assert (String.length image > 0)
24
26
]}
25
27
26
28
{2 Compression}
···
29
31
selected at creation time:
30
32
31
33
{[
32
-
(* Only [Gzip] is currently implemented; the others are accepted
34
+
(* Only [Gzip] is currently implemented; the others are accepted
33
35
by [v] but raise on [finalize]. *)
34
-
let make_zstd () =
35
-
let fs = Squashfs.Writer.v ~compression:Squashfs.Writer.Zstd () in
36
-
Squashfs.Writer.add_file fs "data" ~mode:0o644 "payload";
37
-
Squashfs.Writer.finalize fs
36
+
let make_zstd () =
37
+
let fs = Squashfs.Writer.v ~compression:Squashfs.Writer.Zstd () in
38
+
Squashfs.Writer.add_file fs "data" ~mode:0o644 "payload";
39
+
Squashfs.Writer.finalize fs
38
40
]}
39
41
40
42
{2 Security Considerations}