From 755a3e97320f5c39237f277ff68bcd495c1b9eb1 Mon Sep 17 00:00:00 2001
From: Jason Edward Stewart <jasons@apache.org>
Date: Mon, 28 Aug 2006 10:44:59 +0000
Subject: [PATCH] fixing fgBooleanValueSpace
git-svn-id: https://svn.apache.org/repos/asf/xerces/c/trunk@437640 13f79535-47bb-0310-9956-ffa450edef68
---
swig/interfaces/Perl/typemaps-xmlch.i | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/swig/interfaces/Perl/typemaps-xmlch.i b/swig/interfaces/Perl/typemaps-xmlch.i
index a873968e4..423089319 100644
--- a/swig/interfaces/Perl/typemaps-xmlch.i
+++ b/swig/interfaces/Perl/typemaps-xmlch.i
@@ -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);
+%}
--
GitLab