Obsoleted by new material in IDSoftwareRelease2010

[ZOOM-Perl-moved-to-github.git] / typemap

diff --git a/typemap b/typemap
index d0f7e0b..7bd56b6 100644 (file)
--- a/typemap
+++ b/typemap
@@ -1,5 +1,3 @@
-# $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
@@ -52,7 +50,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}\")) {
@@ -67,10 +65,10 @@ T_OPAQUE_STRUCT
        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));