From dfcf5eb1dd62fdfee8060f85c3b6272507598dc6 Mon Sep 17 00:00:00 2001
From: Jason Edward Stewart <jasons@apache.org>
Date: Mon, 28 Aug 2006 10:41:23 +0000
Subject: [PATCH] cruft
git-svn-id: https://svn.apache.org/repos/asf/xerces/c/trunk@437635 13f79535-47bb-0310-9956-ffa450edef68
---
swig/interfaces/Perl.i | 201 -----------------------------------------
1 file changed, 201 deletions(-)
delete mode 100644 swig/interfaces/Perl.i
diff --git a/swig/interfaces/Perl.i b/swig/interfaces/Perl.i
deleted file mode 100644
index 6039a1f0b..000000000
--- a/swig/interfaces/Perl.i
+++ /dev/null
@@ -1,201 +0,0 @@
-//
-// FOR Perl*Handler MEMBER FUNCTIONS, SO PERL SCALAR DOESN'T GET WRAPPED
-//
-%typemap(in) SV * {
- $1 = $input;
-}
-
-// The typecheck functions are for use by SWIG's auto-overloading support
-%typemap(typecheck, precedence=60)
-SV*
-{
- $1 = SvOK($input) ? 1 : 0;
-}
-
-// The typecheck functions are for use by SWIG's auto-overloading support
-%typemap(typecheck, precedence=60)
-SV*
-{
- $1 = SvOK($input) ? 1 : 0;
-}
-
-// %typemap(typecheck, precedence=70)
-// as long as the SV is not undef, convert it to a string
-%typecheck(SWIG_TYPECHECK_UNISTRING)
-XMLCh*, const XMLCh*
-{
- $1 = SvOK($input) ? 1 : 0;
-}
-
-
-/*
- * Handle Callbacks - until directors work in Perl
- */
-
-// Define a macro to rewrite setErrorHandler() for all classes
-
-%define SET_ERRORHANDLER(class)
-%feature("shadow") XERCES_CPP_NAMESPACE::class::setErrorHandler {
- sub setErrorHandler {
- my ($self,$handler) = @_;
- my $callback = XML::Xerces::PerlErrorCallbackHandler->new($handler);
- $XML::Xerces::REMEMBER{tied(% {$self})}->{__ERROR_HANDLER} = $callback;
-
- return XML::Xercesc::class ##_setErrorHandler($self,$callback);
- }
-}
-%enddef
-
-SET_ERRORHANDLER(Parser)
-SET_ERRORHANDLER(SAX2XMLReader)
-SET_ERRORHANDLER(SAXParser)
-SET_ERRORHANDLER(DOMBuilder)
-SET_ERRORHANDLER(DOMWriter)
-SET_ERRORHANDLER(XercesDOMParser)
-
-// Define a macro to rewrite setEntityResolver() for all classes
-
-%define SET_ENTITYRESOLVER(class)
-%feature("shadow") XERCES_CPP_NAMESPACE::class::setEntityResolver {
- sub setEntityResolver {
- my ($self,$handler) = @_;
- my $callback = XML::Xerces::PerlEntityResolverHandler->new($handler);
- $XML::Xerces::REMEMBER{tied(% {$self})}->{__ENTITY_RESOLVER} = $callback;
-
- return XML::Xercesc::class ##_setEntityResolver($self,$callback);
- }
-}
-%enddef
-
-SET_ENTITYRESOLVER(Parser)
-SET_ENTITYRESOLVER(SAX2XMLReader)
-SET_ENTITYRESOLVER(SAXParser)
-SET_ENTITYRESOLVER(DOMBuilder)
-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) {
- push(@_,'FAKE_SYSTEM_ID');
- }
-%}
-
-/*
- * 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) = @_;
- my $callback = XML::Xerces::PerlDocumentCallbackHandler->new($handler);
- $XML::Xerces::REMEMBER{tied(% {$self})}->{__DOCUMENT_HANDLER} = $callback;
-
- my @args = ($self,$callback);
- return XML::Xercesc::SAXParser_setDocumentHandler(@args);
-}
-%}
-
-%feature("shadow") XERCES_CPP_NAMESPACE::SAX2XMLReader::setContentHandler %{
-sub setContentHandler {
- my ($self,$handler) = @_;
- my $callback = XML::Xerces::PerlContentCallbackHandler->new($handler);
- $XML::Xerces::REMEMBER{tied(% {$self})}->{__CONTENT_HANDLER} = $callback;
-
- my @args = ($self,$callback);
- 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();
- }
-%}
--
GitLab