X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=typemap;h=3ceed40a596ebbf81c72fab91b6ae7829d30c64f;hb=daa856612ed73ae1b23bf99b2441cdb1327e197f;hp=d0f7e0be974c04ac493ba24dba76a32f6c295822;hpb=cf038f4c5128dbdf20f8b1093839259e8f620ddc;p=ZOOM-Perl-moved-to-github.git diff --git a/typemap b/typemap index d0f7e0b..3ceed40 100644 --- a/typemap +++ b/typemap @@ -1,4 +1,4 @@ -# $Id: typemap,v 1.6 2005-12-06 23:15:56 mike Exp $ +# $Id: typemap,v 1.7 2006-11-03 09:37:57 mike Exp $ ZOOM_connection T_PTROBJ ZOOM_connection * T_PTROBJ @@ -52,7 +52,7 @@ void ( * __func ) ( int __status, void * __arg ) T_PTROBJ void ( * __func ) ( void ) T_PTROBJ void ** T_PTROBJ struct datachunk T_DATACHUNK -############################################################################# +# --------------------------------------------------------------------------- INPUT T_OPAQUE_STRUCT if (sv_derived_from($arg, \"${ntype}\")) { @@ -70,7 +70,7 @@ T_OPAQUECHAR { unsigned _unused_len; $var = ($type) SvPV($arg, _unused_len); } -############################################################################# +# --------------------------------------------------------------------------- OUTPUT T_OPAQUE_STRUCT sv_setref_pvn($arg, \"${ntype}\", (char *)&$var, sizeof($var));