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/09/11 12:08:11 UTC
svn commit: r442160 [8/8] - in /xerces/c/trunk/swig: interfaces/
interfaces/Perl/ perl/ perl/DOM/ perl/Handler/ perl/Transcoder/
perl/samples/ perl/t/
Modified: xerces/c/trunk/swig/perl/samples/DOM2hash.pl
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/samples/DOM2hash.pl?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/samples/DOM2hash.pl (original)
+++ xerces/c/trunk/swig/perl/samples/DOM2hash.pl Mon Sep 11 03:08:07 2006
@@ -15,6 +15,7 @@
#
use XML::Xerces qw(error);
+use XML::Xerces::DOM;
use Getopt::Long;
use Data::Dumper;
use strict;
Modified: xerces/c/trunk/swig/perl/samples/DOMCount.pl
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/samples/DOMCount.pl?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/samples/DOMCount.pl (original)
+++ xerces/c/trunk/swig/perl/samples/DOMCount.pl Mon Sep 11 03:08:07 2006
@@ -64,7 +64,7 @@
######################################################################
use strict;
-use XML::Xerces;
+use XML::Xerces::DOM;
use Getopt::Long;
use Benchmark;
use vars qw(%OPTIONS);
Modified: xerces/c/trunk/swig/perl/samples/DOMCreate.pl
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/samples/DOMCreate.pl?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/samples/DOMCreate.pl (original)
+++ xerces/c/trunk/swig/perl/samples/DOMCreate.pl Mon Sep 11 03:08:07 2006
@@ -25,7 +25,7 @@
use strict;
# use blib;
-use XML::Xerces;
+use XML::Xerces::DOM;
# NOTICE: We must now explicitly call XMLPlatformUtils::Initialize()
# when the module is loaded. Xerces.pm no longer does this.
Modified: xerces/c/trunk/swig/perl/samples/DOMPrint.pl
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/samples/DOMPrint.pl?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/samples/DOMPrint.pl (original)
+++ xerces/c/trunk/swig/perl/samples/DOMPrint.pl Mon Sep 11 03:08:07 2006
@@ -68,7 +68,7 @@
use strict;
# use blib;
-use XML::Xerces;
+use XML::Xerces::DOM;
use Getopt::Long;
use vars qw();
Modified: xerces/c/trunk/swig/perl/samples/validator-dom.pl
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/samples/validator-dom.pl?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/samples/validator-dom.pl (original)
+++ xerces/c/trunk/swig/perl/samples/validator-dom.pl Mon Sep 11 03:08:07 2006
@@ -32,7 +32,7 @@
package main;
use strict;
# use blib;
-use XML::Xerces;
+use XML::Xerces::DOM;
use IO::Handle;
use Getopt::Long;
Added: xerces/c/trunk/swig/perl/t/00dom_module.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/00dom_module.t?view=auto&rev=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/00dom_module.t (added)
+++ xerces/c/trunk/swig/perl/t/00dom_module.t Mon Sep 11 03:08:07 2006
@@ -0,0 +1,33 @@
+# Before `make install' is performed this script should be runnable
+# with `make test'. After `make install' it should work as `perl
+# 00dom_module.t'
+
+END {fail("module loaded") unless $loaded;}
+
+use Carp;
+# use blib;
+use Test::More tests => 3;
+BEGIN { use_ok(XML::Xerces::DOM) };
+
+use vars qw($loaded);
+use strict;
+
+$loaded = 1;
+
+ # NOTICE: We must now explicitly call XMLPlatformUtils::Initialize()
+ # when the module is loaded. Xerces.pm no longer does this.
+ #
+ #
+XML::Xerces::XMLPlatformUtils::Initialize();
+
+pass("module initialized");
+
+ # NOTICE: We must now explicitly call XMLPlatformUtils::Terminate()
+ # when the module is unloaded. Xerces.pm no longer does this for us
+ #
+ #
+XML::Xerces::XMLPlatformUtils::Terminate();
+
+pass("module terminated");
+
+
Added: xerces/c/trunk/swig/perl/t/00module.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/00module.t?view=auto&rev=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/00module.t (added)
+++ xerces/c/trunk/swig/perl/t/00module.t Mon Sep 11 03:08:07 2006
@@ -0,0 +1,33 @@
+# Before `make install' is performed this script should be runnable
+# with `make test'. After `make install' it should work as `perl
+# 00module.t'
+
+END {fail("module loaded") unless $loaded;}
+
+use Carp;
+# use blib;
+use Test::More tests => 3;
+BEGIN { use_ok(XML::Xerces) };
+
+use vars qw($loaded);
+use strict;
+
+$loaded = 1;
+
+ # NOTICE: We must now explicitly call XMLPlatformUtils::Initialize()
+ # when the module is loaded. Xerces.pm no longer does this.
+ #
+ #
+XML::Xerces::XMLPlatformUtils::Initialize();
+
+pass("module initialized");
+
+ # NOTICE: We must now explicitly call XMLPlatformUtils::Terminate()
+ # when the module is unloaded. Xerces.pm no longer does this for us
+ #
+ #
+XML::Xerces::XMLPlatformUtils::Terminate();
+
+pass("module terminated");
+
+
Modified: xerces/c/trunk/swig/perl/t/01utf8.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/01utf8.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/01utf8.t (original)
+++ xerces/c/trunk/swig/perl/t/01utf8.t Mon Sep 11 03:08:07 2006
@@ -1,13 +1,22 @@
+# Before `make install' is performed this script should be runnable
+# with `make test'. After `make install' it should work as `perl
+# UTF8.t'
+
+######################### Begin module loading
+
# use blib;
-use XML::Xerces;
-use Cwd;
+
use Test::More tests => 42;
use vars qw($text);
use utf8;
use lib 't';
use TestUtils qw($PERSONAL_NO_DOCTYPE);
-pass("loaded");
+BEGIN { use_ok("XML::Xerces") };
+
+use strict;
+
+######################### Begin Test
# NOTICE: We must now explicitly call XMLPlatformUtils::Initialize()
# when the module is loaded. Xerces.pm no longer does this.
Modified: xerces/c/trunk/swig/perl/t/Attributes.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/Attributes.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/Attributes.t (original)
+++ xerces/c/trunk/swig/perl/t/Attributes.t Mon Sep 11 03:08:07 2006
@@ -2,38 +2,19 @@
# with `make test'. After `make install' it should work as `perl
# Attributes.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-END {fail() unless $loaded;}
-
-use Carp;
-use blib;
-use XML::Xerces;
+# use blib;
use Test::More tests => 19;
-use Config;
+BEGIN { use_ok("XML::Xerces") };
-use lib 't';
-use TestUtils qw($PERSONAL_FILE_NAME);
-use vars qw($i $loaded);
use strict;
-$loaded = 1;
-$i = 1;
-pass("module loaded");
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
+######################### Begin Test
package MyContentHandler;
use strict;
-use vars qw(@ISA);
-@ISA = qw(XML::Xerces::PerlContentHandler);
+use base qw(XML::Xerces::PerlContentHandler);
sub start_element {
my ($self,$uri,$localname,$qname,$attrs) = @_;
@@ -193,8 +174,7 @@
package MyEntityResolver;
use strict;
-use vars qw(@ISA);
-@ISA = qw(XML::Xerces::PerlEntityResolver);
+use base qw(XML::Xerces::PerlEntityResolver);
sub new {
return bless {}, shift;
Modified: xerces/c/trunk/swig/perl/t/DOMAttr.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMAttr.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMAttr.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMAttr.t Mon Sep 11 03:08:07 2006
@@ -2,29 +2,18 @@
# with `make test'. After `make install' it should work as `perl
# DOMAttr.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail() unless $loaded;}
-
-use Carp;
# use blib;
use utf8;
-use XML::Xerces;
use Test::More tests => 6;
+BEGIN { use_ok("XML::Xerces::DOM") };
use lib 't';
use TestUtils qw($DOM $PERSONAL_FILE_NAME);
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
+######################### Begin Test
eval{$DOM->parse($PERSONAL_FILE_NAME)};
XML::Xerces::error($@) if $@;
@@ -32,18 +21,21 @@
my $doc = $DOM->getDocument();
my $doctype = $doc->getDoctype();
my @persons = $doc->getElementsByTagName('person');
-ok(UNIVERSAL::isa($persons[0],'XML::Xerces::DOMElement'));
+isa_ok($persons[0],'XML::Xerces::DOMElement');
# test getting the attribute node
my $attr = $persons[0]->getAttributeNode('id');
-ok(UNIVERSAL::isa($attr,'XML::Xerces::DOMAttr'));
+isa_ok($attr,'XML::Xerces::DOMAttr');
# test getting the attribute value
-ok($attr->getValue() eq $persons[0]->getAttribute('id'));
+is($attr->getValue(), $persons[0]->getAttribute('id'),
+ 'getValue()');
# test that we can use integers and floats as values for setting attribtes
eval {$attr->setValue(3)};
-ok(!$@);
+ok(!$@,
+ 'setValue() of int');
-eval {$attr->setValue(.03)};
-ok(!$@);
+eval {$attr->setValue(0.03)};
+ok(!$@,
+ 'setValue() of float');
Modified: xerces/c/trunk/swig/perl/t/DOMBuilder.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMBuilder.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMBuilder.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMBuilder.t Mon Sep 11 03:08:07 2006
@@ -7,7 +7,7 @@
# use blib;
use Test::More tests => 12;
-BEGIN{use_ok('XML::Xerces')};
+BEGIN{use_ok('XML::Xerces::DOM')};
use lib 't';
use TestUtils qw($PERSONAL_FILE_NAME);
Modified: xerces/c/trunk/swig/perl/t/DOMConfig.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMConfig.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMConfig.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMConfig.t Mon Sep 11 03:08:07 2006
@@ -7,7 +7,7 @@
# use blib;
use Test::More tests => 20;
-BEGIN{use_ok('XML::Xerces')};
+BEGIN{use_ok('XML::Xerces::DOM')};
use lib 't';
use TestUtils qw($PERSONAL_FILE_NAME);
Modified: xerces/c/trunk/swig/perl/t/DOMCount.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMCount.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMCount.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMCount.t Mon Sep 11 03:08:07 2006
@@ -2,28 +2,18 @@
# with `make test'. After `make install' it should work as `perl
# DOMCount.t
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-END {fail() unless $loaded;}
-
-use Carp;
# use blib;
-use XML::Xerces;
-use Test::More tests => 2;
+use Test::More tests => 1;
use Config;
use lib 't';
use TestUtils qw($SAMPLE_DIR);
-use vars qw($loaded $file);
+use vars qw($file);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
my $document = q[<?xml version="1.0" encoding="UTF-8"?>
<contributors>
@@ -52,6 +42,6 @@
my $output = `$perl -Mblib $SAMPLE_DIR/DOMCount.pl $file 2>/dev/null`;
# print STDERR "Out <$output>\n";
$output =~ /(\d+) elems/;
-ok($1 == 10, 'element count');
+is($1, 10, 'element count');
END {unlink $file;}
Modified: xerces/c/trunk/swig/perl/t/DOMCreate.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMCreate.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMCreate.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMCreate.t Mon Sep 11 03:08:07 2006
@@ -2,25 +2,18 @@
# with `make test'. After `make install' it should work as `perl
# DOMCreate.t'
-######################### We start with some black magic to print on failure.
-
-END {fail() unless $loaded;}
+######################### Begin module loading
use Carp;
# use blib;
-use XML::Xerces;
-use Test::More tests => 2;
+use Test::More tests => 1;
use Config;
use lib 't';
use TestUtils qw($SAMPLE_DIR);
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
<!DOCTYPE contributors SYSTEM "contributors.dtd">
@@ -48,7 +41,7 @@
my $perl = $Config{startperl};
$perl =~ s/^\#!//;
my $cmd = "$perl -Mblib $SAMPLE_DIR/DOMCreate.pl 2>/dev/null";
-print STDERR "Running: $cmd\n";
+# print STDERR "Running: $cmd\n";
my $output = `$cmd`;
is($document, $output,
Modified: xerces/c/trunk/swig/perl/t/DOMDocument.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMDocument.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMDocument.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMDocument.t Mon Sep 11 03:08:07 2006
@@ -2,29 +2,17 @@
# with `make test'. After `make install' it should work as `perl
# DOMDocument.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-END {fail() unless $loaded;}
-
-use Carp;
-
-use blib;
+# use blib;
use utf8;
-use XML::Xerces;
use Test::More tests => 11;
-use Config;
+BEGIN{use_ok('XML::Xerces::DOM')};
use lib 't';
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
# Create a couple of identical test documents
my $document = q[<?xml version="1.0" encoding="UTF-8"?>
Modified: xerces/c/trunk/swig/perl/t/DOMElement.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMElement.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMElement.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMElement.t Mon Sep 11 03:08:07 2006
@@ -2,24 +2,17 @@
# with `make test'. After `make install' it should work as `perl
# DOMElement.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail() unless $loaded;}
-
-use Carp;
use blib;
-use XML::Xerces;
use Test::More tests => 23;
+BEGIN { use_ok("XML::Xerces::DOM") };
use lib 't';
use TestUtils qw($DOM $PERSONAL_FILE_NAME);
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
$DOM->parse($PERSONAL_FILE_NAME);
Modified: xerces/c/trunk/swig/perl/t/DOMEntity.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMEntity.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMEntity.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMEntity.t Mon Sep 11 03:08:07 2006
@@ -2,24 +2,17 @@
# with `make test'. After `make install' it should work as `perl
# DOMEntity.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail() unless $loaded;}
-
-use Carp;
# use blib;
-use XML::Xerces;
use Test::More tests => 4;
+BEGIN { use_ok("XML::Xerces::DOM") };
use lib 't';
use TestUtils qw($DOM);
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
my $document = <<'EOT';
<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>
Modified: xerces/c/trunk/swig/perl/t/DOMException.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMException.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMException.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMException.t Mon Sep 11 03:08:07 2006
@@ -2,32 +2,11 @@
# with `make test'. After `make install' it should work as `perl
# DOMException.t'
-######################### We start with some black magic to print on failure.
-
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-END {fail() unless $loaded;}
-
-use Carp;
# use blib;
-use XML::Xerces;
use Test::More tests => 19;
-use Config;
+BEGIN {use_ok("XML::Xerces::DOM")};
-use lib 't';
-use vars qw($loaded);
use strict;
-
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
-
# NOTICE: We must now explicitly call XMLPlatformUtils::Initialize()
# when the module is loaded. Xerces.pm no longer does this.
Modified: xerces/c/trunk/swig/perl/t/DOMImplementation.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMImplementation.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMImplementation.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMImplementation.t Mon Sep 11 03:08:07 2006
@@ -2,30 +2,23 @@
# with `make test'. After `make install' it should work as `perl
# DOMImplementation.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail("module loaded") unless $loaded;}
-
-use Carp;
# use blib;
use Test::More tests => 6;
-use XML::Xerces;
+BEGIN { use_ok("XML::Xerces::DOM") };
use lib 't';
use TestUtils qw($PERSONAL_FILE_NAME $PERSONAL_NO_DOCTYPE $PERSONAL $DOM);
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
+######################### Begin Test
# NOTICE: We must now explicitly call XMLPlatformUtils::Initialize()
# when the module is loaded. Xerces.pm no longer does this.
#
#
XML::Xerces::XMLPlatformUtils::Initialize();
-
-######################### End of black magic.
my $domImpl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS');
isa_ok($domImpl,"XML::Xerces::DOMImplementation");
Modified: xerces/c/trunk/swig/perl/t/DOMNamedNodeMap.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMNamedNodeMap.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMNamedNodeMap.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMNamedNodeMap.t Mon Sep 11 03:08:07 2006
@@ -2,30 +2,16 @@
# with `make test'. After `make install' it should work as `perl
# DOMNamedNodeMap.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-END {fail() unless $loaded;}
-
-use Carp;
-use XML::Xerces;
use Test::More tests => 15;
+BEGIN { use_ok("XML::Xerces::DOM") };
use lib 't';
use TestUtils qw($DOM);
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
+######################### Begin Test
my $document = <<EOT;
<list>
Modified: xerces/c/trunk/swig/perl/t/DOMNode.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMNode.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMNode.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMNode.t Mon Sep 11 03:08:07 2006
@@ -2,24 +2,15 @@
# with `make test'. After `make install' it should work as `perl
# DOMNode.t'
-######################### We start with some black magic to print on failure.
-
-END {fail() unless $loaded;}
-
-use Carp;
+######################### Begin module loading
# use blib;
use XML::Xerces;
use Test::More tests => 5;
-use Config;
-
-use vars qw($loaded);
+BEGIN { use_ok("XML::Xerces::DOM") };
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
# Create a couple of identical test documents
my $document = q[<?xml version="1.0" encoding="UTF-8"?>
Modified: xerces/c/trunk/swig/perl/t/DOMNodeIterator.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMNodeIterator.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMNodeIterator.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMNodeIterator.t Mon Sep 11 03:08:07 2006
@@ -2,22 +2,14 @@
# with `make test'. After `make install' it should work as `perl
# DOMNodeIterator.t'
-######################### We start with some black magic to print on failure.
-
-END {fail() unless $loaded;}
-
-use Carp;
+######################### Begin module loading
use blib;
-use XML::Xerces;
use Test::More tests => 7;
-use Config;
-
-use vars qw($loaded);
+BEGIN { use_ok("XML::Xerces::DOM") };
use strict;
-$loaded = 1;
-pass("module loaded");
+######################### Begin Test
package MyNodeFilter;
use strict;
@@ -29,8 +21,6 @@
}
package main;
-
-######################### End of black magic.
# Create a couple of identical test documents
my $document = q[<?xml version="1.0" encoding="UTF-8"?>
Modified: xerces/c/trunk/swig/perl/t/DOMNodeList.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMNodeList.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMNodeList.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMNodeList.t Mon Sep 11 03:08:07 2006
@@ -1,43 +1,35 @@
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl DOMNodeList.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail() unless $loaded;}
-
-use Carp;
-use Cwd;
# use blib;
-use XML::Xerces;
use Test::More tests => 10;
+BEGIN { use_ok("XML::Xerces::DOM") };
use lib 't';
use TestUtils qw($DOM $PERSONAL_FILE_NAME);
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
+######################### Begin Test
$DOM->parse( new XML::Xerces::LocalFileInputSource($PERSONAL_FILE_NAME) );
my $doc = $DOM->getDocument();
# test automatic conversion to perl list
my @node_list = $doc->getElementsByTagName('person');
-ok(scalar @node_list == 6);
+is(scalar @node_list, 6,
+ 'automatic conversion from NodeList to perl array');
# test that we can still get a DOMNodeList object
my $dom_node_list = $doc->getElementsByTagName('person');
-ok(UNIVERSAL::isa($dom_node_list,'XML::Xerces::DOMNodeList'));
+isa_ok($dom_node_list,'XML::Xerces::DOMNodeList');
-ok($dom_node_list->getLength() == scalar @node_list);
+is($dom_node_list->getLength(), scalar @node_list,
+ 'NodeList length eq to perl array length');
+# this test's the overloaded == operator for DOMNode
for (my $i=0;$i<scalar @node_list;$i++) {
- ok($node_list[$i] == $dom_node_list->item($i));
+ ok($node_list[$i] == $dom_node_list->item($i),
+ "perl array element $i is the same Node as NodeList element $i");
}
Modified: xerces/c/trunk/swig/perl/t/DOMParser.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMParser.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMParser.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMParser.t Mon Sep 11 03:08:07 2006
@@ -2,25 +2,18 @@
# with `make test'. After `make install' it should work as `perl
# DOMParser.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail() unless $loaded;}
-
-use Carp;
# use blib;
-use XML::Xerces qw(error);
use Test::More tests => 11;
-use Config;
+BEGIN { use_ok("XML::Xerces::DOM") };
use lib 't';
use TestUtils qw($PERSONAL_FILE_NAME);
-use vars qw($loaded $error);
+use vars qw($error);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<contributors>
Modified: xerces/c/trunk/swig/perl/t/DOMPrint.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMPrint.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMPrint.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMPrint.t Mon Sep 11 03:08:07 2006
@@ -2,32 +2,18 @@
# with `make test'. After `make install' it should work as `perl
# DOMPrint.t
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-END {fail() unless $loaded;}
-
-use Carp;
# use blib;
-use XML::Xerces;
-use Test::More tests => 2;
+use Test::More tests => 1;
use Config;
use lib 't';
use TestUtils qw($SAMPLE_DIR);
-use vars qw($loaded $file);
+use vars qw($file);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
+######################### Begin Test
my $document = q[<?xml version="1.0" encoding="iso-8859-1" standalone="yes" ?>
<contributors>
Added: xerces/c/trunk/swig/perl/t/DOMStringList.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMStringList.t?view=auto&rev=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMStringList.t (added)
+++ xerces/c/trunk/swig/perl/t/DOMStringList.t Mon Sep 11 03:08:07 2006
@@ -0,0 +1,58 @@
+# Before `make install' is performed this script should be runnable
+# with `make test'. After `make install' it should work as `perl
+# DOMStringList.t'
+
+######################### Begin module loading
+
+# use blib;
+use Test::More tests => 20;
+
+BEGIN{use_ok('XML::Xerces::DOM')};
+
+use strict;
+
+######################### Begin Test
+
+my $impl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS');
+my $DOM = $impl->createLSParser($XML::Xerces::DOMImplementationLS::MODE_SYNCHRONOUS,'');
+my $conf = $DOM->getDomConfig();
+isa_ok($conf, 'XML::Xerces::DOMConfiguration');
+
+my @param_names = ($XML::Xerces::XMLUni::fgDOMErrorHandler,
+ $XML::Xerces::XMLUni::fgDOMSchemaType,
+ $XML::Xerces::XMLUni::fgDOMSchemaLocation,
+ $XML::Xerces::XMLUni::fgDOMCanonicalForm,
+ $XML::Xerces::XMLUni::fgDOMCDATASections,
+ $XML::Xerces::XMLUni::fgDOMComments,
+ $XML::Xerces::XMLUni::fgDOMDatatypeNormalization,
+ $XML::Xerces::XMLUni::fgDOMWRTDiscardDefaultContent,
+ $XML::Xerces::XMLUni::fgDOMEntities,
+ $XML::Xerces::XMLUni::fgDOMInfoset,
+ $XML::Xerces::XMLUni::fgDOMNamespaces,
+ $XML::Xerces::XMLUni::fgDOMNamespaceDeclarations,
+ $XML::Xerces::XMLUni::fgDOMNormalizeCharacters,
+ $XML::Xerces::XMLUni::fgDOMSplitCDATASections,
+ $XML::Xerces::XMLUni::fgDOMValidate,
+ $XML::Xerces::XMLUni::fgDOMValidateIfSchema,
+ $XML::Xerces::XMLUni::fgDOMElementContentWhitespace);
+
+my @accepted_param_names = $conf->getParameterNames();
+ok(scalar @accepted_param_names, "StringList to_list()");
+
+my $accepted_params_list = $conf->getParameterNames();
+isa_ok($accepted_params_list, "XML::Xerces::DOMStringList");
+
+is($accepted_params_list->getLength(), scalar @accepted_param_names,
+ 'StringList length equal overload list length')
+ or diag("Found items: " . join(':', @accepted_param_names));
+
+my %param_names = map {$_=>1} @param_names;
+foreach my $param_name (@param_names) {
+ ok($accepted_params_list->contains($param_name),
+ "can set $param_name");
+}
+
+for (my $i=0; $i<$accepted_params_list->getLength(); $i++) {
+ my $param_name = $accepted_params_list->item($i);
+# is($accepted_param_names[$i], $param_name, "$param_name in StringList");
+}
Modified: xerces/c/trunk/swig/perl/t/DOMTreeWalker.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMTreeWalker.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMTreeWalker.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMTreeWalker.t Mon Sep 11 03:08:07 2006
@@ -1,26 +1,16 @@
# Before `make install' is performed this script should be runnable
# with `make test'. After `make install' it should work as `perl
-# DOMNode.t'
+# DOMTreeWalker.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-END {fail() unless $loaded;}
-
-use Carp;
# use blib;
-use XML::Xerces;
use Test::More tests => 7;
-use Config;
+BEGIN { use_ok("XML::Xerces::DOM") };
-use lib 't';
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
+######################### Begin Test
package MyNodeFilter;
use strict;
@@ -32,12 +22,6 @@
}
package main;
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
# Create a couple of identical test documents
my $document = q[<?xml version="1.0" encoding="UTF-8"?>
Modified: xerces/c/trunk/swig/perl/t/DOMWriter.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMWriter.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMWriter.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMWriter.t Mon Sep 11 03:08:07 2006
@@ -2,24 +2,15 @@
# with `make test'. After `make install' it should work as `perl
# DOMWriter.t'
-######################### We start with some black magic to print on failure.
-
-END {fail() unless $loaded;}
-
-use Carp;
+######################### Begin module loading
# use blib;
-use XML::Xerces;
use Test::More tests => 6;
-use Config;
+BEGIN { use_ok("XML::Xerces::DOM") };
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
# Create a couple of identical test documents
my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="no" ?><contributors>
Modified: xerces/c/trunk/swig/perl/t/SAX2XMLReader.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/SAX2XMLReader.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/SAX2XMLReader.t (original)
+++ xerces/c/trunk/swig/perl/t/SAX2XMLReader.t Mon Sep 11 03:08:07 2006
@@ -2,25 +2,25 @@
# with `make test'. After `make install' it should work as `perl
# SAX2XMLReader.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail() unless $loaded;}
-
-use Carp;
# use blib;
-use XML::Xerces qw(error);
use Test::More tests => 26;
-use Config;
+BEGIN { use_ok("XML::Xerces") };
+use Carp;
use lib 't';
use TestUtils qw($PERSONAL_FILE_NAME $SCHEMA_FILE_NAME $PERSONAL_SCHEMA_INVALID_FILE_NAME);
-use vars qw($loaded $error);
+use vars qw($error);
use strict;
-$loaded = 1;
-pass("module loaded");
+######################### Begin Test
-######################### End of black magic.
+ # NOTICE: We must now explicitly call XMLPlatformUtils::Initialize()
+ # when the module is loaded. Xerces.pm no longer does this.
+ #
+ #
+XML::Xerces::XMLPlatformUtils::Initialize();
my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<contributors>
@@ -40,8 +40,7 @@
package MyContentHandler;
use strict;
-use vars qw(@ISA);
-@ISA = qw(XML::Xerces::PerlContentHandler);
+use base qw(XML::Xerces::PerlContentHandler);
sub start_element {
my $self = shift;
@@ -93,15 +92,17 @@
$CONTENT_HANDLER->reset_document();
eval{$SAX->parse(XML::Xerces::MemBufInputSource->new($document, 'foo'))};
-ok((not $@),'membuf parse');
+ok((not $@),'membuf parse')
+ or diag(XML::Xerces::error($@));
is($CONTENT_HANDLER->{elements}, 10,'elements');
is($CONTENT_HANDLER->{chars}, 141,'chars');
is($CONTENT_HANDLER->{ws}, 0,'ws');
# test the overloaded parse version
-$SAX->parse($PERSONAL_FILE_NAME);
-pass('parse filename');
+eval{$SAX->parse($PERSONAL_FILE_NAME)};
+ok((not $@),'parse filename')
+ or diag(XML::Xerces::error($@));
# reset the counts
$CONTENT_HANDLER->reset_document();
@@ -161,8 +162,7 @@
END
package MyErrorHandler;
use strict;
-use vars qw(@ISA);
-@ISA = qw(XML::Xerces::PerlErrorHandler);
+use base qw(XML::Xerces::PerlErrorHandler);
sub warning {
my $LINE = $_[1]->getLineNumber;
my $COLUMN = $_[1]->getColumnNumber;
@@ -312,3 +312,11 @@
ok($@, "parse invalid doc with fgXercesSchemaExternalNoNameSpaceSchemaLocation set");
like($@, qr/Unknown element 'contributors'/, 'invalid document error');
+
+END {
+ # NOTICE: We must now explicitly call XMLPlatformUtils::Terminate()
+ # when the module is unloaded. Xerces.pm no longer does this for us
+ #
+ #
+ XML::Xerces::XMLPlatformUtils::Terminate();
+}
Modified: xerces/c/trunk/swig/perl/t/SAXException.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/SAXException.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/SAXException.t (original)
+++ xerces/c/trunk/swig/perl/t/SAXException.t Mon Sep 11 03:08:07 2006
@@ -2,26 +2,19 @@
# with `make test'. After `make install' it should work as `perl
# SAXException.t'
-######################### We start with some black magic to print on failure.
-
-END {fail() unless $loaded;}
-
-use Carp;
+######################### Begin module loading
# use blib;
-use XML::Xerces;
use Test::More tests => 17;
-use Config;
+BEGIN { use_ok("XML::Xerces") };
use lib 't';
-use TestUtils qw($PERSONAL_FILE_NAME);
-use vars qw($loaded);
+# use TestUtils qw($PERSONAL_FILE_NAME);
use strict;
-$loaded = 1;
-pass("module loaded");
+my $PERSONAL_FILE_NAME = 'samples/personal.xml';
-######################### End of black magic.
+######################### Begin Test
# test that we get an SAXNotRecognizedException
my $parser = XML::Xerces::XMLReaderFactory::createXMLReader();
@@ -77,8 +70,7 @@
# test that modifying a feature during a parse raises a not supported exception
package MyHandler;
use strict;
-use vars qw(@ISA);
-@ISA = qw(XML::Xerces::PerlContentHandler);
+use base qw(XML::Xerces::PerlContentHandler);
sub start_element {
my ($self,$name,$attrs) = @_;
Modified: xerces/c/trunk/swig/perl/t/SAXParser.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/SAXParser.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/SAXParser.t (original)
+++ xerces/c/trunk/swig/perl/t/SAXParser.t Mon Sep 11 03:08:07 2006
@@ -2,25 +2,17 @@
# with `make test'. After `make install' it should work as `perl
# SAXParser.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail() unless $loaded;}
-
-use Carp;
-use blib;
-use XML::Xerces;
+# use blib;
use Test::More tests => 12;
-use Config;
+BEGIN { use_ok("XML::Xerces") };
use lib 't';
use TestUtils qw($PERSONAL_FILE_NAME);
-use vars qw($loaded $error);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<contributors>
@@ -40,12 +32,12 @@
package MyDocumentHandler;
use strict;
-use vars qw(@ISA);
-@ISA = qw(XML::Xerces::PerlDocumentHandler);
+use base qw(XML::Xerces::PerlDocumentHandler);
sub start_element {
- my $self = shift;
+ my ($self, $name, @attrs) = @_;
$self->{elements}++;
+ $self->{element}->{$name} = \@attrs;
}
sub characters {
my ($self,$str,$len) = @_;
@@ -75,9 +67,9 @@
$DOCUMENT_HANDLER->reset_document();
$SAX->parse(XML::Xerces::MemBufInputSource->new($document, 'foo'));
-ok($DOCUMENT_HANDLER->{elements} == 10,'elements');
-ok($DOCUMENT_HANDLER->{chars} == 141,'chars');
-ok($DOCUMENT_HANDLER->{ws} == 0,'ws');
+is($DOCUMENT_HANDLER->{elements}, 10,'elements');
+is($DOCUMENT_HANDLER->{chars}, 141,'chars');
+is($DOCUMENT_HANDLER->{ws}, 0,'ws');
# test the overloaded parse version
$SAX->parse($PERSONAL_FILE_NAME);
Modified: xerces/c/trunk/swig/perl/t/TestUtils.pm
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/TestUtils.pm?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/TestUtils.pm (original)
+++ xerces/c/trunk/swig/perl/t/TestUtils.pm Mon Sep 11 03:08:07 2006
@@ -1,5 +1,5 @@
package TestUtils;
-use XML::Xerces;
+use XML::Xerces::DOM;
use strict;
use vars qw($VERSION
@ISA
Modified: xerces/c/trunk/swig/perl/t/UTF8.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/UTF8.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/UTF8.t (original)
+++ xerces/c/trunk/swig/perl/t/UTF8.t Mon Sep 11 03:08:07 2006
@@ -2,26 +2,16 @@
# with `make test'. After `make install' it should work as `perl
# UTF8.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail() unless $loaded;}
-
-use Carp;
-
-use blib;
+# use blib;
use utf8;
-use XML::Xerces;
use Test::More tests => 35119;
-use Config;
+BEGIN { use_ok("XML::Xerces::DOM") };
-use lib 't';
-use vars qw($loaded);
use strict;
-$loaded = 1;
-pass("module loaded");
-
-######################### End of black magic.
+######################### Begin Test
my $DOM1 = new XML::Xerces::XercesDOMParser;
my $ERROR_HANDLER = XML::Xerces::PerlErrorHandler->new();
Modified: xerces/c/trunk/swig/perl/t/XMLUni.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/XMLUni.t?view=diff&rev=442160&r1=442159&r2=442160
==============================================================================
--- xerces/c/trunk/swig/perl/t/XMLUni.t (original)
+++ xerces/c/trunk/swig/perl/t/XMLUni.t Mon Sep 11 03:08:07 2006
@@ -5,7 +5,7 @@
# use blib;
use Test::More tests => 5;
-BEGIN {use_ok("XML::Xerces")};
+BEGIN {use_ok("XML::Xerces::DOM")};
use strict;
Added: xerces/c/trunk/swig/perl/xerces-swig-perl.hpp
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/xerces-swig-perl.hpp?view=auto&rev=442160
==============================================================================
--- xerces/c/trunk/swig/perl/xerces-swig-perl.hpp (added)
+++ xerces/c/trunk/swig/perl/xerces-swig-perl.hpp Mon Sep 11 03:08:07 2006
@@ -0,0 +1,1350 @@
+/* ----------------------------------------------------------------------------
+ * This file was automatically generated by SWIG (http://www.swig.org).
+ * Version 1.3.30
+ *
+ * This file is not intended to be easily readable and contains a number of
+ * coding conventions designed to improve portability and efficiency. Do not make
+ * changes to this file unless you know what you are doing--modify the SWIG
+ * interface file instead.
+ * ----------------------------------------------------------------------------- */
+
+/* -----------------------------------------------------------------------------
+ * This section contains generic SWIG labels for method/variable
+ * declarations/attributes, and other compiler dependent labels.
+ * ----------------------------------------------------------------------------- */
+
+/* template workaround for compilers that cannot correctly implement the C++ standard */
+#ifndef SWIGTEMPLATEDISAMBIGUATOR
+# if defined(__SUNPRO_CC)
+# if (__SUNPRO_CC <= 0x560)
+# define SWIGTEMPLATEDISAMBIGUATOR template
+# else
+# define SWIGTEMPLATEDISAMBIGUATOR
+# endif
+# else
+# define SWIGTEMPLATEDISAMBIGUATOR
+# endif
+#endif
+
+/* inline attribute */
+#ifndef SWIGINLINE
+# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
+# define SWIGINLINE inline
+# else
+# define SWIGINLINE
+# endif
+#endif
+
+/* attribute recognised by some compilers to avoid 'unused' warnings */
+#ifndef SWIGUNUSED
+# if defined(__GNUC__)
+# if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
+# define SWIGUNUSED __attribute__ ((__unused__))
+# else
+# define SWIGUNUSED
+# endif
+# elif defined(__ICC)
+# define SWIGUNUSED __attribute__ ((__unused__))
+# else
+# define SWIGUNUSED
+# endif
+#endif
+
+#ifndef SWIGUNUSEDPARM
+# ifdef __cplusplus
+# define SWIGUNUSEDPARM(p)
+# else
+# define SWIGUNUSEDPARM(p) p SWIGUNUSED
+# endif
+#endif
+
+/* internal SWIG method */
+#ifndef SWIGINTERN
+# define SWIGINTERN static SWIGUNUSED
+#endif
+
+/* internal inline SWIG method */
+#ifndef SWIGINTERNINLINE
+# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
+#endif
+
+/* exporting methods */
+#if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
+# ifndef GCC_HASCLASSVISIBILITY
+# define GCC_HASCLASSVISIBILITY
+# endif
+#endif
+
+#ifndef SWIGEXPORT
+# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
+# if defined(STATIC_LINKED)
+# define SWIGEXPORT
+# else
+# define SWIGEXPORT __declspec(dllexport)
+# endif
+# else
+# if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
+# define SWIGEXPORT __attribute__ ((visibility("default")))
+# else
+# define SWIGEXPORT
+# endif
+# endif
+#endif
+
+/* calling conventions for Windows */
+#ifndef SWIGSTDCALL
+# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
+# define SWIGSTDCALL __stdcall
+# else
+# define SWIGSTDCALL
+# endif
+#endif
+
+/* Deal with Microsoft's attempt at deprecating C standard runtime functions */
+#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
+# define _CRT_SECURE_NO_DEPRECATE
+#endif
+/* Errors in SWIG */
+#define SWIG_UnknownError -1
+#define SWIG_IOError -2
+#define SWIG_RuntimeError -3
+#define SWIG_IndexError -4
+#define SWIG_TypeError -5
+#define SWIG_DivisionByZero -6
+#define SWIG_OverflowError -7
+#define SWIG_SyntaxError -8
+#define SWIG_ValueError -9
+#define SWIG_SystemError -10
+#define SWIG_AttributeError -11
+#define SWIG_MemoryError -12
+#define SWIG_NullReferenceError -13
+
+
+/* Errors in SWIG */
+#define SWIG_UnknownError -1
+#define SWIG_IOError -2
+#define SWIG_RuntimeError -3
+#define SWIG_IndexError -4
+#define SWIG_TypeError -5
+#define SWIG_DivisionByZero -6
+#define SWIG_OverflowError -7
+#define SWIG_SyntaxError -8
+#define SWIG_ValueError -9
+#define SWIG_SystemError -10
+#define SWIG_AttributeError -11
+#define SWIG_MemoryError -12
+#define SWIG_NullReferenceError -13
+
+
+/* -----------------------------------------------------------------------------
+ * swigrun.swg
+ *
+ * This file contains generic CAPI SWIG runtime support for pointer
+ * type checking.
+ * ----------------------------------------------------------------------------- */
+
+/* This should only be incremented when either the layout of swig_type_info changes,
+ or for whatever reason, the runtime changes incompatibly */
+#define SWIG_RUNTIME_VERSION "3"
+
+/* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
+#ifdef SWIG_TYPE_TABLE
+# define SWIG_QUOTE_STRING(x) #x
+# define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
+# define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
+#else
+# define SWIG_TYPE_TABLE_NAME
+#endif
+
+/*
+ You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
+ creating a static or dynamic library from the swig runtime code.
+ In 99.9% of the cases, swig just needs to declare them as 'static'.
+
+ But only do this if is strictly necessary, ie, if you have problems
+ with your compiler or so.
+*/
+
+#ifndef SWIGRUNTIME
+# define SWIGRUNTIME SWIGINTERN
+#endif
+
+#ifndef SWIGRUNTIMEINLINE
+# define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
+#endif
+
+/* Generic buffer size */
+#ifndef SWIG_BUFFER_SIZE
+# define SWIG_BUFFER_SIZE 1024
+#endif
+
+/* Flags for pointer conversions */
+#define SWIG_POINTER_DISOWN 0x1
+
+/* Flags for new pointer objects */
+#define SWIG_POINTER_OWN 0x1
+
+
+/*
+ Flags/methods for returning states.
+
+ The swig conversion methods, as ConvertPtr, return and integer
+ that tells if the conversion was successful or not. And if not,
+ an error code can be returned (see swigerrors.swg for the codes).
+
+ Use the following macros/flags to set or process the returning
+ states.
+
+ In old swig versions, you usually write code as:
+
+ if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
+ // success code
+ } else {
+ //fail code
+ }
+
+ Now you can be more explicit as:
+
+ int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
+ if (SWIG_IsOK(res)) {
+ // success code
+ } else {
+ // fail code
+ }
+
+ that seems to be the same, but now you can also do
+
+ Type *ptr;
+ int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
+ if (SWIG_IsOK(res)) {
+ // success code
+ if (SWIG_IsNewObj(res) {
+ ...
+ delete *ptr;
+ } else {
+ ...
+ }
+ } else {
+ // fail code
+ }
+
+ I.e., now SWIG_ConvertPtr can return new objects and you can
+ identify the case and take care of the deallocation. Of course that
+ requires also to SWIG_ConvertPtr to return new result values, as
+
+ int SWIG_ConvertPtr(obj, ptr,...) {
+ if (<obj is ok>) {
+ if (<need new object>) {
+ *ptr = <ptr to new allocated object>;
+ return SWIG_NEWOBJ;
+ } else {
+ *ptr = <ptr to old object>;
+ return SWIG_OLDOBJ;
+ }
+ } else {
+ return SWIG_BADOBJ;
+ }
+ }
+
+ Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
+ more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
+ swig errors code.
+
+ Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
+ allows to return the 'cast rank', for example, if you have this
+
+ int food(double)
+ int fooi(int);
+
+ and you call
+
+ food(1) // cast rank '1' (1 -> 1.0)
+ fooi(1) // cast rank '0'
+
+ just use the SWIG_AddCast()/SWIG_CheckState()
+
+
+ */
+#define SWIG_OK (0)
+#define SWIG_ERROR (-1)
+#define SWIG_IsOK(r) (r >= 0)
+#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
+
+/* The CastRankLimit says how many bits are used for the cast rank */
+#define SWIG_CASTRANKLIMIT (1 << 8)
+/* The NewMask denotes the object was created (using new/malloc) */
+#define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
+/* The TmpMask is for in/out typemaps that use temporal objects */
+#define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
+/* Simple returning values */
+#define SWIG_BADOBJ (SWIG_ERROR)
+#define SWIG_OLDOBJ (SWIG_OK)
+#define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
+#define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
+/* Check, add and del mask methods */
+#define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
+#define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
+#define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
+#define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
+#define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
+#define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
+
+
+/* Cast-Rank Mode */
+#if defined(SWIG_CASTRANK_MODE)
+# ifndef SWIG_TypeRank
+# define SWIG_TypeRank unsigned long
+# endif
+# ifndef SWIG_MAXCASTRANK /* Default cast allowed */
+# define SWIG_MAXCASTRANK (2)
+# endif
+# define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
+# define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
+SWIGINTERNINLINE int SWIG_AddCast(int r) {
+ return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
+}
+SWIGINTERNINLINE int SWIG_CheckState(int r) {
+ return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
+}
+#else /* no cast-rank mode */
+# define SWIG_AddCast
+# define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
+#endif
+
+
+
+
+#include <string.h>
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef void *(*swig_converter_func)(void *);
+typedef struct swig_type_info *(*swig_dycast_func)(void **);
+
+/* Structure to store inforomation on one type */
+typedef struct swig_type_info {
+ const char *name; /* mangled name of this type */
+ const char *str; /* human readable name of this type */
+ swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
+ struct swig_cast_info *cast; /* linked list of types that can cast into this type */
+ void *clientdata; /* language specific type data */
+ int owndata; /* flag if the structure owns the clientdata */
+} swig_type_info;
+
+/* Structure to store a type and conversion function used for casting */
+typedef struct swig_cast_info {
+ swig_type_info *type; /* pointer to type that is equivalent to this type */
+ swig_converter_func converter; /* function to cast the void pointers */
+ struct swig_cast_info *next; /* pointer to next cast in linked list */
+ struct swig_cast_info *prev; /* pointer to the previous cast */
+} swig_cast_info;
+
+/* Structure used to store module information
+ * Each module generates one structure like this, and the runtime collects
+ * all of these structures and stores them in a circularly linked list.*/
+typedef struct swig_module_info {
+ swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
+ size_t size; /* Number of types in this module */
+ struct swig_module_info *next; /* Pointer to next element in circularly linked list */
+ swig_type_info **type_initial; /* Array of initially generated type structures */
+ swig_cast_info **cast_initial; /* Array of initially generated casting structures */
+ void *clientdata; /* Language specific module data */
+} swig_module_info;
+
+/*
+ Compare two type names skipping the space characters, therefore
+ "char*" == "char *" and "Class<int>" == "Class<int >", etc.
+
+ Return 0 when the two name types are equivalent, as in
+ strncmp, but skipping ' '.
+*/
+SWIGRUNTIME int
+SWIG_TypeNameComp(const char *f1, const char *l1,
+ const char *f2, const char *l2) {
+ for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
+ while ((*f1 == ' ') && (f1 != l1)) ++f1;
+ while ((*f2 == ' ') && (f2 != l2)) ++f2;
+ if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
+ }
+ return (l1 - f1) - (l2 - f2);
+}
+
+/*
+ Check type equivalence in a name list like <name1>|<name2>|...
+ Return 0 if not equal, 1 if equal
+*/
+SWIGRUNTIME int
+SWIG_TypeEquiv(const char *nb, const char *tb) {
+ int equiv = 0;
+ const char* te = tb + strlen(tb);
+ const char* ne = nb;
+ while (!equiv && *ne) {
+ for (nb = ne; *ne; ++ne) {
+ if (*ne == '|') break;
+ }
+ equiv = (SWIG_TypeNameComp(nb, ne, tb, te) == 0) ? 1 : 0;
+ if (*ne) ++ne;
+ }
+ return equiv;
+}
+
+/*
+ Check type equivalence in a name list like <name1>|<name2>|...
+ Return 0 if equal, -1 if nb < tb, 1 if nb > tb
+*/
+SWIGRUNTIME int
+SWIG_TypeCompare(const char *nb, const char *tb) {
+ int equiv = 0;
+ const char* te = tb + strlen(tb);
+ const char* ne = nb;
+ while (!equiv && *ne) {
+ for (nb = ne; *ne; ++ne) {
+ if (*ne == '|') break;
+ }
+ equiv = (SWIG_TypeNameComp(nb, ne, tb, te) == 0) ? 1 : 0;
+ if (*ne) ++ne;
+ }
+ return equiv;
+}
+
+
+/* think of this as a c++ template<> or a scheme macro */
+#define SWIG_TypeCheck_Template(comparison, ty) \
+ if (ty) { \
+ swig_cast_info *iter = ty->cast; \
+ while (iter) { \
+ if (comparison) { \
+ if (iter == ty->cast) return iter; \
+ /* Move iter to the top of the linked list */ \
+ iter->prev->next = iter->next; \
+ if (iter->next) \
+ iter->next->prev = iter->prev; \
+ iter->next = ty->cast; \
+ iter->prev = 0; \
+ if (ty->cast) ty->cast->prev = iter; \
+ ty->cast = iter; \
+ return iter; \
+ } \
+ iter = iter->next; \
+ } \
+ } \
+ return 0
+
+/*
+ Check the typename
+*/
+SWIGRUNTIME swig_cast_info *
+SWIG_TypeCheck(const char *c, swig_type_info *ty) {
+ SWIG_TypeCheck_Template(strcmp(iter->type->name, c) == 0, ty);
+}
+
+/* Same as previous function, except strcmp is replaced with a pointer comparison */
+SWIGRUNTIME swig_cast_info *
+SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *into) {
+ SWIG_TypeCheck_Template(iter->type == from, into);
+}
+
+/*
+ Cast a pointer up an inheritance hierarchy
+*/
+SWIGRUNTIMEINLINE void *
+SWIG_TypeCast(swig_cast_info *ty, void *ptr) {
+ return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr);
+}
+
+/*
+ Dynamic pointer casting. Down an inheritance hierarchy
+*/
+SWIGRUNTIME swig_type_info *
+SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
+ swig_type_info *lastty = ty;
+ if (!ty || !ty->dcast) return ty;
+ while (ty && (ty->dcast)) {
+ ty = (*ty->dcast)(ptr);
+ if (ty) lastty = ty;
+ }
+ return lastty;
+}
+
+/*
+ Return the name associated with this type
+*/
+SWIGRUNTIMEINLINE const char *
+SWIG_TypeName(const swig_type_info *ty) {
+ return ty->name;
+}
+
+/*
+ Return the pretty name associated with this type,
+ that is an unmangled type name in a form presentable to the user.
+*/
+SWIGRUNTIME const char *
+SWIG_TypePrettyName(const swig_type_info *type) {
+ /* The "str" field contains the equivalent pretty names of the
+ type, separated by vertical-bar characters. We choose
+ to print the last name, as it is often (?) the most
+ specific. */
+ if (!type) return NULL;
+ if (type->str != NULL) {
+ const char *last_name = type->str;
+ const char *s;
+ for (s = type->str; *s; s++)
+ if (*s == '|') last_name = s+1;
+ return last_name;
+ }
+ else
+ return type->name;
+}
+
+/*
+ Set the clientdata field for a type
+*/
+SWIGRUNTIME void
+SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
+ swig_cast_info *cast = ti->cast;
+ /* if (ti->clientdata == clientdata) return; */
+ ti->clientdata = clientdata;
+
+ while (cast) {
+ if (!cast->converter) {
+ swig_type_info *tc = cast->type;
+ if (!tc->clientdata) {
+ SWIG_TypeClientData(tc, clientdata);
+ }
+ }
+ cast = cast->next;
+ }
+}
+SWIGRUNTIME void
+SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
+ SWIG_TypeClientData(ti, clientdata);
+ ti->owndata = 1;
+}
+
+/*
+ Search for a swig_type_info structure only by mangled name
+ Search is a O(log #types)
+
+ We start searching at module start, and finish searching when start == end.
+ Note: if start == end at the beginning of the function, we go all the way around
+ the circular list.
+*/
+SWIGRUNTIME swig_type_info *
+SWIG_MangledTypeQueryModule(swig_module_info *start,
+ swig_module_info *end,
+ const char *name) {
+ swig_module_info *iter = start;
+ do {
+ if (iter->size) {
+ register size_t l = 0;
+ register size_t r = iter->size - 1;
+ do {
+ /* since l+r >= 0, we can (>> 1) instead (/ 2) */
+ register size_t i = (l + r) >> 1;
+ const char *iname = iter->types[i]->name;
+ if (iname) {
+ register int compare = strcmp(name, iname);
+ if (compare == 0) {
+ return iter->types[i];
+ } else if (compare < 0) {
+ if (i) {
+ r = i - 1;
+ } else {
+ break;
+ }
+ } else if (compare > 0) {
+ l = i + 1;
+ }
+ } else {
+ break; /* should never happen */
+ }
+ } while (l <= r);
+ }
+ iter = iter->next;
+ } while (iter != end);
+ return 0;
+}
+
+/*
+ Search for a swig_type_info structure for either a mangled name or a human readable name.
+ It first searches the mangled names of the types, which is a O(log #types)
+ If a type is not found it then searches the human readable names, which is O(#types).
+
+ We start searching at module start, and finish searching when start == end.
+ Note: if start == end at the beginning of the function, we go all the way around
+ the circular list.
+*/
+SWIGRUNTIME swig_type_info *
+SWIG_TypeQueryModule(swig_module_info *start,
+ swig_module_info *end,
+ const char *name) {
+ /* STEP 1: Search the name field using binary search */
+ swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
+ if (ret) {
+ return ret;
+ } else {
+ /* STEP 2: If the type hasn't been found, do a complete search
+ of the str field (the human readable name) */
+ swig_module_info *iter = start;
+ do {
+ register size_t i = 0;
+ for (; i < iter->size; ++i) {
+ if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
+ return iter->types[i];
+ }
+ iter = iter->next;
+ } while (iter != end);
+ }
+
+ /* neither found a match */
+ return 0;
+}
+
+/*
+ Pack binary data into a string
+*/
+SWIGRUNTIME char *
+SWIG_PackData(char *c, void *ptr, size_t sz) {
+ static const char hex[17] = "0123456789abcdef";
+ register const unsigned char *u = (unsigned char *) ptr;
+ register const unsigned char *eu = u + sz;
+ for (; u != eu; ++u) {
+ register unsigned char uu = *u;
+ *(c++) = hex[(uu & 0xf0) >> 4];
+ *(c++) = hex[uu & 0xf];
+ }
+ return c;
+}
+
+/*
+ Unpack binary data from a string
+*/
+SWIGRUNTIME const char *
+SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
+ register unsigned char *u = (unsigned char *) ptr;
+ register const unsigned char *eu = u + sz;
+ for (; u != eu; ++u) {
+ register char d = *(c++);
+ register unsigned char uu;
+ if ((d >= '0') && (d <= '9'))
+ uu = ((d - '0') << 4);
+ else if ((d >= 'a') && (d <= 'f'))
+ uu = ((d - ('a'-10)) << 4);
+ else
+ return (char *) 0;
+ d = *(c++);
+ if ((d >= '0') && (d <= '9'))
+ uu |= (d - '0');
+ else if ((d >= 'a') && (d <= 'f'))
+ uu |= (d - ('a'-10));
+ else
+ return (char *) 0;
+ *u = uu;
+ }
+ return c;
+}
+
+/*
+ Pack 'void *' into a string buffer.
+*/
+SWIGRUNTIME char *
+SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
+ char *r = buff;
+ if ((2*sizeof(void *) + 2) > bsz) return 0;
+ *(r++) = '_';
+ r = SWIG_PackData(r,&ptr,sizeof(void *));
+ if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
+ strcpy(r,name);
+ return buff;
+}
+
+SWIGRUNTIME const char *
+SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
+ if (*c != '_') {
+ if (strcmp(c,"NULL") == 0) {
+ *ptr = (void *) 0;
+ return name;
+ } else {
+ return 0;
+ }
+ }
+ return SWIG_UnpackData(++c,ptr,sizeof(void *));
+}
+
+SWIGRUNTIME char *
+SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
+ char *r = buff;
+ size_t lname = (name ? strlen(name) : 0);
+ if ((2*sz + 2 + lname) > bsz) return 0;
+ *(r++) = '_';
+ r = SWIG_PackData(r,ptr,sz);
+ if (lname) {
+ strncpy(r,name,lname+1);
+ } else {
+ *r = 0;
+ }
+ return buff;
+}
+
+SWIGRUNTIME const char *
+SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
+ if (*c != '_') {
+ if (strcmp(c,"NULL") == 0) {
+ memset(ptr,0,sz);
+ return name;
+ } else {
+ return 0;
+ }
+ }
+ return SWIG_UnpackData(++c,ptr,sz);
+}
+
+#ifdef __cplusplus
+}
+#endif
+#ifdef __cplusplus
+/* Needed on some windows machines---since MS plays funny games with the header files under C++ */
+#include <math.h>
+#include <stdlib.h>
+extern "C" {
+#endif
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+/* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
+
+/* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
+#ifndef PERL_REVISION
+# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
+# define PERL_PATCHLEVEL_H_IMPLICIT
+# include <patchlevel.h>
+# endif
+# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
+# include <could_not_find_Perl_patchlevel.h>
+# endif
+# ifndef PERL_REVISION
+# define PERL_REVISION (5)
+# define PERL_VERSION PATCHLEVEL
+# define PERL_SUBVERSION SUBVERSION
+# endif
+#endif
+
+#if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
+#define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
+#endif
+
+#ifndef SvIOK_UV
+# define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
+#endif
+
+#ifndef SvUOK
+# define SvUOK(sv) SvIOK_UV(sv)
+#endif
+
+#if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
+# define PL_sv_undef sv_undef
+# define PL_na na
+# define PL_errgv errgv
+# define PL_sv_no sv_no
+# define PL_sv_yes sv_yes
+# define PL_markstack_ptr markstack_ptr
+#endif
+
+#ifndef IVSIZE
+# ifdef LONGSIZE
+# define IVSIZE LONGSIZE
+# else
+# define IVSIZE 4 /* A bold guess, but the best we can make. */
+# endif
+#endif
+
+#ifndef INT2PTR
+# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
+# define PTRV UV
+# define INT2PTR(any,d) (any)(d)
+# else
+# if PTRSIZE == LONGSIZE
+# define PTRV unsigned long
+# else
+# define PTRV unsigned
+# endif
+# define INT2PTR(any,d) (any)(PTRV)(d)
+# endif
+
+# define NUM2PTR(any,d) (any)(PTRV)(d)
+# define PTR2IV(p) INT2PTR(IV,p)
+# define PTR2UV(p) INT2PTR(UV,p)
+# define PTR2NV(p) NUM2PTR(NV,p)
+
+# if PTRSIZE == LONGSIZE
+# define PTR2ul(p) (unsigned long)(p)
+# else
+# define PTR2ul(p) INT2PTR(unsigned long,p)
+# endif
+#endif /* !INT2PTR */
+
+#ifndef get_sv
+# define get_sv perl_get_sv
+#endif
+
+#ifndef ERRSV
+# define ERRSV get_sv("@",FALSE)
+#endif
+
+#ifndef pTHX_
+#define pTHX_
+#endif
+
+#include <string.h>
+#ifdef __cplusplus
+}
+#endif
+/* -----------------------------------------------------------------------------
+ * error manipulation
+ * ----------------------------------------------------------------------------- */
+
+SWIGINTERN const char*
+SWIG_Perl_ErrorType(int code) {
+ const char* type = 0;
+ switch(code) {
+ case SWIG_MemoryError:
+ type = "MemoryError";
+ break;
+ case SWIG_IOError:
+ type = "IOError";
+ break;
+ case SWIG_RuntimeError:
+ type = "RuntimeError";
+ break;
+ case SWIG_IndexError:
+ type = "IndexError";
+ break;
+ case SWIG_TypeError:
+ type = "TypeError";
+ break;
+ case SWIG_DivisionByZero:
+ type = "ZeroDivisionError";
+ break;
+ case SWIG_OverflowError:
+ type = "OverflowError";
+ break;
+ case SWIG_SyntaxError:
+ type = "SyntaxError";
+ break;
+ case SWIG_ValueError:
+ type = "ValueError";
+ break;
+ case SWIG_SystemError:
+ type = "SystemError";
+ break;
+ case SWIG_AttributeError:
+ type = "AttributeError";
+ break;
+ default:
+ type = "RuntimeError";
+ }
+ return type;
+}
+
+
+
+/* -----------------------------------------------------------------------------
+ * perlrun.swg
+ *
+ * This file contains the runtime support for Perl modules
+ * and includes code for managing global variables and pointer
+ * type checking.
+ * ----------------------------------------------------------------------------- */
+
+#ifdef PERL_OBJECT
+#define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
+#define SWIG_PERL_OBJECT_CALL pPerl,
+#else
+#define SWIG_PERL_OBJECT_DECL
+#define SWIG_PERL_OBJECT_CALL
+#endif
+
+/* Common SWIG API */
+
+/* for raw pointers */
+#define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
+#define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
+
+/* for raw packed data */
+#define SWIG_ConvertPacked(obj, p, s, type) SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
+#define SWIG_NewPackedObj(p, s, type) SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
+
+/* for class or struct pointers */
+#define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
+#define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
+
+/* for C or C++ function pointers */
+#define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
+#define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
+
+/* for C++ member pointers, ie, member methods */
+#define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_ConvertPacked(obj, ptr, sz, ty)
+#define SWIG_NewMemberObj(ptr, sz, type) SWIG_NewPackedObj(ptr, sz, type)
+
+
+/* Runtime API */
+
+#define SWIG_GetModule(clientdata) SWIG_Perl_GetModule()
+#define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
+
+
+/* Error manipulation */
+
+#define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
+#define SWIG_Error(code, msg) sv_setpvf(GvSV(PL_errgv),"%s %s\n", SWIG_ErrorType(code), msg)
+#define SWIG_fail goto fail
+
+/* Perl-specific SWIG API */
+
+#define SWIG_MakePtr(sv, ptr, type, flags) SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
+#define SWIG_MakePackedObj(sv, p, s, type) SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
+#define SWIG_SetError(str) SWIG_Error(SWIG_RuntimeError, str)
+
+
+#define SWIG_PERL_DECL_ARGS_1(arg1) (SWIG_PERL_OBJECT_DECL arg1)
+#define SWIG_PERL_CALL_ARGS_1(arg1) (SWIG_PERL_OBJECT_CALL arg1)
+#define SWIG_PERL_DECL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_DECL arg1, arg2)
+#define SWIG_PERL_CALL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_CALL arg1, arg2)
+
+/* -----------------------------------------------------------------------------
+ * pointers/data manipulation
+ * ----------------------------------------------------------------------------- */
+
+/* For backward compatibility only */
+#define SWIG_POINTER_EXCEPTION 0
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define SWIG_OWNER SWIG_POINTER_OWN
+#define SWIG_SHADOW SWIG_OWNER << 1
+
+#define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
+
+/* SWIG Perl macros */
+
+/* Macro to call an XS function */
+#ifdef PERL_OBJECT
+# define SWIG_CALLXS(_name) _name(cv,pPerl)
+#else
+# ifndef MULTIPLICITY
+# define SWIG_CALLXS(_name) _name(cv)
+# else
+# define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
+# endif
+#endif
+
+/* Note: SwigMagicFuncHack is a typedef used to get the C++ compiler to just shut up already */
+
+#ifdef PERL_OBJECT
+#define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
+typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+typedef int (CPerlObj::*SwigMagicFuncHack)(SV *, MAGIC *);
+#ifdef __cplusplus
+}
+#endif
+
+#define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
+#define SWIGCLASS_STATIC
+#else
+#define MAGIC_PPERL
+#define SWIGCLASS_STATIC static SWIGUNUSED
+#ifndef MULTIPLICITY
+#define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
+typedef int (*SwigMagicFunc)(SV *, MAGIC *);
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+typedef int (*SwigMagicFuncHack)(SV *, MAGIC *);
+#ifdef __cplusplus
+}
+#endif
+
+
+#else
+#define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
+typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
+#ifdef __cplusplus
+extern "C" {
+#endif
+typedef int (*SwigMagicFuncHack)(struct interpreter *, SV *, MAGIC *);
+#ifdef __cplusplus
+}
+#endif
+
+#endif
+#endif
+
+/* Workaround for bug in perl 5.6.x croak and earlier */
+#if (PERL_VERSION < 8)
+# ifdef PERL_OBJECT
+# define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
+static void SWIG_Perl_croak_null(CPerlObj *pPerl)
+# else
+static void SWIG_croak_null()
+# endif
+{
+ SV *err=ERRSV;
+# if (PERL_VERSION < 6)
+ croak("%_", err);
+# else
+ if (SvOK(err) && !SvROK(err)) croak("%_", err);
+ croak(Nullch);
+# endif
+}
+#else
+# define SWIG_croak_null() croak(Nullch)
+#endif
+
+
+/*
+ Define how strict is the cast between strings an integers/doubles
+ when overloading between these types occurs.
+
+ The default is making it as strict as possible by using SWIG_AddCast
+ when needed.
+
+ You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
+ disable the SWIG_AddCast, making the casting between string and
+ numbers less strict.
+
+ In the end, we try to solve the overloading between strings and
+ numerical types in the more natural way, but if you can avoid it,
+ well, avoid it using %rename, for example.
+*/
+#ifndef SWIG_PERL_NO_STRICT_STR2NUM
+# ifndef SWIG_PERL_STRICT_STR2NUM
+# define SWIG_PERL_STRICT_STR2NUM
+# endif
+#endif
+#ifdef SWIG_PERL_STRICT_STR2NUM
+/* string takes precedence */
+#define SWIG_Str2NumCast(x) SWIG_AddCast(x)
+#else
+/* number takes precedence */
+#define SWIG_Str2NumCast(x) x
+#endif
+
+
+
+#include <stdlib.h>
+
+SWIGRUNTIME const char *
+SWIG_Perl_TypeProxyName(const swig_type_info *type) {
+ if (!type) return NULL;
+ if (type->clientdata != NULL) {
+ return (const char*) type->clientdata;
+ }
+ else {
+ return type->name;
+ }
+}
+
+SWIGRUNTIME swig_cast_info *
+SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
+ SWIG_TypeCheck_Template(( (!iter->type->clientdata && (strcmp((char*)iter->type->name, c) == 0))
+ || (iter->type->clientdata && (strcmp((char*)iter->type->clientdata, c) == 0))), ty);
+}
+
+
+/* Function for getting a pointer value */
+
+SWIGRUNTIME int
+SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
+ swig_cast_info *tc;
+ void *voidptr = (void *)0;
+ SV *tsv = 0;
+ /* If magical, apply more magic */
+ if (SvGMAGICAL(sv))
+ mg_get(sv);
+
+ /* Check to see if this is an object */
+ if (sv_isobject(sv)) {
+ IV tmp = 0;
+ tsv = (SV*) SvRV(sv);
+ if ((SvTYPE(tsv) == SVt_PVHV)) {
+ MAGIC *mg;
+ if (SvMAGICAL(tsv)) {
+ mg = mg_find(tsv,'P');
+ if (mg) {
+ sv = mg->mg_obj;
+ if (sv_isobject(sv)) {
+ tsv = (SV*)SvRV(sv);
+ tmp = SvIV(tsv);
+ }
+ }
+ } else {
+ return SWIG_ERROR;
+ }
+ } else {
+ tmp = SvIV(tsv);
+ }
+ voidptr = INT2PTR(void *,tmp);
+ } else if (! SvOK(sv)) { /* Check for undef */
+ *(ptr) = (void *) 0;
+ return SWIG_OK;
+ } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
+ if (!SvROK(sv)) {
+ *(ptr) = (void *) 0;
+ return SWIG_OK;
+ } else {
+ return SWIG_ERROR;
+ }
+ } else { /* Don't know what it is */
+ return SWIG_ERROR;
+ }
+ if (_t) {
+ /* Now see if the types match */
+ char *_c = HvNAME(SvSTASH(SvRV(sv)));
+ tc = SWIG_TypeProxyCheck(_c,_t);
+ if (!tc) {
+ return SWIG_ERROR;
+ }
+ *ptr = SWIG_TypeCast(tc,voidptr);
+ } else {
+ *ptr = voidptr;
+ }
+
+ /*
+ * DISOWN implementation: we need a perl guru to check this one.
+ */
+ if (tsv && (flags & SWIG_POINTER_DISOWN)) {
+ /*
+ * almost copy paste code from below SWIG_POINTER_OWN setting
+ */
+ SV *obj = sv;
+ HV *stash = SvSTASH(SvRV(obj));
+ GV *gv = *(GV**) hv_fetch(stash, "OWNER", 5, TRUE);
+ if (isGV(gv)) {
+ HV *hv = GvHVn(gv);
+ /*
+ * To set ownership (see below), a newSViv(1) entry is added.
+ * Hence, to remove ownership, we delete the entry.
+ */
+ if (hv_exists_ent(hv, obj, 0)) {
+ hv_delete_ent(hv, obj, 0, 0);
+ }
+ }
+ }
+ return SWIG_OK;
+}
+
+SWIGRUNTIME void
+SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
+ if (ptr && (flags & SWIG_SHADOW)) {
+ SV *self;
+ SV *obj=newSV(0);
+ HV *hash=newHV();
+ HV *stash;
+ sv_setref_pv(obj, (char *) SWIG_Perl_TypeProxyName(t), ptr);
+ stash=SvSTASH(SvRV(obj));
+ if (flags & SWIG_POINTER_OWN) {
+ HV *hv;
+ GV *gv=*(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
+ if (!isGV(gv))
+ gv_init(gv, stash, "OWNER", 5, FALSE);
+ hv=GvHVn(gv);
+ hv_store_ent(hv, obj, newSViv(1), 0);
+ }
+ sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
+ SvREFCNT_dec(obj);
+ self=newRV_noinc((SV *)hash);
+ sv_setsv(sv, self);
+ SvREFCNT_dec((SV *)self);
+ sv_bless(sv, stash);
+ }
+ else {
+ sv_setref_pv(sv, (char *) SWIG_Perl_TypeProxyName(t), ptr);
+ }
+}
+
+SWIGRUNTIMEINLINE SV *
+SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
+ SV *result = sv_newmortal();
+ SWIG_MakePtr(result, ptr, t, flags);
+ return result;
+}
+
+SWIGRUNTIME void
+SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
+ char result[1024];
+ char *r = result;
+ if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
+ *(r++) = '_';
+ r = SWIG_PackData(r,ptr,sz);
+ strcpy(r,SWIG_Perl_TypeProxyName(type));
+ sv_setpv(sv, result);
+}
+
+SWIGRUNTIME SV *
+SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
+ SV *result = sv_newmortal();
+ SWIG_Perl_MakePackedObj(result, ptr, sz, type);
+ return result;
+}
+
+/* Convert a packed value value */
+SWIGRUNTIME int
+SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
+ swig_cast_info *tc;
+ const char *c = 0;
+
+ if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
+ c = SvPV(obj, PL_na);
+ /* Pointer values must start with leading underscore */
+ if (*c != '_') return SWIG_ERROR;
+ c++;
+ c = SWIG_UnpackData(c,ptr,sz);
+ if (ty) {
+ tc = SWIG_TypeCheck(c,ty);
+ if (!tc) return SWIG_ERROR;
+ }
+ return SWIG_OK;
+}
+
+
+/* Macros for low-level exception handling */
+#define SWIG_croak(x) { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
+
+
+typedef XS(SwigPerlWrapper);
+typedef SwigPerlWrapper *SwigPerlWrapperPtr;
+
+/* Structure for command table */
+typedef struct {
+ const char *name;
+ SwigPerlWrapperPtr wrapper;
+} swig_command_info;
+
+/* Information for constant table */
+
+#define SWIG_INT 1
+#define SWIG_FLOAT 2
+#define SWIG_STRING 3
+#define SWIG_POINTER 4
+#define SWIG_BINARY 5
+
+/* Constant information structure */
+typedef struct swig_constant_info {
+ int type;
+ const char *name;
+ long lvalue;
+ double dvalue;
+ void *pvalue;
+ swig_type_info **ptype;
+} swig_constant_info;
+
+
+/* Structure for variable table */
+typedef struct {
+ const char *name;
+ SwigMagicFunc set;
+ SwigMagicFunc get;
+ swig_type_info **type;
+} swig_variable_info;
+
+/* Magic variable code */
+#ifndef PERL_OBJECT
+#define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c)
+ #ifndef MULTIPLICITY
+ SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
+ #else
+ SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
+ #endif
+#else
+# define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
+SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
+#endif
+{
+ MAGIC *mg;
+ sv_magic(sv,sv,'U',(char *) name,strlen(name));
+ mg = mg_find(sv,'U');
+ mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
+ mg->mg_virtual->svt_get = (SwigMagicFuncHack) get;
+ mg->mg_virtual->svt_set = (SwigMagicFuncHack) set;
+ mg->mg_virtual->svt_len = 0;
+ mg->mg_virtual->svt_clear = 0;
+ mg->mg_virtual->svt_free = 0;
+}
+
+
+SWIGRUNTIME swig_module_info *
+SWIG_Perl_GetModule(void) {
+ static void *type_pointer = (void *)0;
+ SV *pointer;
+
+ /* first check if pointer already created */
+ if (!type_pointer) {
+ pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE);
+ if (pointer && SvOK(pointer)) {
+ type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
+ }
+ }
+
+ return (swig_module_info *) type_pointer;
+}
+
+SWIGRUNTIME void
+SWIG_Perl_SetModule(swig_module_info *module) {
+ SV *pointer;
+
+ /* create a new pointer */
+ pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE);
+ sv_setiv(pointer, PTR2IV(module));
+}
+
+#ifdef __cplusplus
+}
+#endif
+/* -----------------------------------------------------------------------------*
+ Standard SWIG API for use inside user code.
+
+ Don't include this file directly, run the command
+ swig -python -external-runtime
+ Also, read the Modules chapter of the SWIG Manual.
+
+ * -----------------------------------------------------------------------------*/
+
+#ifdef SWIG_MODULE_CLIENTDATA_TYPE
+
+SWIGRUNTIMEINLINE swig_type_info *
+SWIG_TypeQuery(SWIG_MODULE_CLIENTDATA_TYPE clientdata, const char *name) {
+ swig_module_info *module = SWIG_GetModule(clientdata);
+ return SWIG_TypeQueryModule(module, module, name);
+}
+
+SWIGRUNTIMEINLINE swig_type_info *
+SWIG_MangledTypeQuery(SWIG_MODULE_CLIENTDATA_TYPE clientdata, const char *name) {
+ swig_module_info *module = SWIG_GetModule(clientdata);
+ return SWIG_MangledTypeQueryModule(module, module, name);
+}
+
+#else
+
+SWIGRUNTIMEINLINE swig_type_info *
+SWIG_TypeQuery(const char *name) {
+ swig_module_info *module = SWIG_GetModule(NULL);
+ return SWIG_TypeQueryModule(module, module, name);
+}
+
+SWIGRUNTIMEINLINE swig_type_info *
+SWIG_MangledTypeQuery(const char *name) {
+ swig_module_info *module = SWIG_GetModule(NULL);
+ return SWIG_MangledTypeQueryModule(module, module, name);
+}
+
+#endif
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@xerces.apache.org
For additional commands, e-mail: commits-help@xerces.apache.org