[NetScript CVS] CVS: netscript2/src/perl/XML/DOM2 DOMParser.pm,1.6,1.7 Node.pm,1.19,1.20

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv25095

Modified Files:
	DOMParser.pm Node.pm 
Log Message:
* minor fixes
* domparser sets line-property of node, which specifies in which line the node was in the textual representation of the document

Index: DOMParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMParser.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** DOMParser.pm	8 Jun 2002 12:14:29 -0000	1.6
--- DOMParser.pm	9 Jun 2002 12:48:12 -0000	1.7
***************
*** 138,141 ****
--- 138,142 ----
              $namespaceURI, 
              defined($prefix) ? $prefix.":".$element : $element );
+     $elementNode -> setLine( $expat -> current_line() );
  
      # get currently innermost open Element.
***************
*** 185,188 ****
--- 186,190 ----
      # first, create a text node
      my $textNode = $this -> { m_document } -> createTextNode( $string );
+     $textNode -> setLine( $expat -> current_line() );
      
      # append it to the context element
***************
*** 200,204 ****
      my $procNode = $this -> { m_document } -> createProcessingInstruction(
               $target, $data );
!     
      # append it to the context element
      $this -> { m_contextElement } -> appendChild( $procNode );
--- 202,206 ----
      my $procNode = $this -> { m_document } -> createProcessingInstruction(
               $target, $data );
!     $procNode -> setLine( $expat -> current_line() );
      # append it to the context element
      $this -> { m_contextElement } -> appendChild( $procNode );
***************
*** 215,218 ****
--- 217,221 ----
      my $commentNode = $this -> { m_document } -> createComment(
              $data );
+     $commentNode -> setLine( $expat -> current_line() );
      
      # append it to the context element

Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Node.pm	8 Jun 2002 12:14:29 -0000	1.19
--- Node.pm	9 Jun 2002 12:48:12 -0000	1.20
***************
*** 70,73 ****
--- 70,74 ----
      $this -> { m_firstChild } = undef;
      $this -> { m_lastChild } = undef;
+     $this -> { m_line } = undef;
      return $this;                       # return Object
      }
***************
*** 754,756 ****
--- 755,779 ----
      }
  
+ #/**
+ # Sets the line number where this node occured in the textual representation
+ # of the document.
+ # @param a line number
+ # @not-standard
+ # @public
+ #*/
+ sub setLine {
+     my ( $this, $line ) = @_;
+     $this -> { m_Line } = $line;
+     }
+ 
+ #/**
+ # Returns the line number where this node occured in the textual representation
+ # of the document.
+ # @not-standard
+ # @public
+ #*/
+ sub getLine {
+     my ( $this ) = @_;
+     $this -> { m_Line };
+     }
  1; # make require happy