X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=src%2Fgenerator.ml;h=535c412b23c2bd1f80963a31ad22f3770c6dd859;hb=540da0bc1999deda670e846b8db7291826a1a728;hp=50ae91d07d4592b362f54d01cb4806b203ed24ea;hpb=b68c030adfdbefe65bc9ecdd673844c01bddb32a;p=libguestfs.git

diff --git a/src/generator.ml b/src/generator.ml
index 50ae91d..535c412 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -4443,6 +4443,16 @@ Note that only MBR (old DOS-style) partitions have type bytes.
 You will get undefined results for other partition table
 types (see C<guestfs_part_get_parttype>).");
 
+  ("checksum_device", (RString "checksum", [String "csumtype"; Device "device"]), 237, [],
+   [InitISOFS, Always, TestOutput (
+      [["checksum_device"; "md5"; "/dev/sdd"]],
+      (Digest.to_hex (Digest.file "images/test.iso")))],
+   "compute MD5, SHAx or CRC checksum of the contents of a device",
+   "\
+This call computes the MD5, SHAx or CRC checksum of the
+contents of the device named C<device>.  For the types of
+checksums supported see the C<guestfs_checksum> command.");
+
 ]
 
 let all_functions = non_daemon_functions @ daemon_functions