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

daemon: implement OptString for OCaml APIs

Browse Source 
It is already considered as string option, so create an option string
value in the C glue for OptString parameters.
This commit is contained in:
Pino Toscano
2019-05-27 19:03:12 +02:00
parent 8eb696f827
commit 8e51e9078f
1 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
generator/daemon.ml
View File

@@ -600,6 +600,22 @@ let generate_daemon_caml_stubs () =
#include \"actions.h\"
#include \"daemon-c.h\"
static CAMLprim value
Val_optstring (const char *s)
{
CAMLparam0 ();
CAMLlocal2 (optv, v);
if (s) { /* Return Some val */
v = caml_copy_string (s);
optv = caml_alloc (1, 0);
Field (optv, 0) = v;
} else /* Return None */
optv = Val_int (0);
CAMLreturn (optv);
}
";
(* Implement code for returning structs and struct lists. *)
@@ -797,7 +813,7 @@ let generate_daemon_caml_stubs () =
| String ((Mountable|Mountable_or_Path), n) ->
pr "guestfs_int_daemon_copy_mountable (%s)" n
| String _ -> assert false
| OptString _ -> assert false
| OptString n -> pr "Val_optstring (%s)" n
| StringList _ -> assert false
| BufferIn _ -> assert false
| Pointer _ -> assert false