mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

daemon: Reimplement ‘nr_devices’ API in OCaml.

Browse Source
This commit is contained in:
Richard W.M. Jones
2017-06-03 14:56:57 +01:00
parent c37c8e770d
commit 90c6bffcdd
4 changed files with 5 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
daemon/devsparts.ml
View File

@@ -89,6 +89,8 @@ and add_partitions dev =
let parts = List.filter (fun part -> String.is_prefix part dev) parts in
List.map ((^) "/dev/") parts
let nr_devices () = List.length (list_devices ())
let part_to_dev part =
let dev, part = split_device_partition part in
if part = 0 then