projects
/
ZOOM-Perl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New
[ZOOM-Perl-moved-to-github.git]
/
typemap
diff --git
a/typemap
b/typemap
index
85ae80d
..
3ceed40
100644
(file)
--- a/
typemap
+++ b/
typemap
@@
-1,4
+1,4
@@
-# $Id: typemap,v 1.5 2005-10-17 13:48:08 mike Exp $
+# $Id: typemap,v 1.7 2006-11-03 09:37:57 mike Exp $
ZOOM_connection T_PTROBJ
ZOOM_connection * T_PTROBJ
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
void ( * __func ) ( void ) T_PTROBJ
void ** T_PTROBJ
struct datachunk T_DATACHUNK
-#############################################################################
+# ---------------------------------------------------------------------------
INPUT
T_OPAQUE_STRUCT
if (sv_derived_from($arg, \"${ntype}\")) {
INPUT
T_OPAQUE_STRUCT
if (sv_derived_from($arg, \"${ntype}\")) {
@@
-67,10
+67,10
@@
T_OPAQUE_STRUCT
else
croak(\"$var is not of type ${ntype}\")
T_OPAQUECHAR
else
croak(\"$var is not of type ${ntype}\")
T_OPAQUECHAR
- int _unused_len;
- $var = ($type) SvPV($arg, _unused_len);
+ { unsigned _unused_len;
+ $var = ($type) SvPV($arg, _unused_len); }
-#############################################################################
+# ---------------------------------------------------------------------------
OUTPUT
T_OPAQUE_STRUCT
sv_setref_pvn($arg, \"${ntype}\", (char *)&$var, sizeof($var));
OUTPUT
T_OPAQUE_STRUCT
sv_setref_pvn($arg, \"${ntype}\", (char *)&$var, sizeof($var));