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
Comment out BuildRequires: perl(Module::Build::Compat)
[ZOOM-Perl-moved-to-github.git]
/
typemap
diff --git
a/typemap
b/typemap
index
956a2b5
..
7bd56b6
100644
(file)
--- a/
typemap
+++ b/
typemap
@@
-1,5
+1,3
@@
-# $Id: typemap,v 1.4 2005-10-13 16:01:48 mike Exp $
-
ZOOM_connection T_PTROBJ
ZOOM_connection * T_PTROBJ
ZOOM_options T_PTROBJ
ZOOM_connection T_PTROBJ
ZOOM_connection * T_PTROBJ
ZOOM_options T_PTROBJ
@@
-28,6
+26,7
@@
const __sigset_t * T_PTROBJ
# longer have to discard the "const" qualfiers from the arguments to
# the functions in the .xs file.
const char * T_PV
# longer have to discard the "const" qualfiers from the arguments to
# the functions in the .xs file.
const char * T_PV
+opaquechar * T_OPAQUECHAR
const char ** T_PTROBJ
const struct timespec * T_PTROBJ
div_t T_OPAQUE_STRUCT
const char ** T_PTROBJ
const struct timespec * T_PTROBJ
div_t T_OPAQUE_STRUCT
@@
-50,7
+49,8
@@
unsigned short int * T_PTROBJ
void ( * __func ) ( int __status, void * __arg ) T_PTROBJ
void ( * __func ) ( void ) T_PTROBJ
void ** T_PTROBJ
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}\")) {
INPUT
T_OPAQUE_STRUCT
if (sv_derived_from($arg, \"${ntype}\")) {
@@
-64,7
+64,13
@@
T_OPAQUE_STRUCT
}
else
croak(\"$var is not of type ${ntype}\")
}
else
croak(\"$var is not of type ${ntype}\")
-#############################################################################
+T_OPAQUECHAR
+ { STRLEN _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));
+T_DATACHUNK
+ sv_setpvn($arg, $var.data, $var.len);