From 8f2dbc8462e531d08306bb281ec2a096d2ef32df Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Thu, 6 Mar 2003 23:22:35 +0000 Subject: [PATCH] long long typemap mods for use with %apply Untested... I don't have ocaml git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4441 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Lib/ocaml/typemaps.i | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/SWIG/Lib/ocaml/typemaps.i b/SWIG/Lib/ocaml/typemaps.i index 5b3af5bb0..2af04a8fa 100644 --- a/SWIG/Lib/ocaml/typemaps.i +++ b/SWIG/Lib/ocaml/typemaps.i @@ -172,18 +172,18 @@ %typemap(memberout) C_NAME { $resunt = C_TO_MZ($1); } -%typemap(in) C_NAME *INPUT (C_NAME temp) { - temp = (C_NAME) MZ_TO_C($input); +%typemap(in) C_NAME *INPUT ($*1_ltype temp) { + temp = ($*1_ltype) MZ_TO_C($input); $1 = &temp; } -%typemap(in,numinputs=0) C_NAME *OUTPUT (C_NAME temp) { +%typemap(in,numinputs=0) C_NAME *OUTPUT ($*1_ltype temp) { $1 = &temp; } %typemap(argout) C_NAME *OUTPUT { swig_result = caml_list_append(swig_result,C_TO_MZ((long)*$1)); } -%typemap(in) C_NAME & (C_NAME temp) { - temp = (C_NAME) MZ_TO_C($input); +%typemap(in) C_NAME & ($*1_ltype temp) { + temp = ($*1_ltype) MZ_TO_C($input); $1 = &temp; } %typemap(argout) C_NAME & {