Menu
▾
▴
net-script-commits — All CVS commits will be posted to this list.
You can subscribe to this list here.
| 2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(13) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2002 |
Jan
(11) |
Feb
(12) |
Mar
(8) |
Apr
(16) |
May
(56) |
Jun
(20) |
Jul
(16) |
Aug
(13) |
Sep
(12) |
Oct
(15) |
Nov
|
Dec
(2) |
| 2003 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(36) |
Jun
(14) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2004 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Jan T. <de...@us...> - 2002-01-07 21:36:54
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv12001
Modified Files:
notes.txt
Log Message:
* added a few release notes
Index: notes.txt
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/notes.txt,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** notes.txt 2001/12/11 22:24:16 1.2
--- notes.txt 2002/01/07 21:36:52 1.3
***************
*** 19,25 ****
* node cloning
* normalization of text nodes
!
All methods take a hash as parameter which contains the
key-value-pairs as specified by the W3C specification.
--- 19,37 ----
* node cloning
* normalization of text nodes
! * node importing
!
All methods take a hash as parameter which contains the
key-value-pairs as specified by the W3C specification.
+
+
+ The implementation is far from being perfect. At this time
+ it has NOT been fully tested and may contain lots of bugs. You
+ should see this as "work in progress". It also lacks documentation,
+ but for the first time, you should be fine with the well documented
+ sources and the W3C specs.
+
+
+
+
|
|
From: Jan T. <de...@us...> - 2002-01-07 21:04:02
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv24290
Modified Files:
Attr.pm DOMImplementation.pm Document.pm Element.pm Node.pm
Log Message:
* finished core implementation
Index: Attr.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Attr.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Attr.pm 2002/01/01 17:52:59 1.2
--- Attr.pm 2002/01/07 21:03:55 1.3
***************
*** 35,39 ****
my $this = $proto -> SUPER::new(@_);
- $this -> { m_name } = "";
$this -> { m_ownerElement } = undef;
$this -> { m_specified } = 0;
--- 35,38 ----
***************
*** 63,66 ****
--- 62,70 ----
}
+
+ sub nodeValue {
+ my ($this, $paramRef) = @_;
+ $this -> value( $paramRef );
+ }
#/**
Index: DOMImplementation.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMImplementation.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DOMImplementation.pm 2001/08/02 21:59:39 1.1
--- DOMImplementation.pm 2002/01/07 21:03:55 1.2
***************
*** 35,39 ****
my $proto = shift; # get Prototype
my $class = ref( $proto ) || $proto;# get the Classname
- my %args = shift;
# Create a Class using the Hash-As-An-Object-Idiom
--- 35,38 ----
***************
*** 46,50 ****
# Returns a non-undef value if the requested feature is
# supported, and undef, if this feature is not supported.
! #
# @param a hash holding the following key-value-pairs:
# feature - the name of the feature which is requested.
--- 45,49 ----
# Returns a non-undef value if the requested feature is
# supported, and undef, if this feature is not supported.
! #
# @param a hash holding the following key-value-pairs:
# feature - the name of the feature which is requested.
***************
*** 54,66 ****
#*/
sub hasFeature {
! my ( $this, %params ) = @_;
!
! return undef;
}
#/**
# Creates an empty DocumentType node.
! #
# @param a hash containing the following key-value-pairs
# qualifiedName - the qualified name of the document type to be created.
--- 53,66 ----
#*/
sub hasFeature {
! my ( $this, $paramsRef ) = @_;
! my $feature = $paramsRef -> { feature };
! my $version = $paramsRef -> { version };
! return $feature =~ /Core/i && $version <= 2;
}
#/**
# Creates an empty DocumentType node.
! #
# @param a hash containing the following key-value-pairs
# qualifiedName - the qualified name of the document type to be created.
***************
*** 69,74 ****
# @return an instance of XML::DOM2::DocumentType
sub createDocumentType {
! return undef;
}
--- 69,80 ----
# @return an instance of XML::DOM2::DocumentType
sub createDocumentType {
+ my ($this, $paramRef) = @_;
! my $doctype = XML::DOM2::DocumentType -> new();
! $doctype -> { m_name } = $paramRef -> { qualifiedName };
! $doctype -> { m_publicId } = $paramRef -> { publicId };
! $doctype -> { m_systemId } = $paramRef -> { systemId };
! $doctype -> { m_ownerDocument } = undef;
! return $doctype;
}
***************
*** 83,88 ****
# @return an instance of XML::DOM2::Document
sub createDocument {
! return undef;
}
--- 89,115 ----
# @return an instance of XML::DOM2::Document
sub createDocument {
+ my ($this, $paramRef) = @_;
+ my $doctype = $paramRef -> { doctype };
! if (defined($doctype)) {
! if ( defined($doctype -> ownerDocument()) ) {
! my $exc = XML::DOM2::DOMException -> new ( {
! ErrCode => XML::DOM2::DOMException -> WRONG_DOCUMENT_ERR(),
! ErrDesc => "The specified Doctype has been used with another document!"
! });
! $exc -> raise();
! return;
! }
! }
!
! my $doc = XML::DOM2::Document -> new();
! $doc -> { m_implementation } = $this;
! $doc -> { m_doctype } = $paramRef -> { doctype };
! my $rootElement = $doc -> createElementNS( $paramRef );
! $doc -> appendChild( { newChild => $rootElement } );
! if ( defined($doctype) ) {
! $doctype -> { m_ownerDocument } = $doc;
! }
! return $doc;
}
Index: Document.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Document.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Document.pm 2002/01/01 17:53:34 1.1
--- Document.pm 2002/01/07 21:03:55 1.2
***************
*** 15,18 ****
--- 15,27 ----
use XML::DOM2::DOMException;
+ use XML::DOM2::Attr;
+ use XML::DOM2::CDATASection;
+ use XML::DOM2::Comment;
+ use XML::DOM2::DocumentFragment;
+ use XML::DOM2::Element;
+ use XML::DOM2::EntityReference;
+ use XML::DOM2::ProcessingInstruction;
+ use XML::DOM2::NodeList;
+
#--------------------------------------------------------
***************
*** 72,78 ****
sub implementation {
my ($this) = @_;
}
! #... continue here ...
sub nodeType {
--- 81,416 ----
sub implementation {
my ($this) = @_;
+ $this -> { m_implementation };
}
! #/**
! # Creates an Attr node of the given name. Note that the Attr instance
! # can then be set on an element using the setAttributeNode method.
! # @param a hash containing the following key-value-pairs:
! # name - the name of the attribute.
! # @return an instance of XML::DOM2::Attr
! # @public
! #*/
! sub createAttribute {
! my ($this, $paramRef) = @_;
! my $attr = XML::DOM2::Attr -> new();
! $attr -> { m_ownerDocument } = $this;
! $attr -> { m_nodeName } = $paramRef -> { "name" };
! $attr -> { m_localName } = undef;
! $attr -> { m_prefix } = undef;
! $attr -> { m_namespaceURI } = undef;
! $attr -> nodeValue( { "value" => ""} );
! $attr;
! }
!
! #/**
! # Creates an attribute of the given qualified name and namespace URI.
! # @param a hash containing the following key-value-pairs:
! # namespaceURI - the namespace URI of the attribute
! # qualifiedName - the qualified name of the attribute
! # @return an instance of XML::DOM2::Attr
! # @public
! #*/
! sub createAttributeNS {
! my ($this, $paramRef ) = @_;
!
! my ( $prefix, $localname ) = split(/:/, $paramRef -> { qualifiedName });
! my $namespaceURI = $paramRef -> { namespaceURI };
!
! if ( defined( $prefix ) && !defined($localname) ) {
! $localname = $prefix;
! $prefix = undef;
! }
!
! if ( defined($prefix) && !defined($namespaceURI) ) {
! my $exc = XML::DOM2::DOMException -> new ( {
! ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The qualified name has a prefix, but the namespace URI is undef!"
! });
! $exc -> raise();
! return;
! }
!
! if ( defined($prefix) && $prefix eq "xml" &&
! $namespaceURI ne "http://www.w3.org/XML/1998/namespace" ) {
!
! my $exc = XML::DOM2::DOMException -> new ( {
! ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The prefix is 'xml' but the namespace URI is different from 'http://www.w3.org/XML/1998/namespace'!"
! });
! $exc -> raise();
! }
!
! if ( defined($prefix) && $prefix eq "xmlns" &&
! $namespaceURI ne "http://www.w3.org/2000/xmlns" ) {
!
! my $exc = XML::DOM2::DOMException -> new ( {
! ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The prefix is 'xmlns' but the namespace URI is different from 'http://www.w3.org/2000/xmlsn'!"
! });
! $exc -> raise();
! }
!
! my $attr = XML::DOM2::Attr -> new();
! $attr -> { m_ownerDocument } = $this;
! $attr -> { m_nodeName } = $paramRef -> { qualifiedName };
! $attr -> { m_namespaceURI } = $namespaceURI;
! $attr -> { m_prefix } = $prefix;
! $attr -> { m_localName } = $localname;
! $attr -> nodeValue( { "value" => ""} ) ;
! $attr;
! }
!
! #/**
! # Creates a CDATASection node whose value is the specified String.
! # @param a hash containing the following key-value-pairs:
! # data - the data for the CDATASection contents.
! # @return an instance of XML::DOM2::CDATASection
! # @public
! #*/
! sub createCDATASection {
! my ($this, $paramRef) = @_;
!
! my $cdata = XML::DOM2::CDATASection -> new();
! $cdata -> { m_ownerDocument } = $this;
! $cdata -> data( $paramRef );
! $cdata;
! }
! #/**
! # Creates a Comment node given the specified String.
! # @param a hash containing the following key-value-pairs:
! # data - the data for the node.
! # @return an instance of XML::DOM2::Comment
! # @public
! #*/
! sub createComment {
! my ($this, $paramRef) = @_;
!
! my $comment = XML::DOM2::Comment -> new();
! $comment -> { m_ownerDocument } = $this;
! $comment -> data( $paramRef );
! $comment;
! }
!
! #/**
! # Creates an empty DocumentFragment object.
! # @return an instance of XML::DOM2::DocumentFragment
! # @public
! #*/
! sub createDocumentFragment {
! my ($this) = @_;
! my $frag = XML::DOM2::DocumentFragment -> new();
! $frag -> { m_ownerDocument } = $this;
! $frag;
! }
!
!
! #/**
! # Creates an element of the type specified. Attributes can be specified
! # directly on the returned object.
! # @param a hash containing the following key-value-pairs:
! # tagName - the name of the element type to instantiate.
! # @return an instance of XML::DOM2::Element
! # @public
! #*/
! sub createElement {
! my ($this, $paramRef) = @_;
! my $element = XML::DOM2::Element -> new();
!
! $element -> { m_ownerDocument } = $this;
! $element -> { m_nodeName } = $paramRef -> { tagName };
! $element -> { m_localName } = undef;
! $element -> { m_prefix } = undef;
! $element -> { m_namespaceURI } = undef;
! $element;
!
! }
!
! #/**
! # Creates an element of the given qualified name and namespaceURI
! # @param a hash containing the following key-value-pairs:
! # namespaceURI - the namespace URI of the element to create
! # qualifiedName - the qualified name of the element type to instantiate
! # @return an instance of XML::DOM2::Element
! # @public
! #*/
! sub createElementNS {
! my ($this, $paramRef) = @_;
!
! my ( $prefix, $localname ) = split(/:/, $paramRef -> { qualifiedName });
! my $namespaceURI = $paramRef -> { namespaceURI };
!
! if ( defined( $prefix ) && !defined($localname) ) {
! $localname = $prefix;
! $prefix = undef;
! }
!
! if ( defined($prefix) && !defined($namespaceURI) ) {
! my $exc = XML::DOM2::DOMException -> new ( {
! ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The qualified name has a prefix, but the namespace URI is undef!"
! });
! $exc -> raise();
! return;
! }
!
! if ( defined($prefix) && $prefix eq "xml" &&
! $namespaceURI ne "http://www.w3.org/XML/1998/namespace" ) {
!
! my $exc = XML::DOM2::DOMException -> new ( {
! ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The prefix is 'xml' but the namespace URI is different from 'http://www.w3.org/XML/1998/namespace'!"
! });
! $exc -> raise();
! }
!
! if ( defined($prefix) && $prefix eq "xmlns" &&
! $namespaceURI ne "http://www.w3.org/2000/xmlns" ) {
!
! my $exc = XML::DOM2::DOMException -> new ( {
! ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The prefix is 'xmlns' but the namespace URI is different from 'http://www.w3.org/2000/xmlsn'!"
! });
! $exc -> raise();
! }
!
!
! my $element = XML::DOM2::Element -> new();
! $element -> { m_ownerDocument } = $this;
!
! $element -> { m_nodeName } = $paramRef -> { qualifiedName };
! $element -> { m_namespaceURI } = $namespaceURI;
! $element -> { m_prefix } = $prefix;
! $element -> { m_localName } = $localname;
! $element -> { m_tagName } = $paramRef -> { qualifiedName };
! $element;
! }
!
! #/**
! # Creates an EntityReference object. In addition, if the referenced entity is
! # known, the child list of the EntityReference node is made the same as that
! # of the corresponding Entity node.
! # @param a hash containing the following key-value-pairs:
! # name - the name of the entity to reference.
! # @return an instance of XML::DOM2::EntityReference
! # @public
! #
! # FIXME: this is somewhat buggy ,since i don't
! # understand the spec fully in this case. Do not use
! # at this time.
! #
! #*/
! sub createEntityReference {
! my ($this, $paramRef) = @_;
! my $eref = XML::DOM2::EntityReference -> new();
! $eref -> { m_ownerDocument } = $this;
! $eref;
! }
!
! #/**
! # Creates a processing instruction node given the specified
! # name and data strings.
! # @param a hash containing the following key-value-pairs:
! # target - the target part of the processing instruction
! # data - the data for the node
! # @return an instance of XML::DOM2::ProcessingInstruction
! # @public
! #*/
! sub createProcessingInstruction {
! my ($this, $paramRef) = @_;
!
! my $pi = XML::DOM2::ProcessingInstruction -> new();
! $pi -> { m_ownerDocument } = $this;
! $pi -> target( $paramRef );
! $pi -> data( $paramRef );
! $pi;
! }
!
! #/**
! # Creates a new text node given the specified string.
! # @param a hash containing the following key-value-pairs
! # data - the data for the node
! # @return an instance of XML::DOM2::Text
! # @public
! #*/
! sub createTextNode {
! my ($this, $paramRef) = @_;
!
! my $text = XML::DOM2::Text -> new();
! $text -> { m_ownerDocument } = $this;
! $text -> data( $paramRef );
! $text;
! }
!
! #/**
! # Returns the Element whose ID is given by elementId. If no such element
! # exists, returns undef. If more than one element has this id then
! # the result is undefined.
! # @return According to the spec, this implementation returns undef, since
! # it has no information about which attributes are of type ID.
! # @public
! #*/
! sub getElementById {
! undef;
! }
!
! #/**
! # Returns a NodeList, of all the Elements with a given tg name in the
! # order in which they are encountered in a preorder traversal of the
! # document tree.
! # @param a hash containing the following key-value-pairs:
! # tagname - the name of the tag to match on. "*" matches all tags.
! # @return an instance of XML::DOM2::NodeList
! # @public
! #*/
! sub getElementsByTagName {
! my ($this, $paramRef) = @_;
! my $result = XML::DOM2::NodeList -> new();
! my $root = $this -> getDocumentElement();
!
! if ( defined( $root ) ) {
! $result = $root -> getElementsByTagName(
! { name => $paramRef -> { tagname } } );
! }
! $result;
! }
!
! #/**
! # Returns a NodeList of alle the Elements with a given local name
! # and namspace URI.
! # @param a hash containing the following key-value-pairs:
! # namespaceURI - the namsepace URI of the elements to match on
! # "*" matches all namespaces
! # localName - the localName of the elements to match on.
! # "*" matches all local names.
! # @return an instance of XML::DOM2::NodeList
! # @public
! #*/
! sub getElementsByTagNameNS {
! my ($this, $paramRef) = @_;
! my $result = XML::DOM2::NodeList -> new();
! my $root = $this -> getDocumentElement();
!
! if ( defined( $root ) ) {
! $result = $root -> getElementsByTagNameNS( $paramRef );
! }
! $result;
! }
!
! #/**
! # Imports a node from another document to this document.
! # @not-implemented
! #*/
! sub importNode {
! my ( $this ) = @_;
! my $exception = XML::DOM2::DOMException -> new(
! { ErrCode => XML::DOM2::DOMException -> NOT_SUPPORTED_ERR(),
! ErrDesc => "Node importing is not yet supported by this implementation."
! }
! );
! $exception -> raise();
! return;
! }
!
sub nodeType {
Index: Element.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Element.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Element.pm 2002/01/01 17:52:59 1.2
--- Element.pm 2002/01/07 21:03:55 1.3
***************
*** 41,44 ****
--- 41,53 ----
return $this;
}
+ #/**
+ # Returns name of the element.
+ # @return a scalar holding the name of the element.
+ # @public
+ #*/
+ sub tagName {
+ my ($this) = @_;
+ $this -> { m_tagName };
+ }
#/**
Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Node.pm 2002/01/01 17:52:59 1.10
--- Node.pm 2002/01/07 21:03:55 1.11
***************
*** 63,66 ****
--- 63,67 ----
$this -> { m_previousSibling } = undef;
$this -> { m_readOnly } = 0;
+ $this -> { m_nodeName } = undef;
return $this; # return Object
}
|
|
From: Jan T. <de...@us...> - 2002-01-01 18:05:46
|
Update of /cvsroot/net-script/netscript2 In directory usw-pr-cvs1:/tmp/cvs-serv25073 Modified Files: Makefile Makefile.files Log Message: * added target for DOM2 snapshot Index: Makefile =================================================================== RCS file: /cvsroot/net-script/netscript2/Makefile,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Makefile 2001/11/29 22:21:09 1.4 --- Makefile 2002/01/01 18:05:44 1.5 *************** *** 55,59 **** # Creates a package #------------------- ! package: -rm -rf netscript_$(VERSION) mkdir netscript_$(VERSION) --- 55,59 ---- # Creates a package #------------------- ! package_all: -rm -rf netscript_$(VERSION) mkdir netscript_$(VERSION) *************** *** 62,67 **** -cp * netscript_$(VERSION) rm -rf `find netscript_$(VERSION) -type d |grep CVS` ! tar -cvzf netscript$(VERSION).tar.gz netscript_$(VERSION) rm -rf netscript_$(VERSION) -mkdir snapshots ! mv netscript$(VERSION).tar.gz snapshots --- 62,79 ---- -cp * netscript_$(VERSION) rm -rf `find netscript_$(VERSION) -type d |grep CVS` ! tar -cvzf netscript_$(VERSION).tar.gz netscript_$(VERSION) rm -rf netscript_$(VERSION) -mkdir snapshots ! mv netscript_$(VERSION).tar.gz snapshots ! ! # Creates a package for DOM2 ! #--------------------------- ! package_dom2: ! -rm -rf xmldom2_$(VERSION_DOM2) ! mkdir -p xmldom2_$(VERSION_DOM2)/XML/DOM2 ! cp -r $(DOM2_DIR)/* xmldom2_$(VERSION_DOM2)/XML/DOM2 ! rm -rf `find xmldom2_$(VERSION_DOM2) -type d | grep CVS` ! tar -cvzf xmldom2_$(VERSION_DOM2).tar.gz xmldom2_$(VERSION_DOM2) ! rm -rf xmldom2_$(VERSION_DOM2) ! -mkdir snapshots_dom2 ! mv xmldom2_$(VERSION_DOM2).tar.gz snapshots_dom2 Index: Makefile.files =================================================================== RCS file: /cvsroot/net-script/netscript2/Makefile.files,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Makefile.files 2001/11/29 22:21:09 1.4 --- Makefile.files 2002/01/01 18:05:44 1.5 *************** *** 26,29 **** --- 26,30 ---- TOOLS_SourceDir = src/tools SOURCE_DIR = src/perl + DOM2_DIR = $(SOURCE_DIR)/XML/DOM2 Perl = $(shell find -name "*.pl" -or -name "*.pm" |grep "src/") XML_Mappings = $(shell find -name "*.xml" | grep "src/xml/" | grep -v "/samples/") *************** *** 33,34 **** --- 34,37 ---- TOOLS = $(subst ./,,$(shell cd $(TOOLS_SourceDir);find ./ -name "*.pm" -o -name "*.pl")) VERSION=2.0 + VERSION_DOM2=0.1alpha + |
|
From: Jan T. <de...@us...> - 2002-01-01 17:54:31
|
Update of /cvsroot/net-script/netscript2/docs
In directory usw-pr-cvs1:/tmp/cvs-serv22951
Modified Files:
REQUIREMENTS
Added Files:
TODO
Log Message:
--- NEW FILE: TODO ---
/---------------------------------------------------------------------\
| $Id: TODO,v 1.1 2002/01/01 17:54:28 derkork Exp $
| NetScript 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 (ko...@in...)
\---------------------------------------------------------------------/
To do:
------
Classes/Interfaces:
* DOMImplementation
* Document
* Node
- implement cloneNode
- implement normalize
Other
* lots of sanity checks ( e.g you cannot insert an attr
as a child node of anything )
Done:
-----
* Notation
* Entity
* EntityReference
* DocumentType
* DocumentFragment
* Node
- handling for document fragments
* DOMException
* ExceptionCode
* ProcessingInstruction
* Text
* Comment
* CharacterData
* Attr
* Element
* NodeList
* NamedNodeMap
* CDATASection
Index: REQUIREMENTS
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/REQUIREMENTS,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** REQUIREMENTS 2001/11/29 22:18:02 1.1
--- REQUIREMENTS 2002/01/01 17:54:28 1.2
***************
*** 15,19 ****
- Needed Modules:
* XML::Parser
! * XML::DOM2
* CGI.pm
--- 15,19 ----
- Needed Modules:
* XML::Parser
! * XML::DOM2*
* CGI.pm
***************
*** 22,29 ****
* HTTP::Request (for work with remote files)
* HTTP::Response (for work with remote files)
! * XML::XSLT (for XSLT-support)
! * XML::XPath (for XSLT-support)
* Test::Unit (for unit tests)
XML::DOM2, XML::XSLT and XML::XPath are part of the NetScript II distribution.
--- 22,30 ----
* HTTP::Request (for work with remote files)
* HTTP::Response (for work with remote files)
! * XML::XSLT* (for XSLT-support)
! * XML::XPath* (for XSLT-support)
* Test::Unit (for unit tests)
+ (*) = included in distribution of NetScript2
XML::DOM2, XML::XSLT and XML::XPath are part of the NetScript II distribution.
***************
*** 31,32 ****
--- 32,35 ----
NetScript2 checks for required modules and will provide the features which
can be realized with the installed modules.
+
+ Note: XML::DOM2 is yet unstable, XML::XPath and XML::XSLT are not yet finished.
|
|
From: Jan T. <de...@us...> - 2002-01-01 17:54:22
|
Update of /cvsroot/net-script/netscript2/docs In directory usw-pr-cvs1:/tmp/cvs-serv22900 Modified Files: wipeout.project Log Message: Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/docs/wipeout.project,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** wipeout.project 2001/11/29 22:17:54 1.2 --- wipeout.project 2002/01/01 17:54:19 1.3 *************** *** 1,182 **** b ! C DmDictionary 0 356d7 8 ! c 0 3571c 9 ! C Category 1 1695 ! c 0 3574a 4 ! C DmString 2 35751 2 e3 ! c 2 35750 a defaultExe ! C DmSet 3 35753 1 ! c 2 16a4 2 e3 ! L 16a4 ! c 2 35752 b executables ! c 3 3574e 3 ! c 2 16ab 3 *.C ! L 16ab ! c 2 16ae 4 *.cc ! L 16ae ! c 2 16b1 5 *.cpp ! L 16b1 ! c 2 3574d a extensions ! c 2 3574c a CPP_source ! c 2 3574b 4 name ! c 2 3571e a CPP_source ! c 1 16c6 ! c 0 35790 4 ! c 2 35797 2 e3 ! c 2 35796 a defaultExe ! c 3 35799 1 ! c 2 16d3 2 e3 ! L 16d3 ! c 2 35798 b executables ! c 3 35794 1 ! c 2 16da 3 *.c ! L 16da ! c 2 35793 a extensions ! c 2 35792 8 C_source ! c 2 35791 4 name ! c 2 3571f 8 C_source ! c 1 16ef ! c 0 357ca 4 ! c 2 357d1 2 e3 ! c 2 357d0 a defaultExe ! c 3 357d3 1 ! c 2 16fc 2 e3 ! L 16fc ! c 2 357d2 b executables ! c 3 357ce 1 ! c 2 1703 3 *.e ! L 1703 ! c 2 357cd a extensions ! c 2 357cc 6 Eiffel ! c 2 357cb 4 name ! c 2 35720 6 Eiffel ! c 1 1718 ! c 0 35804 4 ! c 2 3580b 2 e3 ! c 2 3580a a defaultExe ! c 3 3580d 1 ! c 2 1725 2 e3 ! L 1725 ! c 2 3580c b executables ! c 3 35808 4 ! c 2 172c 3 *.F ! L 172c ! c 2 172f 3 *.f ! L 172f ! c 2 1732 5 *.for ! L 1732 ! c 2 1735 5 *.fpp ! L 1735 ! c 2 35807 a extensions ! c 2 35806 7 Fortran ! c 2 35805 4 name ! c 2 35721 7 Fortran ! c 1 174a ! c 0 3584a 4 ! c 2 35851 2 e3 ! c 2 35850 a defaultExe ! c 3 35853 1 ! c 2 1757 2 e3 ! L 1757 ! c 2 35852 b executables ! c 3 3584e 2 ! c 2 175e 3 *.H ! L 175e ! c 2 1761 3 *.h ! L 1761 ! c 2 3584d a extensions ! c 2 3584c 6 Header ! c 2 3584b 4 name ! c 2 35722 6 Header ! c 1 1776 ! c 0 35888 4 ! c 2 3588f 9 surfboard ! c 2 3588e a defaultExe ! c 3 35891 2 ! c 2 1783 2 e3 ! L 1783 ! c 2 1786 9 surfboard ! L 1786 ! c 2 35890 b executables ! c 3 3588c 2 ! c 2 178d 5 *.htm ! L 178d ! c 2 1790 6 *.html ! L 1790 ! c 2 3588b a extensions ! c 2 3588a 4 Html ! c 2 35889 4 name ! c 2 35723 4 Html ! c 1 17a5 ! c 0 358ca 4 ! c 2 358d1 2 e3 ! c 2 358d0 a defaultExe ! c 3 358d3 1 ! c 2 17b2 2 e3 ! L 17b2 ! c 2 358d2 b executables ! c 3 358ce 1 ! c 2 17b9 6 *.java ! L 17b9 ! c 2 358cd a extensions ! c 2 358cc 4 Java ! c 2 358cb 4 name ! c 2 35724 4 Java ! c 1 17ce ! c 0 35904 4 ! c 2 3590b 2 e3 ! c 2 3590a a defaultExe ! c 3 3590d 1 ! c 2 17db 2 e3 ! L 17db ! c 2 3590c b executables ! c 3 35908 1 ! c 2 17e2 5 *.tex ! L 17e2 ! c 2 35907 a extensions ! c 2 35906 5 Latex ! c 2 35905 4 name ! c 2 35725 5 Latex ! c 1 17f7 ! c 0 3593e 4 ! c 2 35945 2 e3 ! c 2 35944 a defaultExe ! c 3 35947 1 ! c 2 1804 2 e3 ! L 1804 ! c 2 35946 b executables ! c 3 35942 0 ! c 2 35941 a extensions ! c 2 35940 5 Other ! c 2 3593f 4 name ! c 2 35726 5 Other ! c 2 3571b a categories ! c 0 35728 1 ! C ProjectDir 4 1821 ! c 2 1822 10 netscript2/docs/ 11 81 ! c 2 1823 0 0 ! c 2 3572a 10 netscript2/docs/ ! c 2 35727 b directories ! C DmBag 5 356e3 1 ! c 2 35719 de b ! C DmDictionary 0 356e5 3 ! C DmString 1 356f7 39 b ! C DmSet 0 35582 1 ! C DmString 1 356cc 5 Other ! L 356cc ! c 1 356f6 a categories ! c 1 356e7 c REQUIREMENTS ! c 1 356e6 4 name ! C DmInteger 2 356f9 1 ! c 1 356f8 9 substMode ! c 2 3571a 5 files ! c 2 356df 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 356de 6 launch ! c 2 356db 4 make ! c 2 356da 4 make ! c 2 356dd 0 ! c 2 356dc 8 makeFile ! c 5 356e0 0 ! c 2 356e2 7 modules ! c 2 356d9 4 docs ! c 2 356d8 4 name --- 1,193 ---- b ! C DmDictionary 0 4e407 8 ! c 0 4e481 9 ! C Category 1 237b ! c 0 4e4af 4 ! C DmString 2 4e4b6 2 e3 ! c 2 4e4b5 a defaultExe ! C DmSet 3 4e4b8 1 ! c 2 238a 2 e3 ! L 238a ! c 2 4e4b7 b executables ! c 3 4e4b3 3 ! c 2 2391 3 *.C ! L 2391 ! c 2 2394 4 *.cc ! L 2394 ! c 2 2397 5 *.cpp ! L 2397 ! c 2 4e4b2 a extensions ! c 2 4e4b1 a CPP_source ! c 2 4e4b0 4 name ! c 2 4e483 a CPP_source ! c 1 23ac ! c 0 4e4f5 4 ! c 2 4e4fc 2 e3 ! c 2 4e4fb a defaultExe ! c 3 4e4fe 1 ! c 2 23b9 2 e3 ! L 23b9 ! c 2 4e4fd b executables ! c 3 4e4f9 1 ! c 2 23c0 3 *.c ! L 23c0 ! c 2 4e4f8 a extensions ! c 2 4e4f7 8 C_source ! c 2 4e4f6 4 name ! c 2 4e484 8 C_source ! c 1 23d5 ! c 0 4e52f 4 ! c 2 4e536 2 e3 ! c 2 4e535 a defaultExe ! c 3 4e538 1 ! c 2 23e2 2 e3 ! L 23e2 ! c 2 4e537 b executables ! c 3 4e533 1 ! c 2 23e9 3 *.e ! L 23e9 ! c 2 4e532 a extensions ! c 2 4e531 6 Eiffel ! c 2 4e530 4 name ! c 2 4e485 6 Eiffel ! c 1 23fe ! c 0 4e569 4 ! c 2 4e570 2 e3 ! c 2 4e56f a defaultExe ! c 3 4e572 1 ! c 2 240b 2 e3 ! L 240b ! c 2 4e571 b executables ! c 3 4e56d 4 ! c 2 2412 3 *.F ! L 2412 ! c 2 2415 3 *.f ! L 2415 ! c 2 2418 5 *.for ! L 2418 ! c 2 241b 5 *.fpp ! L 241b ! c 2 4e56c a extensions ! c 2 4e56b 7 Fortran ! c 2 4e56a 4 name ! c 2 4e486 7 Fortran ! c 1 2430 ! c 0 4e5af 4 ! c 2 4e5b6 2 e3 ! c 2 4e5b5 a defaultExe ! c 3 4e5b8 1 ! c 2 243d 2 e3 ! L 243d ! c 2 4e5b7 b executables ! c 3 4e5b3 2 ! c 2 2444 3 *.H ! L 2444 ! c 2 2447 3 *.h ! L 2447 ! c 2 4e5b2 a extensions ! c 2 4e5b1 6 Header ! c 2 4e5b0 4 name ! c 2 4e487 6 Header ! c 1 245c ! c 0 4e5ed 4 ! c 2 4e5f4 9 surfboard ! c 2 4e5f3 a defaultExe ! c 3 4e5f6 2 ! c 2 2469 2 e3 ! L 2469 ! c 2 246c 9 surfboard ! L 246c ! c 2 4e5f5 b executables ! c 3 4e5f1 2 ! c 2 2473 5 *.htm ! L 2473 ! c 2 2476 6 *.html ! L 2476 ! c 2 4e5f0 a extensions ! c 2 4e5ef 4 Html ! c 2 4e5ee 4 name ! c 2 4e488 4 Html ! c 1 248b ! c 0 4e62f 4 ! c 2 4e636 2 e3 ! c 2 4e635 a defaultExe ! c 3 4e638 1 ! c 2 2498 2 e3 ! L 2498 ! c 2 4e637 b executables ! c 3 4e633 1 ! c 2 249f 6 *.java ! L 249f ! c 2 4e632 a extensions ! c 2 4e631 4 Java ! c 2 4e630 4 name ! c 2 4e489 4 Java ! c 1 24b4 ! c 0 4e669 4 ! c 2 4e670 2 e3 ! c 2 4e66f a defaultExe ! c 3 4e672 1 ! c 2 24c1 2 e3 ! L 24c1 ! c 2 4e671 b executables ! c 3 4e66d 1 ! c 2 24c8 5 *.tex ! L 24c8 ! c 2 4e66c a extensions ! c 2 4e66b 5 Latex ! c 2 4e66a 4 name ! c 2 4e48a 5 Latex ! c 1 24dd ! c 0 4e6a3 4 ! c 2 4e6aa 2 e3 ! c 2 4e6a9 a defaultExe ! c 3 4e6ac 1 ! c 2 24ea 2 e3 ! L 24ea ! c 2 4e6ab b executables ! c 3 4e6a7 0 ! c 2 4e6a6 a extensions ! c 2 4e6a5 5 Other ! c 2 4e6a4 4 name ! c 2 4e48b 5 Other ! c 2 4e480 a categories ! c 0 4e48d 1 ! C ProjectDir 4 2507 ! c 2 2508 10 netscript2/docs/ 11 81 ! c 2 2509 0 0 ! c 2 4e48f 10 netscript2/docs/ ! c 2 4e48c b directories ! C DmBag 5 4e413 2 ! c 2 4e449 db b ! C DmDictionary 0 4e415 3 ! C DmString 1 4e427 36 b ! C DmSet 0 253d 1 ! C DmString 1 256b 5 Other ! L 256b ! c 1 4e426 a categories ! c 1 4e417 c REQUIREMENTS ! c 1 4e416 4 name ! C DmInteger 2 4e429 1 ! c 1 4e428 9 substMode ! c 2 4e47e d6 b ! C DmDictionary 0 4e44a 3 ! C DmString 1 4e45c 39 b ! C DmSet 0 4e29a 1 ! C DmString 1 4e3fc 5 Other ! L 4e3fc ! c 1 4e45b a categories ! c 1 4e44c 4 TODO ! c 1 4e44b 4 name ! C DmInteger 2 4e45e 1 ! c 1 4e45d 9 substMode ! c 2 4e47f 5 files ! c 2 4e40f 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 4e40e 6 launch ! c 2 4e40b 4 make ! c 2 4e40a 4 make ! c 2 4e40d 0 ! c 2 4e40c 8 makeFile ! c 5 4e410 0 ! c 2 4e412 7 modules ! c 2 4e409 4 docs ! c 2 4e408 4 name |
|
From: Jan T. <de...@us...> - 2002-01-01 17:53:37
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv22794
Added Files:
Document.pm DocumentFragment.pm DocumentType.pm Entity.pm
EntityReference.pm Notation.pm
Log Message:
* initial checkin
--- NEW FILE: Document.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class Document
# $Id: Document.pm,v 1.1 2002/01/01 17:53:34 derkork Exp $
#
# 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::Document;
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
use XML::DOM2::DOMException;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new Processing instruction.
# @return an instance of XML::DOM2::ProcessingInstruction
# @public
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
my $this = $proto -> SUPER::new(@_);
$this -> { m_doctype } = undef;
$this -> { m_documentElement } = undef;
$this -> { m_implementation } = undef;
return $this;
}
#/**
# Returns the document type declaration associated with this document.
# If there was no DTD specified, or the document is an html document,
# this is undef.
# @return an instance of XML::DOM2::DocumentType or undef
# @public
#*/
sub doctype {
my ($this) = @_;
$this -> { m_doctype };
}
#/**
# This returns the root element of the document.
# @return an instance of XML::DOM2::Element
# @public
#*/
sub documentElement {
my ($this) = @_;
$this -> firstChild();
}
#/**
# This returns the DOMImplementation object that handles this document.
# @return an instance of XML::DOM2::DOMImplementation.
# @public
#*/
sub implementation {
my ($this) = @_;
}
#... continue here ...
sub nodeType {
&DOCUMENT_NODE();
}
--- NEW FILE: DocumentFragment.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DocumentFragment
# $Id: DocumentFragment.pm,v 1.1 2002/01/01 17:53:34 derkork Exp $
#
# 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::DocumentFragment;
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
use XML::DOM2::DOMException;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Returns DOCUMENT_FRAGMENT_NODE.
# @public
#*/
sub nodeType {
&DOCUMENT_FRAGMENT_NODE();
}
--- NEW FILE: DocumentType.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DocumentType
# $Id: DocumentType.pm,v 1.1 2002/01/01 17:53:34 derkork Exp $
#
# 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::DocumentType;
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
use XML::DOM2::DOMException;
use XML::DOM2::NamedNodeMap;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new XML::DOM2::DocumentType.
# @return an instance of XML::DOM2::DocumentType
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
my $this = $proto -> SUPER::new(@_);
$this -> { m_name } = "";
$this -> { m_entities } = XML::DOM2::NamedNodeMap -> new();
$this -> { m_notation } = XML::DOM2::NamedNodeMap -> new();
$this -> { m_publicId } = "";
$this -> { m_systemId } = "";
$this -> { m_internalSubset } = "";
return $this;
}
#/**
# A XML::DOM2::NamedNodeMap that contains the general entities, both external
# and internal, declared in the DTD. Parameter entities are not contained.
# Duplicates are discarded. The mapping is "Entity Name" -> XML::DOM2::Entity
# @public
#*/
sub entities {
my ($this) = @_;
$this -> { m_entities };
}
#/**
# Returns the internal subset as a string.
# @public
#*/
sub internalSubset {
my ($this) = @_;
$this -> { m_internalSubset };
}
#/**
# Returns the name of the DTD, the name immediately following the
# DOCTYPE-keyword.
# @public
#*/
sub name {
my ($this) = @_;
$this -> { m_name };
}
#/**
# Returns an XML::DOM2::NamedNodeMap containing the notations declared in
# the DTD. Duplicates are discarded.
# Mapping is "Notation Name" -> XML::DOM2::Notation.
# @public
#*/
sub notations {
my ($this) = @_;
$this -> { m_notations };
}
#/**
# Returns the public identifier of the external subset.
# @public
#*/
sub publicId {
my ($this) = @_;
$this -> { m_publicId };
}
#/**
# Returns the System identifier of the external subset.
# @public
#*/
sub systemId {
my ($this) = @_;
$this -> { m_systemId };
}
#/**
# Returns DOCUMENT_FRAGMENT_NODE.
# @public
#*/
sub nodeType {
&DOCUMENT_TYPE_NODE();
}
--- NEW FILE: Entity.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class Entity
# $Id: Entity.pm,v 1.1 2002/01/01 17:53:34 derkork Exp $
#
# 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::Entity;
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
use XML::DOM2::DOMException;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new XML::DOM2::Entity
# @return an instance of XML::DOM2::Entity
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
my $this = $proto -> SUPER::new(@_);
$this -> { m_publicId } = "";
$this -> { m_systemId } = "";
$this -> { m_notationName } = "";
return $this;
}
#/**
# For unparsed entites, the name of the notation for the entity. For
# parsed entities this is undef;
# @public
#*/
sub notationName {
my ($this) = @_;
$this -> { m_notationName };
}
#/**
# The public identifier associated with the entity, if specified. If the
# public identifier was not specified, this is undef.
# @public
#*/
sub publicId {
my ($this) = @_;
$this -> { m_publicId };
}
#/**
# The system identifier associated with the entity, if specified. If
# the system identifier was not specified, this is undef.
# @public
#*/
sub systemId {
my ($this) = @_;
$this -> { m_systemId };
}
#/**
# Returns ENTITY_NODE
# @public
#*/
sub nodeType {
&ENTITY_NODE();
}
--- NEW FILE: EntityReference.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class EntityReference
# $Id: EntityReference.pm,v 1.1 2002/01/01 17:53:34 derkork Exp $
#
# 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::EntityReference;
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
use XML::DOM2::DOMException;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Returns ENTITY_REFERENCE_NODE.
# @public
#*/
sub nodeType {
&ENTITY_REFERENCE_NODE();
}
--- NEW FILE: Notation.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class Notation
# $Id: Notation.pm,v 1.1 2002/01/01 17:53:34 derkork Exp $
#
# 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::Notation;
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
use XML::DOM2::DOMException;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new XML::DOM2::Entity
# @return an instance of XML::DOM2::Entity
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
my $this = $proto -> SUPER::new(@_);
$this -> { m_publicId } = "";
$this -> { m_systemId } = "";
return $this;
}
#/**
# The public identifier of this notation. If the
# public identifier was not specified, this is undef.
# @public
#*/
sub publicId {
my ($this) = @_;
$this -> { m_publicId };
}
#/**
# The system identifier if this notation. If
# the system identifier was not specified, this is undef.
# @public
#*/
sub systemId {
my ($this) = @_;
$this -> { m_systemId };
}
#/**
# Returns NOTATION_NODE
# @public
#*/
sub nodeType {
&NOTATION_NODE();
}
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv22682
Modified Files:
Attr.pm CDATASection.pm Comment.pm Element.pm NamedNodeMap.pm
Node.pm NodeList.pm ProcessingInstruction.pm Text.pm
Log Message:
* several fixes
Index: Attr.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Attr.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Attr.pm 2001/12/03 21:16:58 1.1
--- Attr.pm 2002/01/01 17:52:59 1.2
***************
*** 50,54 ****
sub name {
my ($this) = @_;
! $this -> { m_name };
}
--- 50,54 ----
sub name {
my ($this) = @_;
! $this -> nodeName();
}
***************
*** 81,84 ****
--- 81,92 ----
my %params = %{$paramRef};
my $value = $params{"value"};
+
+ # escape the value
+ $value =~ s/&/&/g;
+ $value =~ s/([^a-zA-Z0-9_ .:\/()?=!-\\\[\]])/('&#'.ord($1).';')/eg;
+ $value =~ s/</</g;
+ $value =~ s/>/>/g;
+ $value =~ s/"/"/g;
+
# clear list of children
$this -> childNodes() -> removeAll();
***************
*** 120,123 ****
--- 128,161 ----
}
}
+
+ sub nodeName {
+ my ($this) = @_;
+ $this -> { m_nodeName };
+ }
+
+ sub prefix {
+ my ($this) = @_;
+ my $name = $this -> nodeName();
+ my ($prefix, $localname ) = split( /:/, $name );
+ if ( !defined($localname) ) {
+ return undef;
+ }
+ else {
+ return $prefix;
+ }
+ }
+
+ sub localName {
+ my ($this) = @_;
+ my $name = $this -> nodeName();
+ my ($prefix, $localname ) = split( /:/, $name );
+ if ( !defined($localname) ) {
+ return $prefix;
+ }
+ else {
+ return $localname;
+ }
+ }
+
#/**
Index: CDATASection.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CDATASection.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** CDATASection.pm 2001/12/03 21:17:45 1.2
--- CDATASection.pm 2002/01/01 17:52:59 1.3
***************
*** 91,92 ****
--- 91,96 ----
$this -> data();
}
+
+ sub nodeType {
+ &CDATA_SECTION_NODE();
+ }
Index: Comment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Comment.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Comment.pm 2001/12/03 21:17:45 1.2
--- Comment.pm 2002/01/01 17:52:59 1.3
***************
*** 92,93 ****
--- 92,97 ----
$this -> data();
}
+
+ sub nodeType {
+ &COMMENT_NODE();
+ }
Index: Element.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Element.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Element.pm 2001/12/11 22:21:49 1.1
--- Element.pm 2002/01/01 17:52:59 1.2
***************
*** 324,327 ****
--- 324,531 ----
#/**
+ # Adds an new Attribute. If an attribute with that name is
+ # already present, it's value is changed to be that
+ # of the parameter. This value is a simple string, which is
+ # not parsed. Any markup such as syntax to be recognized as
+ # entity reference is treated as literal text and will be
+ # appropriately escaped by the implementation. See the DOM
+ # Level 2 Specification for more information about how to
+ # create attributes with entity references.
+ #
+ # @param a hash containing the following key-value-pairs
+ # name - the name of the attribute to create / alter
+ # value - value to set in string form
+ # @public
+ #*/
+ sub setAttribute {
+ my ($this, $paramRef) = @_;
+ my $name = $paramRef -> { "name" };
+ my $value = $paramRef -> { "value" };
+
+
+ my $attribute = $this -> getAttribute( $paramRef );
+
+ if ( defined($attribute) ) {
+ $attribute -> value ( $paramRef );
+ }
+ else {
+ $attribute = $this -> ownerDocument() -> createAttribute( $paramRef );
+ $attribute -> value( $paramRef );
+ $this -> setAttributeNode( { newAttr => $attribute } );
+ }
+ }
+
+ #/**
+ # Same as setAttribute, but takes qualified name and namespace URI instead.
+ #
+ # @param a hash containing the following key-value-pairs
+ # namespaceURI - the namespace uri of the attribute
+ # qualifiedName - the qualified name of the attribute
+ # value - the value to set in string form
+ # @public
+ #*/
+ sub setAttributeNS {
+ my ($this, $paramRef) = @_;
+ my $namespaceURI = $paramRef -> { "namespaceURI" };
+ my $qualifiedName = $paramRef -> { "qualifiedName" };
+
+ my ($prefix, $localname) = split(/:/, $qualifiedName);
+
+ if ( defined( $prefix ) && !defined($localname) ) {
+ $localname = $prefix;
+ $prefix = undef;
+ }
+
+ if ( defined($prefix) && !defined($namespaceURI) ) {
+ my $exc = XML::DOM2::DOMException -> new ( {
+ ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
+ ErrDesc => "The qualified name has a prefix, but the namespace URI is undef!"
+ });
+ $exc -> raise();
+ return;
+ }
+
+ if ( defined($prefix) && $prefix eq "xml" &&
+ $namespaceURI ne "http://www.w3.org/XML/1998/namespace" ) {
+
+ my $exc = XML::DOM2::DOMException -> new ( {
+ ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
+ ErrDesc => "The prefix is 'xml' but the namespace URI is different from 'http://www.w3.org/XML/1998/namespace'!"
+ });
+ $exc -> raise();
+ }
+
+ if ( defined($prefix) && $prefix eq "xmlns" &&
+ $namespaceURI ne "http://www.w3.org/2000/xmlns" ) {
+
+ my $exc = XML::DOM2::DOMException -> new ( {
+ ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
+ ErrDesc => "The prefix is 'xmlns' but the namespace URI is different from 'http://www.w3.org/2000/xmlsn'!"
+ });
+ $exc -> raise();
+ }
+
+ my $attribute = $this -> getAttributeNS( $paramRef );
+ if ( defined( $attribute ) ) {
+ $attribute -> value( $paramRef );
+ }
+ else {
+ $attribute = $this -> ownerDocument() -> createAttributeNS( $paramRef );
+ $attribute -> value( $paramRef );
+ $this -> setAttributeNodeNS( { newAttr => $attribute } );
+ }
+ }
+
+ #/**
+ # Adds a new attribute node. If an attribute with the same nodeName is
+ # already present in the element, it is replaced.
+ # @param a hash that contains the following key-value-pairs:
+ # newAttr - the node to add (XML::DOM2::Attr)
+ # @return the replaced attribute if any
+ # @public
+ #*/
+ sub setAttributeNode {
+ my ($this, $paramRef) = @_;
+
+ my $attribute = $paramRef -> { newAttr } ;
+
+ if ( $attribute -> ownerDocument() != $this -> ownerDocument() ) {
+ my $exc = XML::DOM2::DOMException -> new ( {
+ ErrCode => XML::DOM2::DOMException -> WRONG_DOCUMENT_ERR(),
+ ErrDesc => "The Attribute you were trying to add was created with a different document!"
+ });
+ $exc -> raise();
+ }
+ if ( defined( $attribute -> ownerElement() ) &&
+ $attribute -> ownerElement() != $this ) {
+
+ my $exc = XML::DOM2::DOMExcpetion -> new ( {
+ ErrCode => XML::DOM2::DOMException -> INUSE_ATTRIBUTE_ERR(),
+ ErrCode => "The Attribute you were trying to add, is an Attribute of another Element!"
+ } )
+ }
+
+ my $old = getAttributeNode( { name => $attribute -> name() } );
+
+ if ( defined($old) ) {
+ $this -> removeAttributeNode( { oldAttr => $old} );
+ }
+
+ $this -> attributes() -> add( { newNode => $attribute } );
+ return $old;
+ }
+
+ #/**
+ # Adds a new attribute node. If an attribute with the same local name and
+ # namespace URI is present, it will be replaced.
+ # @param a hash that contains the following key-value-pairs:
+ # newAttr - the node to add (XML::DOM2::Attr)
+ # @return the replaced attribute.
+ # @public
+ #*/
+ sub setAttributeNode {
+ my ($this, $paramRef) = @_;
+
+ my $attribute = $paramRef -> { newAttr } ;
+
+ if ( $attribute -> ownerDocument() != $this -> ownerDocument() ) {
+ my $exc = XML::DOM2::DOMException -> new ( {
+ ErrCode => XML::DOM2::DOMException -> WRONG_DOCUMENT_ERR(),
+ ErrDesc => "The Attribute you were trying to add was created with a different document!"
+ });
+ $exc -> raise();
+ }
+ if ( defined( $attribute -> ownerElement() ) &&
+ $attribute -> ownerElement() != $this ) {
+
+ my $exc = XML::DOM2::DOMExcpetion -> new ( {
+ ErrCode => XML::DOM2::DOMException -> INUSE_ATTRIBUTE_ERR(),
+ ErrCode => "The Attribute you were trying to add, is an Attribute of another Element!"
+ } )
+ }
+
+ my $old = getAttributeNodeNS( {
+ namespaceURI => $attribute -> namespaceURI(),
+ localName => $attribute -> localName()
+ } );
+
+ if ( defined($old) ) {
+ $this -> removeAttributeNode( { oldAttr => $old} );
+ }
+
+ $this -> attributes() -> add( { newNode => $attribute } );
+ return $old;
+ }
+
+ sub nodeName {
+ my ($this) = @_;
+ $this -> { m_nodeName };
+ }
+
+ sub prefix {
+ my ($this) = @_;
+ my $name = $this -> nodeName();
+ my ($prefix, $localname ) = split( /:/, $name );
+ if ( !defined($localname) ) {
+ return undef;
+ }
+ else {
+ return $prefix;
+ }
+ }
+
+ sub localName {
+ my ($this) = @_;
+ my $name = $this -> nodeName();
+ my ($prefix, $localname ) = split( /:/, $name );
+ if ( !defined($localname) ) {
+ return $prefix;
+ }
+ else {
+ return $localname;
+ }
+ }
+
+ #/**
# Returns ELEMENT_NODE
#*/
***************
*** 329,330 ****
--- 533,536 ----
&ELEMENT_NODE();
}
+
+ 1;
Index: NamedNodeMap.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NamedNodeMap.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** NamedNodeMap.pm 2001/12/11 22:22:34 1.4
--- NamedNodeMap.pm 2002/01/01 17:52:59 1.5
***************
*** 27,32 ****
#/**
! # The constructor. Constructs a NodeList
! # @return an instance of XML::DOM2:NodeList
#*/
sub new {
--- 27,32 ----
#/**
! # The constructor. Constructs a NamedNodeMap
! # @return an instance of XML::DOM2:NamedNodeMap
#*/
sub new {
***************
*** 137,141 ****
my $found = 0;
! for ( keys( $this -> { m_nodeMap} ) ) {
delete $this -> { m_nodeMap } -> { $_ }, $found = 1, last
if $this -> { m_nodeMap } -> { $_ } == $node ;
--- 137,141 ----
my $found = 0;
! for ( keys( %{ $this -> { m_nodeMap} } ) ) {
delete $this -> { m_nodeMap } -> { $_ }, $found = 1, last
if $this -> { m_nodeMap } -> { $_ } == $node ;
Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Node.pm 2001/12/11 22:23:23 1.9
--- Node.pm 2002/01/01 17:52:59 1.10
***************
*** 145,150 ****
#*/
sub localName {
! my ($this) = @_;
! $this -> { m_localName };
}
--- 145,149 ----
#*/
sub localName {
! undef;
}
***************
*** 156,160 ****
# For nodes of any type other than ELEMENT_NODE and ATTRIBUTE_NODE and
# nodes created with a DOM Level 1 method, such as createElement from the
! # Document interface, this is always null.
#
# @return a scalar holding the namespace URI of this node or undef.
--- 155,159 ----
# For nodes of any type other than ELEMENT_NODE and ATTRIBUTE_NODE and
# nodes created with a DOM Level 1 method, such as createElement from the
! # Document interface, this is always undef.
#
# @return a scalar holding the namespace URI of this node or undef.
***************
*** 162,166 ****
#*/
sub namespaceURI {
! $this -> { m_namespaceURI };
}
--- 161,165 ----
#*/
sub namespaceURI {
! undef;
}
***************
*** 345,353 ****
#*/
sub appendChild {
- # FIXME: handling for document fragments
my ( $this, $paramsRef ) = @_;
my %params = %{$paramsRef};
my $newNode = $params{ newChild };
# Check document
unless ( $this -> ownerDocument() == $newNode -> ownerDocument() ) {
--- 344,362 ----
#*/
sub appendChild {
my ( $this, $paramsRef ) = @_;
my %params = %{$paramsRef};
my $newNode = $params{ newChild };
+ # Handle document fragments
+ if ( $newNode -> nodeType() == &DOCUMENT_FRAGMENT_NODE() ) {
+ my $children = $newNode -> childNodes();
+ my $l = $children -> length() - 1;
+ for ( 0..$l ) {
+ my $child = $children -> item( { "index" => $_ } );
+ $this -> appendChild( { newChild => $child } );
+ }
+ return $newNode;
+ }
+
# Check document
unless ( $this -> ownerDocument() == $newNode -> ownerDocument() ) {
***************
*** 461,465 ****
#*/
sub insertBefore {
- # FIXME: handling for document fragments
my ( $this, $paramsRef ) = @_;
my %params = %{$paramsRef};
--- 470,473 ----
***************
*** 467,470 ****
--- 475,489 ----
my $refNode = $params{ refChild };
+ # Handle document fragments
+ if ( $newNode -> nodeType() == &DOCUMENT_FRAGMENT_NODE() ) {
+ my $children = $newNode -> childNodes();
+ my $l = $children -> length() - 1;
+ for ( 0..$l ) {
+ my $child = $children -> item( { "index" => $_ } );
+ $this -> insertBefore( { refChild => $refNode, newChild => $child } );
+ }
+ return $newNode;
+ }
+
# Check document
unless ( $this -> ownerDocument() == $newNode -> ownerDocument() ) {
***************
*** 627,631 ****
#*/
sub replaceChild {
- # FIXME: handling for document fragments
my ( $this, $paramsRef ) = @_;
my %params = %{$paramsRef};
--- 646,649 ----
***************
*** 633,636 ****
--- 651,665 ----
my $refNode = $params{ oldChild };
+ # Handle document fragments
+ if ( $newNode -> nodeType() == &DOCUMENT_FRAGMENT_NODE() ) {
+ my $children = $newNode -> childNodes();
+ my $l = $children -> length() - 1;
+ for ( 0..$l ) {
+ my $child = $children -> item( { "index" => $_ } );
+ $this -> insertBefore( { refChild => $refNode, newChild => $child } );
+ }
+ return $this -> removeChild( { oldChild => $refNode } );
+ }
+
# Check document
unless ( $this -> ownerDocument() == $newNode -> ownerDocument() ) {
***************
*** 678,697 ****
}
- # add node to children
- $this -> childNodes() -> insert( { "index" => $index,
- node => $newNode } );
-
- # set new parent
- $newNode -> { m_parentNode } = $this;
- # Get the siblings right...
- $newNode -> { m_previousSibling } = $refNode -> { m_previousSibling };
- $newNode -> { m_nextSibling } = $refNode -> { m_nextSibling };
- $newNode -> previousSibling() -> { m_nextSibling } = $newNode
- if defined($newNode -> previousSibling());
- $newNode -> nextSibling() -> { m_previousSibling } = $newNode
- if defined($newNode -> nextSibling());
! # remove reference node and return it.
$this -> removeChild( { oldChild => $refNode } );
}
--- 707,734 ----
}
! # add node to children
! $this -> insertBefore( { refChild => $refNode, newChild => $newNode } );
! # remove old node
$this -> removeChild( { oldChild => $refNode } );
+
+ # This stuff should be done by insertBefore and removeChild...
+ # Remove this at 30.01.2002 if it works.
+ #
+ # $this -> childNodes() -> insert( { "index" => $index,
+ # node => $newNode } );
+ #
+ # # set new parent
+ # $newNode -> { m_parentNode } = $this;
+ # # Get the siblings right...
+ # $newNode -> { m_previousSibling } = $refNode -> { m_previousSibling };
+ # $newNode -> { m_nextSibling } = $refNode -> { m_nextSibling };
+ # $newNode -> previousSibling() -> { m_nextSibling } = $newNode
+ # if defined($newNode -> previousSibling());
+ # $newNode -> nextSibling() -> { m_previousSibling } = $newNode
+ # if defined($newNode -> nextSibling());
+ #
+ # # remove reference node and return it.
+ # $this -> removeChild( { oldChild => $refNode } );
}
Index: NodeList.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NodeList.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** NodeList.pm 2001/12/11 22:22:59 1.6
--- NodeList.pm 2002/01/01 17:52:59 1.7
***************
*** 134,138 ****
# @not-standard
# @param a hash containing the following key-value-pairs
! # index - index to insert the node at ( 0 < index < lenght )
# node - a reference to XML::DOM2::Node
# @public
--- 134,138 ----
# @not-standard
# @param a hash containing the following key-value-pairs
! # index - index to insert the node at ( 0 <= index < lenght )
# node - a reference to XML::DOM2::Node
# @public
***************
*** 142,149 ****
my $index = $paramsRef -> { "index" };
my $node = $paramsRef -> { node };
! if ( $index < 0 || $index > $this -> length() ) {
my $exception = XML::DOM2::DOMException -> new(
{ ErrCode => XML::DOM2::DOMException -> INDEX_SIZE_ERR(),
! ErrDesc => "The given index is not valid. ( 0 < ".$index." < ".
$this -> length() ." )."
}
--- 142,149 ----
my $index = $paramsRef -> { "index" };
my $node = $paramsRef -> { node };
! if ( $index < 0 || $index => $this -> length() ) {
my $exception = XML::DOM2::DOMException -> new(
{ ErrCode => XML::DOM2::DOMException -> INDEX_SIZE_ERR(),
! ErrDesc => "The given index is not valid. ( 0 <= ".$index." < ".
$this -> length() ." )."
}
***************
*** 173,177 ****
sub indexOf {
my ( $this , $paramsRef ) = @_;
! my $startIndex = defined( $params{ "index" } ) ? $params{ "index" } : 0;
my $node = $paramsRef -> { node };
my @list = @{ $this -> { m_nodeList } };
--- 173,177 ----
sub indexOf {
my ( $this , $paramsRef ) = @_;
! my $startIndex = defined( $paramsRef -> { "index" } ) ? $paramsRef -> { "index" } : 0;
my $node = $paramsRef -> { node };
my @list = @{ $this -> { m_nodeList } };
Index: ProcessingInstruction.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/ProcessingInstruction.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ProcessingInstruction.pm 2001/12/03 21:18:11 1.1
--- ProcessingInstruction.pm 2002/01/01 17:52:59 1.2
***************
*** 142,143 ****
--- 142,147 ----
$this -> data();
}
+
+ sub nodeType {
+ &PROCESSING_INSTRUCTION_NODE();
+ }
Index: Text.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Text.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Text.pm 2001/12/03 21:17:45 1.2
--- Text.pm 2002/01/01 17:52:59 1.3
***************
*** 149,150 ****
--- 149,155 ----
$this -> data();
}
+
+
+ sub nodeType() {
+ &TEXT_NODE();
+ }
|
|
From: Jan T. <de...@us...> - 2002-01-01 17:52:54
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2 In directory usw-pr-cvs1:/tmp/cvs-serv22652 Modified Files: wipeout.project Log Message: * several fixes Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/wipeout.project,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** wipeout.project 2001/12/11 22:21:10 1.4 --- wipeout.project 2002/01/01 17:52:51 1.5 *************** *** 1,314 **** b ! C DmDictionary 0 9668 8 ! c 0 9929 9 ! C Category 1 5d23 ! c 0 9969 4 ! C DmString 2 9970 2 e3 ! c 2 996f a defaultExe ! C DmSet 3 9972 1 ! c 2 5d32 2 e3 ! L 5d32 ! c 2 9971 b executables ! c 3 996d 3 ! c 2 5d39 3 *.C ! L 5d39 ! c 2 5d3c 4 *.cc ! L 5d3c ! c 2 5d3f 5 *.cpp ! L 5d3f ! c 2 996c a extensions ! c 2 996b a CPP_source ! c 2 996a 4 name ! c 2 992b a CPP_source ! c 1 5d54 ! c 0 99af 4 ! c 2 99b6 2 e3 ! c 2 99b5 a defaultExe ! c 3 99b8 1 ! c 2 5d61 2 e3 ! L 5d61 ! c 2 99b7 b executables ! c 3 99b3 1 ! c 2 5d68 3 *.c ! L 5d68 ! c 2 99b2 a extensions ! c 2 99b1 8 C_source ! c 2 99b0 4 name ! c 2 992c 8 C_source ! c 1 5d7d ! c 0 99e9 4 ! c 2 99f0 2 e3 ! c 2 99ef a defaultExe ! c 3 99f2 1 ! c 2 5d8a 2 e3 ! L 5d8a ! c 2 99f1 b executables ! c 3 99ed 1 ! c 2 5d91 3 *.e ! L 5d91 ! c 2 99ec a extensions ! c 2 99eb 6 Eiffel ! c 2 99ea 4 name ! c 2 992d 6 Eiffel ! c 1 5da6 ! c 0 9a23 4 ! c 2 9a2a 2 e3 ! c 2 9a29 a defaultExe ! c 3 9a2c 1 ! c 2 5db3 2 e3 ! L 5db3 ! c 2 9a2b b executables ! c 3 9a27 4 ! c 2 5dba 3 *.F ! L 5dba ! c 2 5dbd 3 *.f ! L 5dbd ! c 2 5dc0 5 *.for ! L 5dc0 ! c 2 5dc3 5 *.fpp ! L 5dc3 ! c 2 9a26 a extensions ! c 2 9a25 7 Fortran ! c 2 9a24 4 name ! c 2 992e 7 Fortran ! c 1 5dd8 ! c 0 9a69 4 ! c 2 9a70 2 e3 ! c 2 9a6f a defaultExe ! c 3 9a72 1 ! c 2 5de5 2 e3 ! L 5de5 ! c 2 9a71 b executables ! c 3 9a6d 2 ! c 2 5dec 3 *.H ! L 5dec ! c 2 5def 3 *.h ! L 5def ! c 2 9a6c a extensions ! c 2 9a6b 6 Header ! c 2 9a6a 4 name ! c 2 992f 6 Header ! c 1 5e04 ! c 0 9aa7 4 ! c 2 9aae 9 surfboard ! c 2 9aad a defaultExe ! c 3 9ab0 2 ! c 2 5e11 2 e3 ! L 5e11 ! c 2 5e14 9 surfboard ! L 5e14 ! c 2 9aaf b executables ! c 3 9aab 2 ! c 2 5e1b 5 *.htm ! L 5e1b ! c 2 5e1e 6 *.html ! L 5e1e ! c 2 9aaa a extensions ! c 2 9aa9 4 Html ! c 2 9aa8 4 name ! c 2 9930 4 Html ! c 1 5e33 ! c 0 9ae9 4 ! c 2 9af0 2 e3 ! c 2 9aef a defaultExe ! c 3 9af2 1 ! c 2 5e40 2 e3 ! L 5e40 ! c 2 9af1 b executables ! c 3 9aed 1 ! c 2 5e47 6 *.java ! L 5e47 ! c 2 9aec a extensions ! c 2 9aeb 4 Java ! c 2 9aea 4 name ! c 2 9931 4 Java ! c 1 5e5c ! c 0 9b23 4 ! c 2 9b2a 2 e3 ! c 2 9b29 a defaultExe ! c 3 9b2c 1 ! c 2 5e69 2 e3 ! L 5e69 ! c 2 9b2b b executables ! c 3 9b27 1 ! c 2 5e70 5 *.tex ! L 5e70 ! c 2 9b26 a extensions ! c 2 9b25 5 Latex ! c 2 9b24 4 name ! c 2 9932 5 Latex ! c 1 5e85 ! c 0 9b5d 4 ! c 2 9b64 2 e3 ! c 2 9b63 a defaultExe ! c 3 9b66 1 ! c 2 5e92 2 e3 ! L 5e92 ! c 2 9b65 b executables ! c 3 9b61 0 ! c 2 9b60 a extensions ! c 2 9b5f 5 Other ! c 2 9b5e 4 name ! c 2 9933 5 Other ! c 2 9928 a categories ! c 0 9935 1 ! C ProjectDir 4 5eaf ! c 2 5eb0 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 5eb1 0 0 ! c 2 9937 1d netscript2/src/perl/XML/DOM2/ ! c 2 9934 b directories ! C DmBag 5 9674 d ! c 2 96aa cf b ! C DmDictionary 0 9676 3 ! C DmString 1 9688 36 b ! C DmSet 0 5efb 1 ! C DmString 1 5f29 5 Other ! L 5f29 ! c 1 9687 a categories ! c 1 9678 7 Attr.pm ! c 1 9677 4 name ! C DmInteger 2 968a 1 ! c 1 9689 9 substMode ! c 2 96df d7 b ! C DmDictionary 0 96ab 3 ! C DmString 1 96bd 36 b ! C DmSet 0 5f3a 1 ! C DmString 1 5f68 5 Other ! L 5f68 ! c 1 96bc a categories ! c 1 96ad f CDATASection.pm ! c 1 96ac 4 name ! C DmInteger 2 96bf 1 ! c 1 96be 9 substMode ! c 2 9714 d9 b ! C DmDictionary 0 96e0 3 ! C DmString 1 96f2 36 b ! C DmSet 0 5f79 1 ! C DmString 1 5fa7 5 Other ! L 5fa7 ! c 1 96f1 a categories ! c 1 96e2 10 CharacterData.pm ! c 1 96e1 4 name ! C DmInteger 2 96f4 1 ! c 1 96f3 9 substMode ! c 2 9749 d2 b ! C DmDictionary 0 9715 3 ! C DmString 1 9727 36 b ! C DmSet 0 5fb8 1 ! C DmString 1 5fe6 5 Other ! L 5fe6 ! c 1 9726 a categories ! c 1 9717 a Comment.pm ! c 1 9716 4 name ! C DmInteger 2 9729 1 ! c 1 9728 9 substMode ! c 2 977e d7 b ! C DmDictionary 0 974a 3 ! C DmString 1 975c 36 b ! C DmSet 0 5ff7 1 ! C DmString 1 6025 5 Other ! L 6025 ! c 1 975b a categories ! c 1 974c f DOMException.pm ! c 1 974b 4 name ! C DmInteger 2 975e 1 ! c 1 975d 9 substMode ! c 2 97b3 dd b ! C DmDictionary 0 977f 3 ! C DmString 1 9791 36 b ! C DmSet 0 6036 1 ! C DmString 1 6064 5 Other ! L 6064 ! c 1 9790 a categories ! c 1 9781 14 DOMImplementation.pm ! c 1 9780 4 name ! C DmInteger 2 9793 1 ! c 1 9792 9 substMode ! c 2 97e8 d2 b ! C DmDictionary 0 97b4 3 ! C DmString 1 97c6 36 b ! C DmSet 0 94e3 1 ! C DmString 1 965d 5 Other ! L 965d ! c 1 97c5 a categories ! c 1 97b6 a Element.pm ! c 1 97b5 4 name ! C DmInteger 2 97c8 1 ! c 1 97c7 9 substMode ! c 2 981d d7 b ! C DmDictionary 0 97e9 3 ! C DmString 1 97fb 36 b ! C DmSet 0 6075 1 ! C DmString 1 60a3 5 Other ! L 60a3 ! c 1 97fa a categories ! c 1 97eb f NamedNodeMap.pm ! c 1 97ea 4 name ! C DmInteger 2 97fd 1 ! c 1 97fc 9 substMode ! c 2 9852 cf b ! C DmDictionary 0 981e 3 ! C DmString 1 9830 36 b ! C DmSet 0 60b4 1 ! C DmString 1 60e2 5 Other ! L 60e2 ! c 1 982f a categories ! c 1 9820 7 Node.pm ! c 1 981f 4 name ! C DmInteger 2 9832 1 ! c 1 9831 9 substMode ! c 2 9887 d3 b ! C DmDictionary 0 9853 3 ! C DmString 1 9865 36 b ! C DmSet 0 60f3 1 ! C DmString 1 6121 5 Other ! L 6121 ! c 1 9864 a categories ! c 1 9855 b NodeList.pm ! c 1 9854 4 name ! C DmInteger 2 9867 1 ! c 1 9866 9 substMode ! c 2 98bc e1 b ! C DmDictionary 0 9888 3 ! C DmString 1 989a 36 b ! C DmSet 0 6132 1 ! C DmString 1 6160 5 Other ! L 6160 ! c 1 9899 a categories ! c 1 988a 18 ProcessingInstruction.pm ! c 1 9889 4 name ! C DmInteger 2 989c 1 ! c 1 989b 9 substMode ! c 2 98f1 cf b ! C DmDictionary 0 98bd 3 ! C DmString 1 98cf 36 b ! C DmSet 0 6171 1 ! C DmString 1 619f 5 Other ! L 619f ! c 1 98ce a categories ! c 1 98bf 7 Text.pm ! c 1 98be 4 name ! C DmInteger 2 98d1 1 ! c 1 98d0 9 substMode ! c 2 9926 d1 b ! C DmDictionary 0 98f2 3 ! C DmString 1 9904 36 b ! C DmSet 0 61b0 1 ! C DmString 1 61de 5 Other ! L 61de ! c 1 9903 a categories ! c 1 98f4 9 notes.txt ! c 1 98f3 4 name ! C DmInteger 2 9906 1 ! c 1 9905 9 substMode ! c 2 9927 5 files ! c 2 9670 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 966f 6 launch ! c 2 966c 4 make ! c 2 966b 4 make ! c 2 966e 0 ! c 2 966d 8 makeFile ! c 5 9671 0 ! c 2 9673 7 modules ! c 2 966a 4 DOM2 ! c 2 9669 4 name --- 1,380 ---- b ! C DmDictionary 0 441ae 8 ! c 0 445ad 9 ! C Category 1 649f ! c 0 445ed 4 ! C DmString 2 445f4 2 e3 ! c 2 445f3 a defaultExe ! C DmSet 3 445f6 1 ! c 2 64ae 2 e3 ! L 64ae ! c 2 445f5 b executables ! c 3 445f1 3 ! c 2 64b5 3 *.C ! L 64b5 ! c 2 64b8 4 *.cc ! L 64b8 ! c 2 64bb 5 *.cpp ! L 64bb ! c 2 445f0 a extensions ! c 2 445ef a CPP_source ! c 2 445ee 4 name ! c 2 445af a CPP_source ! c 1 64d0 ! c 0 44633 4 ! c 2 4463a 2 e3 ! c 2 44639 a defaultExe ! c 3 4463c 1 ! c 2 64dd 2 e3 ! L 64dd ! c 2 4463b b executables ! c 3 44637 1 ! c 2 64e4 3 *.c ! L 64e4 ! c 2 44636 a extensions ! c 2 44635 8 C_source ! c 2 44634 4 name ! c 2 445b0 8 C_source ! c 1 64f9 ! c 0 4466d 4 ! c 2 44674 2 e3 ! c 2 44673 a defaultExe ! c 3 44676 1 ! c 2 6506 2 e3 ! L 6506 ! c 2 44675 b executables ! c 3 44671 1 ! c 2 650d 3 *.e ! L 650d ! c 2 44670 a extensions ! c 2 4466f 6 Eiffel ! c 2 4466e 4 name ! c 2 445b1 6 Eiffel ! c 1 6522 ! c 0 446a7 4 ! c 2 446ae 2 e3 ! c 2 446ad a defaultExe ! c 3 446b0 1 ! c 2 652f 2 e3 ! L 652f ! c 2 446af b executables ! c 3 446ab 4 ! c 2 6536 3 *.F ! L 6536 ! c 2 6539 3 *.f ! L 6539 ! c 2 653c 5 *.for ! L 653c ! c 2 653f 5 *.fpp ! L 653f ! c 2 446aa a extensions ! c 2 446a9 7 Fortran ! c 2 446a8 4 name ! c 2 445b2 7 Fortran ! c 1 6554 ! c 0 446ed 4 ! c 2 446f4 2 e3 ! c 2 446f3 a defaultExe ! c 3 446f6 1 ! c 2 6561 2 e3 ! L 6561 ! c 2 446f5 b executables ! c 3 446f1 2 ! c 2 6568 3 *.H ! L 6568 ! c 2 656b 3 *.h ! L 656b ! c 2 446f0 a extensions ! c 2 446ef 6 Header ! c 2 446ee 4 name ! c 2 445b3 6 Header ! c 1 6580 ! c 0 4472b 4 ! c 2 44732 9 surfboard ! c 2 44731 a defaultExe ! c 3 44734 2 ! c 2 658d 2 e3 ! L 658d ! c 2 6590 9 surfboard ! L 6590 ! c 2 44733 b executables ! c 3 4472f 2 ! c 2 6597 5 *.htm ! L 6597 ! c 2 659a 6 *.html ! L 659a ! c 2 4472e a extensions ! c 2 4472d 4 Html ! c 2 4472c 4 name ! c 2 445b4 4 Html ! c 1 65af ! c 0 4476d 4 ! c 2 44774 2 e3 ! c 2 44773 a defaultExe ! c 3 44776 1 ! c 2 65bc 2 e3 ! L 65bc ! c 2 44775 b executables ! c 3 44771 1 ! c 2 65c3 6 *.java ! L 65c3 ! c 2 44770 a extensions ! c 2 4476f 4 Java ! c 2 4476e 4 name ! c 2 445b5 4 Java ! c 1 65d8 ! c 0 447a7 4 ! c 2 447ae 2 e3 ! c 2 447ad a defaultExe ! c 3 447b0 1 ! c 2 65e5 2 e3 ! L 65e5 ! c 2 447af b executables ! c 3 447ab 1 ! c 2 65ec 5 *.tex ! L 65ec ! c 2 447aa a extensions ! c 2 447a9 5 Latex ! c 2 447a8 4 name ! c 2 445b6 5 Latex ! c 1 6601 ! c 0 447e1 4 ! c 2 447e8 2 e3 ! c 2 447e7 a defaultExe ! c 3 447ea 1 ! c 2 660e 2 e3 ! L 660e ! c 2 447e9 b executables ! c 3 447e5 0 ! c 2 447e4 a extensions ! c 2 447e3 5 Other ! c 2 447e2 4 name ! c 2 445b7 5 Other ! c 2 445ac a categories ! c 0 445b9 1 ! C ProjectDir 4 662b ! c 2 662c 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 662d 0 0 ! c 2 445bb 1d netscript2/src/perl/XML/DOM2/ ! c 2 445b8 b directories ! C DmBag 5 441ba 13 ! c 2 441f0 d6 b ! C DmDictionary 0 441bc 3 ! C DmString 1 441ce 36 b ! C DmSet 0 6679 1 ! C DmString 1 66a7 5 Other ! L 66a7 ! c 1 441cd a categories ! c 1 441be 7 Attr.pm ! c 1 441bd 4 name ! C DmInteger 2 441d0 1 ! c 1 441cf 9 substMode ! c 2 44225 de b ! C DmDictionary 0 441f1 3 ! C DmString 1 44203 36 b ! C DmSet 0 66b8 1 ! C DmString 1 66e6 5 Other ! L 66e6 ! c 1 44202 a categories ! c 1 441f3 f CDATASection.pm ! c 1 441f2 4 name ! C DmInteger 2 44205 1 ! c 1 44204 9 substMode ! c 2 4425a e0 b ! C DmDictionary 0 44226 3 ! C DmString 1 44238 36 b ! C DmSet 0 66f7 1 ! C DmString 1 6725 5 Other ! L 6725 ! c 1 44237 a categories ! c 1 44228 10 CharacterData.pm ! c 1 44227 4 name ! C DmInteger 2 4423a 1 ! c 1 44239 9 substMode ! c 2 4428f d9 b ! C DmDictionary 0 4425b 3 ! C DmString 1 4426d 36 b ! C DmSet 0 6736 1 ! C DmString 1 6764 5 Other ! L 6764 ! c 1 4426c a categories ! c 1 4425d a Comment.pm ! c 1 4425c 4 name ! C DmInteger 2 4426f 1 ! c 1 4426e 9 substMode ! c 2 442c4 de b ! C DmDictionary 0 44290 3 ! C DmString 1 442a2 36 b ! C DmSet 0 6775 1 ! C DmString 1 67a3 5 Other ! L 67a3 ! c 1 442a1 a categories ! c 1 44292 f DOMException.pm ! c 1 44291 4 name ! C DmInteger 2 442a4 1 ! c 1 442a3 9 substMode ! c 2 442f9 e4 b ! C DmDictionary 0 442c5 3 ! C DmString 1 442d7 36 b ! C DmSet 0 67b4 1 ! C DmString 1 67e2 5 Other ! L 67e2 ! c 1 442d6 a categories ! c 1 442c7 14 DOMImplementation.pm ! c 1 442c6 4 name ! C DmInteger 2 442d9 1 ! c 1 442d8 9 substMode ! c 2 4432e dd b ! C DmDictionary 0 442fa 3 ! C DmString 1 4430c 39 b ! C DmSet 0 44011 1 ! C DmString 1 441a3 5 Other ! L 441a3 ! c 1 4430b a categories ! c 1 442fc b Document.pm ! c 1 442fb 4 name ! C DmInteger 2 4430e 1 ! c 1 4430d 9 substMode ! c 2 44363 e6 b ! C DmDictionary 0 4432f 3 ! C DmString 1 44341 39 b ! C DmSet 0 21cac 1 ! C DmString 1 21e3e 5 Other ! L 21e3e ! c 1 44340 a categories ! c 1 44331 13 DocumentFragment.pm ! c 1 44330 4 name ! C DmInteger 2 44343 1 ! c 1 44342 9 substMode ! c 2 44398 e1 b ! C DmDictionary 0 44364 3 ! C DmString 1 44376 39 b ! C DmSet 0 3388a 1 ! C DmString 1 33a1c 5 Other ! L 33a1c ! c 1 44375 a categories ! c 1 44366 f DocumentType.pm ! c 1 44365 4 name ! C DmInteger 2 44378 1 ! c 1 44377 9 substMode ! c 2 443cd d9 b ! C DmDictionary 0 44399 3 ! C DmString 1 443ab 36 b ! C DmSet 0 67f3 1 ! C DmString 1 6821 5 Other ! L 6821 ! c 1 443aa a categories ! c 1 4439b a Element.pm ! c 1 4439a 4 name ! C DmInteger 2 443ad 1 ! c 1 443ac 9 substMode ! c 2 44402 db b ! C DmDictionary 0 443ce 3 ! C DmString 1 443e0 39 b ! C DmSet 0 3442f 1 ! C DmString 1 345c1 5 Other ! L 345c1 ! c 1 443df a categories ! c 1 443d0 9 Entity.pm ! c 1 443cf 4 name ! C DmInteger 2 443e2 1 ! c 1 443e1 9 substMode ! c 2 44437 e5 b ! C DmDictionary 0 44403 3 ! C DmString 1 44415 39 b ! C DmSet 0 383ca 1 ! C DmString 1 3855c 5 Other ! L 3855c ! c 1 44414 a categories ! c 1 44405 12 EntityReference.pm ! c 1 44404 4 name ! C DmInteger 2 44417 1 ! c 1 44416 9 substMode ! c 2 4446c de b ! C DmDictionary 0 44438 3 ! C DmString 1 4444a 36 b ! C DmSet 0 6832 1 ! C DmString 1 6860 5 Other ! L 6860 ! c 1 44449 a categories ! c 1 4443a f NamedNodeMap.pm ! c 1 44439 4 name ! C DmInteger 2 4444c 1 ! c 1 4444b 9 substMode ! c 2 444a1 d6 b ! C DmDictionary 0 4446d 3 ! C DmString 1 4447f 36 b ! C DmSet 0 6871 1 ! C DmString 1 689f 5 Other ! L 689f ! c 1 4447e a categories ! c 1 4446f 7 Node.pm ! c 1 4446e 4 name ! C DmInteger 2 44481 1 ! c 1 44480 9 substMode ! c 2 444d6 da b ! C DmDictionary 0 444a2 3 ! C DmString 1 444b4 36 b ! C DmSet 0 68b0 1 ! C DmString 1 68de 5 Other ! L 68de ! c 1 444b3 a categories ! c 1 444a4 b NodeList.pm ! c 1 444a3 4 name ! C DmInteger 2 444b6 1 ! c 1 444b5 9 substMode ! c 2 4450b dd b ! C DmDictionary 0 444d7 3 ! C DmString 1 444e9 39 b ! C DmSet 0 3ba52 1 ! C DmString 1 3bbe4 5 Other ! L 3bbe4 ! c 1 444e8 a categories ! c 1 444d9 b Notation.pm ! c 1 444d8 4 name ! C DmInteger 2 444eb 1 ! c 1 444ea 9 substMode ! c 2 44540 e8 b ! C DmDictionary 0 4450c 3 ! C DmString 1 4451e 36 b ! C DmSet 0 68ef 1 ! C DmString 1 691d 5 Other ! L 691d ! c 1 4451d a categories ! c 1 4450e 18 ProcessingInstruction.pm ! c 1 4450d 4 name ! C DmInteger 2 44520 1 ! c 1 4451f 9 substMode ! c 2 44575 d6 b ! C DmDictionary 0 44541 3 ! C DmString 1 44553 36 b ! C DmSet 0 692e 1 ! C DmString 1 695c 5 Other ! L 695c ! c 1 44552 a categories ! c 1 44543 7 Text.pm ! c 1 44542 4 name ! C DmInteger 2 44555 1 ! c 1 44554 9 substMode ! c 2 445aa d8 b ! C DmDictionary 0 44576 3 ! C DmString 1 44588 36 b ! C DmSet 0 696d 1 ! C DmString 1 699b 5 Other ! L 699b ! c 1 44587 a categories ! c 1 44578 9 notes.txt ! c 1 44577 4 name ! C DmInteger 2 4458a 1 ! c 1 44589 9 substMode ! c 2 445ab 5 files ! c 2 441b6 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 441b5 6 launch ! c 2 441b2 4 make ! c 2 441b1 4 make ! c 2 441b4 0 ! c 2 441b3 8 makeFile ! c 5 441b7 0 ! c 2 441b9 7 modules ! c 2 441b0 4 DOM2 ! c 2 441af 4 name |
|
From: Jan T. <de...@us...> - 2001-12-11 22:24:18
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2 In directory usw-pr-cvs1:/tmp/cvs-serv4568 Modified Files: notes.txt Log Message: * added information about unsupported features and method call syntax Index: notes.txt =================================================================== RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/notes.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** notes.txt 2001/11/29 21:42:18 1.1 --- notes.txt 2001/12/11 22:24:16 1.2 *************** *** 10,15 **** #-------------------------------------------------------- The following should explain which methods are implemented in which ! class. (I) means "implemented in" --- 10,34 ---- #-------------------------------------------------------- + This implementation tries to be compliant with the + DOM Level 2 Core specification. + + Not yet supported are: + + * default attributes + * readonly nodes + * node cloning + * normalization of text nodes + + All methods take a hash as parameter which contains the + key-value-pairs as specified by the W3C specification. + + + #--------------------------------------------------------------- + # Details of implementation, you do not need to know about this + #--------------------------------------------------------------- + The following should explain which methods are implemented in which ! class. This is more for myself to keep me informed about which class ! actually implements which method. However if you have use for it... (I) means "implemented in" *************** *** 19,23 **** nodeName - spec defaults (I) Node, others (I) Attr, DocumentType, Element, Entity, EntityReference, Notation, ProcessingInstruction nodeValue - defaults to undef, (I) Attr, CDATASection, Comment, ProcessingInstruction, Text ! nodeType - (I) Node parentNode - (I) Node, undef in Attr, Document, DocumentFragment, Entity, Notation childNodes - (I) Node --- 38,42 ---- nodeName - spec defaults (I) Node, others (I) Attr, DocumentType, Element, Entity, EntityReference, Notation, ProcessingInstruction nodeValue - defaults to undef, (I) Attr, CDATASection, Comment, ProcessingInstruction, Text ! nodeType - (I) in all Classes parentNode - (I) Node, undef in Attr, Document, DocumentFragment, Entity, Notation childNodes - (I) Node |
|
From: Jan T. <de...@us...> - 2001-12-11 22:23:25
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv4294
Modified Files:
Node.pm
Log Message:
* minor bugfixes
Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Node.pm 2001/12/03 21:19:04 1.8
--- Node.pm 2001/12/11 22:23:23 1.9
***************
*** 258,280 ****
#/**
- # Sets the parent of this node. All nodes, except Attr, Document,
- # DocumentFragment, Entity, and Notation may have a parent. However,
- # if a node has just been created and not yet added to the tree, or
- # if it has been removed from the tree, this is undef.
- #
- # @not-standard
- # @param a hash containing the following key-value-pairs:
- # newParent - an instance of XML::DOM2::Node or undef
- # @protected
- #*/
- #sub setParentNode {
- # my ( $this, $paramsRef ) = @_;
- # my %params = %{$paramsRef};
- # my $newParent = $params{ newParent };
- # $this -> { m_parentNode } = $newParent;
- # }
-
-
- #/**
# Sets the namespace prefix of this node. Note that setting this
# attribute, when permitted, changes the nodeName attribute, which
--- 258,261 ----
|
|
From: Jan T. <de...@us...> - 2001-12-11 22:23:02
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv4181
Modified Files:
NodeList.pm
Log Message:
* fixed all methods
Index: NodeList.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NodeList.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** NodeList.pm 2001/12/03 21:18:42 1.5
--- NodeList.pm 2001/12/11 22:22:59 1.6
***************
*** 56,61 ****
#*/
sub item {
! my ( $this, %params ) = @_;
! my $index = params { "index" };
if ( $index < 0 || $index > $this -> length() ) {
--- 56,61 ----
#*/
sub item {
! my ( $this, $paramsRef ) = @_;
! my $index = $paramsRef -> { "index" };
if ( $index < 0 || $index > $this -> length() ) {
***************
*** 93,98 ****
#*/
sub add {
! my ( $this, %params ) = @_;
! my $node = $params{ node };
push (@{ $this -> { m_nodeList } }, $node );
}
--- 93,98 ----
#*/
sub add {
! my ( $this, $paramsRef ) = @_;
! my $node = $paramsRef -> { node };
push (@{ $this -> { m_nodeList } }, $node );
}
***************
*** 108,113 ****
#*/
sub remove {
! my ( $this, %params ) = @_;
! my $index = $params{ "index" };
if ( $index < 0 || $index > $this -> length() ) {
--- 108,113 ----
#*/
sub remove {
! my ( $this, $paramsRef ) = @_;
! my $index = $paramsRef -> { "index" };
if ( $index < 0 || $index > $this -> length() ) {
***************
*** 139,145 ****
#*/
sub insert {
! my ( $this, %params ) = @_;
! my $index = $params{ "index" };
! my $node = $params{ node };
if ( $index < 0 || $index > $this -> length() ) {
my $exception = XML::DOM2::DOMException -> new(
--- 139,145 ----
#*/
sub insert {
! my ( $this, $paramsRef ) = @_;
! my $index = $paramsRef -> { "index" };
! my $node = $paramsRef -> { node };
if ( $index < 0 || $index > $this -> length() ) {
my $exception = XML::DOM2::DOMException -> new(
***************
*** 172,178 ****
#*/
sub indexOf {
! my ( $this , %params ) = @_;
my $startIndex = defined( $params{ "index" } ) ? $params{ "index" } : 0;
! my $node = $params{ node };
my @list = @{ $this -> { m_nodeList } };
--- 172,178 ----
#*/
sub indexOf {
! my ( $this , $paramsRef ) = @_;
my $startIndex = defined( $params{ "index" } ) ? $params{ "index" } : 0;
! my $node = $paramsRef -> { node };
my @list = @{ $this -> { m_nodeList } };
|
|
From: Jan T. <de...@us...> - 2001-12-11 22:22:36
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv4065
Modified Files:
NamedNodeMap.pm
Log Message:
* fixed all methods
* added new method for removal of an item
Index: NamedNodeMap.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NamedNodeMap.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** NamedNodeMap.pm 2001/10/03 19:52:23 1.3
--- NamedNodeMap.pm 2001/12/11 22:22:34 1.4
***************
*** 35,39 ****
my $proto = shift; # get Prototype
my $class = ref( $proto ) || $proto;# get the Classname
- my %args = shift;
# Create a Class using the Hash-As-An-Object-Idiom
--- 35,38 ----
***************
*** 65,70 ****
#*/
sub getNamedItem {
! my ( $this, %params ) = @_;
! my $name = $params{ name };
$this -> { m_nodeMap } -> { $name };
--- 64,69 ----
#*/
sub getNamedItem {
! my ( $this, $paramsRef ) = @_;
! my $name = $paramsRef -> { name };
$this -> { m_nodeMap } -> { $name };
***************
*** 82,88 ****
#*/
sub getNamedItemNS {
! my ( $this , %params ) = @_;
! my $namespaceURI = $params{ namespaceURI };
! my $localName = $params{ localName };
$this -> { m_nodeMap } -> { $namespaceURI.$localName };
--- 81,87 ----
#*/
sub getNamedItemNS {
! my ( $this , $paramsRef ) = @_;
! my $namespaceURI = $paramsRef -> { namespaceURI };
! my $localName = $paramsRef -> { localName };
$this -> { m_nodeMap } -> { $namespaceURI.$localName };
***************
*** 99,104 ****
#*/
sub item {
! my ( $this, %params ) = @_;
! my $index = $params{ "index" };
my @values = values( %{ $this -> { m_nodeMap } } );
@values[ $index ];
--- 98,103 ----
#*/
sub item {
! my ( $this, $paramsRef ) = @_;
! my $index = $paramsRef -> { "index" };
my @values = values( %{ $this -> { m_nodeMap } } );
@values[ $index ];
***************
*** 118,123 ****
#*/
sub removeNamedItem {
! my ( $this, %params ) = @_;
! my $name = $params{ name };
delete $this -> { m_nodeMap } -> { $name };
}
--- 117,122 ----
#*/
sub removeNamedItem {
! my ( $this, $paramsRef ) = @_;
! my $name = $paramsRef -> { name };
delete $this -> { m_nodeMap } -> { $name };
}
***************
*** 125,128 ****
--- 124,153 ----
#/**
+ # Removes the given node from the map.
+ # @param a hash containing the following key-value-pairs:
+ # node - the node to delete.
+ # @return the deleted node if the node could be removed or
+ # undef, if the node was not found in this NamedNodeMap.
+ # @public
+ # @not-standard
+ #*/
+ sub removeItem {
+ my ($this, $paramsRef ) = @_;
+ my $node = $paramsRef -> { "node" };
+ my $found = 0;
+
+ for ( keys( $this -> { m_nodeMap} ) ) {
+ delete $this -> { m_nodeMap } -> { $_ }, $found = 1, last
+ if $this -> { m_nodeMap } -> { $_ } == $node ;
+ }
+ if ($found) {
+ $node;
+ }
+ else {
+ undef;
+ }
+ }
+
+ #/**
# Removes a node specified by namespaceURI and local names.
#
***************
*** 131,135 ****
# localName - the local name of the node to remove.
# @return the removed Node, if such a node exists, else undef.
! #
# @FIXME: Default attributes are not automatically inserted if
# they are deleted. This must be done in compliance with
--- 156,160 ----
# localName - the local name of the node to remove.
# @return the removed Node, if such a node exists, else undef.
! #
# @FIXME: Default attributes are not automatically inserted if
# they are deleted. This must be done in compliance with
***************
*** 137,143 ****
#*/
sub removeNamedItemNS {
! my ( $this, %params ) = @_;
! my $namespaceURI = $params{ namespaceURI };
! my $localName = $params{ localName };
delete $this -> { m_nodeMap } -> { $namespaceURI.$localName };
}
--- 162,168 ----
#*/
sub removeNamedItemNS {
! my ( $this, $paramsRef ) = @_;
! my $namespaceURI = $paramsRef -> { namespaceURI };
! my $localName = $paramsRef -> { localName };
delete $this -> { m_nodeMap } -> { $namespaceURI.$localName };
}
***************
*** 151,156 ****
#*/
sub setNamedItem {
! my ( $this, %params ) = @_;
! my $node = $params{ node };
$this -> { m_nodeMap } -> { $node -> nodeName() } = $node;
}
--- 176,181 ----
#*/
sub setNamedItem {
! my ( $this, $paramsRef ) = @_;
! my $node = $paramsRef -> { node };
$this -> { m_nodeMap } -> { $node -> nodeName() } = $node;
}
***************
*** 163,168 ****
#*/
sub setNamedItemNS {
! my ( $this, %params ) = @_;
! my $node = $params{ node };
$this -> { m_nodeMap } -> { $node -> namespaceURI() .
$node -> localName() } = $node;
--- 188,193 ----
#*/
sub setNamedItemNS {
! my ( $this, $paramsRef ) = @_;
! my $node = $paramsRef -> { node };
$this -> { m_nodeMap } -> { $node -> namespaceURI() .
$node -> localName() } = $node;
|
|
From: Jan T. <de...@us...> - 2001-12-11 22:21:51
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv3353
Added Files:
Element.pm
Log Message:
* initial checkin
--- NEW FILE: Element.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class Element
# $Id: Element.pm,v 1.1 2001/12/11 22:21:49 derkork Exp $
#
# 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::Element;
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
use XML::DOM2::DOMException;
use XML::DOM2::NamedNodeMap;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new Element.
# @return an instance of XML::DOM2::Element
# @public
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
my $this = $proto -> SUPER::new(@_);
$this -> { m_tagName } = "";
$this -> { m_attributes } = XML::DOM2::NamedNodeMap -> new();
return $this;
}
#/**
# Returns the attributes of this Element.
# @return an instance of XML::DOM2::NamedNodeMap which holds the attributes
# of this element
# @public
#*/
sub attributes {
my ($this) = @_;
$this -> { m_attributes };
}
#/**
# Returns 0 if this Element has no attributes, and nonzero if it
# has attributes.
# @return 0 or nonzero.
# @public
#*/
sub hasAttributes {
my ($this) = @_;
$this -> attributes() -> length();
}
#/**
# Retrieves an attribute value by name.
# @param a hash containing the following key-value-pairs
# name - the name of the attribute to retrieve.
# @return a scalar holding the attr value, or an empty string
# if the attribute has no specified or default value.
# @public
#*/
sub getAttribute {
my ($this, $paramsRef ) = @_;
my $attribute = $this -> attributes() ->
getNamedItem( $paramsRef );
if ( defined( $attribute) ) {
return $attribute -> nodeValue();
}
else {
return "";
}
}
#/**
# Returns the attribute value by local name and namespace URI.
# @param a hash containing the following key-value-pairs.
# namespaceURI - the namespace URI of the attribute to retrieve
# localName - the local name of the attribute to retrieve.
# @return the attr value as string or the empty string of that attribute
# does not have a specified or default value.
# @public
#*/
sub getAttributeNS {
my ($this, $paramsRef) = @_;
my $attribute = $this -> attributes() ->
getNamedItemNS( $paramsRef );
if ( defined( $attribute) ) {
return $attribute -> nodeValue();
}
else {
return "";
}
}
#/**
# Retrieves an attribute node by name.
# @param a hash containing the following key-value-pairs:
# name - the name (nodeName) of the attribute to retrieve
# @return an instance of XML::DOM2::Attr or undef, if there is no such
# attribute.
# @public
#*/
sub getAttributeNode {
my ($this, $paramsRef) = @_;
$this -> attributes() -> getNamedItem( $paramsRef );
}
#/**
# Retrieves an attribute node by local name and namespace URI.
# @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute to retrieve
# localName - the local name of the attribute to retrieve.
# @return an instance of XML::DOM2::Attr or undef, if there is no such
# attribute
#*/
sub getAttributeNodeNS {
my ($this, $paramsRef) = @_;
$this -> attributes() -> getNamedItemNS( $paramsRef );
}
#/**
# Returns a NodeList of all descendant Elements with a given tag name
# in the order in which they are encountered in a preorder traversal of
# the document tree.
# @param a hash containing the following key-value-pairs:
# name - the name of the tag to match on. the special value
# "*" matches all tags.
# @param (this is private, do not give a param here!) an instance of
# XML::DOM2::NodeList holding the currently found elements.
# @return an instance of XML::DOM2::NodeList holding all matching element
# nodes.
# @public
# Note: This might be an expensive operation.
# Note: You should not make any assumptions on the order of the elements
# in the list.
#*/
sub getElementsByTagName {
my ($this, $paramRef, $listRef ) = @_;
my $name = $paramRef -> { "name" };
# the root has no list yet, we produce one.
if ( ! defined($listRef) ) {
$listRef = XML::DOM2::NodeList -> new();
}
# first search all own children.
my $children = $this -> childNodes();
my $length -> $children -> length();
for ( 0..$length-1 ) {
my $child = $children -> item ( { "index" => $_} );
if ( $child -> nodeType() == &ELEMENT_NODE() ) {
# if an element is found add it to the list
if ( $name eq "*" || $child -> nodeName() eq $name) {
$listRef -> add( { "node" => $child } );
}
# and traverse it.
$child -> getElementsByTagName( $paramRef, $listRef );
}
}
# return the list.
$listRef;
}
#/**
# Returns a NodeList of all the elements with a given local name and namespace
# URI in the order in which they are encountered in a preorder traversal of
# the document tree.
# @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace uri of the elements to match on. the
# special value "*" matches all namespaces
# localName - the local name of the elements to match on. the
# special value "*" matches all local names.
# @param (this is private, do not give any param here!) an instance of
# XML::DOM2::NodeList containing the currently found elements.
# @return an instance of XML::DOM2::NodeList containing the matching elements.
# @public
# Note: This operation might be expensive.
# Note: You should not make any assumptions on the order of the elements
# in the list.
#*/
sub getElementsByTagNameNS {
my ($this, $paramRef, $listRef ) = @_;
my $namespaceURI = $paramRef -> { "namespaceURI" };
my $localName = $paramRef -> { "localName" };
# the root has no list yet, we produce one.
if ( ! defined($listRef) ) {
$listRef = XML::DOM2::NodeList -> new();
}
# first search all own children.
my $children = $this -> childNodes();
my $length -> $children -> length();
for ( 0..$length-1 ) {
my $child = $children -> item ( { "index" => $_} );
if ( $child -> nodeType() == &ELEMENT_NODE() ) {
# if an element is found add it to the list
if ( ( $localName eq "*" || $child -> localName() eq $localName ) &&
( $namespaceURI eq "*" || $child -> namespaceURI() eq $namespaceURI ) ) {
$listRef -> add( { "node" => $child } );
}
# and traverse it.
$child -> getElementsByTagName( $paramRef, $listRef );
}
}
# return the list.
$listRef;
}
#/**
# Returns nonzero if an attribtue with the given name is specified on this
# Element or has a default value, 0 otherwise.
# @param a hash containing the following key-value-pairs:
# name - the name of the attribute to look for.
# @return 0 or nonzero
# @public
#*/.
sub hasAttribute {
my ($this, $paramsRef) = @_;
my $attribute = $this -> attributes() -> getNamedItem( $paramsRef );
if ( defined($attribute) ) {
$attribute -> specified();
}
0;
}
#/**
# Returns nonzero when an attribute with a given local name and namespace URI
# is specified on this element or has a default value. 0 otherwise.
# @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute to look for
# localName - the local name of the attribute to look for
# @return 0 or nonzero
# @public
#*/
sub hasAttributeNS {
my ($this, $paramRef) = @_;
my $attribute = $this -> attributes() -> getNamedItemNS( $paramRef );
if ( defined($attribute) ) {
$attribute -> specified();
}
0;
}
#/**
# Removes an attribute by name. If the removed attribute is known to
# have a default value, an attribute immediately appears containing the
# default value, as well as the corresponding namespace URI, local name
# and prefix when applicable.
# @param a hash containing the following key-value-pairs:
# name - the name of the attribute to remove.
# @public
#*/
sub removeAttribute {
my ($this, $paramRef ) = @_;
$this -> attributes() -> removeNamedItem( $paramRef );
# FIXME: Implement default attributes.
}
#/**
# Removes an attribute by local name and namespace URI. If the removed
# attribute has a default value it is immediately replaced.
# The replacing attribute has the same namespace URI and local name as
# well as the original prefix.
# @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute to remove
# localName - the local name of the attribute to remove
# @public
#*/
sub removeAttributeNS {
my ($this, $paramRef) = @_;
$this -> attributes() -> removeNamedItemNS( $paramRef );
# FIXME: implement default attributes
}
#/**
# Removes the specified attribute. If the removed Attr has a default value
# it is immediately replaced. The replacing attribute has the same namespace
# URI and local name as well as the original prefix.
# @param a hash containing the following key-value-pairs:
# oldAttr - the Attr node to remove from the attribute list.
# @return an instance of XML::DOM2::Attr - the removed attr node.
# @public
#*/
sub removeAttributeNode {
my ($this, $paramRef) = @_;
my $attr = $paramRef -> { "oldAttr" };
my $result = $this -> attributes() -> removeItem( { "node" => $attr} );
if ( defined( $result ) ) {
$result;
}
else {
my $exc = XML::DOM2::DOMException(
{ ErrCode => XML::DOM2::DOMException -> NOT_FOUND_ERR(),
ErrDesc => "The attribute is no attribute of this element!"
});
$exc -> raise();
}
}
#/**
# Returns ELEMENT_NODE
#*/
sub nodeType {
&ELEMENT_NODE();
}
|
|
From: Jan T. <de...@us...> - 2001-12-11 22:21:24
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv3153
Modified Files:
DOMException.pm
Log Message:
* removed some debug prints
Index: DOMException.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMException.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** DOMException.pm 2001/11/29 21:43:43 1.4
--- DOMException.pm 2001/12/11 22:21:21 1.5
***************
*** 59,63 ****
my $this = {};
bless( $this, $class ); # create Object
- print "|||====>>>>" .$args{ErrCode};
$this -> { m_code } = $args{ErrCode}; # Exception Error code.
$this -> { m_desc } = $args{ErrDesc}; # Exception description
--- 59,62 ----
|
|
From: Jan T. <de...@us...> - 2001-12-11 22:21:13
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2 In directory usw-pr-cvs1:/tmp/cvs-serv3106 Modified Files: wipeout.project Log Message: * removed some debug prints Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/wipeout.project,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** wipeout.project 2001/12/03 21:16:50 1.3 --- wipeout.project 2001/12/11 22:21:10 1.4 *************** *** 1,303 **** b ! C DmDictionary 0 15d56 8 ! c 0 15fe2 9 ! C Category 1 5c58 ! c 0 16022 4 ! C DmString 2 16029 2 e3 ! c 2 16028 a defaultExe ! C DmSet 3 1602b 1 ! c 2 5c67 2 e3 ! L 5c67 ! c 2 1602a b executables ! c 3 16026 3 ! c 2 5c6e 3 *.C ! L 5c6e ! c 2 5c71 4 *.cc ! L 5c71 ! c 2 5c74 5 *.cpp ! L 5c74 ! c 2 16025 a extensions ! c 2 16024 a CPP_source ! c 2 16023 4 name ! c 2 15fe4 a CPP_source ! c 1 5c89 ! c 0 16068 4 ! c 2 1606f 2 e3 ! c 2 1606e a defaultExe ! c 3 16071 1 ! c 2 5c96 2 e3 ! L 5c96 ! c 2 16070 b executables ! c 3 1606c 1 ! c 2 5c9d 3 *.c ! L 5c9d ! c 2 1606b a extensions ! c 2 1606a 8 C_source ! c 2 16069 4 name ! c 2 15fe5 8 C_source ! c 1 5cb2 ! c 0 160a2 4 ! c 2 160a9 2 e3 ! c 2 160a8 a defaultExe ! c 3 160ab 1 ! c 2 5cbf 2 e3 ! L 5cbf ! c 2 160aa b executables ! c 3 160a6 1 ! c 2 5cc6 3 *.e ! L 5cc6 ! c 2 160a5 a extensions ! c 2 160a4 6 Eiffel ! c 2 160a3 4 name ! c 2 15fe6 6 Eiffel ! c 1 5cdb ! c 0 160dc 4 ! c 2 160e3 2 e3 ! c 2 160e2 a defaultExe ! c 3 160e5 1 ! c 2 5ce8 2 e3 ! L 5ce8 ! c 2 160e4 b executables ! c 3 160e0 4 ! c 2 5cef 3 *.F ! L 5cef ! c 2 5cf2 3 *.f ! L 5cf2 ! c 2 5cf5 5 *.for ! L 5cf5 ! c 2 5cf8 5 *.fpp ! L 5cf8 ! c 2 160df a extensions ! c 2 160de 7 Fortran ! c 2 160dd 4 name ! c 2 15fe7 7 Fortran ! c 1 5d0d ! c 0 16122 4 ! c 2 16129 2 e3 ! c 2 16128 a defaultExe ! c 3 1612b 1 ! c 2 5d1a 2 e3 ! L 5d1a ! c 2 1612a b executables ! c 3 16126 2 ! c 2 5d21 3 *.H ! L 5d21 ! c 2 5d24 3 *.h ! L 5d24 ! c 2 16125 a extensions ! c 2 16124 6 Header ! c 2 16123 4 name ! c 2 15fe8 6 Header ! c 1 5d39 ! c 0 16160 4 ! c 2 16167 9 surfboard ! c 2 16166 a defaultExe ! c 3 16169 2 ! c 2 5d46 2 e3 ! L 5d46 ! c 2 5d49 9 surfboard ! L 5d49 ! c 2 16168 b executables ! c 3 16164 2 ! c 2 5d50 5 *.htm ! L 5d50 ! c 2 5d53 6 *.html ! L 5d53 ! c 2 16163 a extensions ! c 2 16162 4 Html ! c 2 16161 4 name ! c 2 15fe9 4 Html ! c 1 5d68 ! c 0 161a2 4 ! c 2 161a9 2 e3 ! c 2 161a8 a defaultExe ! c 3 161ab 1 ! c 2 5d75 2 e3 ! L 5d75 ! c 2 161aa b executables ! c 3 161a6 1 ! c 2 5d7c 6 *.java ! L 5d7c ! c 2 161a5 a extensions ! c 2 161a4 4 Java ! c 2 161a3 4 name ! c 2 15fea 4 Java ! c 1 5d91 ! c 0 161dc 4 ! c 2 161e3 2 e3 ! c 2 161e2 a defaultExe ! c 3 161e5 1 ! c 2 5d9e 2 e3 ! L 5d9e ! c 2 161e4 b executables ! c 3 161e0 1 ! c 2 5da5 5 *.tex ! L 5da5 ! c 2 161df a extensions ! c 2 161de 5 Latex ! c 2 161dd 4 name ! c 2 15feb 5 Latex ! c 1 5dba ! c 0 16216 4 ! c 2 1621d 2 e3 ! c 2 1621c a defaultExe ! c 3 1621f 1 ! c 2 5dc7 2 e3 ! L 5dc7 ! c 2 1621e b executables ! c 3 1621a 0 ! c 2 16219 a extensions ! c 2 16218 5 Other ! c 2 16217 4 name ! c 2 15fec 5 Other ! c 2 15fe1 a categories ! c 0 15fee 1 ! C ProjectDir 4 5de4 ! c 2 5de5 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 5de6 0 0 ! c 2 15ff0 1d netscript2/src/perl/XML/DOM2/ ! c 2 15fed b directories ! C DmBag 5 15d62 c ! c 2 15d98 d9 b ! C DmDictionary 0 15d64 3 ! C DmString 1 15d76 39 b ! C DmSet 0 15bd1 1 ! C DmString 1 15d4b 5 Other ! L 15d4b ! c 1 15d75 a categories ! c 1 15d66 7 Attr.pm ! c 1 15d65 4 name ! C DmInteger 2 15d78 1 ! c 1 15d77 9 substMode ! c 2 15dcd de b ! C DmDictionary 0 15d99 3 ! C DmString 1 15dab 36 b ! C DmSet 0 5e2c 1 ! C DmString 1 5e5a 5 Other ! L 5e5a ! c 1 15daa a categories ! c 1 15d9b f CDATASection.pm ! c 1 15d9a 4 name ! C DmInteger 2 15dad 1 ! c 1 15dac 9 substMode ! c 2 15e02 e0 b ! C DmDictionary 0 15dce 3 ! C DmString 1 15de0 36 b ! C DmSet 0 5e6b 1 ! C DmString 1 5e99 5 Other ! L 5e99 ! c 1 15ddf a categories ! c 1 15dd0 10 CharacterData.pm ! c 1 15dcf 4 name ! C DmInteger 2 15de2 1 ! c 1 15de1 9 substMode ! c 2 15e37 d9 b ! C DmDictionary 0 15e03 3 ! C DmString 1 15e15 36 b ! C DmSet 0 5eaa 1 ! C DmString 1 5ed8 5 Other ! L 5ed8 ! c 1 15e14 a categories ! c 1 15e05 a Comment.pm ! c 1 15e04 4 name ! C DmInteger 2 15e17 1 ! c 1 15e16 9 substMode ! c 2 15e6c de b ! C DmDictionary 0 15e38 3 ! C DmString 1 15e4a 36 b ! C DmSet 0 5ee9 1 ! C DmString 1 5f17 5 Other ! L 5f17 ! c 1 15e49 a categories ! c 1 15e3a f DOMException.pm ! c 1 15e39 4 name ! C DmInteger 2 15e4c 1 ! c 1 15e4b 9 substMode ! c 2 15ea1 e4 b ! C DmDictionary 0 15e6d 3 ! C DmString 1 15e7f 36 b ! C DmSet 0 5f28 1 ! C DmString 1 5f56 5 Other ! L 5f56 ! c 1 15e7e a categories ! c 1 15e6f 14 DOMImplementation.pm ! c 1 15e6e 4 name ! C DmInteger 2 15e81 1 ! c 1 15e80 9 substMode ! c 2 15ed6 de b ! C DmDictionary 0 15ea2 3 ! C DmString 1 15eb4 36 b ! C DmSet 0 5f67 1 ! C DmString 1 5f95 5 Other ! L 5f95 ! c 1 15eb3 a categories ! c 1 15ea4 f NamedNodeMap.pm ! c 1 15ea3 4 name ! C DmInteger 2 15eb6 1 ! c 1 15eb5 9 substMode ! c 2 15f0b d6 b ! C DmDictionary 0 15ed7 3 ! C DmString 1 15ee9 36 b ! C DmSet 0 5fa6 1 ! C DmString 1 5fd4 5 Other ! L 5fd4 ! c 1 15ee8 a categories ! c 1 15ed9 7 Node.pm ! c 1 15ed8 4 name ! C DmInteger 2 15eeb 1 ! c 1 15eea 9 substMode ! c 2 15f40 da b ! C DmDictionary 0 15f0c 3 ! C DmString 1 15f1e 36 b ! C DmSet 0 5fe5 1 ! C DmString 1 6013 5 Other ! L 6013 ! c 1 15f1d a categories ! c 1 15f0e b NodeList.pm ! c 1 15f0d 4 name ! C DmInteger 2 15f20 1 ! c 1 15f1f 9 substMode ! c 2 15f75 e8 b ! C DmDictionary 0 15f41 3 ! C DmString 1 15f53 36 b ! C DmSet 0 bb19 1 ! C DmString 1 bc93 5 Other ! L bc93 ! c 1 15f52 a categories ! c 1 15f43 18 ProcessingInstruction.pm ! c 1 15f42 4 name ! C DmInteger 2 15f55 1 ! c 1 15f54 9 substMode ! c 2 15faa d6 b ! C DmDictionary 0 15f76 3 ! C DmString 1 15f88 36 b ! C DmSet 0 6024 1 ! C DmString 1 6052 5 Other ! L 6052 ! c 1 15f87 a categories ! c 1 15f78 7 Text.pm ! c 1 15f77 4 name ! C DmInteger 2 15f8a 1 ! c 1 15f89 9 substMode ! c 2 15fdf d8 b ! C DmDictionary 0 15fab 3 ! C DmString 1 15fbd 36 b ! C DmSet 0 6063 1 ! C DmString 1 6091 5 Other ! L 6091 ! c 1 15fbc a categories ! c 1 15fad 9 notes.txt ! c 1 15fac 4 name ! C DmInteger 2 15fbf 1 ! c 1 15fbe 9 substMode ! c 2 15fe0 5 files ! c 2 15d5e 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 15d5d 6 launch ! c 2 15d5a 4 make ! c 2 15d59 4 make ! c 2 15d5c 0 ! c 2 15d5b 8 makeFile ! c 5 15d5f 0 ! c 2 15d61 7 modules ! c 2 15d58 4 DOM2 ! c 2 15d57 4 name --- 1,314 ---- b ! C DmDictionary 0 9668 8 ! c 0 9929 9 ! C Category 1 5d23 ! c 0 9969 4 ! C DmString 2 9970 2 e3 ! c 2 996f a defaultExe ! C DmSet 3 9972 1 ! c 2 5d32 2 e3 ! L 5d32 ! c 2 9971 b executables ! c 3 996d 3 ! c 2 5d39 3 *.C ! L 5d39 ! c 2 5d3c 4 *.cc ! L 5d3c ! c 2 5d3f 5 *.cpp ! L 5d3f ! c 2 996c a extensions ! c 2 996b a CPP_source ! c 2 996a 4 name ! c 2 992b a CPP_source ! c 1 5d54 ! c 0 99af 4 ! c 2 99b6 2 e3 ! c 2 99b5 a defaultExe ! c 3 99b8 1 ! c 2 5d61 2 e3 ! L 5d61 ! c 2 99b7 b executables ! c 3 99b3 1 ! c 2 5d68 3 *.c ! L 5d68 ! c 2 99b2 a extensions ! c 2 99b1 8 C_source ! c 2 99b0 4 name ! c 2 992c 8 C_source ! c 1 5d7d ! c 0 99e9 4 ! c 2 99f0 2 e3 ! c 2 99ef a defaultExe ! c 3 99f2 1 ! c 2 5d8a 2 e3 ! L 5d8a ! c 2 99f1 b executables ! c 3 99ed 1 ! c 2 5d91 3 *.e ! L 5d91 ! c 2 99ec a extensions ! c 2 99eb 6 Eiffel ! c 2 99ea 4 name ! c 2 992d 6 Eiffel ! c 1 5da6 ! c 0 9a23 4 ! c 2 9a2a 2 e3 ! c 2 9a29 a defaultExe ! c 3 9a2c 1 ! c 2 5db3 2 e3 ! L 5db3 ! c 2 9a2b b executables ! c 3 9a27 4 ! c 2 5dba 3 *.F ! L 5dba ! c 2 5dbd 3 *.f ! L 5dbd ! c 2 5dc0 5 *.for ! L 5dc0 ! c 2 5dc3 5 *.fpp ! L 5dc3 ! c 2 9a26 a extensions ! c 2 9a25 7 Fortran ! c 2 9a24 4 name ! c 2 992e 7 Fortran ! c 1 5dd8 ! c 0 9a69 4 ! c 2 9a70 2 e3 ! c 2 9a6f a defaultExe ! c 3 9a72 1 ! c 2 5de5 2 e3 ! L 5de5 ! c 2 9a71 b executables ! c 3 9a6d 2 ! c 2 5dec 3 *.H ! L 5dec ! c 2 5def 3 *.h ! L 5def ! c 2 9a6c a extensions ! c 2 9a6b 6 Header ! c 2 9a6a 4 name ! c 2 992f 6 Header ! c 1 5e04 ! c 0 9aa7 4 ! c 2 9aae 9 surfboard ! c 2 9aad a defaultExe ! c 3 9ab0 2 ! c 2 5e11 2 e3 ! L 5e11 ! c 2 5e14 9 surfboard ! L 5e14 ! c 2 9aaf b executables ! c 3 9aab 2 ! c 2 5e1b 5 *.htm ! L 5e1b ! c 2 5e1e 6 *.html ! L 5e1e ! c 2 9aaa a extensions ! c 2 9aa9 4 Html ! c 2 9aa8 4 name ! c 2 9930 4 Html ! c 1 5e33 ! c 0 9ae9 4 ! c 2 9af0 2 e3 ! c 2 9aef a defaultExe ! c 3 9af2 1 ! c 2 5e40 2 e3 ! L 5e40 ! c 2 9af1 b executables ! c 3 9aed 1 ! c 2 5e47 6 *.java ! L 5e47 ! c 2 9aec a extensions ! c 2 9aeb 4 Java ! c 2 9aea 4 name ! c 2 9931 4 Java ! c 1 5e5c ! c 0 9b23 4 ! c 2 9b2a 2 e3 ! c 2 9b29 a defaultExe ! c 3 9b2c 1 ! c 2 5e69 2 e3 ! L 5e69 ! c 2 9b2b b executables ! c 3 9b27 1 ! c 2 5e70 5 *.tex ! L 5e70 ! c 2 9b26 a extensions ! c 2 9b25 5 Latex ! c 2 9b24 4 name ! c 2 9932 5 Latex ! c 1 5e85 ! c 0 9b5d 4 ! c 2 9b64 2 e3 ! c 2 9b63 a defaultExe ! c 3 9b66 1 ! c 2 5e92 2 e3 ! L 5e92 ! c 2 9b65 b executables ! c 3 9b61 0 ! c 2 9b60 a extensions ! c 2 9b5f 5 Other ! c 2 9b5e 4 name ! c 2 9933 5 Other ! c 2 9928 a categories ! c 0 9935 1 ! C ProjectDir 4 5eaf ! c 2 5eb0 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 5eb1 0 0 ! c 2 9937 1d netscript2/src/perl/XML/DOM2/ ! c 2 9934 b directories ! C DmBag 5 9674 d ! c 2 96aa cf b ! C DmDictionary 0 9676 3 ! C DmString 1 9688 36 b ! C DmSet 0 5efb 1 ! C DmString 1 5f29 5 Other ! L 5f29 ! c 1 9687 a categories ! c 1 9678 7 Attr.pm ! c 1 9677 4 name ! C DmInteger 2 968a 1 ! c 1 9689 9 substMode ! c 2 96df d7 b ! C DmDictionary 0 96ab 3 ! C DmString 1 96bd 36 b ! C DmSet 0 5f3a 1 ! C DmString 1 5f68 5 Other ! L 5f68 ! c 1 96bc a categories ! c 1 96ad f CDATASection.pm ! c 1 96ac 4 name ! C DmInteger 2 96bf 1 ! c 1 96be 9 substMode ! c 2 9714 d9 b ! C DmDictionary 0 96e0 3 ! C DmString 1 96f2 36 b ! C DmSet 0 5f79 1 ! C DmString 1 5fa7 5 Other ! L 5fa7 ! c 1 96f1 a categories ! c 1 96e2 10 CharacterData.pm ! c 1 96e1 4 name ! C DmInteger 2 96f4 1 ! c 1 96f3 9 substMode ! c 2 9749 d2 b ! C DmDictionary 0 9715 3 ! C DmString 1 9727 36 b ! C DmSet 0 5fb8 1 ! C DmString 1 5fe6 5 Other ! L 5fe6 ! c 1 9726 a categories ! c 1 9717 a Comment.pm ! c 1 9716 4 name ! C DmInteger 2 9729 1 ! c 1 9728 9 substMode ! c 2 977e d7 b ! C DmDictionary 0 974a 3 ! C DmString 1 975c 36 b ! C DmSet 0 5ff7 1 ! C DmString 1 6025 5 Other ! L 6025 ! c 1 975b a categories ! c 1 974c f DOMException.pm ! c 1 974b 4 name ! C DmInteger 2 975e 1 ! c 1 975d 9 substMode ! c 2 97b3 dd b ! C DmDictionary 0 977f 3 ! C DmString 1 9791 36 b ! C DmSet 0 6036 1 ! C DmString 1 6064 5 Other ! L 6064 ! c 1 9790 a categories ! c 1 9781 14 DOMImplementation.pm ! c 1 9780 4 name ! C DmInteger 2 9793 1 ! c 1 9792 9 substMode ! c 2 97e8 d2 b ! C DmDictionary 0 97b4 3 ! C DmString 1 97c6 36 b ! C DmSet 0 94e3 1 ! C DmString 1 965d 5 Other ! L 965d ! c 1 97c5 a categories ! c 1 97b6 a Element.pm ! c 1 97b5 4 name ! C DmInteger 2 97c8 1 ! c 1 97c7 9 substMode ! c 2 981d d7 b ! C DmDictionary 0 97e9 3 ! C DmString 1 97fb 36 b ! C DmSet 0 6075 1 ! C DmString 1 60a3 5 Other ! L 60a3 ! c 1 97fa a categories ! c 1 97eb f NamedNodeMap.pm ! c 1 97ea 4 name ! C DmInteger 2 97fd 1 ! c 1 97fc 9 substMode ! c 2 9852 cf b ! C DmDictionary 0 981e 3 ! C DmString 1 9830 36 b ! C DmSet 0 60b4 1 ! C DmString 1 60e2 5 Other ! L 60e2 ! c 1 982f a categories ! c 1 9820 7 Node.pm ! c 1 981f 4 name ! C DmInteger 2 9832 1 ! c 1 9831 9 substMode ! c 2 9887 d3 b ! C DmDictionary 0 9853 3 ! C DmString 1 9865 36 b ! C DmSet 0 60f3 1 ! C DmString 1 6121 5 Other ! L 6121 ! c 1 9864 a categories ! c 1 9855 b NodeList.pm ! c 1 9854 4 name ! C DmInteger 2 9867 1 ! c 1 9866 9 substMode ! c 2 98bc e1 b ! C DmDictionary 0 9888 3 ! C DmString 1 989a 36 b ! C DmSet 0 6132 1 ! C DmString 1 6160 5 Other ! L 6160 ! c 1 9899 a categories ! c 1 988a 18 ProcessingInstruction.pm ! c 1 9889 4 name ! C DmInteger 2 989c 1 ! c 1 989b 9 substMode ! c 2 98f1 cf b ! C DmDictionary 0 98bd 3 ! C DmString 1 98cf 36 b ! C DmSet 0 6171 1 ! C DmString 1 619f 5 Other ! L 619f ! c 1 98ce a categories ! c 1 98bf 7 Text.pm ! c 1 98be 4 name ! C DmInteger 2 98d1 1 ! c 1 98d0 9 substMode ! c 2 9926 d1 b ! C DmDictionary 0 98f2 3 ! C DmString 1 9904 36 b ! C DmSet 0 61b0 1 ! C DmString 1 61de 5 Other ! L 61de ! c 1 9903 a categories ! c 1 98f4 9 notes.txt ! c 1 98f3 4 name ! C DmInteger 2 9906 1 ! c 1 9905 9 substMode ! c 2 9927 5 files ! c 2 9670 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 966f 6 launch ! c 2 966c 4 make ! c 2 966b 4 make ! c 2 966e 0 ! c 2 966d 8 makeFile ! c 5 9671 0 ! c 2 9673 7 modules ! c 2 966a 4 DOM2 ! c 2 9669 4 name |
|
From: Jan T. <de...@us...> - 2001-12-03 21:19:07
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv19823
Modified Files:
Node.pm
Log Message:
* bugfixes
Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Node.pm 2001/11/29 21:43:08 1.7
--- Node.pm 2001/12/03 21:19:04 1.8
***************
*** 55,62 ****
$this -> { m_childNodes } = XML::DOM2::NodeList -> new ();
- $this -> { m_nodeType } = undef;
$this -> { m_ownerDocument } = undef;
$this -> { m_parentNode } = undef;
$this -> { m_prefix } = undef;
$this -> { m_nextSibling } = undef;
$this -> { m_previousSibling } = undef;
--- 55,63 ----
$this -> { m_childNodes } = XML::DOM2::NodeList -> new ();
$this -> { m_ownerDocument } = undef;
$this -> { m_parentNode } = undef;
$this -> { m_prefix } = undef;
+ $this -> { m_namespaceURI } = undef;
+ $this -> { m_localName } = undef;
$this -> { m_nextSibling } = undef;
$this -> { m_previousSibling } = undef;
***************
*** 72,75 ****
--- 73,78 ----
# Node is not of type ELEMENT_NODE.
# @public
+ # Implementation is left to the subclass. This implementation
+ # returns undef.
#*/
sub attributes {
***************
*** 83,86 ****
--- 86,90 ----
# @return an instance of XML::DOM2::NodeList.
# @public
+ # @final
#*/
sub childNodes {
***************
*** 96,99 ****
--- 100,104 ----
# node has no children.
# @public
+ # @final
#*/
sub firstChild {
***************
*** 140,144 ****
#*/
sub localName {
! undef;
}
--- 145,150 ----
#*/
sub localName {
! my ($this) = @_;
! $this -> { m_localName };
}
***************
*** 156,160 ****
#*/
sub namespaceURI {
! undef;
}
--- 162,166 ----
#*/
sub namespaceURI {
! $this -> { m_namespaceURI };
}
***************
*** 165,168 ****
--- 171,175 ----
# @return an instance of XML::DOM2::Node or undef.
# @public
+ # @final
#*/
sub nextSibling {
***************
*** 176,179 ****
--- 183,187 ----
# @return a scalar containing the name of this node.
# @public
+ # @final
#*/
sub nodeName {
***************
*** 196,203 ****
# @return a scalar holding the node type.
# @public
#*/
sub nodeType {
! my ( $this ) = @_;
! $this -> { m_nodeType };
}
--- 204,214 ----
# @return a scalar holding the node type.
# @public
+ # Implementation is left to the subclasses. This implementation
+ # returns undef.
#*/
sub nodeType {
! # my ( $this ) = @_;
! # $this -> { m_nodeType };
! undef;
}
|
|
From: Jan T. <de...@us...> - 2001-12-03 21:18:44
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv19675
Modified Files:
NodeList.pm
Log Message:
* added removeAll operation
Index: NodeList.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NodeList.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** NodeList.pm 2001/10/03 19:52:23 1.4
--- NodeList.pm 2001/12/03 21:18:42 1.5
***************
*** 185,188 ****
}
!
!
--- 185,196 ----
}
! #/**
! # Removes all entries of this node list.
! # @not-standard
! # @public
! #*/
! sub removeAll {
! my ($this) = @_;
! my @emptyList = ();
! $this -> { m_nodeList } = \@emptyList;
! }
|
|
From: Jan T. <de...@us...> - 2001-12-03 21:18:14
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv19332
Added Files:
ProcessingInstruction.pm
Log Message:
* initial checkin
--- NEW FILE: ProcessingInstruction.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class ProcessingInstruction
# $Id: ProcessingInstruction.pm,v 1.1 2001/12/03 21:18:11 derkork Exp $
#
# 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::ProcessingInstruction;
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
use XML::DOM2::DOMException;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new Processing instruction.
# @return an instance of XML::DOM2::ProcessingInstruction
# @public
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
my $this = $proto -> SUPER::new(@_);
$this -> { m_data } = "";
$this -> { m_target } = "";
return $this;
}
#/**
# The content of this processing instruction. This is from the
# first non white-space character after the target to the character
# immediately preceding the ?>
# Can be set or retrieved. If the param is not supplied it will
# return the data, if the param is supplied it will set the new
# data.
# @param a hash containing the following key-value-pairs
# data - the new character data
# @return the content of this processing instruction
# @public
#*/
sub data {
my ( $this, $paramsRef ) = @_;
if ( defined( $paramsRef ) ) {
my %params = %{$paramsRef};
$this -> { m_data } = $params{"data"};
}
$this -> { m_data };
}
#/**
# The target of this processing instruction. XML defines this as being
# the first token following the markup that begins the processing
# instruction.
# Can be set or retrieved. If the param is not supplied it will
# return the data, if the param is supplied it will set the new
# data.
# @param a hash containing the following key-value-pairs
# target - the new character data
# @return the target of this processing instruction.
# @public
#*/
sub target {
my ( $this, $paramsRef ) = @_;
if ( defined( $paramsRef ) ) {
my %params = %{$paramsRef};
$this -> { m_target } = $params{"target"};
}
$this -> { m_target };
}
#/**
# AppendChild is unsupported, a ProcessingInstruction cannot have children.
#*/
sub appendChild {
my $exc = XML::DOM2::DOMException -> new (
{ ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
ErrDesc => "This node cannot have children."
} );
$exc -> raise();
}
#/**
# RemoveChild is unsupported, a ProcessingInstruction cannot have children.
#*/
sub removeChild {
my $exc = XML::DOM2::DOMException -> new (
{ ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
ErrDesc => "This node cannot have children."
} );
$exc -> raise();
}
#/**
# ReplaceChild is unsupported, a ProcessingInstruction cannot have children.
#*/
sub replaceChild {
my $exc = XML::DOM2::DOMException -> new (
{ ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
ErrDesc => "This node cannot have children."
} );
$exc -> raise();
}
#/**
# InsertBefore is unsupported, a ProcessingInstruction cannot have children.
#*/
sub insertBefore {
my $exc = XML::DOM2::DOMException -> new (
{ ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
ErrDesc => "This node cannot have children."
} );
$exc -> raise();
}
#/**
# Returns the entire content of this Processing instruction, except the
# target.
# @return the content of this PI, excluding the target.
# @public
#*/
sub nodeValue {
my ($this) = @_;
$this -> data();
}
|
|
From: Jan T. <de...@us...> - 2001-12-03 21:17:49
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv19044
Modified Files:
CDATASection.pm CharacterData.pm Comment.pm Text.pm
Log Message:
* prevented child operations, since these nodes cannot have children
Index: CDATASection.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CDATASection.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CDATASection.pm 2001/11/29 21:42:18 1.1
--- CDATASection.pm 2001/12/03 21:17:45 1.2
***************
*** 14,17 ****
--- 14,19 ----
use vars qw($VERSION);
+ use XML::DOM2::DOMException;
+
#--------------------------------------------------------
# Globals
***************
*** 36,39 ****
--- 38,92 ----
}
+ #/**
+ # AppendChild is unsupported, a CDATA-Section cannot have children.
+ #*/
+ sub appendChild {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+ }
+ #/**
+ # RemoveChild is unsupported, a CDATA-Section cannot have children.
+ #*/
+ sub removeChild {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+ }
+ #/**
+ # ReplaceChild is unsupported, a CDATA-Section cannot have children.
+ #*/
+ sub replaceChild {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+
+ }
+
+ #/**
+ # InsertBefore is unsupported, a CDATA-Section cannot have children.
+ #*/
+ sub insertBefore {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+ }
+
+ #/**
+ # Returns the content of the CDATA-Section
+ # @return the content of the CDATA-Section
+ #*/
+ sub nodeValue {
+ my ($this) = @_;
+ $this -> data();
+ }
Index: CharacterData.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CharacterData.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CharacterData.pm 2001/11/29 21:42:18 1.1
--- CharacterData.pm 2001/12/03 21:17:45 1.2
***************
*** 13,16 ****
--- 13,17 ----
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
+
use XML::DOM2::DOMException;
Index: Comment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Comment.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Comment.pm 2001/11/29 21:42:18 1.1
--- Comment.pm 2001/12/03 21:17:45 1.2
***************
*** 14,17 ****
--- 14,19 ----
use vars qw($VERSION);
+ use XML::DOM2::DOMException;
+
#--------------------------------------------------------
# Globals
***************
*** 36,38 ****
--- 38,93 ----
}
+ #/**
+ # AppendChild is unsupported, a Comment cannot have children.
+ #*/
+ sub appendChild {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+ }
+
+ #/**
+ # RemoveChild is unsupported, a Comment cannot have children.
+ #*/
+ sub removeChild {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+ }
+ #/**
+ # ReplaceChild is unsupported, a Comment cannot have children.
+ #*/
+ sub replaceChild {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+
+ }
+
+ #/**
+ # InsertBefore is unsupported, a Comment cannot have children.
+ #*/
+ sub insertBefore {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+ }
+
+ #/**
+ # Returns the content of this comment.
+ # @return the content of this comment.
+ # @public
+ #*/
+ sub nodeValue {
+ my ($this) = @_;
+ $this -> data();
+ }
Index: Text.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Text.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Text.pm 2001/11/29 21:42:18 1.1
--- Text.pm 2001/12/03 21:17:45 1.2
***************
*** 13,16 ****
--- 13,17 ----
use base qw(XML::DOM2::CharacterData);
use vars qw($VERSION);
+
use XML::DOM2::DOMException;
***************
*** 72,77 ****
$this -> data( { "data" => $data } );
! my $newTextNode = XML::DOM2::Text -> new();
! $newTextNode -> data($newData);
my $parent = $this -> parent();
--- 73,78 ----
$this -> data( { "data" => $data } );
! my $newTextNode = $this -> ownerDocument() -> createTextNode(
! { data => $newData } );
my $parent = $this -> parent();
***************
*** 94,96 ****
--- 95,150 ----
}
+ #/**
+ # AppendChild is unsupported, a Text cannot have children.
+ #*/
+ sub appendChild {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+ }
+
+ #/**
+ # RemoveChild is unsupported, a Text cannot have children.
+ #*/
+ sub removeChild {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+ }
+
+ #/**
+ # ReplaceChild is unsupported, a Text cannot have children.
+ #*/
+ sub replaceChild {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+
+ }
+
+ #/**
+ # InsertBefore is unsupported, a Text cannot have children.
+ #*/
+ sub insertBefore {
+ my $exc = XML::DOM2::DOMException -> new (
+ { ErrCode => XML::DOM2::DOMException -> INVALID_ACCESS_ERR(),
+ ErrDesc => "This node cannot have children."
+ } );
+ $exc -> raise();
+ }
+ #/**
+ # Returns the content of the text node.
+ # @return the content of the text node.
+ # @public
+ #*/
+ sub nodeValue() {
+ my ($this) = @_;
+ $this -> data();
+ }
|
|
From: Jan T. <de...@us...> - 2001-12-03 21:17:01
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv18750
Added Files:
Attr.pm
Log Message:
* initial checkin
--- NEW FILE: Attr.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class Attr
# $Id: Attr.pm,v 1.1 2001/12/03 21:16:58 derkork Exp $
#
# 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::Attr;
use base qw(XML::DOM2::Node);
use vars qw($VERSION);
use XML::DOM2::DOMException;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new XML::DOM2::Attr.
# @return an instance of XML::DOM2::Attr.
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
my $this = $proto -> SUPER::new(@_);
$this -> { m_name } = "";
$this -> { m_ownerElement } = undef;
$this -> { m_specified } = 0;
$this -> { m_value } = "";
return $this;
}
#/**
# Returns the name of this attribute.
# @return the name of this attribute.
# @public
#*/
sub name {
my ($this) = @_;
$this -> { m_name };
}
#/**
# Returns the owner element of this attribute, or undef, if there
# is no owner element.
# @public
#*/
sub ownerElement {
my ($this) = @_;
$this -> { m_ownerElement };
}
#/**
# Returns the value of this attribute. On retrieval, the value
# is returned as a string. Character and general entity references
# are replaced with their values. On setting, this creates a text
# node with the unparsed contents of the string, i.e any characters
# that an XML processor would recognize as markup are instead treated
# as literal text.
# @param (optional) a hash containing the following key-value-pairs
# value - the new value of the string.
# @return the value of this attribute.
#*/
sub value {
my ($this, $paramRef) = @_;
if ( defined($paramRef) ) {
my %params = %{$paramRef};
my $value = $params{"value"};
# clear list of children
$this -> childNodes() -> removeAll();
# append new node
my $textNode = $this -> ownerDocument() -> createTextNode(
{ data => $value } );
$this -> appendChild( { newChild => $textNode } );
$this -> { m_specified } = 1;
}
# now convert all child nodes (which can be text or entity references)
# to string and concatenate them.
my $result = "";
my $count = $this -> childNodes() -> length() -1;
for (1 .. $count ) {
# FIXME: Support for entity references
my $node = $this -> childNodes() -> item( $_ );
if ( $node -> nodeType() = &TEXT_NODE() ) {
$result .= $node -> nodeValue();
}
}
$result;
}
#/*
# If this attribute was explicitly given a value in the
# original document, this is true, otherwise this is false.
# @return a boolean telling whether this attr was specified or not
# @public
#*/
sub specified {
my ($this) = @_;
if ( defined( $this -> ownerElement() ) ) {
$this -> m_specified;
}
else {
1;
}
}
#/**
# Returns ATTRIBUTE_NODE.
# @public
#*/
sub nodeType {
&ATTRIBUTE_NODE();
}
|
|
From: Jan T. <de...@us...> - 2001-12-03 21:16:53
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2 In directory usw-pr-cvs1:/tmp/cvs-serv18687 Modified Files: wipeout.project Log Message: * initial checkin Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/wipeout.project,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** wipeout.project 2001/11/29 21:42:12 1.2 --- wipeout.project 2001/12/03 21:16:50 1.3 *************** *** 1,281 **** b ! C DmDictionary 0 59f21 8 ! c 0 5a143 9 ! C Category 1 562d ! c 0 5a183 4 ! C DmString 2 5a18a 2 e3 ! c 2 5a189 a defaultExe ! C DmSet 3 5a18c 1 ! c 2 563c 2 e3 ! L 563c ! c 2 5a18b b executables ! c 3 5a187 3 ! c 2 5643 3 *.C ! L 5643 ! c 2 5646 4 *.cc ! L 5646 ! c 2 5649 5 *.cpp ! L 5649 ! c 2 5a186 a extensions ! c 2 5a185 a CPP_source ! c 2 5a184 4 name ! c 2 5a145 a CPP_source ! c 1 565e ! c 0 5a1c9 4 ! c 2 5a1d0 2 e3 ! c 2 5a1cf a defaultExe ! c 3 5a1d2 1 ! c 2 566b 2 e3 ! L 566b ! c 2 5a1d1 b executables ! c 3 5a1cd 1 ! c 2 5672 3 *.c ! L 5672 ! c 2 5a1cc a extensions ! c 2 5a1cb 8 C_source ! c 2 5a1ca 4 name ! c 2 5a146 8 C_source ! c 1 5687 ! c 0 5a203 4 ! c 2 5a20a 2 e3 ! c 2 5a209 a defaultExe ! c 3 5a20c 1 ! c 2 5694 2 e3 ! L 5694 ! c 2 5a20b b executables ! c 3 5a207 1 ! c 2 569b 3 *.e ! L 569b ! c 2 5a206 a extensions ! c 2 5a205 6 Eiffel ! c 2 5a204 4 name ! c 2 5a147 6 Eiffel ! c 1 56b0 ! c 0 5a23d 4 ! c 2 5a244 2 e3 ! c 2 5a243 a defaultExe ! c 3 5a246 1 ! c 2 56bd 2 e3 ! L 56bd ! c 2 5a245 b executables ! c 3 5a241 4 ! c 2 56c4 3 *.F ! L 56c4 ! c 2 56c7 3 *.f ! L 56c7 ! c 2 56ca 5 *.for ! L 56ca ! c 2 56cd 5 *.fpp ! L 56cd ! c 2 5a240 a extensions ! c 2 5a23f 7 Fortran ! c 2 5a23e 4 name ! c 2 5a148 7 Fortran ! c 1 56e2 ! c 0 5a283 4 ! c 2 5a28a 2 e3 ! c 2 5a289 a defaultExe ! c 3 5a28c 1 ! c 2 56ef 2 e3 ! L 56ef ! c 2 5a28b b executables ! c 3 5a287 2 ! c 2 56f6 3 *.H ! L 56f6 ! c 2 56f9 3 *.h ! L 56f9 ! c 2 5a286 a extensions ! c 2 5a285 6 Header ! c 2 5a284 4 name ! c 2 5a149 6 Header ! c 1 570e ! c 0 5a2c1 4 ! c 2 5a2c8 9 surfboard ! c 2 5a2c7 a defaultExe ! c 3 5a2ca 2 ! c 2 571b 2 e3 ! L 571b ! c 2 571e 9 surfboard ! L 571e ! c 2 5a2c9 b executables ! c 3 5a2c5 2 ! c 2 5725 5 *.htm ! L 5725 ! c 2 5728 6 *.html ! L 5728 ! c 2 5a2c4 a extensions ! c 2 5a2c3 4 Html ! c 2 5a2c2 4 name ! c 2 5a14a 4 Html ! c 1 573d ! c 0 5a303 4 ! c 2 5a30a 2 e3 ! c 2 5a309 a defaultExe ! c 3 5a30c 1 ! c 2 574a 2 e3 ! L 574a ! c 2 5a30b b executables ! c 3 5a307 1 ! c 2 5751 6 *.java ! L 5751 ! c 2 5a306 a extensions ! c 2 5a305 4 Java ! c 2 5a304 4 name ! c 2 5a14b 4 Java ! c 1 5766 ! c 0 5a33d 4 ! c 2 5a344 2 e3 ! c 2 5a343 a defaultExe ! c 3 5a346 1 ! c 2 5773 2 e3 ! L 5773 ! c 2 5a345 b executables ! c 3 5a341 1 ! c 2 577a 5 *.tex ! L 577a ! c 2 5a340 a extensions ! c 2 5a33f 5 Latex ! c 2 5a33e 4 name ! c 2 5a14c 5 Latex ! c 1 578f ! c 0 5a377 4 ! c 2 5a37e 2 e3 ! c 2 5a37d a defaultExe ! c 3 5a380 1 ! c 2 579c 2 e3 ! L 579c ! c 2 5a37f b executables ! c 3 5a37b 0 ! c 2 5a37a a extensions ! c 2 5a379 5 Other ! c 2 5a378 4 name ! c 2 5a14d 5 Other ! c 2 5a142 a categories ! c 0 5a14f 1 ! C ProjectDir 4 57b9 ! c 2 57ba 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 57bb 0 0 ! c 2 5a151 1d netscript2/src/perl/XML/DOM2/ ! c 2 5a14e b directories ! C DmBag 5 59f2d a ! c 2 59f63 e1 b ! C DmDictionary 0 59f2f 3 ! C DmString 1 59f41 39 b ! C DmSet 0 57a80 1 ! C DmString 1 57bfa 5 Other ! L 57bfa ! c 1 59f40 a categories ! c 1 59f31 f CDATASection.pm ! c 1 59f30 4 name ! C DmInteger 2 59f43 1 ! c 1 59f42 9 substMode ! c 2 59f98 e0 b ! C DmDictionary 0 59f64 3 ! C DmString 1 59f76 36 b ! C DmSet 0 57fb 1 ! C DmString 1 5829 5 Other ! L 5829 ! c 1 59f75 a categories ! c 1 59f66 10 CharacterData.pm ! c 1 59f65 4 name ! C DmInteger 2 59f78 1 ! c 1 59f77 9 substMode ! c 2 59fcd dc b ! C DmDictionary 0 59f99 3 ! C DmString 1 59fab 39 b ! C DmSet 0 59d9c 1 ! C DmString 1 59f16 5 Other ! L 59f16 ! c 1 59faa a categories ! c 1 59f9b a Comment.pm ! c 1 59f9a 4 name ! C DmInteger 2 59fad 1 ! c 1 59fac 9 substMode ! c 2 5a002 de b ! C DmDictionary 0 59fce 3 ! C DmString 1 59fe0 36 b ! C DmSet 0 583a 1 ! C DmString 1 5868 5 Other ! L 5868 ! c 1 59fdf a categories ! c 1 59fd0 f DOMException.pm ! c 1 59fcf 4 name ! C DmInteger 2 59fe2 1 ! c 1 59fe1 9 substMode ! c 2 5a037 e4 b ! C DmDictionary 0 5a003 3 ! C DmString 1 5a015 36 b ! C DmSet 0 5879 1 ! C DmString 1 58a7 5 Other ! L 58a7 ! c 1 5a014 a categories ! c 1 5a005 14 DOMImplementation.pm ! c 1 5a004 4 name ! C DmInteger 2 5a017 1 ! c 1 5a016 9 substMode ! c 2 5a06c de b ! C DmDictionary 0 5a038 3 ! C DmString 1 5a04a 36 b ! C DmSet 0 58b8 1 ! C DmString 1 58e6 5 Other ! L 58e6 ! c 1 5a049 a categories ! c 1 5a03a f NamedNodeMap.pm ! c 1 5a039 4 name ! C DmInteger 2 5a04c 1 ! c 1 5a04b 9 substMode ! c 2 5a0a1 d6 b ! C DmDictionary 0 5a06d 3 ! C DmString 1 5a07f 36 b ! C DmSet 0 58f7 1 ! C DmString 1 5925 5 Other ! L 5925 ! c 1 5a07e a categories ! c 1 5a06f 7 Node.pm ! c 1 5a06e 4 name ! C DmInteger 2 5a081 1 ! c 1 5a080 9 substMode ! c 2 5a0d6 da b ! C DmDictionary 0 5a0a2 3 ! C DmString 1 5a0b4 36 b ! C DmSet 0 5936 1 ! C DmString 1 5964 5 Other ! L 5964 ! c 1 5a0b3 a categories ! c 1 5a0a4 b NodeList.pm ! c 1 5a0a3 4 name ! C DmInteger 2 5a0b6 1 ! c 1 5a0b5 9 substMode ! c 2 5a10b d9 b ! C DmDictionary 0 5a0d7 3 ! C DmString 1 5a0e9 39 b ! C DmSet 0 5574c 1 ! C DmString 1 558c6 5 Other ! L 558c6 ! c 1 5a0e8 a categories ! c 1 5a0d9 7 Text.pm ! c 1 5a0d8 4 name ! C DmInteger 2 5a0eb 1 ! c 1 5a0ea 9 substMode ! c 2 5a140 d8 b ! C DmDictionary 0 5a10c 3 ! C DmString 1 5a11e 36 b ! C DmSet 0 5975 1 ! C DmString 1 59a3 5 Other ! L 59a3 ! c 1 5a11d a categories ! c 1 5a10e 9 notes.txt ! c 1 5a10d 4 name ! C DmInteger 2 5a120 1 ! c 1 5a11f 9 substMode ! c 2 5a141 5 files ! c 2 59f29 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 59f28 6 launch ! c 2 59f25 4 make ! c 2 59f24 4 make ! c 2 59f27 0 ! c 2 59f26 8 makeFile ! c 5 59f2a 0 ! c 2 59f2c 7 modules ! c 2 59f23 4 DOM2 ! c 2 59f22 4 name --- 1,303 ---- b ! C DmDictionary 0 15d56 8 ! c 0 15fe2 9 ! C Category 1 5c58 ! c 0 16022 4 ! C DmString 2 16029 2 e3 ! c 2 16028 a defaultExe ! C DmSet 3 1602b 1 ! c 2 5c67 2 e3 ! L 5c67 ! c 2 1602a b executables ! c 3 16026 3 ! c 2 5c6e 3 *.C ! L 5c6e ! c 2 5c71 4 *.cc ! L 5c71 ! c 2 5c74 5 *.cpp ! L 5c74 ! c 2 16025 a extensions ! c 2 16024 a CPP_source ! c 2 16023 4 name ! c 2 15fe4 a CPP_source ! c 1 5c89 ! c 0 16068 4 ! c 2 1606f 2 e3 ! c 2 1606e a defaultExe ! c 3 16071 1 ! c 2 5c96 2 e3 ! L 5c96 ! c 2 16070 b executables ! c 3 1606c 1 ! c 2 5c9d 3 *.c ! L 5c9d ! c 2 1606b a extensions ! c 2 1606a 8 C_source ! c 2 16069 4 name ! c 2 15fe5 8 C_source ! c 1 5cb2 ! c 0 160a2 4 ! c 2 160a9 2 e3 ! c 2 160a8 a defaultExe ! c 3 160ab 1 ! c 2 5cbf 2 e3 ! L 5cbf ! c 2 160aa b executables ! c 3 160a6 1 ! c 2 5cc6 3 *.e ! L 5cc6 ! c 2 160a5 a extensions ! c 2 160a4 6 Eiffel ! c 2 160a3 4 name ! c 2 15fe6 6 Eiffel ! c 1 5cdb ! c 0 160dc 4 ! c 2 160e3 2 e3 ! c 2 160e2 a defaultExe ! c 3 160e5 1 ! c 2 5ce8 2 e3 ! L 5ce8 ! c 2 160e4 b executables ! c 3 160e0 4 ! c 2 5cef 3 *.F ! L 5cef ! c 2 5cf2 3 *.f ! L 5cf2 ! c 2 5cf5 5 *.for ! L 5cf5 ! c 2 5cf8 5 *.fpp ! L 5cf8 ! c 2 160df a extensions ! c 2 160de 7 Fortran ! c 2 160dd 4 name ! c 2 15fe7 7 Fortran ! c 1 5d0d ! c 0 16122 4 ! c 2 16129 2 e3 ! c 2 16128 a defaultExe ! c 3 1612b 1 ! c 2 5d1a 2 e3 ! L 5d1a ! c 2 1612a b executables ! c 3 16126 2 ! c 2 5d21 3 *.H ! L 5d21 ! c 2 5d24 3 *.h ! L 5d24 ! c 2 16125 a extensions ! c 2 16124 6 Header ! c 2 16123 4 name ! c 2 15fe8 6 Header ! c 1 5d39 ! c 0 16160 4 ! c 2 16167 9 surfboard ! c 2 16166 a defaultExe ! c 3 16169 2 ! c 2 5d46 2 e3 ! L 5d46 ! c 2 5d49 9 surfboard ! L 5d49 ! c 2 16168 b executables ! c 3 16164 2 ! c 2 5d50 5 *.htm ! L 5d50 ! c 2 5d53 6 *.html ! L 5d53 ! c 2 16163 a extensions ! c 2 16162 4 Html ! c 2 16161 4 name ! c 2 15fe9 4 Html ! c 1 5d68 ! c 0 161a2 4 ! c 2 161a9 2 e3 ! c 2 161a8 a defaultExe ! c 3 161ab 1 ! c 2 5d75 2 e3 ! L 5d75 ! c 2 161aa b executables ! c 3 161a6 1 ! c 2 5d7c 6 *.java ! L 5d7c ! c 2 161a5 a extensions ! c 2 161a4 4 Java ! c 2 161a3 4 name ! c 2 15fea 4 Java ! c 1 5d91 ! c 0 161dc 4 ! c 2 161e3 2 e3 ! c 2 161e2 a defaultExe ! c 3 161e5 1 ! c 2 5d9e 2 e3 ! L 5d9e ! c 2 161e4 b executables ! c 3 161e0 1 ! c 2 5da5 5 *.tex ! L 5da5 ! c 2 161df a extensions ! c 2 161de 5 Latex ! c 2 161dd 4 name ! c 2 15feb 5 Latex ! c 1 5dba ! c 0 16216 4 ! c 2 1621d 2 e3 ! c 2 1621c a defaultExe ! c 3 1621f 1 ! c 2 5dc7 2 e3 ! L 5dc7 ! c 2 1621e b executables ! c 3 1621a 0 ! c 2 16219 a extensions ! c 2 16218 5 Other ! c 2 16217 4 name ! c 2 15fec 5 Other ! c 2 15fe1 a categories ! c 0 15fee 1 ! C ProjectDir 4 5de4 ! c 2 5de5 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 5de6 0 0 ! c 2 15ff0 1d netscript2/src/perl/XML/DOM2/ ! c 2 15fed b directories ! C DmBag 5 15d62 c ! c 2 15d98 d9 b ! C DmDictionary 0 15d64 3 ! C DmString 1 15d76 39 b ! C DmSet 0 15bd1 1 ! C DmString 1 15d4b 5 Other ! L 15d4b ! c 1 15d75 a categories ! c 1 15d66 7 Attr.pm ! c 1 15d65 4 name ! C DmInteger 2 15d78 1 ! c 1 15d77 9 substMode ! c 2 15dcd de b ! C DmDictionary 0 15d99 3 ! C DmString 1 15dab 36 b ! C DmSet 0 5e2c 1 ! C DmString 1 5e5a 5 Other ! L 5e5a ! c 1 15daa a categories ! c 1 15d9b f CDATASection.pm ! c 1 15d9a 4 name ! C DmInteger 2 15dad 1 ! c 1 15dac 9 substMode ! c 2 15e02 e0 b ! C DmDictionary 0 15dce 3 ! C DmString 1 15de0 36 b ! C DmSet 0 5e6b 1 ! C DmString 1 5e99 5 Other ! L 5e99 ! c 1 15ddf a categories ! c 1 15dd0 10 CharacterData.pm ! c 1 15dcf 4 name ! C DmInteger 2 15de2 1 ! c 1 15de1 9 substMode ! c 2 15e37 d9 b ! C DmDictionary 0 15e03 3 ! C DmString 1 15e15 36 b ! C DmSet 0 5eaa 1 ! C DmString 1 5ed8 5 Other ! L 5ed8 ! c 1 15e14 a categories ! c 1 15e05 a Comment.pm ! c 1 15e04 4 name ! C DmInteger 2 15e17 1 ! c 1 15e16 9 substMode ! c 2 15e6c de b ! C DmDictionary 0 15e38 3 ! C DmString 1 15e4a 36 b ! C DmSet 0 5ee9 1 ! C DmString 1 5f17 5 Other ! L 5f17 ! c 1 15e49 a categories ! c 1 15e3a f DOMException.pm ! c 1 15e39 4 name ! C DmInteger 2 15e4c 1 ! c 1 15e4b 9 substMode ! c 2 15ea1 e4 b ! C DmDictionary 0 15e6d 3 ! C DmString 1 15e7f 36 b ! C DmSet 0 5f28 1 ! C DmString 1 5f56 5 Other ! L 5f56 ! c 1 15e7e a categories ! c 1 15e6f 14 DOMImplementation.pm ! c 1 15e6e 4 name ! C DmInteger 2 15e81 1 ! c 1 15e80 9 substMode ! c 2 15ed6 de b ! C DmDictionary 0 15ea2 3 ! C DmString 1 15eb4 36 b ! C DmSet 0 5f67 1 ! C DmString 1 5f95 5 Other ! L 5f95 ! c 1 15eb3 a categories ! c 1 15ea4 f NamedNodeMap.pm ! c 1 15ea3 4 name ! C DmInteger 2 15eb6 1 ! c 1 15eb5 9 substMode ! c 2 15f0b d6 b ! C DmDictionary 0 15ed7 3 ! C DmString 1 15ee9 36 b ! C DmSet 0 5fa6 1 ! C DmString 1 5fd4 5 Other ! L 5fd4 ! c 1 15ee8 a categories ! c 1 15ed9 7 Node.pm ! c 1 15ed8 4 name ! C DmInteger 2 15eeb 1 ! c 1 15eea 9 substMode ! c 2 15f40 da b ! C DmDictionary 0 15f0c 3 ! C DmString 1 15f1e 36 b ! C DmSet 0 5fe5 1 ! C DmString 1 6013 5 Other ! L 6013 ! c 1 15f1d a categories ! c 1 15f0e b NodeList.pm ! c 1 15f0d 4 name ! C DmInteger 2 15f20 1 ! c 1 15f1f 9 substMode ! c 2 15f75 e8 b ! C DmDictionary 0 15f41 3 ! C DmString 1 15f53 36 b ! C DmSet 0 bb19 1 ! C DmString 1 bc93 5 Other ! L bc93 ! c 1 15f52 a categories ! c 1 15f43 18 ProcessingInstruction.pm ! c 1 15f42 4 name ! C DmInteger 2 15f55 1 ! c 1 15f54 9 substMode ! c 2 15faa d6 b ! C DmDictionary 0 15f76 3 ! C DmString 1 15f88 36 b ! C DmSet 0 6024 1 ! C DmString 1 6052 5 Other ! L 6052 ! c 1 15f87 a categories ! c 1 15f78 7 Text.pm ! c 1 15f77 4 name ! C DmInteger 2 15f8a 1 ! c 1 15f89 9 substMode ! c 2 15fdf d8 b ! C DmDictionary 0 15fab 3 ! C DmString 1 15fbd 36 b ! C DmSet 0 6063 1 ! C DmString 1 6091 5 Other ! L 6091 ! c 1 15fbc a categories ! c 1 15fad 9 notes.txt ! c 1 15fac 4 name ! C DmInteger 2 15fbf 1 ! c 1 15fbe 9 substMode ! c 2 15fe0 5 files ! c 2 15d5e 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 15d5d 6 launch ! c 2 15d5a 4 make ! c 2 15d59 4 make ! c 2 15d5c 0 ! c 2 15d5b 8 makeFile ! c 5 15d5f 0 ! c 2 15d61 7 modules ! c 2 15d58 4 DOM2 ! c 2 15d57 4 name |
