From 5d4e4e7ecaafee6ad8c445f069b3b4c606ba013c Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Mon, 31 Mar 2014 14:20:28 +0100
Subject: [PATCH] ocaml: Add ESRCH to Guestfs.Errno module.

---
 generator/ocaml.ml | 3 +++
 ocaml/guestfs-c.c  | 8 ++++++++
 2 files changed, 11 insertions(+)

diff --git a/generator/ocaml.ml b/generator/ocaml.ml
index 29a9eb6a4..bd27f7a6a 100644
--- a/generator/ocaml.ml
+++ b/generator/ocaml.ml
@@ -133,6 +133,7 @@ val last_errno : t -> int
 
 module Errno : sig
   val errno_ENOTSUP : int
+  val errno_ESRCH : int
 end
 
 ";
@@ -266,6 +267,8 @@ external last_errno : t -> int = \"ocaml_guestfs_last_errno\"
 module Errno = struct
   external enotsup : unit -> int = \"ocaml_guestfs_get_ENOTSUP\" \"noalloc\"
   let errno_ENOTSUP = enotsup ()
+  external esrch : unit -> int = \"ocaml_guestfs_get_ESRCH\" \"noalloc\"
+  let errno_ESRCH = esrch ()
 end
 
 (* Give the exceptions names, so they can be raised from the C code. *)
diff --git a/ocaml/guestfs-c.c b/ocaml/guestfs-c.c
index bd1ffb72b..7fbe22180 100644
--- a/ocaml/guestfs-c.c
+++ b/ocaml/guestfs-c.c
@@ -64,6 +64,7 @@ value ocaml_guestfs_delete_event_callback (value gv, value eh);
 value ocaml_guestfs_event_to_string (value events);
 value ocaml_guestfs_last_errno (value gv);
 value ocaml_guestfs_get_ENOTSUP (value unitv);
+value ocaml_guestfs_get_ESRCH (value unitv);
 
 /* Allocate handles and deal with finalization. */
 static void
@@ -446,3 +447,10 @@ ocaml_guestfs_get_ENOTSUP (value unitv)
 {
   return Val_int (ENOTSUP);
 }
+
+/* NB: "noalloc" function. */
+value
+ocaml_guestfs_get_ESRCH (value unitv)
+{
+  return Val_int (ESRCH);
+}