Imported from /srv/lorry/lorry-area/swig-tarball/swig-1.3.40.tar.gz.HEADswig-1.3.40master

1 files changed, 16 insertions, 0 deletions

diff --git a/Examples/ocaml/string_from_ptr/foolib.i b/Examples/ocaml/string_from_ptr/foolib.i
new file mode 100644
index 0000000..86e0880
--- /dev/null
+++ b/Examples/ocaml/string_from_ptr/foolib.i
@@ -0,0 +1,16 @@
+%module foolib
+%{
+static int foo( char **buf ) {
+  *buf = "string from c";
+  return 0;
+}
+%}
+
+%typemap(in,numinputs=0) char **buf (char *temp) {
+    $1 = &temp;
+}
+%typemap(argout) char **buf {
+    swig_result = caml_list_append(swig_result,caml_val_string((char *)*$1));
+}
+
+int foo( char **buf );