Menu
▾
▴
[NetScript CVS] CVS: netscript2/src/perl/XML/DOM2 DOMWriter.pm,NONE,1.1 DOMWriterStyle.pm,NONE,1.1 XMLDOMWriterStyle.pm,NONE,1.1 Attr.pm,1.4,1.5 CDATASection.pm,1.4,1.5 CHANGELOG,1.1,1.2 CharacterData.pm,1.3,1.4 Comment.pm,1.4,1.5 DOMException.pm,1.6,1.7 DOMImplementation.pm,1.3,1.4 DOMParser.pm,1.2,1.3 DOMParserStyle.pm,1.2,1.3 Document.pm,1.3,1.4 DocumentFragment.pm,1.2,1.3 DocumentType.pm,1.2,1.3 Element.pm,1.4,1.5 Entity.pm,1.2,1.3 EntityReference.pm,1.2,1.3 NamedNodeMap.pm,1.6,1.7 Node.pm,1.12,1.13 NodeList.pm,1.8,1.9 Notation.pm,1.2,1.3 ProcessingInstruction.pm,1.3,1.4 Text.pm,1.4,1.5 notes.txt,1.4,1.5
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv2765
Modified Files:
Attr.pm CDATASection.pm CHANGELOG CharacterData.pm Comment.pm
DOMException.pm DOMImplementation.pm DOMParser.pm
DOMParserStyle.pm Document.pm DocumentFragment.pm
DocumentType.pm Element.pm Entity.pm EntityReference.pm
NamedNodeMap.pm Node.pm NodeList.pm Notation.pm
ProcessingInstruction.pm Text.pm notes.txt
Added Files:
DOMWriter.pm DOMWriterStyle.pm XMLDOMWriterStyle.pm
Log Message:
* bugfixes in Attr and Element
* added DOMWriter
* bugfixes in DOMParser
--- NEW FILE: DOMWriter.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DOMWriter
# $Id: DOMWriter.pm,v 1.1 2002/03/17 19:26:14 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::DOMWriter;
use vars qw($VERSION);
use XML::DOM2::Node;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new DOM Writer. A DOMWriter rewrites a DOM to a
# textual representation.
# @return an instance of XML::DOM2::DOMWriter
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
# Create a Class using the Hash-As-An-Object-Idiom
my $this = {};
bless( $this, $class ); # create Object
return $this;
}
#/**
# Writes the given DOM to a string, using the given DOMWriterStyle
# @param a hash reference containing the following key-value-pairs:
# document - instance of XML::DOM2::Document
# style - an instance of XML::DOM2::DOMWriterStyle or a subclass of it
# @return the document as a string represenation.
#*/
sub writeDOMToString {
my ($this, $paramRef ) = @_;
my $document = $paramRef -> { document };
my $style = $paramRef -> { style };
my @childrenList = ( $document -> documentElement() );
my @elements = ();
my $child = shift(@childrenList);
$style -> init();
while( defined($child) ) {
# test if an element is to be finished
if ( $child eq "ELEMENT" ) {
$child = pop( @elements );
$style -> finishElement( $child );
$child = shift( @childrenList );
next;
}
#check node type
my $nodeType = $child -> nodeType();
$style -> processElement( $child )
if ($nodeType == XML::DOM2::Node -> ELEMENT_NODE() );
$style -> processText( $child )
if ($nodeType == XML::DOM2::Node -> TEXT_NODE() );
$style -> processPI( $child )
if ($nodeType == XML::DOM2::Node -> PROCESSING_INSTRUCTION_NODE());
$style -> processCDATASection( $child )
if ($nodeType == XML::DOM2::Node -> CDATA_SECTION_NODE());
$style -> processComment( $child )
if ($nodeType == XML::DOM2::Node -> COMMENT_NODE());
#if the node type is an element we have to finish it later
if ($nodeType == XML::DOM2::Node -> ELEMENT_NODE()) {
push ( @elements, $child );
unshift( @childrenList, "ELEMENT" );
}
my $childNodes = $child -> childNodes();
my $length = $childNodes -> length() - 1;
for( 0..$length ){
unshift( @childrenList, $childNodes -> item( {index => $length - $_} ) );
}
$child = shift( @childrenList );
}
return $style -> result();
}
#/**
# Writes the given DOM to a file, using the given DOMWriterStyle
# @param a hash reference containing the following key-value-pairs:
# document - instance of XML::DOM2::Document
# style - an instance of XML::DOM2::DOMWriterStyle or a subclass of it
# file - the file to write the converted DOM to. (local file system,only)
#*/
sub writeDOMToFile {
my ($this, $paramRef ) = @_;
my $result = $this -> writeDOMToString( $paramRef );
my $filename = $paramRef -> { file };
open( AFILE, ">$filename" );
print AFILE $result;
close( AFILE );
}
--- NEW FILE: DOMWriterStyle.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DOMWriterStyle
# $Id: DOMWriterStyle.pm,v 1.1 2002/03/17 19:26:14 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::DOMWriterStyle;
use vars qw($VERSION);
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new DOM WriterStyle. The style is responsible for how
# a Node will be converted to text.
# This is an abstract implementation. Use a subclass.
# @return an instance of XML::DOM2::DOMWriter
# @abstract
#*/
sub new {
undef;
}
#/**
# Initialises the DOMWriterStyle.
# @abstract
#*/
sub init {
undef;
}
#/**
# Tells the DOMWriterStyle to add an Element to its internal textual
# representation.
# @param an instance of XML::DOM2::Element
# @abstract
#*/
sub processElement {
undef;
}
#/**
# Tells the DOMWriterStyle to finish the given element.
# @param an instance of XML::DOM2::Element
# @abstract
#*/
sub finishElement {
undef;
}
#/**
# Tells the DOMWriterStyle to add a text node to its internal textual
# represenation.
# @param an instance of XML::DOM2::Text
# @abstract
#*/
sub processText {
undef;
}
#/**
# Tells the DOMWriterStyle to add a processing instruction to its interal
# textual representation.
# @param an instance of XML::DOM2::ProcessingInstruction
# @abstract
#*/
sub processPI {
undef;
}
#/**
# Tells the DOMWriterStyle to add a CDATA section to its internal
# textual representation.
# @param an instance of XML::DOM2::CDATASection
# @abstract
#*/
sub processCDATASection {
undef;
}
#/**
# Tells the DOMWriterStyle to add a comment to its internal
# textual represenation.
# @param an instance of XML::DOM2::Comment
# @abstract
#*/
sub processComment {
undef;
}
#/**
# Returns the textual representation of the given nodes.
# @return a string
# @abstract
#*/
sub result {
undef;
}
--- NEW FILE: XMLDOMWriterStyle.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DOMWriterStyle
# $Id: XMLDOMWriterStyle.pm,v 1.1 2002/03/17 19:26:15 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::XMLDOMWriterStyle;
use base qw(XML::DOM2::DOMWriterStyle);
use vars qw($VERSION);
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new XMLDOMWriterStyle. This style produces XML for each Node.
# @return an instance of XML::DOM2::DOMWriter
# @public
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
# Create a Class using the Hash-As-An-Object-Idiom
my $this = {};
bless( $this, $class ); # create Object
$this -> { m_representation } = "";
my %boundURIs = ();
$this -> { m_boundURIs } = \%boundURIs;
return $this;
}
#/**
# Initialises the DOMWriterStyle.
# @public
#*/
sub init {
my ($this) = @_;
$this -> appendText( "<?xml version=\"1.0\"?>\n" );
}
#/**
# Tells the DOMWriterStyle to add an Element to its internal textual
# representation.
# @param an instance of XML::DOM2::Element
# @abstract
#*/
sub processElement {
my ($this, $element) = @_;
my $prefix = $element -> prefix();
my $nodeName = $element -> nodeName();
my $namespaceURI = $element -> namespaceURI();
if ( $prefix ne "" && $namespaceURI ne "" ) {
if ( $this -> isURIBound( $prefix, $namespaceURI ) ) {
$this -> appendText( "<$nodeName" );
}
else {
$this -> bindURI( $prefix, $namespaceURI );
$this -> appendText( "<$nodeName xmlns:$prefix=\"$namespaceURI\"");
}
}
else {
$this -> appendText( "<$nodeName")
}
my $attributes = $element -> attributes();
for ( 0..$attributes -> length() - 1 ) {
$this -> processAttribute( $attributes -> item( { index => $_ } ) );
}
$this -> appendText( ">" );
}
#/**
# Processes an Attribute node.
# @param an instance of XML::DOM2::Attr
# @protected
#*/
sub processAttribute {
my ($this, $attr ) = @_;
my $nodeName = $attr -> nodeName();
my $prefix = $attr -> prefix();
my $namespaceURI = $attr -> namespaceURI();
my $nodeValue = $attr -> nodeValue();
if ( $prefix ne "" && $namespaceURI ne "" ) {
if ( $this -> isURIBound( $prefix, $namespaceURI ) ) {
$this -> appendText( " $nodeName=\"$nodeValue\" " );
}
else {
$this -> bindURI( $prefix, $namespaceURI );
$this -> appendText( " $nodeName=\"$nodeValue\" xmlns:$prefix=\"$namespaceURI\" ");
}
}
else {
$this -> appendText( " $nodeName=\"$nodeValue\" " );
}
}
#/**
# Finishes the given Element.
# @param an instance of XML::DOM2::Element
# @public
#*/
sub finishElement {
my ($this, $element) = @_;
my $nodeName = $element -> nodeName();
$this -> appendText( "</$nodeName>" );
}
#/**
# Tells the DOMWriterStyle to add a text node to its internal textual
# represenation.
# @param an instance of XML::DOM2::Text
# @abstract
#*/
sub processText {
my ($this, $text) = @_;
$this -> appendText( $text -> data() );
}
#/**
# Tells the DOMWriterStyle to add a processing instruction to its interal
# textual representation.
# @param an instance of XML::DOM2::ProcessingInstruction
# @abstract
#*/
sub processPI {
my ($this, $pi) = @_;
$this -> appendText( "<?".$pi -> target()." ".$pi -> data()."?>" );
}
#/**
# Tells the DOMWriterStyle to add a CDATA section to its internal
# textual representation.
# @param an instance of XML::DOM2::CDATASection
# @abstract
#*/
sub processCDATASection {
my ($this, $cdata ) = @_;
$this -> appendText( "<![CDATA[".$cdata -> data()."]]>" );
undef;
}
#/**
# Tells the DOMWriterStyle to add a comment to its internal
# textual represenation.
# @param an instance of XML::DOM2::Comment
# @abstract
#*/
sub processComment {
my ($this, $comment ) = @_;
$this -> appendText( "<!--".$comment -> data()."-->" );
}
#/**
# Returns the textual representation of the given nodes.
# @return a string
# @abstract
#*/
sub result {
my ($this) = @_;
$this -> { m_representation };
}
#/**
# Appends text to the internal representation.
# @param a string
# @private
#*/
sub appendText {
my ($this, $text ) = @_;
$this -> { m_representation } .= $text;
}
#/**
# Returns if the given namespace URI is bound to the given prefix.
# @param the prefix
# @param the namespace URI
# @return nonzero if the namespace URI is bound, zero if it is not bound
# @private
#*/
sub isURIBound {
my ($this, $prefix, $uri ) = @_;
if ( $this -> { m_boundURIs } -> { $prefix } eq $uri ) {
return 1;
}
return 0;
}
#/**
# Binds the given URI to the given prefix
# @param the prefix
# @param the namespace URI
# @private
#*/
sub bindURI {
my ($this , $prefix, $uri ) = @_;
$this -> { m_boundURIs } -> { $prefix } = $uri ;
}
Index: Attr.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Attr.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Attr.pm 3 Feb 2002 22:39:42 -0000 1.4
--- Attr.pm 17 Mar 2002 19:26:14 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 160,163 ****
--- 160,168 ----
return $localname;
}
+ }
+
+ sub namespaceURI {
+ my ($this) = @_;
+ $this -> { m_namespaceURI };
}
Index: CDATASection.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CDATASection.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** CDATASection.pm 3 Feb 2002 22:39:42 -0000 1.4
--- CDATASection.pm 17 Mar 2002 19:26:14 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: CHANGELOG
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CHANGELOG,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CHANGELOG 3 Feb 2002 22:39:42 -0000 1.1
--- CHANGELOG 17 Mar 2002 19:26:14 -0000 1.2
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: CharacterData.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CharacterData.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** CharacterData.pm 3 Feb 2002 22:39:42 -0000 1.3
--- CharacterData.pm 17 Mar 2002 19:26:14 -0000 1.4
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Comment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Comment.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Comment.pm 3 Feb 2002 22:39:42 -0000 1.4
--- Comment.pm 17 Mar 2002 19:26:14 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: DOMException.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMException.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** DOMException.pm 3 Feb 2002 22:39:42 -0000 1.6
--- DOMException.pm 17 Mar 2002 19:26:14 -0000 1.7
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: DOMImplementation.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMImplementation.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DOMImplementation.pm 3 Feb 2002 22:39:42 -0000 1.3
--- DOMImplementation.pm 17 Mar 2002 19:26:14 -0000 1.4
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 71,74 ****
--- 71,75 ----
# systemId - the external subset system identifier.
# @return an instance of XML::DOM2::DocumentType
+ #*/
sub createDocumentType {
my ($this, $paramRef) = @_;
***************
*** 91,94 ****
--- 92,96 ----
# doctype - the type of document to be created or undef.
# @return an instance of XML::DOM2::Document
+ #*/
sub createDocument {
my ($this, $paramRef) = @_;
Index: DOMParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMParser.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DOMParser.pm 3 Feb 2002 22:39:42 -0000 1.2
--- DOMParser.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 156,160 ****
my $value = shift @attrList;
my $aNamespaceURI = $expat -> namespace($name);
! my $aPrefix = $prefixMap{$namespaceURI};
$elementNode -> setAttributeNS({
--- 156,160 ----
my $value = shift @attrList;
my $aNamespaceURI = $expat -> namespace($name);
! my $aPrefix = $prefixMap{$aNamespaceURI};
$elementNode -> setAttributeNS({
***************
*** 191,195 ****
sub Char {
my ($this, $expat, $string) = @_;
-
# first, create a text node
my $textNode = $this -> { m_document } -> createTextNode( {
--- 191,194 ----
***************
*** 208,212 ****
sub Proc {
my ($this, $expat, $target, $data) = @_;
-
# first, create a processing instruction node
my $procNode = $this -> { m_document } -> createProcessingInstruction( {
--- 207,210 ----
***************
*** 226,230 ****
sub Comment {
my ($this, $expat, $data) = @_;
-
# first, create a text node
my $commentNode = $this -> { m_document } -> createComment( {
--- 224,227 ----
Index: DOMParserStyle.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMParserStyle.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DOMParserStyle.pm 3 Feb 2002 22:39:42 -0000 1.2
--- DOMParserStyle.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Document.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Document.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Document.pm 3 Feb 2002 22:39:42 -0000 1.3
--- Document.pm 17 Mar 2002 19:26:14 -0000 1.4
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: DocumentFragment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DocumentFragment.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DocumentFragment.pm 3 Feb 2002 22:39:42 -0000 1.2
--- DocumentFragment.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: DocumentType.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DocumentType.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DocumentType.pm 3 Feb 2002 22:39:42 -0000 1.2
--- DocumentType.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Element.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Element.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Element.pm 3 Feb 2002 22:39:42 -0000 1.4
--- Element.pm 17 Mar 2002 19:26:14 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 533,536 ****
--- 533,541 ----
return $localname;
}
+ }
+
+ sub namespaceURI {
+ my ($this) = @_;
+ $this -> { m_namespaceURI };
}
Index: Entity.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Entity.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Entity.pm 3 Feb 2002 22:39:42 -0000 1.2
--- Entity.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: EntityReference.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/EntityReference.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** EntityReference.pm 3 Feb 2002 22:39:42 -0000 1.2
--- EntityReference.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: NamedNodeMap.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NamedNodeMap.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** NamedNodeMap.pm 3 Feb 2002 22:39:42 -0000 1.6
--- NamedNodeMap.pm 17 Mar 2002 19:26:14 -0000 1.7
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Node.pm 3 Feb 2002 22:39:42 -0000 1.12
--- Node.pm 17 Mar 2002 19:26:14 -0000 1.13
***************
*** 6,12 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::Node;
--- 6,17 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
+ #/**
+ # This class implements a DOM Node. Its the base class of most DOM
+ # Interfaces.
+ # @author <a href="mailto:kork at insomnia-hq.de">Jan Thomä</a>
+ #*/
use strict;
package XML::DOM2::Node;
***************
*** 74,78 ****
# Node is not of type ELEMENT_NODE.
# @public
! # Implementation is left to the subclass. This implementation
# returns undef.
#*/
--- 79,83 ----
# Node is not of type ELEMENT_NODE.
# @public
! # @note Implementation is left to the subclass. This implementation
# returns undef.
#*/
Index: NodeList.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NodeList.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** NodeList.pm 3 Feb 2002 22:39:42 -0000 1.8
--- NodeList.pm 17 Mar 2002 19:26:15 -0000 1.9
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Notation.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Notation.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Notation.pm 3 Feb 2002 22:39:42 -0000 1.2
--- Notation.pm 17 Mar 2002 19:26:15 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: ProcessingInstruction.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/ProcessingInstruction.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ProcessingInstruction.pm 3 Feb 2002 22:39:42 -0000 1.3
--- ProcessingInstruction.pm 17 Mar 2002 19:26:15 -0000 1.4
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Text.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Text.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Text.pm 3 Feb 2002 22:39:42 -0000 1.4
--- Text.pm 17 Mar 2002 19:26:15 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: notes.txt
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/notes.txt,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** notes.txt 3 Feb 2002 22:39:42 -0000 1.4
--- notes.txt 17 Mar 2002 19:26:15 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
|
