mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

ocaml: Fix bindings when a function takes more than 10 parameters.

Browse Source 
If any function had more than 10 required + optional parameters, OCaml
bindings could not be generated.  Currently there are no such
functions.
(cherry picked from commit 29172e7c48)
This commit is contained in:
Richard W.M. Jones
2011-11-09 17:48:42 +00:00
parent 3ccf96feb6
commit d34ebcbf41
1 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
generator/generator_ocaml.ml
View File

@@ -440,13 +440,23 @@ copy_table (char * const * argv)
pr ")\n";
pr "{\n";
(* CAMLparam<N> can only take up to 5 parameters. Further parameters
* have to be passed in groups of 5 to CAMLxparam<N> calls.
*)
(match params with
| [p1; p2; p3; p4; p5] ->
pr " CAMLparam5 (%s);\n" (String.concat ", " params)
| p1 :: p2 :: p3 :: p4 :: p5 :: rest ->
pr " CAMLparam5 (%s);\n" (String.concat ", " [p1; p2; p3; p4; p5]);
pr " CAMLxparam%d (%s);\n"
(List.length rest) (String.concat ", " rest)
let rec loop = function
| [] -> ()
| p1 :: p2 :: p3 :: p4 :: p5 :: rest ->
pr " CAMLxparam5 (%s);\n"
(String.concat ", " [p1; p2; p3; p4; p5]);
loop rest
| rest ->
pr " CAMLxparam%d (%s);\n"
(List.length rest) (String.concat ", " rest)
in
loop rest
| ps ->
pr " CAMLparam%d (%s);\n" (List.length ps) (String.concat ", " ps)
);