Added some examples.

diff --git a/lib/diskimage.mli b/lib/diskimage.mli
index 113c99b..e3a85b6 100644 (file)
--- a/lib/diskimage.mli
+++ b/lib/diskimage.mli
@@ -18,6 +18,17 @@
  *)
 
 (**
+   {2 Examples}
+
+{[
+  let machine = open_machine "host" ["hda", "/dev/hda"] in
+  let machine = scan_machine machine in
+  (* do what you want with the scan results ... *)
+  close_machine machine
+]}
+*)
+
+(**
    {2 Machine/device model}
 
    The "machine/device model" that we currently understand looks