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

Revert "daemon: implement OptString for OCaml APIs"

Browse Source 
This causes the build to fail, as Val_optstring is still not used by any
generated C glue function.

This reverts commit 8e51e9078f.
This commit is contained in:
Pino Toscano
2019-05-30 09:45:40 +02:00
parent 8e51e9078f
commit ca8f8afcc5
1 changed files with 1 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
generator/daemon.ml
View File

@@ -600,22 +600,6 @@ 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. *)
@@ -813,7 +797,7 @@ Val_optstring (const char *s)
| String ((Mountable|Mountable_or_Path), n) ->
pr "guestfs_int_daemon_copy_mountable (%s)" n
| String _ -> assert false
| OptString n -> pr "Val_optstring (%s)" n
| OptString _ -> assert false
| StringList _ -> assert false
| BufferIn _ -> assert false
| Pointer _ -> assert false