ocaml: Add Guestfs.Errno.errno_EPERM.

libguestfs · Mar 26, 2015 · 6297534 · 6297534
1 parent 0c396a4
commit 6297534
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git 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_EPERM : int
   val errno_ESRCH : int
 end
 
@@ -276,6 +277,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 eperm : unit -> int = \"ocaml_guestfs_get_EPERM\" \"noalloc\"
+  let errno_EPERM = eperm ()
   external esrch : unit -> int = \"ocaml_guestfs_get_ESRCH\" \"noalloc\"
   let errno_ESRCH = esrch ()
 end

diff --git 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_EPERM (value unitv);
 value ocaml_guestfs_get_ESRCH (value unitv);
 
 /* Allocate handles and deal with finalization. */
@@ -448,6 +449,13 @@ ocaml_guestfs_get_ENOTSUP (value unitv)
   return Val_int (ENOTSUP);
 }
 
+/* NB: "noalloc" function. */
+value
+ocaml_guestfs_get_EPERM (value unitv)
+{
+  return Val_int (EPERM);
+}
+
 /* NB: "noalloc" function. */
 value
 ocaml_guestfs_get_ESRCH (value unitv)