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 2006/08/28 12:42:10 UTC
svn commit: r437636 - /xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm
Author: jasons
Date: Mon Aug 28 03:42:10 2006
New Revision: 437636
URL: http://svn.apache.org/viewvc?rev=437636&view=rev
Log:
added DOMStringList::to_list()
Modified:
xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm
Modified: xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm?rev=437636&r1=437635&r2=437636&view=diff
==============================================================================
--- xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm (original)
+++ xerces/c/trunk/swig/interfaces/Perl/Xerces-extra.pm Mon Aug 28 03:42:10 2006
@@ -641,6 +641,17 @@
return @list;
}
+package XML::Xerces::DOMStringList;
+# convert the StringList to a perl list
+sub to_list {
+ my $self = shift;
+ my @list;
+ for (my $i=0;$i<$self->getLength();$i++) {
+ push(@list,$self->item($i));
+ }
+ return @list;
+}
+
package XML::Xerces::Attributes;
sub to_hash {
my $self = shift;
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@xerces.apache.org
For additional commands, e-mail: commits-help@xerces.apache.org