[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries Library.pm,1.8,1.9 DebugLibrary.pm,1.7,1.8 FilesLibrary.pm,1.1,1.2

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries
In directory sc8-pr-cvs1:/tmp/cvs-serv5578/src/perl/NetScript/Libraries

Modified Files:
	Library.pm DebugLibrary.pm FilesLibrary.pm 
Log Message:
* continued with DAL

Index: Library.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/Library.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Library.pm	29 May 2003 16:04:30 -0000	1.8
--- Library.pm	29 May 2003 20:09:43 -0000	1.9
***************
*** 5,9 ****
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thom?, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 112,115 ****
--- 112,116 ----
  # Returns an instance of <code>NetScript::Interpreter</code>
  # @public
+ # @final
  #*/
  sub interpreter {
***************
*** 120,123 ****
--- 121,125 ----
  #/**
  # Returns the currently used DAL.
+ # @final
  #*/
  sub dal {

Index: DebugLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DebugLibrary.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** DebugLibrary.pm	21 Aug 2002 10:35:03 -0000	1.7
--- DebugLibrary.pm	29 May 2003 20:09:44 -0000	1.8
***************
*** 5,9 ****
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thom?, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 76,80 ****
          my $domWalker = $event -> getEventUnknown();
          my $document = $domWalker -> sourceDocument();
!         my $comment = $document -> createComment( 
                  "\nDebug Messages:\n-----------------\n".$this -> debugMessage() );
          $domWalker -> insertIntoTarget( $comment );
--- 76,80 ----
          my $domWalker = $event -> getEventUnknown();
          my $document = $domWalker -> sourceDocument();
!         my $comment = $this -> dal() -> createComment( $document,
                  "\nDebug Messages:\n-----------------\n".$this -> debugMessage() );
          $domWalker -> insertIntoTarget( $comment );

Index: FilesLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/FilesLibrary.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FilesLibrary.pm	21 Aug 2002 10:35:46 -0000	1.1
--- FilesLibrary.pm	29 May 2003 20:09:44 -0000	1.2
***************
*** 4,8 ****
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thom?, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 144,148 ****
      my ( $this, $node ) = @_;
      my $se = $this -> interpreter() -> getStatementEvaluator();
!     my $handleName = $node -> getAttribute( "handle" );
      $handleName = $se -> evaluateStatement( $handleName );
      if ( $handleName eq "" ) {
--- 144,148 ----
      my ( $this, $node ) = @_;
      my $se = $this -> interpreter() -> getStatementEvaluator();
!     my $handleName = $this -> dal() -> getAttribute( $node, "handle" );
      $handleName = $se -> evaluateStatement( $handleName );
      if ( $handleName eq "" ) {
***************
*** 164,170 ****
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $handle = $this -> getFileHandle( $node );
!     my $mode = $node -> getAttribute( "mode" );
!     my $locking = $node -> getAttribute( "lock" );
!     my $filename = $node -> getAttribute( "filename" );
      
      $mode = $se -> evaluateStatement( $mode );
--- 164,170 ----
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $handle = $this -> getFileHandle( $node );
!     my $mode = $this -> dal() -> getAttribute( $node, "mode" );
!     my $locking = $this -> dal() -> getAttribute( $node, "lock" );
!     my $filename = $this -> dal() -> getAttribute( $node, "filename" );
      
      $mode = $se -> evaluateStatement( $mode );
***************
*** 249,253 ****
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $handle = $this -> getFileHandle( $node );
!     my $variable = $node -> getAttribute( "var" );
      
      if ( $variable eq "" ) {
--- 249,253 ----
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $handle = $this -> getFileHandle( $node );
!     my $variable = $this -> dal() -> getAttribute( $node, "var" );
      
      if ( $variable eq "" ) {
***************
*** 279,283 ****
      my $handle = $this -> getFileHandle( $node );
      my ($create, $variable) = $this -> getVariableInfo( $node );
!     my $length = $se -> evaluateStatement( $node -> getAttribute( "bytes" ) );
  
      unless( $length =~ /^[0-9]+$/ ) {
--- 279,284 ----
      my $handle = $this -> getFileHandle( $node );
      my ($create, $variable) = $this -> getVariableInfo( $node );
!     my $length = $se -> evaluateStatement( 
!            $this -> dal() -> getAttribute( $node, "bytes" ) );
  
      unless( $length =~ /^[0-9]+$/ ) {
***************
*** 318,323 ****
      my $handle = $this -> getFileHandle( $node );
      my ($create, $variable) = $this -> getVariableInfo( $node );
!     my $count = $se -> evaluateStatement( $node -> getAttribute( "lines" ) );
!     my $index = $se -> evaluateStatement( $node -> getAttribute( "from" ) );
      my $fileHandle = $this -> { m_openFiles } -> { $handle };
      if ( ! defined( $fileHandle ) ) {
--- 319,324 ----
      my $handle = $this -> getFileHandle( $node );
      my ($create, $variable) = $this -> getVariableInfo( $node );
!     my $count = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "lines" ) );
!     my $index = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "from" ) );
      my $fileHandle = $this -> { m_openFiles } -> { $handle };
      if ( ! defined( $fileHandle ) ) {