From 9f8a09ed743cedd9547bf0661d518647966ab114 Mon Sep 17 00:00:00 2001 From: Lorry Tar Creator Date: Tue, 18 Aug 2009 20:56:02 +0000 Subject: Imported from /srv/lorry/lorry-area/swig-tarball/swig-1.3.40.tar.gz. --- Examples/ocaml/string_from_ptr/example_prog.ml | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 Examples/ocaml/string_from_ptr/example_prog.ml (limited to 'Examples/ocaml/string_from_ptr/example_prog.ml') diff --git a/Examples/ocaml/string_from_ptr/example_prog.ml b/Examples/ocaml/string_from_ptr/example_prog.ml new file mode 100644 index 0000000..8069dc2 --- /dev/null +++ b/Examples/ocaml/string_from_ptr/example_prog.ml @@ -0,0 +1,23 @@ +(* foo_program.ml -- the program using foolib *) + +open Swig (* Give access to the swig library *) +open Foolib (* This is the name of your swig output *) + +let results = _foo '() (* Function names are prefixed with _ in order to make + them lex as identifiers in ocaml. Consider that + uppercase identifiers are module names in ocaml. + NOTE: the '() syntax is part of swigp4. You can do: + let results = _foo C_void *) + +(* Since your function has a return value in addition to the string output, + you'll need to match them as a list *) + +let result_string = + match results with + C_list [ C_string result_string ; C_int 0 ] -> (* The return value is + last when out arguments appear, but this too can be customized. + We're also checking that the function succeeded. *) + result_string + | _ -> raise (Failure "Expected string, int reply from _foo") + +let _ = print_endline result_string -- cgit v1.2.1