-# $Id: typemap,v 1.5 2005-10-17 13:48:08 mike Exp $
+# $Id: typemap,v 1.8 2007-10-29 11:50:49 mike Exp $
ZOOM_connection T_PTROBJ
ZOOM_connection * T_PTROBJ
void ( * __func ) ( void ) T_PTROBJ
void ** T_PTROBJ
struct datachunk T_DATACHUNK
-#############################################################################
+# ---------------------------------------------------------------------------
INPUT
T_OPAQUE_STRUCT
if (sv_derived_from($arg, \"${ntype}\")) {
else
croak(\"$var is not of type ${ntype}\")
T_OPAQUECHAR
- int _unused_len;
- $var = ($type) SvPV($arg, _unused_len);
+ { STRLEN _unused_len;
+ $var = ($type) SvPV($arg, _unused_len); }
-#############################################################################
+# ---------------------------------------------------------------------------
OUTPUT
T_OPAQUE_STRUCT
sv_setref_pvn($arg, \"${ntype}\", (char *)&$var, sizeof($var));