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

ocaml: Add Guestfs.Errno.errno_EPERM.

Browse Source
This commit is contained in:
Richard W.M. Jones
2015-03-26 09:16:44 +00:00
parent 0c396a4bce
commit 6297534091
2 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
generator/ocaml.ml
View File

@@ -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

8
ocaml/guestfs-c.c
View File

@@ -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)