Author: jasons
Date: Mon Aug 28 03:44:59 2006
New Revision: 437640
URL: http://svn.apache.org/viewvc?rev=437640&view=rev
Log:
fixing fgBooleanValueSpace
Modified:
xerces/c/trunk/swig/interfaces/Perl/typemaps-xmlch.i
Modified: xerces/c/trunk/swig/interfaces/Perl/typemaps-xmlch.i
URL:
http://svn.apache.org/viewvc/xerces/c/trunk/swig/interfaces/Perl/typemaps-xmlch.i?rev=437640&r1=437639&r2=437640&view=diff
==============================================================================
--- xerces/c/trunk/swig/interfaces/Perl/typemaps-xmlch.i (original)
+++ xerces/c/trunk/swig/interfaces/Perl/typemaps-xmlch.i Mon Aug 28 03:44:59
2006
@@ -61,7 +61,18 @@
%}
// varout typemap (for global variables)
+// useful for XMLUni constants
%typemap(varout) XMLCh[] %{
sv_setsv((SV*)$result, XMLString2Perl($1));
%}
+// fgBooleanValueSpace is an array of XMLCh*
+%typemap(varout) XMLCh[][8] %{
+ AV *myav = newAV();
+ for (int i=0;i<4;i++) {
+ av_push(myav, XMLString2Perl($1[i]));
+ }
+
+ SV* rv = newRV((SV*)myav);
+ sv_setsv((SV*)$result, rv);
+%}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
