You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2002/04/25 03:54:35 UTC
cvs commit: xml-xerces/perl typemaps.i
jasons 02/04/24 18:54:35
Modified: perl typemaps.i
Log:
* typemaps.i (Repository):
something odd happened to the SWIGTYPE *DYNAMIC typemap, so I had
to add it in manually
Revision Changes Path
1.11 +8 -2 xml-xerces/perl/typemaps.i
Index: typemaps.i
===================================================================
RCS file: /home/cvs/xml-xerces/perl/typemaps.i,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- typemaps.i 27 Mar 2002 01:21:56 -0000 1.10
+++ typemaps.i 25 Apr 2002 01:54:35 -0000 1.11
@@ -151,7 +151,7 @@
$1 = new XMLByte[$2];
memcpy($1, xmlbytes, $2);
} else {
- croak("Type error in argument 2 of $name, Expected perl-string.");
+ croak("Type error in argument 2 of $symname, Expected perl-string.");
XSRETURN(1);
}
}
@@ -172,7 +172,13 @@
// IDOM_Node*
//
-%typemap(out) IDOM_Node * = SWIGTYPE *DYNAMIC;
+%typemap(out) IDOM_Node* {
+ swig_type_info *ty = SWIG_TypeDynamicCast($1_descriptor, (void **) &$1);
+ ST(argvi) = sv_newmortal();
+ SWIG_MakePtr(ST(argvi++), (void *) result, ty);
+}
+
+// %typemap(out) IDOM_Node * = SWIGTYPE *DYNAMIC;
DYNAMIC_CAST(SWIGTYPE_p_IDOM_Node, IDOM_Node_dynamic_cast);
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org