1 (* 'df' command for virtual domains.
4 * Support for Linux swap partitions.
7 (* Int64 operators for convenience. *)
10 let ( *^ ) = Int64.mul
13 let probe_swap target part_type fd start size =
15 Virt_df.swap_name = "Linux swap";
16 swap_block_size = 4096L; (* XXX *)
17 swap_blocks_total = size *^ 512L /^ 4096L;
20 (* Register with main code. *)
23 [ 0x82 ] (* Partition type. *)