-# $Id: typemap,v 1.6 2005-12-06 23:15:56 mike Exp $
-
ZOOM_connection T_PTROBJ
ZOOM_connection * T_PTROBJ
ZOOM_options 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
- { unsigned _unused_len;
+ { STRLEN _unused_len;
$var = ($type) SvPV($arg, _unused_len); }
-#############################################################################
+# ---------------------------------------------------------------------------
OUTPUT
T_OPAQUE_STRUCT
sv_setref_pvn($arg, \"${ntype}\", (char *)&$var, sizeof($var));