Author: jasons
Date: Mon Aug 28 03:44:28 2006
New Revision: 437639
URL: http://svn.apache.org/viewvc?rev=437639&view=rev
Log:
splitting out DOM-specific pieces
Added:
xerces/c/trunk/swig/interfaces/Perl/dom-shadow.i
Modified:
xerces/c/trunk/swig/interfaces/Perl/shadow.i
Added: xerces/c/trunk/swig/interfaces/Perl/dom-shadow.i
URL:
http://svn.apache.org/viewvc/xerces/c/trunk/swig/interfaces/Perl/dom-shadow.i?rev=437639&view=auto
==============================================================================
--- xerces/c/trunk/swig/interfaces/Perl/dom-shadow.i (added)
+++ xerces/c/trunk/swig/interfaces/Perl/dom-shadow.i Mon Aug 28 03:44:28 2006
@@ -0,0 +1,177 @@
+/*
+ * Copyright 2002,2004 The Apache Software Foundation.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+/*
+ * Perl/dom-shadow.i - all modification of Xerces/DOM.pm code
+ *
+ */
+
+%feature("shadow") XERCES_CPP_NAMESPACE::DOMConfiguration::setParameter {
+ sub setParameter {
+ my ($self,$name,$value) = @_;
+
+ if ($name eq $XML::Xerces::XMLUni::fgDOMErrorHandler) {
+ $value = XML::Xerces::PerlErrorCallbackHandler->new($_[2]);
+ $XML::Xerces::REMEMBER{tied(% {$self})}->{__ERROR_HANDLER} = $value;
+ } elsif ($name eq $XML::Xerces::XMLUni::fgXercesEntityResolver) {
+ $value = XML::Xerces::PerlEntityResolverHandler->new($_[2]);
+ $XML::Xerces::REMEMBER{tied(% {$self})}->{__ENTITY_RESOLVER} = $value;
+ }
+ return XML::Xercesc::DOMConfiguration_setParameter($self,$name,$value);
+ }
+}
+
+// Define a macro to rewrite all methods that return a list of DOMNodes
+
+// we need the "defined ## $result hack because defined is a cpp operator
+%define DOMLIST_METHOD(class,method)
+ %feature("shadow") XERCES_CPP_NAMESPACE::class::method {
+sub method {
+ my $result = XML::Xercesc:: ## class ## _ ## method (@_);
+ unless (defined ## $result) {
+ return () if wantarray;
+ return undef; # if *not* wantarray
+ }
+ return $result->to_list() if wantarray;
+ return $result; # if *not* wantarray
+}
+ }
+%enddef
+
+DOMLIST_METHOD(DOMDocument,getElementsByTagName)
+DOMLIST_METHOD(DOMDocument,getElementsByTagNameNS)
+DOMLIST_METHOD(DOMElement,getElementsByTagName)
+DOMLIST_METHOD(DOMElement,getElementsByTagNameNS)
+DOMLIST_METHOD(DOMNode,getChildNodes)
+
+// Define a macro to rewrite all methods that return a map of DOMNodes
+
+// we need the "defined ## $result hack because defined is a cpp operator
+%define DOMMAP_METHOD(class,method)
+ %feature("shadow") XERCES_CPP_NAMESPACE::class::method {
+sub method {
+ my $result = XML::Xercesc:: ## class ## _ ## method (@_);
+ unless (defined ## $result) {
+ return () if wantarray;
+ return undef; # if *not* wantarray
+ }
+ return $result->to_hash() if wantarray;
+ return $result; # if *not* wantarray
+}
+ }
+%enddef
+
+DOMMAP_METHOD(DOMDocumentType,getEntities)
+DOMMAP_METHOD(DOMDocumentType,getNotations)
+DOMMAP_METHOD(DOMNode,getAttributes)
+
+/*
+ * have the document remember the parser, so that if the parser
+ * goes out of scope before the document, the document will not
+ * be freed
+ */
+%feature("shadow") XERCES_CPP_NAMESPACE::AbstractDOMParser::getDocument %{
+# hold a reference to the parser internally, so that the
+# document can exist after the parser has gone out of scope
+sub getDocument {
+ my ($self) = @_;
+ my $result = XML::Xercesc::AbstractDOMParser_getDocument($self);
+
+ # the DOMDocument destructor will automatically delete this entry if we
+ # store it using the underlying tied() object
+ $XML::Xerces::REMEMBER{tied(% {$result})}->{__PARSER} = $self;
+ return $result;
+}
+%}
+
+/*
+ * The Node iterators defined in DOM Level2 must also be remembered
+ */
+%define CREATE_DOMITERATOR(method)
+%feature("shadow") XERCES_CPP_NAMESPACE::DOMDocumentTraversal:: ## method {
+sub method {
+ my ($self,$root,$what,$filter,$expand) = @_;
+ my $callback = XML::Xerces::PerlNodeFilterCallbackHandler->new($filter);
+ $XML::Xerces::REMEMBER{tied(% {$self})}->{__NODE_FILTER} = $callback;
+
+ my @args = ($self,$root,$what,$callback,$expand);
+ if ($args[0]->isa('XML::Xerces::DOMDocument')) {
+# $args[0] = $args[0]->toDOMDocumentTraversal();
+ }
+ return XML::Xercesc::DOMDocumentTraversal_ ## method(@args);
+}
+}
+%enddef
+
+CREATE_DOMITERATOR(createNodeIterator)
+CREATE_DOMITERATOR(createTreeWalker)
+
+// %feature("shadowpre") Wrapper4InputSource %{
+// # we never handle the memory
+// # so we tell Perl to forget about the InputSource
+// $_[0]->DISOWN();
+// %}
+//
+// %feature("shadowpre") createDocument %{
+// if (UNIVERSAL::isa($_[3],"XML::Xerces::DOMDocumentType")) {
+// # die "createDOMDocument: expected XML::Xerces::DOMDocumentType for arg
3";
+// $_[3]->DISOWN();
+// }
+// %}
+
+%feature("shadow") Wrapper4InputSource %{
+sub new {
+ my $pkg = shift;
+ # we never handle the memory
+ # so we tell Perl to forget about the InputSource
+ $_[0]->DISOWN();
+
+ my $self = XML::Xercesc::new_Wrapper4InputSource(@_);
+
+ bless $self, $pkg if defined($self);
+}
+%}
+
+%feature("shadow") createDocument %{
+sub createDocument {
+ if (UNIVERSAL::isa($_[3],"XML::Xerces::DOMDocumentType")) {
+ $_[3]->DISOWN();
+ }
+
+ my $return = XML::Xercesc::DOMImplementation_createDocument(@_);
+
+ return $return;
+}
+%}
+
+%feature("shadow") ~DOMDocument %{
+sub DESTROY {
+ return unless $_[0]->isa('HASH');
+ my $self = tied(%{$_[0]});
+ return unless defined $self;
+
+ if ($self->can('cleanup')) {
+ $_[0]->cleanup();
+ }
+
+ delete $ITERATORS{$self};
+ if (exists $OWNER{$self}) {
+ XML::Xercesc::delete_DOMDocument($self);
+ delete $OWNER{$self};
+ }
+}
+%}
+
Modified: xerces/c/trunk/swig/interfaces/Perl/shadow.i
URL:
http://svn.apache.org/viewvc/xerces/c/trunk/swig/interfaces/Perl/shadow.i?rev=437639&r1=437638&r2=437639&view=diff
==============================================================================
--- xerces/c/trunk/swig/interfaces/Perl/shadow.i (original)
+++ xerces/c/trunk/swig/interfaces/Perl/shadow.i Mon Aug 28 03:44:28 2006
@@ -40,8 +40,6 @@
SET_ERRORHANDLER(Parser)
SET_ERRORHANDLER(SAX2XMLReader)
SET_ERRORHANDLER(SAXParser)
-SET_ERRORHANDLER(DOMLSParser)
-SET_ERRORHANDLER(DOMWriter)
SET_ERRORHANDLER(XercesDOMParser)
// Define a macro to rewrite setEntityResolver() for all classes
@@ -61,72 +59,8 @@
SET_ENTITYRESOLVER(Parser)
SET_ENTITYRESOLVER(SAX2XMLReader)
SET_ENTITYRESOLVER(SAXParser)
-SET_ENTITYRESOLVER(DOMLSParser)
SET_ENTITYRESOLVER(XercesDOMParser)
-// Define a macro to rewrite all methods that return a list of DOMNodes
-
-// we need the "defined ## $result hack because defined is a cpp operator
-%define DOMLIST_METHOD(class,method)
- %feature("shadow") XERCES_CPP_NAMESPACE::class::method {
-sub method {
- my $result = XML::Xercesc:: ## class ## _ ## method (@_);
- unless (defined ## $result) {
- return () if wantarray;
- return undef; # if *not* wantarray
- }
- return $result->to_list() if wantarray;
- return $result; # if *not* wantarray
-}
- }
-%enddef
-
-DOMLIST_METHOD(DOMDocument,getElementsByTagName)
-DOMLIST_METHOD(DOMDocument,getElementsByTagNameNS)
-DOMLIST_METHOD(DOMElement,getElementsByTagName)
-DOMLIST_METHOD(DOMElement,getElementsByTagNameNS)
-DOMLIST_METHOD(DOMNode,getChildNodes)
-
-// Define a macro to rewrite all methods that return a map of DOMNodes
-
-// we need the "defined ## $result hack because defined is a cpp operator
-%define DOMMAP_METHOD(class,method)
- %feature("shadow") XERCES_CPP_NAMESPACE::class::method {
-sub method {
- my $result = XML::Xercesc:: ## class ## _ ## method (@_);
- unless (defined ## $result) {
- return () if wantarray;
- return undef; # if *not* wantarray
- }
- return $result->to_hash() if wantarray;
- return $result; # if *not* wantarray
-}
- }
-%enddef
-
-DOMMAP_METHOD(DOMDocumentType,getEntities)
-DOMMAP_METHOD(DOMDocumentType,getNotations)
-DOMMAP_METHOD(DOMNode,getAttributes)
-
-/*
- * have the document remember the parser, so that if the parser
- * goes out of scope before the document, the document will not
- * be freed
- */
-%feature("shadow") XERCES_CPP_NAMESPACE::AbstractDOMParser::getDocument %{
-# hold a reference to the parser internally, so that the
-# document can exist after the parser has gone out of scope
-sub getDocument {
- my ($self) = @_;
- my $result = XML::Xercesc::AbstractDOMParser_getDocument($self);
-
- # the DOMDocument destructor will automatically delete this entry if we
- # store it using the underlying tied() object
- $XML::Xerces::REMEMBER{tied(% {$result})}->{__PARSER} = $self;
- return $result;
-}
-%}
-
// %feature("shadowpre") MemBufInputSource %{
// # SYSTEM ID is *optional*
// if (scalar @_ == 1) {
@@ -148,28 +82,6 @@
}
%}
-/*
- * The Node iterators defined in DOM Level2 must also be remembered
- */
-%define CREATE_DOMITERATOR(method)
-%feature("shadow") XERCES_CPP_NAMESPACE::DOMDocumentTraversal:: ## method {
-sub method {
- my ($self,$root,$what,$filter,$expand) = @_;
- my $callback = XML::Xerces::PerlNodeFilterCallbackHandler->new($filter);
- $XML::Xerces::REMEMBER{tied(% {$self})}->{__NODE_FILTER} = $callback;
-
- my @args = ($self,$root,$what,$callback,$expand);
- if ($args[0]->isa('XML::Xerces::DOMDocument')) {
-# $args[0] = $args[0]->toDOMDocumentTraversal();
- }
- return XML::Xercesc::DOMDocumentTraversal_ ## method(@args);
-}
-}
-%enddef
-
-CREATE_DOMITERATOR(createNodeIterator)
-CREATE_DOMITERATOR(createTreeWalker)
-
%feature("shadow") XERCES_CPP_NAMESPACE::SAXParser::setDocumentHandler %{
sub setDocumentHandler {
my ($self,$handler) = @_;
@@ -191,60 +103,3 @@
return XML::Xercesc::SAX2XMLReader_setContentHandler(@args);
}
%}
-
-// %feature("shadowpre") Wrapper4InputSource %{
-// # we never handle the memory
-// # so we tell Perl to forget about the InputSource
-// $_[0]->DISOWN();
-// %}
-//
-// %feature("shadowpre") createDocument %{
-// if (UNIVERSAL::isa($_[3],"XML::Xerces::DOMDocumentType")) {
-// # die "createDOMDocument: expected XML::Xerces::DOMDocumentType for arg
3";
-// $_[3]->DISOWN();
-// }
-// %}
-
-%feature("shadow") Wrapper4InputSource %{
-sub new {
- my $pkg = shift;
- # we never handle the memory
- # so we tell Perl to forget about the InputSource
- $_[0]->DISOWN();
-
- my $self = XML::Xercesc::new_Wrapper4InputSource(@_);
-
- bless $self, $pkg if defined($self);
-}
-%}
-
-%feature("shadow") createDocument %{
-sub createDocument {
- if (UNIVERSAL::isa($_[3],"XML::Xerces::DOMDocumentType")) {
- $_[3]->DISOWN();
- }
-
- my $return = XML::Xercesc::DOMImplementation_createDocument(@_);
-
- return $return;
-}
-%}
-
-%feature("shadow") ~DOMDocument %{
-sub DESTROY {
- return unless $_[0]->isa('HASH');
- my $self = tied(%{$_[0]});
- return unless defined $self;
-
- if ($self->can('cleanup')) {
- $_[0]->cleanup();
- }
-
- delete $ITERATORS{$self};
- if (exists $OWNER{$self}) {
- XML::Xercesc::delete_DOMDocument($self);
- delete $OWNER{$self};
- }
-}
-%}
-
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
