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 2001/10/06 08:17:15 UTC
cvs commit: xml-xerces/perl typemaps.i
jasons 01/10/05 23:17:15
Modified: perl typemaps.i
Log:
* typemaps.i (Repository):
removed a SWIG 1.1 #ifdef
added const XMLByte* const srcDocBytes
Revision Changes Path
1.2 +2 -5 xml-xerces/perl/typemaps.i
Index: typemaps.i
===================================================================
RCS file: /home/cvs/xml-xerces/perl/typemaps.i,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- typemaps.i 2001/09/16 15:17:06 1.1
+++ typemaps.i 2001/10/06 06:17:15 1.2
@@ -568,17 +568,14 @@
XMLByte *xmlbytes = (XMLByte *)SvPV( $source, length );
$target = new XMLByte[length];
memcpy($target, xmlbytes, length);
-#ifdef SWIG_1_1
- _arg1 = length; // MAJOR KLUDGE -- SHOULDN'T HAVE TO PASS FROM PERL -- CALCULATED AUTOMATICALLY
-#else
arg1 = length; // MAJOR KLUDGE -- SHOULDN'T HAVE TO PASS FROM PERL -- CALCULATED AUTOMATICALLY
-#endif
} else {
croak("Type error in argument 2 of $name, Expected perl-string.");
XSRETURN(1);
}
}
%typemap(perl5, in) const XMLByte *srcDocBytes = XMLByte *srcDocBytes;
+%typemap(perl5, in) const XMLByte* const srcDocBytes = XMLByte *srcDocBytes;
/* PERL SHOULD IGNORE THIS ARGUMENT -- CALCULATE IN KLUDGE ABOVE FOR MemBufInputSource */
%typemap(perl5, ignore) unsigned int byteCount {
@@ -591,7 +588,7 @@
%typemap(perl5, ignore) const bool adoptBuffer = bool adoptBuffer;
/*
- * FOR perlErrorHandler MEMBER FUNCTIONS, SO PERL SCALAR DOESN'T GET WRAPPED
+ * FOR Perl*Handler MEMBER FUNCTIONS, SO PERL SCALAR DOESN'T GET WRAPPED
* BY SWIG
*/
%typemap(perl5, in) SV * {
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org