diff options
| author | William S Fulton <wsf@fultondesigns.co.uk> | 2019-01-31 07:35:11 +0000 |
|---|---|---|
| committer | William S Fulton <wsf@fultondesigns.co.uk> | 2019-01-31 07:35:11 +0000 |
| commit | 054a85c5463cb3ceee61e83ac4d5dcbca975b149 (patch) | |
| tree | a39a5fd4499131eba38b5abada7d2ca8dfeaa771 /Lib/ocaml | |
| parent | 1069cfbfd534764686f694badc49fcc7eb5c47da (diff) | |
| parent | 85860c0a61c3be2a032a9fc935dffff66586f2a9 (diff) | |
| download | swig-054a85c5463cb3ceee61e83ac4d5dcbca975b149.tar.gz | |
Merge branch 'ZackerySpytz-OCaml-char_binary-test'
* ZackerySpytz-OCaml-char_binary-test:
[OCaml] Fix the char_binary test for OCaml
Diffstat (limited to 'Lib/ocaml')
| -rw-r--r-- | Lib/ocaml/typemaps.i | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Lib/ocaml/typemaps.i b/Lib/ocaml/typemaps.i index 5a1d50c6f..38ec10066 100644 --- a/Lib/ocaml/typemaps.i +++ b/Lib/ocaml/typemaps.i @@ -334,6 +334,10 @@ SIMPLE_MAP(unsigned long long,caml_val_ulong,caml_long_val); %swig_enum_out(varout) %swig_enum_out(directorin) +%typemap(in) (char *STRING, int LENGTH), (char *STRING, size_t LENGTH) { + $1 = ($1_ltype) caml_string_val($input); + $2 = ($2_ltype) caml_string_len($input); +} /* Array reference typemaps */ %apply SWIGTYPE & { SWIGTYPE ((&)[ANY]) } |