net-script-commits — All CVS commits will be posted to this list.

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Util ConfigurationParser.pm,1.3,1.4 FileRetriever.pm,1.5,1.6 ClassWrapper.pm,1.1,NONE FunctionWrapper.pm,1.1,NONE MemberWrapper.pm,1.1,NONE

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Util
In directory usw-pr-cvs1:/tmp/cvs-serv570/Util

Modified Files:
	ConfigurationParser.pm FileRetriever.pm 
Removed Files:
	ClassWrapper.pm FunctionWrapper.pm MemberWrapper.pm 
Log Message:
* added library include facility
* moved Wrappers to Engine
* added emergency error page (if error page is missing)
* changed configfilereader to be more generic
* some performance improvements
* overall bugfixing

Index: ConfigurationParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/ConfigurationParser.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ConfigurationParser.pm	15 May 2002 18:23:11 -0000	1.3
--- ConfigurationParser.pm	2 Jun 2002 19:31:23 -0000	1.4
***************
*** 14,18 ****
  #*/
  package NetScript::Util::ConfigurationParser;
- use vars qw(@ISA $VERSION $CONFIG_FILE);
  
  #--------------------------------------------------------
--- 14,17 ----
***************
*** 20,31 ****
  #--------------------------------------------------------
  
- $CONFIG_FILE = 'configuration';
- 
  #/**
  # Constructor
  # @public
  #*/
  sub new {
!     my $proto = shift;
      my $class = ref($proto) || $proto;
      my $this = {};
--- 19,29 ----
  #--------------------------------------------------------
  
  #/**
  # Constructor
+ # @param the location of the configuration file (local fs only)
  # @public
  #*/
  sub new {
!     my ($proto, $configfile ) = @_;
      my $class = ref($proto) || $proto;
      my $this = {};
***************
*** 33,37 ****
      my %settings = ();
  
!     open( CFILE, "<$CONFIG_FILE" );
      while( <CFILE> ) {
          unless( /^[ ]*#/ ) { #filter comments
--- 31,36 ----
      my %settings = ();
  
! 
!     open( CFILE, "<$configfile" );
      while( <CFILE> ) {
          unless( /^[ ]*#/ ) { #filter comments
***************
*** 47,57 ****
      }
  
  #/**
! # Returns the directory where the static files are located.
  #*/
! sub staticDir {
!     my ( $this ) = @_;
!     $this -> { m_settings } -> { STATIC };
      }
  
  1;                                      # make "require" happy...
--- 46,62 ----
      }
  
+ 
  #/**
! # Returns the setting with the given name or undef
! # if the setting is not defined.
! # @param the name of the setting
! # @return the value of the setting
! # @public
  #*/
! sub getSetting {
!     my ( $this, $name ) = @_;
!     return $this -> { m_settings } -> { $name };
      }
+ 
  
  1;                                      # make "require" happy...

Index: FileRetriever.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/FileRetriever.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** FileRetriever.pm	15 May 2002 18:23:11 -0000	1.5
--- FileRetriever.pm	2 Jun 2002 19:31:23 -0000	1.6
***************
*** 78,84 ****
          else {
              $this -> { m_Interpreter } -> getEventRelay() -> 
!                     createAndRaiseEvent( NetScript::Interpreter -> FATAL_EVENT(),
!                     "[FileRetriever::retrieveFile]: error occured while retrieving the file $fileURI. (".
!                     $response -> status_line().")"
                      );
              return undef;
--- 78,84 ----
          else {
              $this -> { m_Interpreter } -> getEventRelay() -> 
!                     createAndRaiseEvent( $NetScript::Interpreter::FATAL_EVENT,
!                     "[FileRetriever::retrieveFile]: error occured while retrieving the file $fileURI.\nError was:".
!                     $response -> status_line()
                      );
              return undef;
***************
*** 88,92 ****
          # issue warning.
          $this -> { m_Interpreter } -> getEventRelay() ->
!                 createAndRaiseEvent( NetScript::Interpreter -> WARNING_EVENT(),
                  "[FileRetriever::retrieveFile]: LWP is not available." 
                  );
--- 88,92 ----
          # issue warning.
          $this -> { m_Interpreter } -> getEventRelay() ->
!                 createAndRaiseEvent( $NetScript::Interpreter::WARNING_EVENT,
                  "[FileRetriever::retrieveFile]: LWP is not available." 
                  );
***************
*** 95,99 ****
          if ($fileURI =~ /(^[a-zA-Z]+:\/)/) { # check for unsupported protocol
              $this -> { m_Interpreter } -> getEventRelay() ->
!                 createAndRaiseEvent( NetScript::Interpreter -> FATAL_EVENT(),
                  "[FileRetriever::retrieveFile]: unsupported protocol ".$1
                  );
--- 95,99 ----
          if ($fileURI =~ /(^[a-zA-Z]+:\/)/) { # check for unsupported protocol
              $this -> { m_Interpreter } -> getEventRelay() ->
!                 createAndRaiseEvent( $NetScript::Interpreter::FATAL_EVENT,
                  "[FileRetriever::retrieveFile]: unsupported protocol ".$1
                  );
***************
*** 102,106 ****
          elsif (! -e $fileURI) { # check if file exists
              $this -> { m_Interpreter } -> getEventRelay() ->
!                 createAndRaiseEvent( NetScript::Interpreter -> FATAL_EVENT(),
                  "[FileRetriever::retrieveFile]: file not found ".$fileURI
                  );
--- 102,106 ----
          elsif (! -e $fileURI) { # check if file exists
              $this -> { m_Interpreter } -> getEventRelay() ->
!                 createAndRaiseEvent( $NetScript::Interpreter::FATAL_EVENT,
                  "[FileRetriever::retrieveFile]: file not found ".$fileURI
                  );

--- ClassWrapper.pm DELETED ---

--- FunctionWrapper.pm DELETED ---

--- MemberWrapper.pm DELETED ---

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries ControlStructuresLibrary.pm,1.2,1.3 DebugLibrary.pm,1.3,1.4 FormsLibrary.pm,1.1,1.2 Library.pm,1.3,1.4

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

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

Modified Files:
	ControlStructuresLibrary.pm DebugLibrary.pm FormsLibrary.pm 
	Library.pm 
Log Message:
* added library include facility
* moved Wrappers to Engine
* added emergency error page (if error page is missing)
* changed configfilereader to be more generic
* some performance improvements
* overall bugfixing

Index: ControlStructuresLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/ControlStructuresLibrary.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ControlStructuresLibrary.pm	29 May 2002 20:27:39 -0000	1.2
--- ControlStructuresLibrary.pm	2 Jun 2002 19:31:23 -0000	1.3
***************
*** 34,37 ****
--- 34,51 ----
  #       
  # </pre>
+ # 
+ # Also this library provides the library loading mechanism of NetScript.
+ # You can load a library by using a processing instruction:
+ # <pre>
+ #       &lt;netscript use LIBNAME&gt;
+ # </pre>
+ # The library must be named &quot;LIBNAMELibrary.pm&quot; and must be located
+ # somewhere below the NetScript/Libraries-directory. The library must be a 
+ # subclass of NetScript::Libraries::Library. As an example there is an example-
+ # library in the docs/netscript/src -folder, which you can use for
+ # creating your own libraries. To test the example copy it somewhere below
+ # the NetScript/Libraries-directory. You should create a subdir, to place
+ # third-party-libraries in another place as the base libraries, 
+ # however this is just a recommendation, it is not needed.
  #*/
  package NetScript::Libraries::ControlStructuresLibrary;
***************
*** 74,80 ****
--- 88,101 ----
              $NetScript::Engine::DOMWalker::ELEMENT_END_EVENT,
              "elementFinished", $this );
+ 
+     my $eventListener3 = NetScript::Engine::EventListener -> new();
+     $eventListener3 -> init(
+             $NetScript::Engine::DOMWalker::PI_EVENT,
+             "processingInstruction", $this );
+ 
      my $eventRelay = $this -> interpreter() -> getEventRelay();
      $eventRelay -> addEventListener( $eventListener1 );
      $eventRelay -> addEventListener( $eventListener2 );
+     $eventRelay -> addEventListener( $eventListener3 );
      }
  
***************
*** 250,253 ****
--- 271,281 ----
          });
  
+     $from = $this -> interpreter() -> getStatementEvaluator() ->
+             evaluateStatement( $from );
+     $to = $this -> interpreter() -> getStatementEvaluator() ->
+             evaluateStatement( $to );
+     $var = $this -> interpreter() -> getStatementEvaluator() ->
+             evaluateStatement( $var );
+ 
      my $value = $this -> { m_forLoops } -> {  $node };
  
***************
*** 302,305 ****
--- 330,340 ----
          });
  
+     $from = $this -> interpreter() -> getStatementEvaluator() ->
+             evaluateStatement( $from );
+     $to = $this -> interpreter() -> getStatementEvaluator() ->
+             evaluateStatement( $to );
+     $var = $this -> interpreter() -> getStatementEvaluator() ->
+             evaluateStatement( $var );
+ 
      my $value = $this -> interpreter() -> getState() ->
          getVariableValue( $var );
***************
*** 352,355 ****
--- 387,411 ----
          }
      }
+ 
+ #/**
+ # Called when a processing instruction occurs.
+ # @callback
+ #*/
+ sub processingInstruction {
+     my ( $this, $event ) = @_;
+     my $domWalker = $event -> eventUnknown();
+     my $node = $domWalker -> currentSource();
+     
+     if ( $node -> target() eq "netscript" ) {
+         my $data = $node -> data();
+         if ( $data =~ /\s*use\s*([^\s]*)/) { # check for "use LIBNAME"
+             $this -> interpreter -> getLibLoader() -> loadLibrary( $1 );
+             $domWalker -> stepSourceIn();
+             return 0; # consume event
+             }
+         }
+     return 1; # do not consume event
+     }
+ 
  
  

Index: DebugLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DebugLibrary.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DebugLibrary.pm	15 May 2002 18:22:18 -0000	1.3
--- DebugLibrary.pm	2 Jun 2002 19:31:23 -0000	1.4
***************
*** 13,16 ****
--- 13,22 ----
  # The debug library catches debug-events and appends all debug
  # message to the end of the document into a comment node.
+ # The following events can be sent to this library:
+ # <ul>
+ # <li><code>DEBUG_LIBRARY_DEBUG_EVENT</code>-will cause a debug message
+ #       to be appended to the result document. The event message is
+ #       treated as the debug message.</li>
+ # </ul>
  #*/
  package NetScript::Libraries::DebugLibrary;
***************
*** 18,23 ****
  
  
  
! our $DEBUG_EVENT = "DEBUG_LIBRARY_DEBUG_EVENT";
  
  use NetScript::Engine::EventListener;
--- 24,30 ----
  
  
+ use vars qw( $DEBUG_EVENT );
  
! $DEBUG_EVENT = "DEBUG_LIBRARY_DEBUG_EVENT";
  
  use NetScript::Engine::EventListener;
***************
*** 34,38 ****
      my $class = ref($proto) || $proto;
      my $this = $class -> SUPER::new();
!     $this -> { m_debug } = "\nDebug Messages:\n-----------------\n";
      $this;
      }
--- 41,45 ----
      my $class = ref($proto) || $proto;
      my $this = $class -> SUPER::new();
!     $this -> { m_debug } = "";
      $this;
      }
***************
*** 65,74 ****
  sub documentFinished {
      my ( $this, $event ) = @_;
!     my $domWalker = $event -> eventUnknown();
!     my $document = $domWalker -> sourceDocument();
!     my $comment = $document -> createComment( { 
!             data => $this -> debugMessage() 
!             } );
!     $domWalker -> insertIntoTarget( $comment );
      1; #do not consume event
      }
--- 72,83 ----
  sub documentFinished {
      my ( $this, $event ) = @_;
!     if ( $this -> debugMessage() ne "" ) {
!         my $domWalker = $event -> eventUnknown();
!         my $document = $domWalker -> sourceDocument();
!         my $comment = $document -> createComment( { 
!                 data => "\nDebug Messages:\n-----------------\n".$this -> debugMessage() 
!                 } );
!         $domWalker -> insertIntoTarget( $comment );
!         }
      1; #do not consume event
      }

Index: FormsLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/FormsLibrary.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FormsLibrary.pm	29 May 2002 20:27:39 -0000	1.1
--- FormsLibrary.pm	2 Jun 2002 19:31:23 -0000	1.2
***************
*** 27,32 ****
  # Use it like this:
  # <pre>
! #   &lt;ns:invoke var="C" func="setCookie" prm1="&lt;cookie name&gt;" 
! #        prm2="&lt;cookie value&gt;" prm3="&lt;expires&gt;"/&gt;
  # </pre> 
  #*/
--- 27,32 ----
  # Use it like this:
  # <pre>
! #   &lt;ns:cookie name="<cookie name>" val="<cookie value>" 
! #       expires="<expire date>"/&gt;
  # </pre> 
  #*/
***************
*** 41,45 ****
  use NetScript::Interpreter;
  use NetScript::Engine::DOMWalker;
! use NetScript::Util::ClassWrapper;
  
  #/**
--- 41,45 ----
  use NetScript::Interpreter;
  use NetScript::Engine::DOMWalker;
! use NetScript::Engine::ClassWrapper;
  
  #/**
***************
*** 58,65 ****
      my ($this, $interpreter) = @_;
      $this -> SUPER::init( $interpreter );
!     my $paramWrapper = NetScript::Util::ClassWrapper -> new( $this );
      $paramWrapper -> setMember( ".*", undef, "getParameter" );
  
!     my $cookieWrapper = NetScript::Util::ClassWrapper -> new( $this );
      $cookieWrapper -> setMember( ".*", undef, "getCookie" );
  
--- 58,65 ----
      my ($this, $interpreter) = @_;
      $this -> SUPER::init( $interpreter );
!     my $paramWrapper = NetScript::Engine::ClassWrapper -> new( $this );
      $paramWrapper -> setMember( ".*", undef, "getParameter" );
  
!     my $cookieWrapper = NetScript::Engine::ClassWrapper -> new( $this );
      $cookieWrapper -> setMember( ".*", undef, "getCookie" );
  
***************
*** 68,71 ****
--- 68,129 ----
      # register the C-object
      $this -> interpreter() -> getState() -> setObjectValue( "C", $cookieWrapper );
+     
+     # register event listeners for the cookie-tag
+     my $eventListener1 = NetScript::Engine::EventListener -> new();
+     $eventListener1 -> init( 
+             $NetScript::Engine::DOMWalker::ELEMENT_START_EVENT,
+             "elementStarted", $this );
+ 
+     my $eventListener2 = NetScript::Engine::EventListener -> new();
+     $eventListener2 -> init( 
+             $NetScript::Engine::DOMWalker::ELEMENT_END_EVENT,
+             "elementFinished", $this );
+ 
+     my $eventRelay = $this -> interpreter() -> getEventRelay();
+     $eventRelay -> addEventListener( $eventListener1 );
+     $eventRelay -> addEventListener( $eventListener2 );
+     }
+ 
+ #/**
+ # Called upon element start
+ # @callback
+ #*/
+ sub elementStarted {
+     my ( $this, $event ) = @_;
+     my $domWalker = $event -> eventUnknown();
+     my $node = $domWalker -> currentSource();
+     if ( $node -> namespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
+         if ($node -> localName() eq "cookie") {
+             $this -> setCookie( $node, $domWalker );
+             0; # consume event
+             }
+         else {
+             1; # do not consume event
+             }
+         }
+     else {
+         1; # do not consume event
+         }
+     }
+ 
+ #/**
+ # Called upon element finish.
+ # @callback
+ #*/
+ sub elementFinished {
+     my ( $this, $event ) = @_;
+     my $domWalker = $event -> eventUnknown();
+     my $node = $domWalker -> currentSource();
+     if ( $node -> namespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
+         if ($node -> localName() eq "cookie") {
+             0; # consume event 
+             }
+         else {
+             1; # do not consume
+             }
+         }
+     else {
+         1; # do not consume event
+         }
      }
  
***************
*** 80,84 ****
      my ( $this, $name ) = @_;
      my $cgi = $this -> interpreter() -> getCGI();
-     $this -> debug( "Getting parameter: $name ... " );
      my $pName = $name;
      my $pIndex = 0;
--- 138,141 ----
***************
*** 104,107 ****
--- 161,188 ----
  
  
+ #/**
+ # Sets the given cookie.
+ # @param the node representing the cookie-tag.
+ # @param an instance of NetScript::Engine::DOMWalker
+ # @callback
+ #*/
+ sub setCookie {
+     my ( $this, $node, $walker ) = @_;
+     my $name = $node -> getAttribute( {
+         name => "name" } );
+     my $value = $node -> getAttribute( {
+         name => "val" } );
+     my $expires = $node -> getAttribute( {
+         name => "expires" } );
+         
+     $name = $this -> interpreter() -> getStatementEvaluator() ->
+             evaluateStatement( $name );
+     $value = $this -> interpreter() -> getStatementEvaluator() ->
+             evaluateStatement( $value );
+     $expires = $this -> interpreter() -> getStatementEvaluator() ->
+             evaluateStatement( $expires );
+     
+     $this -> interpreter() -> setCookie( $name, $value, $expires );
+     }
  
  

Index: Library.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/Library.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Library.pm	15 May 2002 18:22:18 -0000	1.3
--- Library.pm	2 Jun 2002 19:31:23 -0000	1.4
***************
*** 46,50 ****
  # @public
  # @abstract
! # @note subclasses should call this sub if they override it
  #*/
  sub init {
--- 46,50 ----
  # @public
  # @abstract
! # @note subclasses should call this sub if they override it!
  #*/
  sub init {

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Engine ClassWrapper.pm,NONE,1.1 FunctionWrapper.pm,NONE,1.1 MemberWrapper.pm,NONE,1.1 BasicStatement.pm,1.5,1.6 DOMWalker.pm,1.4,1.5 EventListener.pm,1.3,1.4 EventRelay.pm,1.7,1.8 StatementEvaluator.pm,1.6,1.7 wipeout.project,1.8,1.9

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Engine
In directory usw-pr-cvs1:/tmp/cvs-serv570/Engine

Modified Files:
	BasicStatement.pm DOMWalker.pm EventListener.pm EventRelay.pm 
	StatementEvaluator.pm wipeout.project 
Added Files:
	ClassWrapper.pm FunctionWrapper.pm MemberWrapper.pm 
Log Message:
* added library include facility
* moved Wrappers to Engine
* added emergency error page (if error page is missing)
* changed configfilereader to be more generic
* some performance improvements
* overall bugfixing

--- NEW FILE: ClassWrapper.pm ---
#--------------------------------------------------------
# $Id: ClassWrapper.pm,v 1.1 2002/06/02 19:31:23 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This class is a wrapper around a class object.
# It is used by libraries which want to create objects at
# runtime, without creating a class for it.
#*/
package NetScript::Engine::ClassWrapper;
use base qw(NetScript::Engine::Class);


use NetScript::Engine::FunctionWrapper;
use NetScript::Engine::MemberWrapper;

#--------------------------------------------------------
# Globals
#--------------------------------------------------------


#/**
# Ctor.
# @param an object that should be wrapped and being represented
# as a class.
#*/
sub new {
    my ($proto, $object) = @_;
    my $proto = shift;                  # get Prototype
    my $class = ref( $proto ) || $proto;# get the Classname

    my $this = $class -> SUPER::new();
    $this -> { m_Object } = $object;
    return $this;                       # return Object
    }


#/**
# Sets the given function. A FunctionWrapper will be
# created for the given function name. If this function
# is invoked, the given sub on the wrapped object will be called.
# @param the name of the function to create
# @param the name of the sub which should be called upon invocation
# of the function.
#*/
sub setFunction {
    my ($this, $function, $subToCall ) = @_;
    my $wrapper = NetScript::Engine::FunctionWrapper -> new( 
        $this -> object(), $function, $subToCall );
    $this -> functions() -> { $function } = $wrapper;
    }

#/**
# Sets the given member. A MemberWrapper will be created.
# The given subs will be called upon setting and retrieval
# of the given member. The given subs will be called with
# two parameters. The first one is the member name actually
# used, the second is the new member value (in case of setting
# or undef in case of retrieval).
# @param a regexp matching a member name
# @param the name of the sub to be called on setting of the member
# @param the name of the sub to be called on retrieval of the member.
# @public
#*/
sub setMember {
    my ($this, $member, $subOnSetting, $subOnRetrieval ) = @_;
    my $memberWrapper = NetScript::Engine::MemberWrapper -> new( $this,
        $this  -> object(), $subOnSetting, $subOnRetrieval );
    $this -> members() -> { $member } = $memberWrapper;
    }


sub member {
    my ( $this, $member ) = @_;
    for ( keys( %{$this -> members() } ) ) {
        if ( $member =~ /$_/ ) { # if the given member name matches an regexp
            my $memberObject = $this -> members() -> { $_ } -> clone();
            $memberObject -> setName( $member );
            return $memberObject;
            }
        }
    return undef;
    }

#/**
# Returns the wrapped object.
# @private
#*/
sub object {
    my ( $this ) = @_;
    $this -> { m_Object };
    }

1; # make "require" happy    

--- NEW FILE: FunctionWrapper.pm ---
#--------------------------------------------------------
# $Id: FunctionWrapper.pm,v 1.1 2002/06/02 19:31:23 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This class represents a Function. It wraps around an object
# and calls a sub upon invocation of the function.
#*/
package NetScript::Engine::FunctionWrapper;
use base qw(NetScript::Engine::Function);


#--------------------------------------------------------
# Globals
#--------------------------------------------------------


#/**
# Ctor.
# @param the parent class object of this function.
# @param the object on which the sub should be invocated
# @param the sub to be called upon invocation of this function.
#*/
sub new {
    my ($proto, $parent, $object, $subToCall ) = @_;
    my $proto = shift;                  # get Prototype
    my $class = ref( $proto ) || $proto;# get the Classname

    my $this = $class -> SUPER::new( $parent );
    $this -> { m_Object } = $object;
    $this -> { m_SubToCall } = $subToCall;
    return $this;                       # return Object
    }



#/**
# Invokes this sub. A list of parameters is given as argument
# @optional one or more parameters 
#*/
sub invoke {
    my ( $this, @args ) = @_;
    my $sub = $this -> { m_SubToCall };
    $this -> { m_Object } -> $sub( @args );
    }

1; # make "require" happy    

--- NEW FILE: MemberWrapper.pm ---
#--------------------------------------------------------
# $Id: MemberWrapper.pm,v 1.1 2002/06/02 19:31:23 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This class represents a Member. It wraps around an
# object and calls methods of the wrapped object 
# on setting and retrieval of member values.
# @public
#*/
package NetScript::Engine::MemberWrapper;
use base qw(NetScript::Engine::Member);


#--------------------------------------------------------
# Globals
#--------------------------------------------------------


#/**
# Ctor.
# @param the parent class object
# @param the object on which the subs should be called
# @param a sub that should be called upon member setting
# @param a sub that should be called upon member retrieval
#*/
sub new {
    my ($proto, $parent, $object, $subOnSetting, $subOnRetrieval ) = @_;
    my $proto = shift;                  # get Prototype
    my $class = ref( $proto ) || $proto;# get the Classname

    my $this = $class -> SUPER::new( $parent );
    $this -> { m_Name } = "";
    $this -> { m_SubOnSetting } = $subOnSetting;
    $this -> { m_SubOnRetrieval } = $subOnRetrieval;
    $this -> { m_Object } = $object;
    return $this;                       # return Object
    }

#/**
# Sets the name of this member.
# @protected.
#*/
sub setName {
    my ( $this, $name ) = @_;
    $this -> { m_Name } = $name;
    }


#/**
# Returns the value of this member
#*/
sub value {
    my ( $this ) = @_;
    my $sub = $this -> { m_SubOnRetrieval };
    $this -> { m_Object } -> $sub ( $this -> { m_Name } );
    }

#/**
# Sets the value of this member.
# @param a scalar holding the value of this member.
#*/
sub setValue {
    my ( $this, $value ) = @_;
    my $sub = $this -> { m_SubOnSetting };
    $this -> { m_Object } -> $sub( $this -> { m_Name }, $value );
    }

#/**
# Creates a clone of this wrapper.
# @return an instance of NetScript::Engine::MemberWrapper.
# @protected 
#*/
sub clone {
    my ( $this ) = @_;
    my $clone = NetScript::Engine::MemberWrapper -> new (
        $this -> parent(), $this -> { m_Object },
        $this -> { m_SubOnSetting }, $this -> { m_SubOnRetrieval }
        );
    $clone;    
    }

1; # make "require" happy    

Index: BasicStatement.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/BasicStatement.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** BasicStatement.pm	15 May 2002 18:21:37 -0000	1.5
--- BasicStatement.pm	2 Jun 2002 19:31:23 -0000	1.6
***************
*** 24,27 ****
--- 24,28 ----
  
  use XML::DOM2::Node;
+ use NetScript::Libraries::DebugLibrary;
  
  #--------------------------------------------------------
***************
*** 77,84 ****
          # attributes in elements will be checked for variables
          my $attributes = $newNode -> attributes();
!         my $length = $attributes -> length();
!         for ( 0..$length-1 ) { 
!             my $attribute = $attributes -> item( { item => $_ } );
              my $value = $attribute -> value();
              $value = $interpreter -> getStatementEvaluator() 
                      -> evaluateStatement( $value );
--- 78,86 ----
          # attributes in elements will be checked for variables
          my $attributes = $newNode -> attributes();
!         my $length = $attributes -> length() -1;
!         for ( 0..$length ) { 
!             my $attribute = $attributes -> item( { index => $_ } );
              my $value = $attribute -> value();
+             my $name = $attribute -> nodeName();
              $value = $interpreter -> getStatementEvaluator() 
                      -> evaluateStatement( $value );
***************
*** 98,101 ****
--- 100,127 ----
      $this -> SUPER::evaluate();
      $newNode;
+     }
+ 
+ #/**
+ # Returns an instance of NetScript::Interpreter.
+ # @private
+ #*/
+ sub interpreter {
+     my ( $this )  = @_;
+     $this -> { m_interpreter };
+     }
+ 
+ #/**
+ # Sends a debug event.
+ # @param the debug message
+ # @private
+ #*/
+ sub debug {
+     my ($this, $message) = @_;
+     $this -> interpreter() -> getEventRelay() ->
+             createAndRaiseEvent( 
+             $NetScript::Libraries::DebugLibrary::DEBUG_EVENT,
+             $message,
+             "[Interpreter]" 
+             );
      }
  

Index: DOMWalker.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/DOMWalker.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** DOMWalker.pm	15 May 2002 18:21:37 -0000	1.4
--- DOMWalker.pm	2 Jun 2002 19:31:23 -0000	1.5
***************
*** 27,30 ****
--- 27,34 ----
  use XML::DOM2::Node;
  
+ use vars qw( $DOCUMENT_START_EVENT $DOCUMENT_END_EVENT $ELEMENT_START_EVENT 
+        $ELEMENT_END_EVENT $ELEMENT_END_EVENT $OTHER_NODE_EVENT $TEXT_EVENT
+        $COMMENT_EVENT $PI_EVENT );
+ 
  #/**
  # Event which is generated upon start of the document 
***************
*** 32,36 ****
  # @final
  #*/
! our $DOCUMENT_START_EVENT = "DOMWALKER_DOCUMENT_START_EVENT";
  
  #/**
--- 36,40 ----
  # @final
  #*/
! $DOCUMENT_START_EVENT = "DOMWALKER_DOCUMENT_START_EVENT";
  
  #/**
***************
*** 39,43 ****
  # @final
  #*/
! our $DOCUMENT_END_EVENT = "DOMWALKER_DOCUMENT_END_EVENT";
  
  #/**
--- 43,47 ----
  # @final
  #*/
! $DOCUMENT_END_EVENT = "DOMWALKER_DOCUMENT_END_EVENT";
  
  #/**
***************
*** 46,50 ****
  # @final
  #*/
! our $ELEMENT_START_EVENT  =  "DOMWALKER_ELEMENT_START_EVENT"; 
  
  #/**
--- 50,54 ----
  # @final
  #*/
! $ELEMENT_START_EVENT  =  "DOMWALKER_ELEMENT_START_EVENT"; 
  
  #/**
***************
*** 53,57 ****
  # @final
  #*/
! our $ELEMENT_END_EVENT  =  "DOMWALKER_ELEMENT_END_EVENT"; 
  
  #/**
--- 57,61 ----
  # @final
  #*/
! $ELEMENT_END_EVENT  =  "DOMWALKER_ELEMENT_END_EVENT"; 
  
  #/**
***************
*** 60,64 ****
  # @final
  #*/
! our $PI_EVENT  =  "DOMWALKER_PI_EVENT"; 
  
  #/**
--- 64,68 ----
  # @final
  #*/
! $PI_EVENT  =  "DOMWALKER_PI_EVENT"; 
  
  #/**
***************
*** 67,71 ****
  # @final
  #*/
! our $OTHER_NODE_EVENT  = "DOMWALKER_OTHER_NODE_EVENT";
  
  #/**
--- 71,75 ----
  # @final
  #*/
! $OTHER_NODE_EVENT  = "DOMWALKER_OTHER_NODE_EVENT";
  
  #/**
***************
*** 74,78 ****
  # @final
  #*/
! our $TEXT_EVENT  =  "DOMWALKER_TEXT_EVENT"; 
  
  #/**
--- 78,82 ----
  # @final
  #*/
! $TEXT_EVENT  =  "DOMWALKER_TEXT_EVENT"; 
  
  #/**
***************
*** 81,85 ****
  # @final
  #*/
! our $COMMENT_EVENT  =  "DOMWALKER_COMMENT_EVENT"; 
  
  #/**
--- 85,89 ----
  # @final
  #*/
! $COMMENT_EVENT  =  "DOMWALKER_COMMENT_EVENT"; 
  
  #/**
***************
*** 318,322 ****
  sub stepSourceUp {
      my ($this) = @_;
!     my $source -> $this -> currentSource();
      $this -> setCurrentSource( $source -> parentNode() );
      }
--- 322,326 ----
  sub stepSourceUp {
      my ($this) = @_;
!     my $source = $this -> currentSource();
      $this -> setCurrentSource( $source -> parentNode() );
      }

Index: EventListener.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/EventListener.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** EventListener.pm	15 May 2002 18:21:37 -0000	1.3
--- EventListener.pm	2 Jun 2002 19:31:23 -0000	1.4
***************
*** 27,30 ****
--- 27,31 ----
  #--------------------------------------------------------
  
+ use vars qw( $PRIORITY_FIRST $PRIORITY_LAST );
  
  #/**
***************
*** 33,37 ****
  # @final
  #*/
! our $PRIORITY_FIRST  =  1; 
  
  #/**
--- 34,38 ----
  # @final
  #*/
! $PRIORITY_FIRST  =  1; 
  
  #/**
***************
*** 40,44 ****
  # @final
  #*/
! our $PRIORITY_LAST  =  2; 
  
  #/**
--- 41,45 ----
  # @final
  #*/
! $PRIORITY_LAST  =  2; 
  
  #/**

Index: EventRelay.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/EventRelay.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** EventRelay.pm	15 May 2002 18:21:37 -0000	1.7
--- EventRelay.pm	2 Jun 2002 19:31:23 -0000	1.8
***************
*** 13,22 ****
  # relay events within the Interpreter to their receivers.
  # does hold variable settings and arrays. Events are 
! # sent using a FIFO principle. This means that events which
! # are raised first, will be sent first. An event which is
  # raised by a client upon reception of another event, will be fired
! # after the current event has been delivered to all clients.
! # So this implementation guarantees that all events will be
! # delivered in the same temporal order as they have been raised.
  #*/
  package NetScript::Engine::EventRelay;
--- 13,21 ----
  # relay events within the Interpreter to their receivers.
  # does hold variable settings and arrays. Events are 
! # sent using a LIFO principle. This means that events which
! # are raised last, will be sent first. An event which is
  # raised by a client upon reception of another event, will be fired
! # immediately, any events fired before it will be suspended, until
! # the last event is delivered.
  #*/
  package NetScript::Engine::EventRelay;
***************
*** 108,112 ****
      my $index = 0;
      for ( @attachedListeners ) {
!         delete $attachedListeners[$index], last if
                  $_ == $listener;
          $index++;        
--- 107,111 ----
      my $index = 0;
      for ( @attachedListeners ) {
!         splice( @attachedListeners, $index, 1 ) , last if
                  $_ == $listener;
          $index++;        
***************
*** 140,153 ****
  sub raiseEvent {
      my ($this, $event) = @_;
-     # if there is currently an event on delivery, we
-     # save the new event and return. the new event
-     # will be sent after the current event was sent.
- #    if ( $this -> { m_deliveringEvents } ) {
- #        push( @{$this -> { m_pendingEvents }}, $event );
- #        return;
- #        }
-     
-     # now we deliver events
- #    $this -> { m_deliveringEvents } = 1;
      
      my $arrayRef = $this -> { m_EventListeners } ->
--- 139,142 ----
***************
*** 162,173 ****
              }
          }
- 
-     # we have delivered the current event.
- #    $this -> { m_deliveringEvents } = 0;
- 
-     # now lets look if there are some events in the queue
- #    my $nextEvent = shift( @{$this -> { m_pendingEvents }} );
-     # if there is one, deliver it.
- #    $this -> raiseEvent( $nextEvent ) if defined($nextEvent);
      }    
  
--- 151,154 ----

Index: StatementEvaluator.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/StatementEvaluator.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** StatementEvaluator.pm	29 May 2002 20:26:17 -0000	1.6
--- StatementEvaluator.pm	2 Jun 2002 19:31:23 -0000	1.7
***************
*** 28,45 ****
  
  #/**
- # Constant for String-Filter.
- # @public
- # @final
- #*/
- our $STRING_FILTER = "STRING";
- 
- #/**
- # Constant for XML-Filter.
- # @public
- # @final
- #*/
- our $XML_FILTER = "XML";
- 
- #/**
  # Ctor.
  # @param an instance of NetScript::Interpreter
--- 28,31 ----
***************
*** 100,104 ****
                  }
          
-             $this -> debug( "Pref: |$pref| Action: |$action| Param: |$param| Suff: |$suff|" );
              
              if ( $pref =~ /^(.*?[^\\]?)\$$/ ) {
--- 86,89 ----
***************
*** 170,174 ****
      my $result = $this -> interpreter() -> getState() -> 
              getArrayValue( $array, $index );
-     $this -> debug( "Getting array index: $array:$index = $result" );        
      # TODO: check for undef
      $result;
--- 155,158 ----
***************
*** 198,202 ****
              getObjectValue( $object );
              
-     $this -> debug( "Getting member: $member of $object..." );       
      # $object is an instance of Class 
      return undef unless $object ;
--- 182,185 ----

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/wipeout.project,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** wipeout.project	29 May 2002 20:26:04 -0000	1.8
--- wipeout.project	2 Jun 2002 19:31:23 -0000	1.9
***************
*** 1,314 ****
  b
! C DmDictionary 0 11cd5 8 
! c 0 11f96 9 
! C Category 1 5226 
! c 0 11fd6 4 
! C DmString 2 11fdd 2 e3 
! c 2 11fdc a defaultExe 
! C DmSet 3 11fdf 1 
! c 2 5235 2 e3 
! L 5235 
! c 2 11fde b executables 
! c 3 11fda 3 
! c 2 523c 3 *.C 
! L 523c 
! c 2 523f 4 *.cc 
! L 523f 
! c 2 5242 5 *.cpp 
! L 5242 
! c 2 11fd9 a extensions 
! c 2 11fd8 a CPP_source 
! c 2 11fd7 4 name 
! c 2 11f98 a CPP_source 
! c 1 5257 
! c 0 1201c 4 
! c 2 12023 2 e3 
! c 2 12022 a defaultExe 
! c 3 12025 1 
! c 2 5264 2 e3 
! L 5264 
! c 2 12024 b executables 
! c 3 12020 1 
! c 2 526b 3 *.c 
! L 526b 
! c 2 1201f a extensions 
! c 2 1201e 8 C_source 
! c 2 1201d 4 name 
! c 2 11f99 8 C_source 
! c 1 5280 
! c 0 12056 4 
! c 2 1205d 2 e3 
! c 2 1205c a defaultExe 
! c 3 1205f 1 
! c 2 528d 2 e3 
! L 528d 
! c 2 1205e b executables 
! c 3 1205a 1 
! c 2 5294 3 *.e 
! L 5294 
! c 2 12059 a extensions 
! c 2 12058 6 Eiffel 
! c 2 12057 4 name 
! c 2 11f9a 6 Eiffel 
! c 1 52a9 
! c 0 12090 4 
! c 2 12097 2 e3 
! c 2 12096 a defaultExe 
! c 3 12099 1 
! c 2 52b6 2 e3 
! L 52b6 
! c 2 12098 b executables 
! c 3 12094 4 
! c 2 52bd 3 *.F 
! L 52bd 
! c 2 52c0 3 *.f 
! L 52c0 
! c 2 52c3 5 *.for 
! L 52c3 
! c 2 52c6 5 *.fpp 
! L 52c6 
! c 2 12093 a extensions 
! c 2 12092 7 Fortran 
! c 2 12091 4 name 
! c 2 11f9b 7 Fortran 
! c 1 52db 
! c 0 120d6 4 
! c 2 120dd 2 e3 
! c 2 120dc a defaultExe 
! c 3 120df 1 
! c 2 52e8 2 e3 
! L 52e8 
! c 2 120de b executables 
! c 3 120da 2 
! c 2 52ef 3 *.H 
! L 52ef 
! c 2 52f2 3 *.h 
! L 52f2 
! c 2 120d9 a extensions 
! c 2 120d8 6 Header 
! c 2 120d7 4 name 
! c 2 11f9c 6 Header 
! c 1 5307 
! c 0 12114 4 
! c 2 1211b 9 surfboard 
! c 2 1211a a defaultExe 
! c 3 1211d 2 
! c 2 5314 2 e3 
! L 5314 
! c 2 5317 9 surfboard 
! L 5317 
! c 2 1211c b executables 
! c 3 12118 2 
! c 2 531e 5 *.htm 
! L 531e 
! c 2 5321 6 *.html 
! L 5321 
! c 2 12117 a extensions 
! c 2 12116 4 Html 
! c 2 12115 4 name 
! c 2 11f9d 4 Html 
! c 1 5336 
! c 0 12156 4 
! c 2 1215d 2 e3 
! c 2 1215c a defaultExe 
! c 3 1215f 1 
! c 2 5343 2 e3 
! L 5343 
! c 2 1215e b executables 
! c 3 1215a 1 
! c 2 534a 6 *.java 
! L 534a 
! c 2 12159 a extensions 
! c 2 12158 4 Java 
! c 2 12157 4 name 
! c 2 11f9e 4 Java 
! c 1 535f 
! c 0 12190 4 
! c 2 12197 2 e3 
! c 2 12196 a defaultExe 
! c 3 12199 1 
! c 2 536c 2 e3 
! L 536c 
! c 2 12198 b executables 
! c 3 12194 1 
! c 2 5373 5 *.tex 
! L 5373 
! c 2 12193 a extensions 
! c 2 12192 5 Latex 
! c 2 12191 4 name 
! c 2 11f9f 5 Latex 
! c 1 5388 
! c 0 121ca 4 
! c 2 121d1 2 e3 
! c 2 121d0 a defaultExe 
! c 3 121d3 1 
! c 2 5395 2 e3 
! L 5395 
! c 2 121d2 b executables 
! c 3 121ce 0 
! c 2 121cd a extensions 
! c 2 121cc 5 Other 
! c 2 121cb 4 name 
! c 2 11fa0 5 Other 
! c 2 11f95 a categories 
! c 0 11fa2 1 
! C ProjectDir 4 53b2 
! c 2 53b3 25 netscript2/src/perl/NetScript/Engine/ 11 81 
! c 2 53b4 0  0 
! c 2 11fa4 25 netscript2/src/perl/NetScript/Engine/ 
! c 2 11fa1 b directories 
! C DmBag 5 11ce1 d 
! c 2 11d17 e1 b
! C DmDictionary 0 11ce3 3 
! C DmString 1 11cf5 36 b
! C DmSet 0 53fc 1 
! C DmString 1 542a 5 Other 
! L 542a  
! c 1 11cf4 a categories 
! c 1 11ce5 11 BasicStatement.pm 
! c 1 11ce4 4 name 
! C DmInteger 2 11cf7 1 
! c 1 11cf6 9 substMode  
! c 2 11d4c e8 b
! C DmDictionary 0 11d18 3 
! C DmString 1 11d2a 36 b
! C DmSet 0 543b 1 
! C DmString 1 5469 5 Other 
! L 5469  
! c 1 11d29 a categories 
! c 1 11d1a 11 BlockStatement.pm 
! c 1 11d19 4 name 
! C DmInteger 2 11d2c 80000001 
! c 1 11d2b 9 substMode  
! c 2 11d81 d7 b
! C DmDictionary 0 11d4d 3 
! C DmString 1 11d5f 36 b
! C DmSet 0 547a 1 
! C DmString 1 54a8 5 Other 
! L 54a8  
! c 1 11d5e a categories 
! c 1 11d4f 8 Class.pm 
! c 1 11d4e 4 name 
! C DmInteger 2 11d61 1 
! c 1 11d60 9 substMode  
! c 2 11db6 e7 b
! C DmDictionary 0 11d82 3 
! C DmString 1 11d94 36 b
! C DmSet 0 54b9 1 
! C DmString 1 54e7 5 Other 
! L 54e7  
! c 1 11d93 a categories 
! c 1 11d84 10 CopyStatement.pm 
! c 1 11d83 4 name 
! C DmInteger 2 11d96 80000001 
! c 1 11d95 9 substMode  
! c 2 11deb db b
! C DmDictionary 0 11db7 3 
! C DmString 1 11dc9 36 b
! C DmSet 0 54f8 1 
! C DmString 1 5526 5 Other 
! L 5526  
! c 1 11dc8 a categories 
! c 1 11db9 c DOMWalker.pm 
! c 1 11db8 4 name 
! C DmInteger 2 11dcb 1 
! c 1 11dca 9 substMode  
! c 2 11e20 d7 b
! C DmDictionary 0 11dec 3 
! C DmString 1 11dfe 36 b
! C DmSet 0 5537 1 
! C DmString 1 5565 5 Other 
! L 5565  
! c 1 11dfd a categories 
! c 1 11dee 8 Event.pm 
! c 1 11ded 4 name 
! C DmInteger 2 11e00 1 
! c 1 11dff 9 substMode  
! c 2 11e55 e0 b
! C DmDictionary 0 11e21 3 
! C DmString 1 11e33 36 b
! C DmSet 0 5576 1 
! C DmString 1 55a4 5 Other 
! L 55a4  
! c 1 11e32 a categories 
! c 1 11e23 10 EventListener.pm 
! c 1 11e22 4 name 
! C DmInteger 2 11e35 1 
! c 1 11e34 9 substMode  
! c 2 11e8a dc b
! C DmDictionary 0 11e56 3 
! C DmString 1 11e68 36 b
! C DmSet 0 55b5 1 
! C DmString 1 55e3 5 Other 
! L 55e3  
! c 1 11e67 a categories 
! c 1 11e58 d EventRelay.pm 
! c 1 11e57 4 name 
! C DmInteger 2 11e6a 1 
! c 1 11e69 9 substMode  
! c 2 11ebf da b
! C DmDictionary 0 11e8b 3 
! C DmString 1 11e9d 36 b
! C DmSet 0 ecd1 1 
! C DmString 1 ee4b 5 Other 
! L ee4b  
! c 1 11e9c a categories 
! c 1 11e8d b Function.pm 
! c 1 11e8c 4 name 
! C DmInteger 2 11e9f 1 
! c 1 11e9e 9 substMode  
! c 2 11ef4 db b
! C DmDictionary 0 11ec0 3 
! C DmString 1 11ed2 39 b
! C DmSet 0 11b50 1 
! C DmString 1 11cca 5 Other 
! L 11cca  
! c 1 11ed1 a categories 
! c 1 11ec2 9 Member.pm 
! c 1 11ec1 4 name 
! C DmInteger 2 11ed4 1 
! c 1 11ed3 9 substMode  
! c 2 11f29 d7 b
! C DmDictionary 0 11ef5 3 
! C DmString 1 11f07 36 b
! C DmSet 0 55f4 1 
! C DmString 1 5622 5 Other 
! L 5622  
! c 1 11f06 a categories 
! c 1 11ef7 8 State.pm 
! c 1 11ef6 4 name 
! C DmInteger 2 11f09 1 
! c 1 11f08 9 substMode  
! c 2 11f5e db b
! C DmDictionary 0 11f2a 3 
! C DmString 1 11f3c 36 b
! C DmSet 0 5633 1 
! C DmString 1 5661 5 Other 
! L 5661  
! c 1 11f3b a categories 
! c 1 11f2c c Statement.pm 
! c 1 11f2b 4 name 
! C DmInteger 2 11f3e 1 
! c 1 11f3d 9 substMode  
! c 2 11f93 e5 b
! C DmDictionary 0 11f5f 3 
! C DmString 1 11f71 36 b
! C DmSet 0 5672 1 
! C DmString 1 56a0 5 Other 
! L 56a0  
! c 1 11f70 a categories 
! c 1 11f61 15 StatementEvaluator.pm 
! c 1 11f60 4 name 
! C DmInteger 2 11f73 1 
! c 1 11f72 9 substMode  
! c 2 11f94 5 files 
! c 2 11cdd 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 11cdc 6 launch 
! c 2 11cd9 4 make 
! c 2 11cd8 4 make 
! c 2 11cdb 0  
! c 2 11cda 8 makeFile 
! c 5 11cde 0 
! c 2 11ce0 7 modules 
! c 2 11cd7 6 Engine 
! c 2 11cd6 4 name 
--- 1,347 ----
  b
! C DmDictionary 0 1ebf4 8 
! c 0 1ef54 9 
! C Category 1 585c 
! c 0 1ef94 4 
! C DmString 2 1ef9b 2 e3 
! c 2 1ef9a a defaultExe 
! C DmSet 3 1ef9d 1 
! c 2 586b 2 e3 
! L 586b 
! c 2 1ef9c b executables 
! c 3 1ef98 3 
! c 2 5872 3 *.C 
! L 5872 
! c 2 5875 4 *.cc 
! L 5875 
! c 2 5878 5 *.cpp 
! L 5878 
! c 2 1ef97 a extensions 
! c 2 1ef96 a CPP_source 
! c 2 1ef95 4 name 
! c 2 1ef56 a CPP_source 
! c 1 588d 
! c 0 1efda 4 
! c 2 1efe1 2 e3 
! c 2 1efe0 a defaultExe 
! c 3 1efe3 1 
! c 2 589a 2 e3 
! L 589a 
! c 2 1efe2 b executables 
! c 3 1efde 1 
! c 2 58a1 3 *.c 
! L 58a1 
! c 2 1efdd a extensions 
! c 2 1efdc 8 C_source 
! c 2 1efdb 4 name 
! c 2 1ef57 8 C_source 
! c 1 58b6 
! c 0 1f014 4 
! c 2 1f01b 2 e3 
! c 2 1f01a a defaultExe 
! c 3 1f01d 1 
! c 2 58c3 2 e3 
! L 58c3 
! c 2 1f01c b executables 
! c 3 1f018 1 
! c 2 58ca 3 *.e 
! L 58ca 
! c 2 1f017 a extensions 
! c 2 1f016 6 Eiffel 
! c 2 1f015 4 name 
! c 2 1ef58 6 Eiffel 
! c 1 58df 
! c 0 1f04e 4 
! c 2 1f055 2 e3 
! c 2 1f054 a defaultExe 
! c 3 1f057 1 
! c 2 58ec 2 e3 
! L 58ec 
! c 2 1f056 b executables 
! c 3 1f052 4 
! c 2 58f3 3 *.F 
! L 58f3 
! c 2 58f6 3 *.f 
! L 58f6 
! c 2 58f9 5 *.for 
! L 58f9 
! c 2 58fc 5 *.fpp 
! L 58fc 
! c 2 1f051 a extensions 
! c 2 1f050 7 Fortran 
! c 2 1f04f 4 name 
! c 2 1ef59 7 Fortran 
! c 1 5911 
! c 0 1f094 4 
! c 2 1f09b 2 e3 
! c 2 1f09a a defaultExe 
! c 3 1f09d 1 
! c 2 591e 2 e3 
! L 591e 
! c 2 1f09c b executables 
! c 3 1f098 2 
! c 2 5925 3 *.H 
! L 5925 
! c 2 5928 3 *.h 
! L 5928 
! c 2 1f097 a extensions 
! c 2 1f096 6 Header 
! c 2 1f095 4 name 
! c 2 1ef5a 6 Header 
! c 1 593d 
! c 0 1f0d2 4 
! c 2 1f0d9 9 surfboard 
! c 2 1f0d8 a defaultExe 
! c 3 1f0db 2 
! c 2 594a 2 e3 
! L 594a 
! c 2 594d 9 surfboard 
! L 594d 
! c 2 1f0da b executables 
! c 3 1f0d6 2 
! c 2 5954 5 *.htm 
! L 5954 
! c 2 5957 6 *.html 
! L 5957 
! c 2 1f0d5 a extensions 
! c 2 1f0d4 4 Html 
! c 2 1f0d3 4 name 
! c 2 1ef5b 4 Html 
! c 1 596c 
! c 0 1f114 4 
! c 2 1f11b 2 e3 
! c 2 1f11a a defaultExe 
! c 3 1f11d 1 
! c 2 5979 2 e3 
! L 5979 
! c 2 1f11c b executables 
! c 3 1f118 1 
! c 2 5980 6 *.java 
! L 5980 
! c 2 1f117 a extensions 
! c 2 1f116 4 Java 
! c 2 1f115 4 name 
! c 2 1ef5c 4 Java 
! c 1 5995 
! c 0 1f14e 4 
! c 2 1f155 2 e3 
! c 2 1f154 a defaultExe 
! c 3 1f157 1 
! c 2 59a2 2 e3 
! L 59a2 
! c 2 1f156 b executables 
! c 3 1f152 1 
! c 2 59a9 5 *.tex 
! L 59a9 
! c 2 1f151 a extensions 
! c 2 1f150 5 Latex 
! c 2 1f14f 4 name 
! c 2 1ef5d 5 Latex 
! c 1 59be 
! c 0 1f188 4 
! c 2 1f18f 2 e3 
! c 2 1f18e a defaultExe 
! c 3 1f191 1 
! c 2 59cb 2 e3 
! L 59cb 
! c 2 1f190 b executables 
! c 3 1f18c 0 
! c 2 1f18b a extensions 
! c 2 1f18a 5 Other 
! c 2 1f189 4 name 
! c 2 1ef5e 5 Other 
! c 2 1ef53 a categories 
! c 0 1ef60 1 
! C ProjectDir 4 59e8 
! c 2 59e9 25 netscript2/src/perl/NetScript/Engine/ 11 81 
! c 2 59ea 0  0 
! c 2 1ef62 25 netscript2/src/perl/NetScript/Engine/ 
! c 2 1ef5f b directories 
! C DmBag 5 1ec00 10 
! c 2 1ec36 e1 b
! C DmDictionary 0 1ec02 3 
! C DmString 1 1ec14 36 b
! C DmSet 0 5a36 1 
! C DmString 1 5a64 5 Other 
! L 5a64  
! c 1 1ec13 a categories 
! c 1 1ec04 11 BasicStatement.pm 
! c 1 1ec03 4 name 
! C DmInteger 2 1ec16 1 
! c 1 1ec15 9 substMode  
! c 2 1ec6b e8 b
! C DmDictionary 0 1ec37 3 
! C DmString 1 1ec49 36 b
! C DmSet 0 5a75 1 
! C DmString 1 5aa3 5 Other 
! L 5aa3  
! c 1 1ec48 a categories 
! c 1 1ec39 11 BlockStatement.pm 
! c 1 1ec38 4 name 
! C DmInteger 2 1ec4b 80000001 
! c 1 1ec4a 9 substMode  
! c 2 1eca0 d7 b
! C DmDictionary 0 1ec6c 3 
! C DmString 1 1ec7e 36 b
! C DmSet 0 5ab4 1 
! C DmString 1 5ae2 5 Other 
! L 5ae2  
! c 1 1ec7d a categories 
! c 1 1ec6e 8 Class.pm 
! c 1 1ec6d 4 name 
! C DmInteger 2 1ec80 1 
! c 1 1ec7f 9 substMode  
! c 2 1ecd5 e1 b
! C DmDictionary 0 1eca1 3 
! C DmString 1 1ecb3 39 b
! C DmSet 0 1d3dc 1 
! C DmString 1 1d556 5 Other 
! L 1d556  
! c 1 1ecb2 a categories 
! c 1 1eca3 f ClassWrapper.pm 
! c 1 1eca2 4 name 
! C DmInteger 2 1ecb5 1 
! c 1 1ecb4 9 substMode  
! c 2 1ed0a e7 b
! C DmDictionary 0 1ecd6 3 
! C DmString 1 1ece8 36 b
! C DmSet 0 5af3 1 
! C DmString 1 5b21 5 Other 
! L 5b21  
! c 1 1ece7 a categories 
! c 1 1ecd8 10 CopyStatement.pm 
! c 1 1ecd7 4 name 
! C DmInteger 2 1ecea 80000001 
! c 1 1ece9 9 substMode  
! c 2 1ed3f db b
! C DmDictionary 0 1ed0b 3 
! C DmString 1 1ed1d 36 b
! C DmSet 0 5b32 1 
! C DmString 1 5b60 5 Other 
! L 5b60  
! c 1 1ed1c a categories 
! c 1 1ed0d c DOMWalker.pm 
! c 1 1ed0c 4 name 
! C DmInteger 2 1ed1f 1 
! c 1 1ed1e 9 substMode  
! c 2 1ed74 d7 b
! C DmDictionary 0 1ed40 3 
! C DmString 1 1ed52 36 b
! C DmSet 0 5b71 1 
! C DmString 1 5b9f 5 Other 
! L 5b9f  
! c 1 1ed51 a categories 
! c 1 1ed42 8 Event.pm 
! c 1 1ed41 4 name 
! C DmInteger 2 1ed54 1 
! c 1 1ed53 9 substMode  
! c 2 1eda9 e0 b
! C DmDictionary 0 1ed75 3 
! C DmString 1 1ed87 36 b
! C DmSet 0 5bb0 1 
! C DmString 1 5bde 5 Other 
! L 5bde  
! c 1 1ed86 a categories 
! c 1 1ed77 10 EventListener.pm 
! c 1 1ed76 4 name 
! C DmInteger 2 1ed89 1 
! c 1 1ed88 9 substMode  
! c 2 1edde dc b
! C DmDictionary 0 1edaa 3 
! C DmString 1 1edbc 36 b
! C DmSet 0 5bef 1 
! C DmString 1 5c1d 5 Other 
! L 5c1d  
! c 1 1edbb a categories 
! c 1 1edac d EventRelay.pm 
! c 1 1edab 4 name 
! C DmInteger 2 1edbe 1 
! c 1 1edbd 9 substMode  
! c 2 1ee13 da b
! C DmDictionary 0 1eddf 3 
! C DmString 1 1edf1 36 b
! C DmSet 0 5c2e 1 
! C DmString 1 5c5c 5 Other 
! L 5c5c  
! c 1 1edf0 a categories 
! c 1 1ede1 b Function.pm 
! c 1 1ede0 4 name 
! C DmInteger 2 1edf3 1 
! c 1 1edf2 9 substMode  
! c 2 1ee48 e5 b
! C DmDictionary 0 1ee14 3 
! C DmString 1 1ee26 39 b
! C DmSet 0 1df09 1 
! C DmString 1 1e083 5 Other 
! L 1e083  
! c 1 1ee25 a categories 
! c 1 1ee16 12 FunctionWrapper.pm 
! c 1 1ee15 4 name 
! C DmInteger 2 1ee28 1 
! c 1 1ee27 9 substMode  
! c 2 1ee7d d8 b
! C DmDictionary 0 1ee49 3 
! C DmString 1 1ee5b 36 b
! C DmSet 0 5c6d 1 
! C DmString 1 5c9b 5 Other 
! L 5c9b  
! c 1 1ee5a a categories 
! c 1 1ee4b 9 Member.pm 
! c 1 1ee4a 4 name 
! C DmInteger 2 1ee5d 1 
! c 1 1ee5c 9 substMode  
! c 2 1eeb2 e3 b
! C DmDictionary 0 1ee7e 3 
! C DmString 1 1ee90 39 b
! C DmSet 0 1ea6f 1 
! C DmString 1 1ebe9 5 Other 
! L 1ebe9  
! c 1 1ee8f a categories 
! c 1 1ee80 10 MemberWrapper.pm 
! c 1 1ee7f 4 name 
! C DmInteger 2 1ee92 1 
! c 1 1ee91 9 substMode  
! c 2 1eee7 d7 b
! C DmDictionary 0 1eeb3 3 
! C DmString 1 1eec5 36 b
! C DmSet 0 5cac 1 
! C DmString 1 5cda 5 Other 
! L 5cda  
! c 1 1eec4 a categories 
! c 1 1eeb5 8 State.pm 
! c 1 1eeb4 4 name 
! C DmInteger 2 1eec7 1 
! c 1 1eec6 9 substMode  
! c 2 1ef1c db b
! C DmDictionary 0 1eee8 3 
! C DmString 1 1eefa 36 b
! C DmSet 0 5ceb 1 
! C DmString 1 5d19 5 Other 
! L 5d19  
! c 1 1eef9 a categories 
! c 1 1eeea c Statement.pm 
! c 1 1eee9 4 name 
! C DmInteger 2 1eefc 1 
! c 1 1eefb 9 substMode  
! c 2 1ef51 e5 b
! C DmDictionary 0 1ef1d 3 
! C DmString 1 1ef2f 36 b
! C DmSet 0 5d2a 1 
! C DmString 1 5d58 5 Other 
! L 5d58  
! c 1 1ef2e a categories 
! c 1 1ef1f 15 StatementEvaluator.pm 
! c 1 1ef1e 4 name 
! C DmInteger 2 1ef31 1 
! c 1 1ef30 9 substMode  
! c 2 1ef52 5 files 
! c 2 1ebfc 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 1ebfb 6 launch 
! c 2 1ebf8 4 make 
! c 2 1ebf7 4 make 
! c 2 1ebfa 0  
! c 2 1ebf9 8 makeFile 
! c 5 1ebfd 0 
! c 2 1ebff 7 modules 
! c 2 1ebf6 6 Engine 
! c 2 1ebf5 4 name 

[NetScript CVS] CVS: netscript2/src/perl/NetScript Interpreter.pm,1.7,1.8

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript
In directory usw-pr-cvs1:/tmp/cvs-serv570

Modified Files:
	Interpreter.pm 
Log Message:
* added library include facility
* moved Wrappers to Engine
* added emergency error page (if error page is missing)
* changed configfilereader to be more generic
* some performance improvements
* overall bugfixing

Index: Interpreter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Interpreter.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Interpreter.pm	15 May 2002 18:24:27 -0000	1.7
--- Interpreter.pm	2 Jun 2002 19:31:23 -0000	1.8
***************
*** 17,42 ****
  #*/
  package NetScript::Interpreter;
! 
! #--------------------------------------------------------
! # IMPORTS
! #--------------------------------------------------------
! use CGI;
! use XML::Parser;
! use NetScript::Engine::State;
! use NetScript::Engine::DOMWalker;
! use NetScript::Engine::Event;
! use NetScript::Engine::EventRelay;
! use NetScript::Engine::StatementEvaluator;
! use NetScript::Libraries::DefaultLibrary;
! use NetScript::Libraries::DebugLibrary;
! use NetScript::Libraries::ControlStructuresLibrary;
! use NetScript::Util::XMLParserRelay;
! use NetScript::Util::FileRetriever;
! use NetScript::Util::ConfigurationParser;
! use NetScript::Util::UIDGenerator;
! use XML::DOM2::DOMParser;
! use XML::DOM2::DOMWriter;
! use XML::DOM2::XMLDOMWriterStyle;
! 
  
  #-----------------------------------------------------------
--- 17,21 ----
  #*/
  package NetScript::Interpreter;
! use vars qw( $VERSION $NAMESPACE_URI $FATAL_EVENT $WARNING_EVENT );
  
  #-----------------------------------------------------------
***************
*** 46,50 ****
  # The current Version of NetScript
  #*/
! our $VERSION = '2.0 ($Date$)';
  
  #/**
--- 25,29 ----
  # The current Version of NetScript
  #*/
! $VERSION = '2.0pre1';
  
  #/**
***************
*** 52,60 ****
  # (http://netscript.insomnia-hq.de).
  #*/
! our $NAMESPACE_URI = "http://netscript.insomnia-hq.de";
  
  
  # This is for catching errors at compile-time
  use CGI::Carp qw(fatalsToBrowser set_message);
  BEGIN {
      sub handle_errors {
--- 31,53 ----
  # (http://netscript.insomnia-hq.de).
  #*/
! $NAMESPACE_URI = "http://netscript.insomnia-hq.de";
! 
  
+ #/**
+ # This event can be raised by libraries if a fatal condition
+ # arises.
+ #*/
+ $FATAL_EVENT = "INTERPRETER_FATAL_EVENT";
+ 
+ #/**
+ # This event can be raised by libraries if a warning condition
+ # arises.
+ #*/
+ $WARNING_EVENT = "INTERPRETER_WARNING_EVENT";
  
  # This is for catching errors at compile-time
  use CGI::Carp qw(fatalsToBrowser set_message);
+ use NetScript::Util::ConfigurationParser;
+ 
  BEGIN {
      sub handle_errors {
***************
*** 62,75 ****
          my $parser = NetScript::Util::ConfigurationParser -> new();
  
!         open( AFILE, "<".$parser -> staticDir()."/pages/errorpage.html" );
          my $msg = "";
!         while(<AFILE>) {
!             $msg .= $_;
              }
-         close( AFILE );
  
          $msg =~ s/<message>/$message/xeg;
          $msg =~ s/<version>/$VERSION/xeg;
          print $msg;
          }
      set_message(\&handle_errors);
--- 55,80 ----
          my $parser = NetScript::Util::ConfigurationParser -> new();
  
!         my $staticDir = $parser -> getSetting( "STATIC" );
!         my $staticURL = $parser -> getSetting( "STATIC_URL" );
          my $msg = "";
!         if ( -e $staticDir."/errorpage.html" ) {
!             open( AFILE, "<".$staticDir."/errorpage.html" );
!             while(<AFILE>) {
!                 $msg .= $_;
!                 }
!             close( AFILE );
!             }
!         else {
!             $msg = "An error occured: <br><pre><message></pre>.<br><b>Warning: could not find".
!                 " the error page. It is set to \"<staticdir>/errorpage.html\", but this file does not exist!</b>";
              }
  
          $msg =~ s/<message>/$message/xeg;
          $msg =~ s/<version>/$VERSION/xeg;
+         $msg =~ s/<staticdir>/$staticDir/xeg;
+         $msg =~ s/<staticurl>/$staticURL/xeg;
+         
          print $msg;
+         set_message("");
          }
      set_message(\&handle_errors);
***************
*** 77,80 ****
--- 82,104 ----
  
  
+ #--------------------------------------------------------
+ # IMPORTS
+ #--------------------------------------------------------
+ use CGI;
+ use XML::Parser;
+ use NetScript::Engine::State;
+ use NetScript::Engine::DOMWalker;
+ use NetScript::Engine::Event;
+ use NetScript::Engine::EventRelay;
+ use NetScript::Engine::StatementEvaluator;
+ use NetScript::Engine::LibLoader;
+ use NetScript::Engine::ClassWrapper;
+ use NetScript::Util::XMLParserRelay;
+ use NetScript::Util::FileRetriever;
+ use NetScript::Util::UIDGenerator;
+ use XML::DOM2::DOMParser;
+ use XML::DOM2::DOMWriter;
+ use XML::DOM2::XMLDOMWriterStyle;
+ 
  #/**
  # Constructor of a new Interpreter.
***************
*** 101,117 ****
      $this -> { m_currentState } = 
              NetScript::Engine::State -> new();
  
!     my $defLib = NetScript::Libraries::DefaultLibrary -> new();
!     $defLib -> init( $this );
!     
!     my $debugLib = NetScript::Libraries::DebugLibrary -> new();
!     $debugLib -> init( $this );
      
!     my $csLib = NetScript::Libraries::ControlStructuresLibrary -> new();
!     $csLib -> init( $this );
      
      return $this;                       # return Object
      }
  
  #/**
  # Returns a unique ID, generated by <code>NetScript::Util::UIDGenerator</code>
--- 125,202 ----
      $this -> { m_currentState } = 
              NetScript::Engine::State -> new();
+     $this -> { m_ScriptURL } = undef;
  
!     my $eventListener = NetScript::Engine::EventListener -> new();
!     $eventListener -> init( $FATAL_EVENT, "onFatalEvent", $this, 
!             $NetScript::Engine::EventListener::PRIORITY_FIRST );
!     $this -> getEventRelay() -> addEventListener( $eventListener );
!             
!     my @cookieList = ();
!     $this -> { m_Cookies } = \@cookieList;
! 
!     my $libLoader = NetScript::Engine::LibLoader -> new( $this, "NetScript/Libraries" );
!     $this -> { m_LibLoader } = $libLoader;
! 
!     $libLoader -> loadLibrary( "Default" );
!     $libLoader -> loadLibrary( "Debug" );
!     $libLoader -> loadLibrary( "ControlStructures" );
!     $libLoader -> loadLibrary( "Variables" );
!     $libLoader -> loadLibrary( "Forms" );
      
!     my $systemWrapper = NetScript::Engine::ClassWrapper -> new( $this );
!     $systemWrapper -> setMember( '^interpreterURL$', undef, "getInterpreterURL" );
!     $systemWrapper -> setMember( '^scriptURL$', undef, "getScriptURL" );
! 
!     # register the SYS-object
!     $this -> getState() -> setObjectValue( "SYS", $systemWrapper );
      
      return $this;                       # return Object
      }
  
+ 
+ #/**
+ # Returns an instance of NetScript::Engine::LibLoader.
+ #*/
+ sub getLibLoader {
+     my ( $this ) = @_;
+     $this -> { m_LibLoader };
+     }
+ 
+ #/**
+ # Returns the URL of the interpreter.
+ # @callback
+ #*/
+ sub getInterpreterURL {
+     my ( $this ) = @_;
+     $this -> getCGI() -> url();
+     }
+ 
+ #/**
+ # Returns the URL of the script.
+ # @callback
+ #*/
+ sub getScriptURL {
+     my ( $this ) = @_;
+     $this -> { m_ScriptURL };
+     }
+ 
+ #/**
+ # Sets a cookie in the outgoing response. Since cookies have
+ # to be set in the http-header, to which libraries have no access
+ # the cookie settings have been centralized in the Interpreter
+ # class. Cookie retrieval can be done using the CGI-Object which
+ # is available from the Interpreter.
+ # @param name of the cookie
+ # @param value of the cookie
+ # @param cookie expire time ( e.g +5h )
+ #*/
+ sub setCookie {
+     my ( $this, $name, $value, $expires ) = @_;
+     my $cookie = $this -> getCGI() -> cookie(
+         -name=>$name, -value=>$value, -expires=>$expires
+         );
+     push( @{ $this -> { m_Cookies} }, $cookie );
+     }
+ 
  #/**
  # Returns a unique ID, generated by <code>NetScript::Util::UIDGenerator</code>
***************
*** 148,157 ****
              
      
      
      
      # start input file parsing
      my $domparser = XML::DOM2::DOMParser -> new();
!     my $dom = $domparser -> parseString( { string => $this -> getFileRetriever() -> retrieveFile( 
!             "file:./test.xml" ) } );
  
     # Create a DOMWalker
--- 233,258 ----
              
      
+     my $script = $this -> getParameter( "script" );
+     if ( $script eq "" ) {
+         $script = $this -> getParameter( "scriptURL" );
+         }
+     else {
+         $script = "file:" . $script;
+         }
+ 
+ 
+     if ( $script eq "" ) {
+         $this -> getEventRelay() -> createAndRaiseEvent( 
+                 $FATAL_EVENT, 
+                 "No script was given! Use the script or scriptURL-parameter!" );
+         }
+ 
+     $this -> { m_ScriptURL } = $script;
      
+     my $scriptContent = $this -> getFileRetriever() -> retrieveFile( $script );
      
      # start input file parsing
      my $domparser = XML::DOM2::DOMParser -> new();
!     my $dom = $domparser -> parseString( { string => $scriptContent } );
  
     # Create a DOMWalker
***************
*** 167,171 ****
              style => $domstyle } );
  
!     print $this -> getCGI() -> header();
      print $string;
      
--- 268,273 ----
              style => $domstyle } );
  
!     my $cookiesRef = $this -> { m_Cookies };
!     print $this -> getCGI() -> header( -cookie=>$cookiesRef );
      print $string;
      
***************
*** 184,193 ****
  # @return a string containing the value(s) of the parameter
  #   or undef, if the parameter was not specified.
! # @public
  #*/
  sub getParameter {
      my ($this, $parameter) = @_;
!     my $result = $this -> getCGI() -> param( $parameter );
!     return $result;
      }
  
--- 286,294 ----
  # @return a string containing the value(s) of the parameter
  #   or undef, if the parameter was not specified.
! # @private
  #*/
  sub getParameter {
      my ($this, $parameter) = @_;
!     $this -> getCGI() -> param( $parameter );
      }
  
***************
*** 272,277 ****
  sub onFatalEvent {
      my ($this, $event ) = @_;
!     die $event -> getEventMessage();
      }
      
  1;                                      # make "require" happy
--- 373,394 ----
  sub onFatalEvent {
      my ($this, $event ) = @_;
!     die $event -> eventMessage();
      }
+ 
+ #/**
+ # Sends a debug event.
+ # @param the debug message
+ # @private
+ #*/
+ sub debug {
+     my ($this, $message) = @_;
+     $this -> getEventRelay() ->
+             createAndRaiseEvent( 
+             $NetScript::Libraries::DebugLibrary::DEBUG_EVENT,
+             $message,
+             "[Interpreter]" 
+             );
+     }
+ 
      
  1;                                      # make "require" happy

[NetScript CVS] CVS: netscript2/docs/netscript/src - Imported sources

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

Update of /cvsroot/net-script/netscript2/docs/netscript/src
In directory usw-pr-cvs1:/tmp/cvs-serv8238

Log Message:
 

Status:

Vendor Tag:	tag1
Release Tags:	tag2
		

No conflicts created by this import


***** Bogus filespec: - Imported sources

[NetScript CVS] CVS: netscript2/docs/xmldom2 wipeout.project,1.1,1.2

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

Update of /cvsroot/net-script/netscript2/docs/xmldom2
In directory usw-pr-cvs1:/tmp/cvs-serv32526/xmldom2

Modified Files:
	wipeout.project 
Log Message:
* restructured anything

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/xmldom2/wipeout.project,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** wipeout.project	31 May 2002 19:08:10 -0000	1.1
--- wipeout.project	31 May 2002 19:08:45 -0000	1.2
***************
*** 1,14 ****
  b
! C DmDictionary 0 1aab7 8 
! c 0 1ab31 9 
  C Category 1 16931 
! c 0 1ab65 4 
! C DmString 2 1ab6c 2 e3 
! c 2 1ab6b a defaultExe 
! C DmSet 3 1ab6e 1 
  c 2 16943 2 e3 
  L 16943 
! c 2 1ab6d b executables 
! c 3 1ab69 3 
  c 2 16939 3 *.C 
  L 16939 
--- 1,14 ----
  b
! C DmDictionary 0 1edc1 8 
! c 0 1ee3b 9 
  C Category 1 16931 
! c 0 1ee6f 4 
! C DmString 2 1ee76 2 e3 
! c 2 1ee75 a defaultExe 
! C DmSet 3 1ee78 1 
  c 2 16943 2 e3 
  L 16943 
! c 2 1ee77 b executables 
! c 3 1ee73 3 
  c 2 16939 3 *.C 
  L 16939 
***************
*** 17,63 ****
  c 2 1693d 5 *.cpp 
  L 1693d 
! c 2 1ab68 a extensions 
! c 2 1ab67 a CPP_source 
! c 2 1ab66 4 name 
! c 2 1ab33 a CPP_source 
  c 1 16947 
! c 0 1abab 4 
! c 2 1abb2 2 e3 
! c 2 1abb1 a defaultExe 
! c 3 1abb4 1 
  c 2 16955 2 e3 
  L 16955 
! c 2 1abb3 b executables 
! c 3 1abaf 1 
  c 2 1694f 3 *.c 
  L 1694f 
! c 2 1abae a extensions 
! c 2 1abad 8 C_source 
! c 2 1abac 4 name 
! c 2 1ab34 8 C_source 
  c 1 16959 
! c 0 1abe5 4 
! c 2 1abec 2 e3 
! c 2 1abeb a defaultExe 
! c 3 1abee 1 
  c 2 16967 2 e3 
  L 16967 
! c 2 1abed b executables 
! c 3 1abe9 1 
  c 2 16961 3 *.e 
  L 16961 
! c 2 1abe8 a extensions 
! c 2 1abe7 6 Eiffel 
! c 2 1abe6 4 name 
! c 2 1ab35 6 Eiffel 
  c 1 1696b 
! c 0 1ac1f 4 
! c 2 1ac26 2 e3 
! c 2 1ac25 a defaultExe 
! c 3 1ac28 1 
  c 2 1697f 2 e3 
  L 1697f 
! c 2 1ac27 b executables 
! c 3 1ac23 4 
  c 2 16973 3 *.F 
  L 16973 
--- 17,63 ----
  c 2 1693d 5 *.cpp 
  L 1693d 
! c 2 1ee72 a extensions 
! c 2 1ee71 a CPP_source 
! c 2 1ee70 4 name 
! c 2 1ee3d a CPP_source 
  c 1 16947 
! c 0 1eeb5 4 
! c 2 1eebc 2 e3 
! c 2 1eebb a defaultExe 
! c 3 1eebe 1 
  c 2 16955 2 e3 
  L 16955 
! c 2 1eebd b executables 
! c 3 1eeb9 1 
  c 2 1694f 3 *.c 
  L 1694f 
! c 2 1eeb8 a extensions 
! c 2 1eeb7 8 C_source 
! c 2 1eeb6 4 name 
! c 2 1ee3e 8 C_source 
  c 1 16959 
! c 0 1eeef 4 
! c 2 1eef6 2 e3 
! c 2 1eef5 a defaultExe 
! c 3 1eef8 1 
  c 2 16967 2 e3 
  L 16967 
! c 2 1eef7 b executables 
! c 3 1eef3 1 
  c 2 16961 3 *.e 
  L 16961 
! c 2 1eef2 a extensions 
! c 2 1eef1 6 Eiffel 
! c 2 1eef0 4 name 
! c 2 1ee3f 6 Eiffel 
  c 1 1696b 
! c 0 1ef29 4 
! c 2 1ef30 2 e3 
! c 2 1ef2f a defaultExe 
! c 3 1ef32 1 
  c 2 1697f 2 e3 
  L 1697f 
! c 2 1ef31 b executables 
! c 3 1ef2d 4 
  c 2 16973 3 *.F 
  L 16973 
***************
*** 68,193 ****
  c 2 16979 5 *.fpp 
  L 16979 
! c 2 1ac22 a extensions 
! c 2 1ac21 7 Fortran 
! c 2 1ac20 4 name 
! c 2 1ab36 7 Fortran 
  c 1 16983 
! c 0 1ac65 4 
! c 2 1ac6c 2 e3 
! c 2 1ac6b a defaultExe 
! c 3 1ac6e 1 
  c 2 16993 2 e3 
  L 16993 
! c 2 1ac6d b executables 
! c 3 1ac69 2 
  c 2 1698b 3 *.H 
  L 1698b 
  c 2 1698d 3 *.h 
  L 1698d 
! c 2 1ac68 a extensions 
! c 2 1ac67 6 Header 
! c 2 1ac66 4 name 
! c 2 1ab37 6 Header 
  c 1 16997 
! c 0 1aca3 4 
! c 2 1acaa 9 surfboard 
! c 2 1aca9 a defaultExe 
! c 3 1acac 2 
  c 2 169a7 2 e3 
  L 169a7 
  c 2 169a9 9 surfboard 
  L 169a9 
! c 2 1acab b executables 
! c 3 1aca7 2 
  c 2 1699f 5 *.htm 
  L 1699f 
  c 2 169a1 6 *.html 
  L 169a1 
! c 2 1aca6 a extensions 
! c 2 1aca5 4 Html 
! c 2 1aca4 4 name 
! c 2 1ab38 4 Html 
  c 1 169ad 
! c 0 1ace5 4 
! c 2 1acec 2 e3 
! c 2 1aceb a defaultExe 
! c 3 1acee 1 
  c 2 169bb 2 e3 
  L 169bb 
! c 2 1aced b executables 
! c 3 1ace9 1 
  c 2 169b5 6 *.java 
  L 169b5 
! c 2 1ace8 a extensions 
! c 2 1ace7 4 Java 
! c 2 1ace6 4 name 
! c 2 1ab39 4 Java 
  c 1 169bf 
! c 0 1ad1f 4 
! c 2 1ad26 2 e3 
! c 2 1ad25 a defaultExe 
! c 3 1ad28 1 
  c 2 169cd 2 e3 
  L 169cd 
! c 2 1ad27 b executables 
! c 3 1ad23 1 
  c 2 169c7 5 *.tex 
  L 169c7 
! c 2 1ad22 a extensions 
! c 2 1ad21 5 Latex 
! c 2 1ad20 4 name 
! c 2 1ab3a 5 Latex 
  c 1 169d1 
! c 0 1ad59 4 
! c 2 1ad60 2 e3 
! c 2 1ad5f a defaultExe 
! c 3 1ad62 1 
  c 2 169dc 2 e3 
  L 169dc 
! c 2 1ad61 b executables 
! c 3 1ad5d 0 
! c 2 1ad5c a extensions 
! c 2 1ad5b 5 Other 
! c 2 1ad5a 4 name 
! c 2 1ab3b 5 Other 
! c 2 1ab30 a categories 
! c 0 1ab3d 1 
  C ProjectDir 4 169fd 
  c 2 169fe 18 netscript2/docs/xmldom2/ 11 81 
  c 2 169ff 0  0 
! c 2 1ab3f 18 netscript2/docs/xmldom2/ 
! c 2 1ab3c b directories 
! C DmBag 5 1aac3 2 
! c 2 1aaf9 d6 b
! C DmDictionary 0 1aac5 3 
! C DmString 1 1aad7 39 b
  C DmSet 0 18fdc 1 
  C DmString 1 19136 5 Other 
  L 19136  
! c 1 1aad6 a categories 
! c 1 1aac7 4 TODO 
! c 1 1aac6 4 name 
! C DmInteger 2 1aad9 1 
! c 1 1aad8 9 substMode  
! c 2 1ab2e da b
! C DmDictionary 0 1aafa 3 
! C DmString 1 1ab0c 38 b
  C DmSet 0 1a94e 1 
  C DmString 1 1aab3 4 Html 
  L 1aab3  
! c 1 1ab0b a categories 
! c 1 1aafc 9 TODO.html 
! c 1 1aafb 4 name 
! C DmInteger 2 1ab0e 1 
! c 1 1ab0d 9 substMode  
! c 2 1ab2f 5 files 
! c 2 1aabf 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 1aabe 6 launch 
! c 2 1aabb 4 make 
! c 2 1aaba 4 make 
! c 2 1aabd 0  
! c 2 1aabc 8 makeFile 
! c 5 1aac0 0 
! c 2 1aac2 7 modules 
! c 2 1aab9 7 xmldom2 
! c 2 1aab8 4 name 
--- 68,193 ----
  c 2 16979 5 *.fpp 
  L 16979 
! c 2 1ef2c a extensions 
! c 2 1ef2b 7 Fortran 
! c 2 1ef2a 4 name 
! c 2 1ee40 7 Fortran 
  c 1 16983 
! c 0 1ef6f 4 
! c 2 1ef76 2 e3 
! c 2 1ef75 a defaultExe 
! c 3 1ef78 1 
  c 2 16993 2 e3 
  L 16993 
! c 2 1ef77 b executables 
! c 3 1ef73 2 
  c 2 1698b 3 *.H 
  L 1698b 
  c 2 1698d 3 *.h 
  L 1698d 
! c 2 1ef72 a extensions 
! c 2 1ef71 6 Header 
! c 2 1ef70 4 name 
! c 2 1ee41 6 Header 
  c 1 16997 
! c 0 1efad 4 
! c 2 1efb4 9 surfboard 
! c 2 1efb3 a defaultExe 
! c 3 1efb6 2 
  c 2 169a7 2 e3 
  L 169a7 
  c 2 169a9 9 surfboard 
  L 169a9 
! c 2 1efb5 b executables 
! c 3 1efb1 2 
  c 2 1699f 5 *.htm 
  L 1699f 
  c 2 169a1 6 *.html 
  L 169a1 
! c 2 1efb0 a extensions 
! c 2 1efaf 4 Html 
! c 2 1efae 4 name 
! c 2 1ee42 4 Html 
  c 1 169ad 
! c 0 1efef 4 
! c 2 1eff6 2 e3 
! c 2 1eff5 a defaultExe 
! c 3 1eff8 1 
  c 2 169bb 2 e3 
  L 169bb 
! c 2 1eff7 b executables 
! c 3 1eff3 1 
  c 2 169b5 6 *.java 
  L 169b5 
! c 2 1eff2 a extensions 
! c 2 1eff1 4 Java 
! c 2 1eff0 4 name 
! c 2 1ee43 4 Java 
  c 1 169bf 
! c 0 1f029 4 
! c 2 1f030 2 e3 
! c 2 1f02f a defaultExe 
! c 3 1f032 1 
  c 2 169cd 2 e3 
  L 169cd 
! c 2 1f031 b executables 
! c 3 1f02d 1 
  c 2 169c7 5 *.tex 
  L 169c7 
! c 2 1f02c a extensions 
! c 2 1f02b 5 Latex 
! c 2 1f02a 4 name 
! c 2 1ee44 5 Latex 
  c 1 169d1 
! c 0 1f063 4 
! c 2 1f06a 2 e3 
! c 2 1f069 a defaultExe 
! c 3 1f06c 1 
  c 2 169dc 2 e3 
  L 169dc 
! c 2 1f06b b executables 
! c 3 1f067 0 
! c 2 1f066 a extensions 
! c 2 1f065 5 Other 
! c 2 1f064 4 name 
! c 2 1ee45 5 Other 
! c 2 1ee3a a categories 
! c 0 1ee47 1 
  C ProjectDir 4 169fd 
  c 2 169fe 18 netscript2/docs/xmldom2/ 11 81 
  c 2 169ff 0  0 
! c 2 1ee49 18 netscript2/docs/xmldom2/ 
! c 2 1ee46 b directories 
! C DmBag 5 1edcd 2 
! c 2 1ee03 dd b
! C DmDictionary 0 1edcf 3 
! C DmString 1 1ede1 39 b
  C DmSet 0 18fdc 1 
  C DmString 1 19136 5 Other 
  L 19136  
! c 1 1ede0 a categories 
! c 1 1edd1 4 TODO 
! c 1 1edd0 4 name 
! C DmInteger 2 1ede3 80000001 
! c 1 1ede2 9 substMode  
! c 2 1ee38 da b
! C DmDictionary 0 1ee04 3 
! C DmString 1 1ee16 38 b
  C DmSet 0 1a94e 1 
  C DmString 1 1aab3 4 Html 
  L 1aab3  
! c 1 1ee15 a categories 
! c 1 1ee06 9 TODO.html 
! c 1 1ee05 4 name 
! C DmInteger 2 1ee18 1 
! c 1 1ee17 9 substMode  
! c 2 1ee39 5 files 
! c 2 1edc9 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 1edc8 6 launch 
! c 2 1edc5 4 make 
! c 2 1edc4 4 make 
! c 2 1edc7 0  
! c 2 1edc6 8 makeFile 
! c 5 1edca 0 
! c 2 1edcc 7 modules 
! c 2 1edc3 7 xmldom2 
! c 2 1edc2 4 name 

[NetScript CVS] CVS: netscript2/docs/netscript wipeout.project,1.1,1.2

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

Update of /cvsroot/net-script/netscript2/docs/netscript
In directory usw-pr-cvs1:/tmp/cvs-serv32526/netscript

Modified Files:
	wipeout.project 
Log Message:
* restructured anything

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/netscript/wipeout.project,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** wipeout.project	31 May 2002 19:08:09 -0000	1.1
--- wipeout.project	31 May 2002 19:08:44 -0000	1.2
***************
*** 1,14 ****
  b
! C DmDictionary 0 15845 8 
! c 0 158bf 9 
  C Category 1 1052a 
! c 0 158f3 4 
! C DmString 2 158fa 2 e3 
! c 2 158f9 a defaultExe 
! C DmSet 3 158fc 1 
  c 2 1053c 2 e3 
  L 1053c 
! c 2 158fb b executables 
! c 3 158f7 3 
  c 2 10532 3 *.C 
  L 10532 
--- 1,14 ----
  b
! C DmDictionary 0 1e7d7 8 
! c 0 1e851 9 
  C Category 1 1052a 
! c 0 1e885 4 
! C DmString 2 1e88c 2 e3 
! c 2 1e88b a defaultExe 
! C DmSet 3 1e88e 1 
  c 2 1053c 2 e3 
  L 1053c 
! c 2 1e88d b executables 
! c 3 1e889 3 
  c 2 10532 3 *.C 
  L 10532 
***************
*** 17,63 ****
  c 2 10536 5 *.cpp 
  L 10536 
! c 2 158f6 a extensions 
! c 2 158f5 a CPP_source 
! c 2 158f4 4 name 
! c 2 158c1 a CPP_source 
  c 1 10540 
! c 0 15939 4 
! c 2 15940 2 e3 
! c 2 1593f a defaultExe 
! c 3 15942 1 
  c 2 1054e 2 e3 
  L 1054e 
! c 2 15941 b executables 
! c 3 1593d 1 
  c 2 10548 3 *.c 
  L 10548 
! c 2 1593c a extensions 
! c 2 1593b 8 C_source 
! c 2 1593a 4 name 
! c 2 158c2 8 C_source 
  c 1 10552 
! c 0 15973 4 
! c 2 1597a 2 e3 
! c 2 15979 a defaultExe 
! c 3 1597c 1 
  c 2 10560 2 e3 
  L 10560 
! c 2 1597b b executables 
! c 3 15977 1 
  c 2 1055a 3 *.e 
  L 1055a 
! c 2 15976 a extensions 
! c 2 15975 6 Eiffel 
! c 2 15974 4 name 
! c 2 158c3 6 Eiffel 
  c 1 10564 
! c 0 159ad 4 
! c 2 159b4 2 e3 
! c 2 159b3 a defaultExe 
! c 3 159b6 1 
  c 2 10578 2 e3 
  L 10578 
! c 2 159b5 b executables 
! c 3 159b1 4 
  c 2 1056c 3 *.F 
  L 1056c 
--- 17,63 ----
  c 2 10536 5 *.cpp 
  L 10536 
! c 2 1e888 a extensions 
! c 2 1e887 a CPP_source 
! c 2 1e886 4 name 
! c 2 1e853 a CPP_source 
  c 1 10540 
! c 0 1e8cb 4 
! c 2 1e8d2 2 e3 
! c 2 1e8d1 a defaultExe 
! c 3 1e8d4 1 
  c 2 1054e 2 e3 
  L 1054e 
! c 2 1e8d3 b executables 
! c 3 1e8cf 1 
  c 2 10548 3 *.c 
  L 10548 
! c 2 1e8ce a extensions 
! c 2 1e8cd 8 C_source 
! c 2 1e8cc 4 name 
! c 2 1e854 8 C_source 
  c 1 10552 
! c 0 1e905 4 
! c 2 1e90c 2 e3 
! c 2 1e90b a defaultExe 
! c 3 1e90e 1 
  c 2 10560 2 e3 
  L 10560 
! c 2 1e90d b executables 
! c 3 1e909 1 
  c 2 1055a 3 *.e 
  L 1055a 
! c 2 1e908 a extensions 
! c 2 1e907 6 Eiffel 
! c 2 1e906 4 name 
! c 2 1e855 6 Eiffel 
  c 1 10564 
! c 0 1e93f 4 
! c 2 1e946 2 e3 
! c 2 1e945 a defaultExe 
! c 3 1e948 1 
  c 2 10578 2 e3 
  L 10578 
! c 2 1e947 b executables 
! c 3 1e943 4 
  c 2 1056c 3 *.F 
  L 1056c 
***************
*** 68,193 ****
  c 2 10572 5 *.fpp 
  L 10572 
! c 2 159b0 a extensions 
! c 2 159af 7 Fortran 
! c 2 159ae 4 name 
! c 2 158c4 7 Fortran 
  c 1 1057c 
! c 0 159f3 4 
! c 2 159fa 2 e3 
! c 2 159f9 a defaultExe 
! c 3 159fc 1 
  c 2 1058c 2 e3 
  L 1058c 
! c 2 159fb b executables 
! c 3 159f7 2 
  c 2 10584 3 *.H 
  L 10584 
  c 2 10586 3 *.h 
  L 10586 
! c 2 159f6 a extensions 
! c 2 159f5 6 Header 
! c 2 159f4 4 name 
! c 2 158c5 6 Header 
  c 1 10590 
! c 0 15a31 4 
! c 2 15a38 9 surfboard 
! c 2 15a37 a defaultExe 
! c 3 15a3a 2 
  c 2 105a0 2 e3 
  L 105a0 
  c 2 105a2 9 surfboard 
  L 105a2 
! c 2 15a39 b executables 
! c 3 15a35 2 
  c 2 10598 5 *.htm 
  L 10598 
  c 2 1059a 6 *.html 
  L 1059a 
! c 2 15a34 a extensions 
! c 2 15a33 4 Html 
! c 2 15a32 4 name 
! c 2 158c6 4 Html 
  c 1 105a6 
! c 0 15a73 4 
! c 2 15a7a 2 e3 
! c 2 15a79 a defaultExe 
! c 3 15a7c 1 
  c 2 105b4 2 e3 
  L 105b4 
! c 2 15a7b b executables 
! c 3 15a77 1 
  c 2 105ae 6 *.java 
  L 105ae 
! c 2 15a76 a extensions 
! c 2 15a75 4 Java 
! c 2 15a74 4 name 
! c 2 158c7 4 Java 
  c 1 105b8 
! c 0 15aad 4 
! c 2 15ab4 2 e3 
! c 2 15ab3 a defaultExe 
! c 3 15ab6 1 
  c 2 105c6 2 e3 
  L 105c6 
! c 2 15ab5 b executables 
! c 3 15ab1 1 
  c 2 105c0 5 *.tex 
  L 105c0 
! c 2 15ab0 a extensions 
! c 2 15aaf 5 Latex 
! c 2 15aae 4 name 
! c 2 158c8 5 Latex 
  c 1 105ca 
! c 0 15ae7 4 
! c 2 15aee 2 e3 
! c 2 15aed a defaultExe 
! c 3 15af0 1 
  c 2 105d5 2 e3 
  L 105d5 
! c 2 15aef b executables 
! c 3 15aeb 0 
! c 2 15aea a extensions 
! c 2 15ae9 5 Other 
! c 2 15ae8 4 name 
! c 2 158c9 5 Other 
! c 2 158be a categories 
! c 0 158cb 1 
  C ProjectDir 4 105f6 
  c 2 105f7 1a netscript2/docs/netscript/ 11 81 
  c 2 105f8 0  0 
! c 2 158cd 1a netscript2/docs/netscript/ 
! c 2 158ca b directories 
! C DmBag 5 15851 2 
! c 2 15887 de b
! C DmDictionary 0 15853 3 
! C DmString 1 15865 39 b
  C DmSet 0 134d6 1 
  C DmString 1 13630 5 Other 
  L 13630  
! c 1 15864 a categories 
! c 1 15855 c REQUIREMENTS 
! c 1 15854 4 name 
! C DmInteger 2 15867 1 
! c 1 15866 9 substMode  
! c 2 158bc e3 b
! C DmDictionary 0 15888 3 
! C DmString 1 1589a 38 b
  C DmSet 0 156dc 1 
  C DmString 1 15841 4 Html 
  L 15841  
! c 1 15899 a categories 
! c 1 1588a 11 REQUIREMENTS.html 
! c 1 15889 4 name 
! C DmInteger 2 1589c 1 
! c 1 1589b 9 substMode  
! c 2 158bd 5 files 
! c 2 1584d 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 1584c 6 launch 
! c 2 15849 4 make 
! c 2 15848 4 make 
! c 2 1584b 0  
! c 2 1584a 8 makeFile 
! c 5 1584e 0 
! c 2 15850 7 modules 
! c 2 15847 9 netscript 
! c 2 15846 4 name 
--- 68,193 ----
  c 2 10572 5 *.fpp 
  L 10572 
! c 2 1e942 a extensions 
! c 2 1e941 7 Fortran 
! c 2 1e940 4 name 
! c 2 1e856 7 Fortran 
  c 1 1057c 
! c 0 1e985 4 
! c 2 1e98c 2 e3 
! c 2 1e98b a defaultExe 
! c 3 1e98e 1 
  c 2 1058c 2 e3 
  L 1058c 
! c 2 1e98d b executables 
! c 3 1e989 2 
  c 2 10584 3 *.H 
  L 10584 
  c 2 10586 3 *.h 
  L 10586 
! c 2 1e988 a extensions 
! c 2 1e987 6 Header 
! c 2 1e986 4 name 
! c 2 1e857 6 Header 
  c 1 10590 
! c 0 1e9c3 4 
! c 2 1e9ca 9 surfboard 
! c 2 1e9c9 a defaultExe 
! c 3 1e9cc 2 
  c 2 105a0 2 e3 
  L 105a0 
  c 2 105a2 9 surfboard 
  L 105a2 
! c 2 1e9cb b executables 
! c 3 1e9c7 2 
  c 2 10598 5 *.htm 
  L 10598 
  c 2 1059a 6 *.html 
  L 1059a 
! c 2 1e9c6 a extensions 
! c 2 1e9c5 4 Html 
! c 2 1e9c4 4 name 
! c 2 1e858 4 Html 
  c 1 105a6 
! c 0 1ea05 4 
! c 2 1ea0c 2 e3 
! c 2 1ea0b a defaultExe 
! c 3 1ea0e 1 
  c 2 105b4 2 e3 
  L 105b4 
! c 2 1ea0d b executables 
! c 3 1ea09 1 
  c 2 105ae 6 *.java 
  L 105ae 
! c 2 1ea08 a extensions 
! c 2 1ea07 4 Java 
! c 2 1ea06 4 name 
! c 2 1e859 4 Java 
  c 1 105b8 
! c 0 1ea3f 4 
! c 2 1ea46 2 e3 
! c 2 1ea45 a defaultExe 
! c 3 1ea48 1 
  c 2 105c6 2 e3 
  L 105c6 
! c 2 1ea47 b executables 
! c 3 1ea43 1 
  c 2 105c0 5 *.tex 
  L 105c0 
! c 2 1ea42 a extensions 
! c 2 1ea41 5 Latex 
! c 2 1ea40 4 name 
! c 2 1e85a 5 Latex 
  c 1 105ca 
! c 0 1ea79 4 
! c 2 1ea80 2 e3 
! c 2 1ea7f a defaultExe 
! c 3 1ea82 1 
  c 2 105d5 2 e3 
  L 105d5 
! c 2 1ea81 b executables 
! c 3 1ea7d 0 
! c 2 1ea7c a extensions 
! c 2 1ea7b 5 Other 
! c 2 1ea7a 4 name 
! c 2 1e85b 5 Other 
! c 2 1e850 a categories 
! c 0 1e85d 1 
  C ProjectDir 4 105f6 
  c 2 105f7 1a netscript2/docs/netscript/ 11 81 
  c 2 105f8 0  0 
! c 2 1e85f 1a netscript2/docs/netscript/ 
! c 2 1e85c b directories 
! C DmBag 5 1e7e3 2 
! c 2 1e819 e5 b
! C DmDictionary 0 1e7e5 3 
! C DmString 1 1e7f7 39 b
  C DmSet 0 134d6 1 
  C DmString 1 13630 5 Other 
  L 13630  
! c 1 1e7f6 a categories 
! c 1 1e7e7 c REQUIREMENTS 
! c 1 1e7e6 4 name 
! C DmInteger 2 1e7f9 80000001 
! c 1 1e7f8 9 substMode  
! c 2 1e84e e3 b
! C DmDictionary 0 1e81a 3 
! C DmString 1 1e82c 38 b
  C DmSet 0 156dc 1 
  C DmString 1 15841 4 Html 
  L 15841  
! c 1 1e82b a categories 
! c 1 1e81c 11 REQUIREMENTS.html 
! c 1 1e81b 4 name 
! C DmInteger 2 1e82e 1 
! c 1 1e82d 9 substMode  
! c 2 1e84f 5 files 
! c 2 1e7df 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 1e7de 6 launch 
! c 2 1e7db 4 make 
! c 2 1e7da 4 make 
! c 2 1e7dd 0  
! c 2 1e7dc 8 makeFile 
! c 5 1e7e0 0 
! c 2 1e7e2 7 modules 
! c 2 1e7d9 9 netscript 
! c 2 1e7d8 4 name 

[NetScript CVS] CVS: netscript2/docs wipeout.project,1.4,1.5

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

Update of /cvsroot/net-script/netscript2/docs
In directory usw-pr-cvs1:/tmp/cvs-serv32466

Modified Files:
	wipeout.project 
Log Message:
* restructured anything

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/wipeout.project,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** wipeout.project	31 May 2002 19:07:49 -0000	1.4
--- wipeout.project	31 May 2002 19:08:34 -0000	1.5
***************
*** 1,14 ****
  b
! C DmDictionary 0 179e0 8 
! c 0 17a5d 9 
  C Category 1 16fc 
! c 0 17a8b 4 
! C DmString 2 17a92 2 e3 
! c 2 17a91 a defaultExe 
! C DmSet 3 17a94 1 
  c 2 170b 2 e3 
  L 170b 
! c 2 17a93 b executables 
! c 3 17a8f 3 
  c 2 1712 3 *.C 
  L 1712 
--- 1,14 ----
  b
! C DmDictionary 0 1e1d4 8 
! c 0 1e251 9 
  C Category 1 16fc 
! c 0 1e27f 4 
! C DmString 2 1e286 2 e3 
! c 2 1e285 a defaultExe 
! C DmSet 3 1e288 1 
  c 2 170b 2 e3 
  L 170b 
! c 2 1e287 b executables 
! c 3 1e283 3 
  c 2 1712 3 *.C 
  L 1712 
***************
*** 17,63 ****
  c 2 1718 5 *.cpp 
  L 1718 
! c 2 17a8e a extensions 
! c 2 17a8d a CPP_source 
! c 2 17a8c 4 name 
! c 2 17a5f a CPP_source 
  c 1 172d 
! c 0 17ad1 4 
! c 2 17ad8 2 e3 
! c 2 17ad7 a defaultExe 
! c 3 17ada 1 
  c 2 173a 2 e3 
  L 173a 
! c 2 17ad9 b executables 
! c 3 17ad5 1 
  c 2 1741 3 *.c 
  L 1741 
! c 2 17ad4 a extensions 
! c 2 17ad3 8 C_source 
! c 2 17ad2 4 name 
! c 2 17a60 8 C_source 
  c 1 1756 
! c 0 17b0b 4 
! c 2 17b12 2 e3 
! c 2 17b11 a defaultExe 
! c 3 17b14 1 
  c 2 1763 2 e3 
  L 1763 
! c 2 17b13 b executables 
! c 3 17b0f 1 
  c 2 176a 3 *.e 
  L 176a 
! c 2 17b0e a extensions 
! c 2 17b0d 6 Eiffel 
! c 2 17b0c 4 name 
! c 2 17a61 6 Eiffel 
  c 1 177f 
! c 0 17b45 4 
! c 2 17b4c 2 e3 
! c 2 17b4b a defaultExe 
! c 3 17b4e 1 
  c 2 178c 2 e3 
  L 178c 
! c 2 17b4d b executables 
! c 3 17b49 4 
  c 2 1793 3 *.F 
  L 1793 
--- 17,63 ----
  c 2 1718 5 *.cpp 
  L 1718 
! c 2 1e282 a extensions 
! c 2 1e281 a CPP_source 
! c 2 1e280 4 name 
! c 2 1e253 a CPP_source 
  c 1 172d 
! c 0 1e2c5 4 
! c 2 1e2cc 2 e3 
! c 2 1e2cb a defaultExe 
! c 3 1e2ce 1 
  c 2 173a 2 e3 
  L 173a 
! c 2 1e2cd b executables 
! c 3 1e2c9 1 
  c 2 1741 3 *.c 
  L 1741 
! c 2 1e2c8 a extensions 
! c 2 1e2c7 8 C_source 
! c 2 1e2c6 4 name 
! c 2 1e254 8 C_source 
  c 1 1756 
! c 0 1e2ff 4 
! c 2 1e306 2 e3 
! c 2 1e305 a defaultExe 
! c 3 1e308 1 
  c 2 1763 2 e3 
  L 1763 
! c 2 1e307 b executables 
! c 3 1e303 1 
  c 2 176a 3 *.e 
  L 176a 
! c 2 1e302 a extensions 
! c 2 1e301 6 Eiffel 
! c 2 1e300 4 name 
! c 2 1e255 6 Eiffel 
  c 1 177f 
! c 0 1e339 4 
! c 2 1e340 2 e3 
! c 2 1e33f a defaultExe 
! c 3 1e342 1 
  c 2 178c 2 e3 
  L 178c 
! c 2 1e341 b executables 
! c 3 1e33d 4 
  c 2 1793 3 *.F 
  L 1793 
***************
*** 68,196 ****
  c 2 179c 5 *.fpp 
  L 179c 
! c 2 17b48 a extensions 
! c 2 17b47 7 Fortran 
! c 2 17b46 4 name 
! c 2 17a62 7 Fortran 
  c 1 17b1 
! c 0 17b8b 4 
! c 2 17b92 2 e3 
! c 2 17b91 a defaultExe 
! c 3 17b94 1 
  c 2 17be 2 e3 
  L 17be 
! c 2 17b93 b executables 
! c 3 17b8f 2 
  c 2 17c5 3 *.H 
  L 17c5 
  c 2 17c8 3 *.h 
  L 17c8 
! c 2 17b8e a extensions 
! c 2 17b8d 6 Header 
! c 2 17b8c 4 name 
! c 2 17a63 6 Header 
  c 1 17dd 
! c 0 17bc9 4 
! c 2 17bd0 9 surfboard 
! c 2 17bcf a defaultExe 
! c 3 17bd2 2 
  c 2 17ea 2 e3 
  L 17ea 
  c 2 17ed 9 surfboard 
  L 17ed 
! c 2 17bd1 b executables 
! c 3 17bcd 2 
  c 2 17f4 5 *.htm 
  L 17f4 
  c 2 17f7 6 *.html 
  L 17f7 
! c 2 17bcc a extensions 
! c 2 17bcb 4 Html 
! c 2 17bca 4 name 
! c 2 17a64 4 Html 
  c 1 180c 
! c 0 17c0b 4 
! c 2 17c12 2 e3 
! c 2 17c11 a defaultExe 
! c 3 17c14 1 
  c 2 1819 2 e3 
  L 1819 
! c 2 17c13 b executables 
! c 3 17c0f 1 
  c 2 1820 6 *.java 
  L 1820 
! c 2 17c0e a extensions 
! c 2 17c0d 4 Java 
! c 2 17c0c 4 name 
! c 2 17a65 4 Java 
  c 1 1835 
! c 0 17c45 4 
! c 2 17c4c 2 e3 
! c 2 17c4b a defaultExe 
! c 3 17c4e 1 
  c 2 1842 2 e3 
  L 1842 
! c 2 17c4d b executables 
! c 3 17c49 1 
  c 2 1849 5 *.tex 
  L 1849 
! c 2 17c48 a extensions 
! c 2 17c47 5 Latex 
! c 2 17c46 4 name 
! c 2 17a66 5 Latex 
  c 1 185e 
! c 0 17c7f 4 
! c 2 17c86 2 e3 
! c 2 17c85 a defaultExe 
! c 3 17c88 1 
  c 2 186b 2 e3 
  L 186b 
! c 2 17c87 b executables 
! c 3 17c83 0 
! c 2 17c82 a extensions 
! c 2 17c81 5 Other 
! c 2 17c80 4 name 
! c 2 17a67 5 Other 
! c 2 17a5c a categories 
! c 0 17a69 1 
  C ProjectDir 4 1888 
  c 2 1889 10 netscript2/docs/ 11 81 
  c 2 188a 0  0 
! c 2 17a6b 10 netscript2/docs/ 
! c 2 17a68 b directories 
! C DmBag 5 179ef 2 
! c 2 17a25 db b
! C DmDictionary 0 179f1 3 
! C DmString 1 17a03 36 b
  C DmSet 0 21c6 1 
  C DmString 1 21f4 5 Other 
  L 21f4  
! c 1 17a02 a categories 
! c 1 179f3 c REQUIREMENTS 
! c 1 179f2 4 name 
! C DmInteger 2 17a05 1 
! c 1 17a04 9 substMode  
! c 2 17a5a d3 b
! C DmDictionary 0 17a26 3 
! C DmString 1 17a38 36 b
  C DmSet 0 2205 1 
  C DmString 1 2233 5 Other 
  L 2233  
! c 1 17a37 a categories 
! c 1 17a28 4 TODO 
! c 1 17a27 4 name 
! C DmInteger 2 17a3a 1 
! c 1 17a39 9 substMode  
! c 2 17a5b 5 files 
! c 2 179e8 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 179e7 6 launch 
! c 2 179e4 4 make 
! c 2 179e3 4 make 
! c 2 179e6 0  
! c 2 179e5 8 makeFile 
! c 5 179e9 3 
! c 2 179eb 5 ipdoc 
! c 2 179ec 9 netscript 
! c 2 179ed 7 xmldom2 
! c 2 179ee 7 modules 
! c 2 179e2 4 docs 
! c 2 179e1 4 name 
--- 68,196 ----
  c 2 179c 5 *.fpp 
  L 179c 
! c 2 1e33c a extensions 
! c 2 1e33b 7 Fortran 
! c 2 1e33a 4 name 
! c 2 1e256 7 Fortran 
  c 1 17b1 
! c 0 1e37f 4 
! c 2 1e386 2 e3 
! c 2 1e385 a defaultExe 
! c 3 1e388 1 
  c 2 17be 2 e3 
  L 17be 
! c 2 1e387 b executables 
! c 3 1e383 2 
  c 2 17c5 3 *.H 
  L 17c5 
  c 2 17c8 3 *.h 
  L 17c8 
! c 2 1e382 a extensions 
! c 2 1e381 6 Header 
! c 2 1e380 4 name 
! c 2 1e257 6 Header 
  c 1 17dd 
! c 0 1e3bd 4 
! c 2 1e3c4 9 surfboard 
! c 2 1e3c3 a defaultExe 
! c 3 1e3c6 2 
  c 2 17ea 2 e3 
  L 17ea 
  c 2 17ed 9 surfboard 
  L 17ed 
! c 2 1e3c5 b executables 
! c 3 1e3c1 2 
  c 2 17f4 5 *.htm 
  L 17f4 
  c 2 17f7 6 *.html 
  L 17f7 
! c 2 1e3c0 a extensions 
! c 2 1e3bf 4 Html 
! c 2 1e3be 4 name 
! c 2 1e258 4 Html 
  c 1 180c 
! c 0 1e3ff 4 
! c 2 1e406 2 e3 
! c 2 1e405 a defaultExe 
! c 3 1e408 1 
  c 2 1819 2 e3 
  L 1819 
! c 2 1e407 b executables 
! c 3 1e403 1 
  c 2 1820 6 *.java 
  L 1820 
! c 2 1e402 a extensions 
! c 2 1e401 4 Java 
! c 2 1e400 4 name 
! c 2 1e259 4 Java 
  c 1 1835 
! c 0 1e439 4 
! c 2 1e440 2 e3 
! c 2 1e43f a defaultExe 
! c 3 1e442 1 
  c 2 1842 2 e3 
  L 1842 
! c 2 1e441 b executables 
! c 3 1e43d 1 
  c 2 1849 5 *.tex 
  L 1849 
! c 2 1e43c a extensions 
! c 2 1e43b 5 Latex 
! c 2 1e43a 4 name 
! c 2 1e25a 5 Latex 
  c 1 185e 
! c 0 1e473 4 
! c 2 1e47a 2 e3 
! c 2 1e479 a defaultExe 
! c 3 1e47c 1 
  c 2 186b 2 e3 
  L 186b 
! c 2 1e47b b executables 
! c 3 1e477 0 
! c 2 1e476 a extensions 
! c 2 1e475 5 Other 
! c 2 1e474 4 name 
! c 2 1e25b 5 Other 
! c 2 1e250 a categories 
! c 0 1e25d 1 
  C ProjectDir 4 1888 
  c 2 1889 10 netscript2/docs/ 11 81 
  c 2 188a 0  0 
! c 2 1e25f 10 netscript2/docs/ 
! c 2 1e25c b directories 
! C DmBag 5 1e1e3 2 
! c 2 1e219 e2 b
! C DmDictionary 0 1e1e5 3 
! C DmString 1 1e1f7 36 b
  C DmSet 0 21c6 1 
  C DmString 1 21f4 5 Other 
  L 21f4  
! c 1 1e1f6 a categories 
! c 1 1e1e7 c REQUIREMENTS 
! c 1 1e1e6 4 name 
! C DmInteger 2 1e1f9 80000001 
! c 1 1e1f8 9 substMode  
! c 2 1e24e da b
! C DmDictionary 0 1e21a 3 
! C DmString 1 1e22c 36 b
  C DmSet 0 2205 1 
  C DmString 1 2233 5 Other 
  L 2233  
! c 1 1e22b a categories 
! c 1 1e21c 4 TODO 
! c 1 1e21b 4 name 
! C DmInteger 2 1e22e 80000001 
! c 1 1e22d 9 substMode  
! c 2 1e24f 5 files 
! c 2 1e1dc 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 1e1db 6 launch 
! c 2 1e1d8 4 make 
! c 2 1e1d7 4 make 
! c 2 1e1da 0  
! c 2 1e1d9 8 makeFile 
! c 5 1e1dd 3 
! c 2 1e1df 5 ipdoc 
! c 2 1e1e0 9 netscript 
! c 2 1e1e1 7 xmldom2 
! c 2 1e1e2 7 modules 
! c 2 1e1d6 4 docs 
! c 2 1e1d5 4 name 

[NetScript CVS] CVS: netscript2/docs/xmldom2 TODO.html,NONE,1.1 wipeout.project,NONE,1.1

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

Update of /cvsroot/net-script/netscript2/docs/xmldom2
In directory usw-pr-cvs1:/tmp/cvs-serv32122/xmldom2

Added Files:
	TODO.html wipeout.project 
Log Message:
* restructured anything

--- NEW FILE: TODO.html ---
<pre>
/---------------------------------------------------------------------\
| $Id: TODO.html,v 1.1 2002/05/31 19:08:10 derkork Exp $
| 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 (ko...@in...)
\---------------------------------------------------------------------/

To do:
------
Classes/Interfaces:

    * Node
        - implement normalize
    * DOMParser
        - DTD-stuff   
Other
    * lots of sanity checks ( e.g you cannot insert an attr 
      as a child node of anything )

Done:
-----
    * DOMImplementation
    * Document
    * Notation
    * Entity
    * EntityReference
    * DocumentType
    * DocumentFragment
    * Node
        - handling for document fragments
        - implement cloneNode
    * DOMException
    * ExceptionCode
    * ProcessingInstruction
    * Text
    * Comment
    * CharacterData
    * Attr
    * Element
    * NodeList
    * NamedNodeMap
    * CDATASection
</pre>

--- NEW FILE: wipeout.project ---
b
C DmDictionary 0 1aab7 8 
c 0 1ab31 9 
C Category 1 16931 
c 0 1ab65 4 
C DmString 2 1ab6c 2 e3 
c 2 1ab6b a defaultExe 
C DmSet 3 1ab6e 1 
c 2 16943 2 e3 
L 16943 
c 2 1ab6d b executables 
c 3 1ab69 3 
c 2 16939 3 *.C 
L 16939 
c 2 1693b 4 *.cc 
L 1693b 
c 2 1693d 5 *.cpp 
L 1693d 
c 2 1ab68 a extensions 
c 2 1ab67 a CPP_source 
c 2 1ab66 4 name 
c 2 1ab33 a CPP_source 
c 1 16947 
c 0 1abab 4 
c 2 1abb2 2 e3 
c 2 1abb1 a defaultExe 
c 3 1abb4 1 
c 2 16955 2 e3 
L 16955 
c 2 1abb3 b executables 
c 3 1abaf 1 
c 2 1694f 3 *.c 
L 1694f 
c 2 1abae a extensions 
c 2 1abad 8 C_source 
c 2 1abac 4 name 
c 2 1ab34 8 C_source 
c 1 16959 
c 0 1abe5 4 
c 2 1abec 2 e3 
c 2 1abeb a defaultExe 
c 3 1abee 1 
c 2 16967 2 e3 
L 16967 
c 2 1abed b executables 
c 3 1abe9 1 
c 2 16961 3 *.e 
L 16961 
c 2 1abe8 a extensions 
c 2 1abe7 6 Eiffel 
c 2 1abe6 4 name 
c 2 1ab35 6 Eiffel 
c 1 1696b 
c 0 1ac1f 4 
c 2 1ac26 2 e3 
c 2 1ac25 a defaultExe 
c 3 1ac28 1 
c 2 1697f 2 e3 
L 1697f 
c 2 1ac27 b executables 
c 3 1ac23 4 
c 2 16973 3 *.F 
L 16973 
c 2 16975 3 *.f 
L 16975 
c 2 16977 5 *.for 
L 16977 
c 2 16979 5 *.fpp 
L 16979 
c 2 1ac22 a extensions 
c 2 1ac21 7 Fortran 
c 2 1ac20 4 name 
c 2 1ab36 7 Fortran 
c 1 16983 
c 0 1ac65 4 
c 2 1ac6c 2 e3 
c 2 1ac6b a defaultExe 
c 3 1ac6e 1 
c 2 16993 2 e3 
L 16993 
c 2 1ac6d b executables 
c 3 1ac69 2 
c 2 1698b 3 *.H 
L 1698b 
c 2 1698d 3 *.h 
L 1698d 
c 2 1ac68 a extensions 
c 2 1ac67 6 Header 
c 2 1ac66 4 name 
c 2 1ab37 6 Header 
c 1 16997 
c 0 1aca3 4 
c 2 1acaa 9 surfboard 
c 2 1aca9 a defaultExe 
c 3 1acac 2 
c 2 169a7 2 e3 
L 169a7 
c 2 169a9 9 surfboard 
L 169a9 
c 2 1acab b executables 
c 3 1aca7 2 
c 2 1699f 5 *.htm 
L 1699f 
c 2 169a1 6 *.html 
L 169a1 
c 2 1aca6 a extensions 
c 2 1aca5 4 Html 
c 2 1aca4 4 name 
c 2 1ab38 4 Html 
c 1 169ad 
c 0 1ace5 4 
c 2 1acec 2 e3 
c 2 1aceb a defaultExe 
c 3 1acee 1 
c 2 169bb 2 e3 
L 169bb 
c 2 1aced b executables 
c 3 1ace9 1 
c 2 169b5 6 *.java 
L 169b5 
c 2 1ace8 a extensions 
c 2 1ace7 4 Java 
c 2 1ace6 4 name 
c 2 1ab39 4 Java 
c 1 169bf 
c 0 1ad1f 4 
c 2 1ad26 2 e3 
c 2 1ad25 a defaultExe 
c 3 1ad28 1 
c 2 169cd 2 e3 
L 169cd 
c 2 1ad27 b executables 
c 3 1ad23 1 
c 2 169c7 5 *.tex 
L 169c7 
c 2 1ad22 a extensions 
c 2 1ad21 5 Latex 
c 2 1ad20 4 name 
c 2 1ab3a 5 Latex 
c 1 169d1 
c 0 1ad59 4 
c 2 1ad60 2 e3 
c 2 1ad5f a defaultExe 
c 3 1ad62 1 
c 2 169dc 2 e3 
L 169dc 
c 2 1ad61 b executables 
c 3 1ad5d 0 
c 2 1ad5c a extensions 
c 2 1ad5b 5 Other 
c 2 1ad5a 4 name 
c 2 1ab3b 5 Other 
c 2 1ab30 a categories 
c 0 1ab3d 1 
C ProjectDir 4 169fd 
c 2 169fe 18 netscript2/docs/xmldom2/ 11 81 
c 2 169ff 0  0 
c 2 1ab3f 18 netscript2/docs/xmldom2/ 
c 2 1ab3c b directories 
C DmBag 5 1aac3 2 
c 2 1aaf9 d6 b
C DmDictionary 0 1aac5 3 
C DmString 1 1aad7 39 b
C DmSet 0 18fdc 1 
C DmString 1 19136 5 Other 
L 19136  
c 1 1aad6 a categories 
c 1 1aac7 4 TODO 
c 1 1aac6 4 name 
C DmInteger 2 1aad9 1 
c 1 1aad8 9 substMode  
c 2 1ab2e da b
C DmDictionary 0 1aafa 3 
C DmString 1 1ab0c 38 b
C DmSet 0 1a94e 1 
C DmString 1 1aab3 4 Html 
L 1aab3  
c 1 1ab0b a categories 
c 1 1aafc 9 TODO.html 
c 1 1aafb 4 name 
C DmInteger 2 1ab0e 1 
c 1 1ab0d 9 substMode  
c 2 1ab2f 5 files 
c 2 1aabf 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 1aabe 6 launch 
c 2 1aabb 4 make 
c 2 1aaba 4 make 
c 2 1aabd 0  
c 2 1aabc 8 makeFile 
c 5 1aac0 0 
c 2 1aac2 7 modules 
c 2 1aab9 7 xmldom2 
c 2 1aab8 4 name 

[NetScript CVS] CVS: netscript2/docs/netscript REQUIREMENTS.html,NONE,1.1 wipeout.project,NONE,1.1 REQUIREMENTS,1.1,NONE

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

Update of /cvsroot/net-script/netscript2/docs/netscript
In directory usw-pr-cvs1:/tmp/cvs-serv32122/netscript

Added Files:
	REQUIREMENTS.html wipeout.project 
Removed Files:
	REQUIREMENTS 
Log Message:
* restructured anything

--- NEW FILE: REQUIREMENTS.html ---
<pre>
/---------------------------------------------------------------------\
| $Id: REQUIREMENTS.html,v 1.1 2002/05/31 19:08:09 derkork Exp $
| 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 (ko...@in...)
\---------------------------------------------------------------------/

Requirements for using NetScript II
-------------------------------------

At this time NetScript II needs the following prerequisites to run:

    * Perl 5.6 or higher
    - Needed Modules:
        * XML::Parser
        * XML::DOM2*
        * CGI.pm
        * Time::HiRes

    - Optional Modules:
        * LWP::UserAgent  (for work with remote files)
        * 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.
The optional modules need only to be installed if you want to use these features.
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.
</pre>

--- NEW FILE: wipeout.project ---
b
C DmDictionary 0 15845 8 
c 0 158bf 9 
C Category 1 1052a 
c 0 158f3 4 
C DmString 2 158fa 2 e3 
c 2 158f9 a defaultExe 
C DmSet 3 158fc 1 
c 2 1053c 2 e3 
L 1053c 
c 2 158fb b executables 
c 3 158f7 3 
c 2 10532 3 *.C 
L 10532 
c 2 10534 4 *.cc 
L 10534 
c 2 10536 5 *.cpp 
L 10536 
c 2 158f6 a extensions 
c 2 158f5 a CPP_source 
c 2 158f4 4 name 
c 2 158c1 a CPP_source 
c 1 10540 
c 0 15939 4 
c 2 15940 2 e3 
c 2 1593f a defaultExe 
c 3 15942 1 
c 2 1054e 2 e3 
L 1054e 
c 2 15941 b executables 
c 3 1593d 1 
c 2 10548 3 *.c 
L 10548 
c 2 1593c a extensions 
c 2 1593b 8 C_source 
c 2 1593a 4 name 
c 2 158c2 8 C_source 
c 1 10552 
c 0 15973 4 
c 2 1597a 2 e3 
c 2 15979 a defaultExe 
c 3 1597c 1 
c 2 10560 2 e3 
L 10560 
c 2 1597b b executables 
c 3 15977 1 
c 2 1055a 3 *.e 
L 1055a 
c 2 15976 a extensions 
c 2 15975 6 Eiffel 
c 2 15974 4 name 
c 2 158c3 6 Eiffel 
c 1 10564 
c 0 159ad 4 
c 2 159b4 2 e3 
c 2 159b3 a defaultExe 
c 3 159b6 1 
c 2 10578 2 e3 
L 10578 
c 2 159b5 b executables 
c 3 159b1 4 
c 2 1056c 3 *.F 
L 1056c 
c 2 1056e 3 *.f 
L 1056e 
c 2 10570 5 *.for 
L 10570 
c 2 10572 5 *.fpp 
L 10572 
c 2 159b0 a extensions 
c 2 159af 7 Fortran 
c 2 159ae 4 name 
c 2 158c4 7 Fortran 
c 1 1057c 
c 0 159f3 4 
c 2 159fa 2 e3 
c 2 159f9 a defaultExe 
c 3 159fc 1 
c 2 1058c 2 e3 
L 1058c 
c 2 159fb b executables 
c 3 159f7 2 
c 2 10584 3 *.H 
L 10584 
c 2 10586 3 *.h 
L 10586 
c 2 159f6 a extensions 
c 2 159f5 6 Header 
c 2 159f4 4 name 
c 2 158c5 6 Header 
c 1 10590 
c 0 15a31 4 
c 2 15a38 9 surfboard 
c 2 15a37 a defaultExe 
c 3 15a3a 2 
c 2 105a0 2 e3 
L 105a0 
c 2 105a2 9 surfboard 
L 105a2 
c 2 15a39 b executables 
c 3 15a35 2 
c 2 10598 5 *.htm 
L 10598 
c 2 1059a 6 *.html 
L 1059a 
c 2 15a34 a extensions 
c 2 15a33 4 Html 
c 2 15a32 4 name 
c 2 158c6 4 Html 
c 1 105a6 
c 0 15a73 4 
c 2 15a7a 2 e3 
c 2 15a79 a defaultExe 
c 3 15a7c 1 
c 2 105b4 2 e3 
L 105b4 
c 2 15a7b b executables 
c 3 15a77 1 
c 2 105ae 6 *.java 
L 105ae 
c 2 15a76 a extensions 
c 2 15a75 4 Java 
c 2 15a74 4 name 
c 2 158c7 4 Java 
c 1 105b8 
c 0 15aad 4 
c 2 15ab4 2 e3 
c 2 15ab3 a defaultExe 
c 3 15ab6 1 
c 2 105c6 2 e3 
L 105c6 
c 2 15ab5 b executables 
c 3 15ab1 1 
c 2 105c0 5 *.tex 
L 105c0 
c 2 15ab0 a extensions 
c 2 15aaf 5 Latex 
c 2 15aae 4 name 
c 2 158c8 5 Latex 
c 1 105ca 
c 0 15ae7 4 
c 2 15aee 2 e3 
c 2 15aed a defaultExe 
c 3 15af0 1 
c 2 105d5 2 e3 
L 105d5 
c 2 15aef b executables 
c 3 15aeb 0 
c 2 15aea a extensions 
c 2 15ae9 5 Other 
c 2 15ae8 4 name 
c 2 158c9 5 Other 
c 2 158be a categories 
c 0 158cb 1 
C ProjectDir 4 105f6 
c 2 105f7 1a netscript2/docs/netscript/ 11 81 
c 2 105f8 0  0 
c 2 158cd 1a netscript2/docs/netscript/ 
c 2 158ca b directories 
C DmBag 5 15851 2 
c 2 15887 de b
C DmDictionary 0 15853 3 
C DmString 1 15865 39 b
C DmSet 0 134d6 1 
C DmString 1 13630 5 Other 
L 13630  
c 1 15864 a categories 
c 1 15855 c REQUIREMENTS 
c 1 15854 4 name 
C DmInteger 2 15867 1 
c 1 15866 9 substMode  
c 2 158bc e3 b
C DmDictionary 0 15888 3 
C DmString 1 1589a 38 b
C DmSet 0 156dc 1 
C DmString 1 15841 4 Html 
L 15841  
c 1 15899 a categories 
c 1 1588a 11 REQUIREMENTS.html 
c 1 15889 4 name 
C DmInteger 2 1589c 1 
c 1 1589b 9 substMode  
c 2 158bd 5 files 
c 2 1584d 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 1584c 6 launch 
c 2 15849 4 make 
c 2 15848 4 make 
c 2 1584b 0  
c 2 1584a 8 makeFile 
c 5 1584e 0 
c 2 15850 7 modules 
c 2 15847 9 netscript 
c 2 15846 4 name 

--- REQUIREMENTS DELETED ---

[NetScript CVS] CVS: netscript2/docs REQUIREMENTS,1.2,NONE TODO,1.1,NONE

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

Update of /cvsroot/net-script/netscript2/docs
In directory usw-pr-cvs1:/tmp/cvs-serv32122

Removed Files:
	REQUIREMENTS TODO 
Log Message:
* restructured anything

--- REQUIREMENTS DELETED ---

--- TODO DELETED ---

[NetScript CVS] CVS: netscript2/docs wipeout.project,1.3,1.4

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

Update of /cvsroot/net-script/netscript2/docs
In directory usw-pr-cvs1:/tmp/cvs-serv31982

Modified Files:
	wipeout.project 
Log Message:
* restructured anything

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/wipeout.project,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** wipeout.project	1 Jan 2002 17:54:19 -0000	1.3
--- wipeout.project	31 May 2002 19:07:49 -0000	1.4
***************
*** 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 
--- 1,196 ----
  b
! C DmDictionary 0 179e0 8 
! c 0 17a5d 9 
! C Category 1 16fc 
! c 0 17a8b 4 
! C DmString 2 17a92 2 e3 
! c 2 17a91 a defaultExe 
! C DmSet 3 17a94 1 
! c 2 170b 2 e3 
! L 170b 
! c 2 17a93 b executables 
! c 3 17a8f 3 
! c 2 1712 3 *.C 
! L 1712 
! c 2 1715 4 *.cc 
! L 1715 
! c 2 1718 5 *.cpp 
! L 1718 
! c 2 17a8e a extensions 
! c 2 17a8d a CPP_source 
! c 2 17a8c 4 name 
! c 2 17a5f a CPP_source 
! c 1 172d 
! c 0 17ad1 4 
! c 2 17ad8 2 e3 
! c 2 17ad7 a defaultExe 
! c 3 17ada 1 
! c 2 173a 2 e3 
! L 173a 
! c 2 17ad9 b executables 
! c 3 17ad5 1 
! c 2 1741 3 *.c 
! L 1741 
! c 2 17ad4 a extensions 
! c 2 17ad3 8 C_source 
! c 2 17ad2 4 name 
! c 2 17a60 8 C_source 
! c 1 1756 
! c 0 17b0b 4 
! c 2 17b12 2 e3 
! c 2 17b11 a defaultExe 
! c 3 17b14 1 
! c 2 1763 2 e3 
! L 1763 
! c 2 17b13 b executables 
! c 3 17b0f 1 
! c 2 176a 3 *.e 
! L 176a 
! c 2 17b0e a extensions 
! c 2 17b0d 6 Eiffel 
! c 2 17b0c 4 name 
! c 2 17a61 6 Eiffel 
! c 1 177f 
! c 0 17b45 4 
! c 2 17b4c 2 e3 
! c 2 17b4b a defaultExe 
! c 3 17b4e 1 
! c 2 178c 2 e3 
! L 178c 
! c 2 17b4d b executables 
! c 3 17b49 4 
! c 2 1793 3 *.F 
! L 1793 
! c 2 1796 3 *.f 
! L 1796 
! c 2 1799 5 *.for 
! L 1799 
! c 2 179c 5 *.fpp 
! L 179c 
! c 2 17b48 a extensions 
! c 2 17b47 7 Fortran 
! c 2 17b46 4 name 
! c 2 17a62 7 Fortran 
! c 1 17b1 
! c 0 17b8b 4 
! c 2 17b92 2 e3 
! c 2 17b91 a defaultExe 
! c 3 17b94 1 
! c 2 17be 2 e3 
! L 17be 
! c 2 17b93 b executables 
! c 3 17b8f 2 
! c 2 17c5 3 *.H 
! L 17c5 
! c 2 17c8 3 *.h 
! L 17c8 
! c 2 17b8e a extensions 
! c 2 17b8d 6 Header 
! c 2 17b8c 4 name 
! c 2 17a63 6 Header 
! c 1 17dd 
! c 0 17bc9 4 
! c 2 17bd0 9 surfboard 
! c 2 17bcf a defaultExe 
! c 3 17bd2 2 
! c 2 17ea 2 e3 
! L 17ea 
! c 2 17ed 9 surfboard 
! L 17ed 
! c 2 17bd1 b executables 
! c 3 17bcd 2 
! c 2 17f4 5 *.htm 
! L 17f4 
! c 2 17f7 6 *.html 
! L 17f7 
! c 2 17bcc a extensions 
! c 2 17bcb 4 Html 
! c 2 17bca 4 name 
! c 2 17a64 4 Html 
! c 1 180c 
! c 0 17c0b 4 
! c 2 17c12 2 e3 
! c 2 17c11 a defaultExe 
! c 3 17c14 1 
! c 2 1819 2 e3 
! L 1819 
! c 2 17c13 b executables 
! c 3 17c0f 1 
! c 2 1820 6 *.java 
! L 1820 
! c 2 17c0e a extensions 
! c 2 17c0d 4 Java 
! c 2 17c0c 4 name 
! c 2 17a65 4 Java 
! c 1 1835 
! c 0 17c45 4 
! c 2 17c4c 2 e3 
! c 2 17c4b a defaultExe 
! c 3 17c4e 1 
! c 2 1842 2 e3 
! L 1842 
! c 2 17c4d b executables 
! c 3 17c49 1 
! c 2 1849 5 *.tex 
! L 1849 
! c 2 17c48 a extensions 
! c 2 17c47 5 Latex 
! c 2 17c46 4 name 
! c 2 17a66 5 Latex 
! c 1 185e 
! c 0 17c7f 4 
! c 2 17c86 2 e3 
! c 2 17c85 a defaultExe 
! c 3 17c88 1 
! c 2 186b 2 e3 
! L 186b 
! c 2 17c87 b executables 
! c 3 17c83 0 
! c 2 17c82 a extensions 
! c 2 17c81 5 Other 
! c 2 17c80 4 name 
! c 2 17a67 5 Other 
! c 2 17a5c a categories 
! c 0 17a69 1 
! C ProjectDir 4 1888 
! c 2 1889 10 netscript2/docs/ 11 81 
! c 2 188a 0  0 
! c 2 17a6b 10 netscript2/docs/ 
! c 2 17a68 b directories 
! C DmBag 5 179ef 2 
! c 2 17a25 db b
! C DmDictionary 0 179f1 3 
! C DmString 1 17a03 36 b
! C DmSet 0 21c6 1 
! C DmString 1 21f4 5 Other 
! L 21f4  
! c 1 17a02 a categories 
! c 1 179f3 c REQUIREMENTS 
! c 1 179f2 4 name 
! C DmInteger 2 17a05 1 
! c 1 17a04 9 substMode  
! c 2 17a5a d3 b
! C DmDictionary 0 17a26 3 
! C DmString 1 17a38 36 b
! C DmSet 0 2205 1 
! C DmString 1 2233 5 Other 
! L 2233  
! c 1 17a37 a categories 
! c 1 17a28 4 TODO 
! c 1 17a27 4 name 
! C DmInteger 2 17a3a 1 
! c 1 17a39 9 substMode  
! c 2 17a5b 5 files 
! c 2 179e8 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 179e7 6 launch 
! c 2 179e4 4 make 
! c 2 179e3 4 make 
! c 2 179e6 0  
! c 2 179e5 8 makeFile 
! c 5 179e9 3 
! c 2 179eb 5 ipdoc 
! c 2 179ec 9 netscript 
! c 2 179ed 7 xmldom2 
! c 2 179ee 7 modules 
! c 2 179e2 4 docs 
! c 2 179e1 4 name 

[NetScript CVS] CVS: netscript2/docs/xmldom2 - Imported sources

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

Update of /cvsroot/net-script/netscript2/docs/xmldom2
In directory usw-pr-cvs1:/tmp/cvs-serv30228

Log Message:
 

Status:

Vendor Tag:	tag1
Release Tags:	tag2
		

No conflicts created by this import


***** Bogus filespec: - Imported sources

[NetScript CVS] CVS: netscript2/docs/netscript REQUIREMENTS,NONE,1.1

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

Update of /cvsroot/net-script/netscript2/docs/netscript
In directory usw-pr-cvs1:/tmp/cvs-serv29606

Added Files:
	REQUIREMENTS 
Log Message:


--- NEW FILE: REQUIREMENTS ---
<pre>
/---------------------------------------------------------------------\
| $Id: REQUIREMENTS,v 1.1 2002/05/31 19:03:00 derkork Exp $
| 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 (ko...@in...)
\---------------------------------------------------------------------/

Requirements for using NetScript II
-------------------------------------

At this time NetScript II needs the following prerequisites to run:

    * Perl 5.6 or higher
    - Needed Modules:
        * XML::Parser
        * XML::DOM2*
        * CGI.pm
        * Time::HiRes

    - Optional Modules:
        * LWP::UserAgent  (for work with remote files)
        * 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.
The optional modules need only to be installed if you want to use these features.
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.
</pre>

[NetScript CVS] CVS: netscript2/docs/netscript - Imported sources

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

Update of /cvsroot/net-script/netscript2/docs/netscript
In directory usw-pr-cvs1:/tmp/cvs-serv27916

Log Message:
 

Status:

Vendor Tag:	tag1
Release Tags:	tag2
		

No conflicts created by this import


***** Bogus filespec: - Imported sources

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Util ClassWrapper.pm,NONE,1.1 FunctionWrapper.pm,NONE,1.1 MemberWrapper.pm,NONE,1.1

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Util
In directory usw-pr-cvs1:/tmp/cvs-serv8828

Added Files:
	ClassWrapper.pm FunctionWrapper.pm MemberWrapper.pm 
Log Message:
* added wrappers for function, class and member, allowing libraries to create on-the-fly-objects

--- NEW FILE: ClassWrapper.pm ---
#--------------------------------------------------------
# $Id: ClassWrapper.pm,v 1.1 2002/05/29 20:28:48 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This class is a wrapper around a class object.
# It is used by libraries which want to create objects at
# runtime, without creating a class for it.
#*/
package NetScript::Util::ClassWrapper;
use base qw(NetScript::Engine::Class);


use NetScript::Util::FunctionWrapper;
use NetScript::Util::MemberWrapper;

#--------------------------------------------------------
# Globals
#--------------------------------------------------------


#/**
# Ctor.
# @param an object that should be wrapped and being represented
# as a class.
#*/
sub new {
    my ($proto, $object) = @_;
    my $proto = shift;                  # get Prototype
    my $class = ref( $proto ) || $proto;# get the Classname

    my $this = $class -> SUPER::new();
    $this -> { m_Object } = $object;
    return $this;                       # return Object
    }


#/**
# Sets the given function. A FunctionWrapper will be
# created for the given function name. If this function
# is invoked, the given sub on the wrapped object will be called.
# @param the name of the function to create
# @param the name of the sub which should be called upon invocation
# of the function.
#*/
sub setFunction {
    my ($this, $function, $subToCall ) = @_;
    my $wrapper = NetScript::Util::FunctionWrapper -> new( 
        $this -> object(), $function, $subToCall );
    $this -> functions() -> { $function } = $wrapper;
    }

#/**
# Sets the given member. A MemberWrapper will be created.
# The given subs will be called upon setting and retrieval
# of the given member. The given subs will be called with
# two parameters. The first one is the member name actually
# used, the second is the new member value (in case of setting
# or undef in case of retrieval).
# @param a regexp matching a member name
# @param the name of the sub to be called on setting of the member
# @param the name of the sub to be called on retrieval of the member.
# @public
#*/
sub setMember {
    my ($this, $member, $subOnSetting, $subOnRetrieval ) = @_;
    my $memberWrapper = NetScript::Util::MemberWrapper -> new( $this,
        $this  -> object(), $subOnSetting, $subOnRetrieval );
    $this -> members() -> { $member } = $memberWrapper;
    }


sub member {
    my ( $this, $member ) = @_;
    for ( keys( %{$this -> members() } ) ) {
        if ( $member =~ /$_/ ) { # if the given member name matches an regexp
            my $memberObject = $this -> members() -> { $_ } -> clone();
            $memberObject -> setName( $member );
            return $memberObject;
            }
        }
    return undef;
    }

#/**
# Returns the wrapped object.
# @private
#*/
sub object {
    my ( $this ) = @_;
    $this -> { m_Object };
    }

1; # make "require" happy    

--- NEW FILE: FunctionWrapper.pm ---
#--------------------------------------------------------
# $Id: FunctionWrapper.pm,v 1.1 2002/05/29 20:28:48 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This class represents a Function. It wraps around an object
# and calls a sub upon invocation of the function.
#*/
package NetScript::Util::FunctionWrapper;
use base qw(NetScript::Engine::Function);


#--------------------------------------------------------
# Globals
#--------------------------------------------------------


#/**
# Ctor.
# @param the parent class object of this function.
# @param the object on which the sub should be invocated
# @param the sub to be called upon invocation of this function.
#*/
sub new {
    my ($proto, $parent, $object, $subToCall ) = @_;
    my $proto = shift;                  # get Prototype
    my $class = ref( $proto ) || $proto;# get the Classname

    my $this -> $class -> SUPER::new( $parent );
    $this -> { m_Object } = $object;
    $this -> { m_SubToCall } = $subToCall;
    return $this;                       # return Object
    }



#/**
# Invokes this sub. A list of parameters is given as argument
# @optional one or more parameters 
#*/
sub invoke {
    my ( $this, @args ) = @_;
    my $sub = $this -> { m_SubToCall };
    $this -> { m_Object } -> $sub( @args );
    }

1; # make "require" happy    

--- NEW FILE: MemberWrapper.pm ---
#--------------------------------------------------------
# $Id: MemberWrapper.pm,v 1.1 2002/05/29 20:28:48 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This class represents a Member. It wraps around an
# object and calls methods of the wrapped object 
# on setting and retrieval of member values.
# @public
#*/
package NetScript::Util::MemberWrapper;
use base qw(NetScript::Engine::Member);


#--------------------------------------------------------
# Globals
#--------------------------------------------------------


#/**
# Ctor.
# @param the parent class object
# @param the object on which the subs should be called
# @param a sub that should be called upon member setting
# @param a sub that should be called upon member retrieval
#*/
sub new {
    my ($proto, $parent, $object, $subOnSetting, $subOnRetrieval ) = @_;
    my $proto = shift;                  # get Prototype
    my $class = ref( $proto ) || $proto;# get the Classname

    my $this = $class -> SUPER::new( $parent );
    $this -> { m_Name } = "";
    $this -> { m_SubOnSetting } = $subOnSetting;
    $this -> { m_SubOnRetrieval } = $subOnRetrieval;
    $this -> { m_Object } = $object;
    return $this;                       # return Object
    }

#/**
# Sets the name of this member.
# @protected.
#*/
sub setName {
    my ( $this, $name ) = @_;
    $this -> { m_Name } = $name;
    }


#/**
# Returns the value of this member
#*/
sub value {
    my ( $this ) = @_;
    my $sub = $this -> { m_SubOnRetrieval };
    $this -> { m_Object } -> $sub ( $this -> { m_Name } );
    }

#/**
# Sets the value of this member.
# @param a scalar holding the value of this member.
#*/
sub setValue {
    my ( $this, $value ) = @_;
    my $sub = $this -> { m_SubOnSetting };
    $this -> { m_Object } -> $sub( $this -> { m_Name }, $value );
    }

#/**
# Creates a clone of this wrapper.
# @return an instance of NetScript::Util::MemberWrapper.
# @protected 
#*/
sub clone {
    my ( $this ) = @_;
    my $clone = NetScript::Util::MemberWrapper -> new (
        $this -> parent(), $this -> { m_Object },
        $this -> { m_SubOnSetting }, $this -> { m_SubOnRetrieval }
        );
    $clone;    
    }

1; # make "require" happy    

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Util wipeout.project,1.5,1.6

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Util
In directory usw-pr-cvs1:/tmp/cvs-serv8761

Modified Files:
	wipeout.project 
Log Message:
* added wrappers for function, class and member, allowing libraries to create on-the-fly-objects

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/wipeout.project,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** wipeout.project	9 May 2002 19:12:53 -0000	1.5
--- wipeout.project	29 May 2002 20:28:36 -0000	1.6
***************
*** 1,248 ****
  b
! C DmDictionary 0 bc15 8 
! c 0 bd98 9 
! C Category 1 646a 
! c 0 bdd8 4 
! C DmString 2 bddf 2 e3 
! c 2 bdde a defaultExe 
! C DmSet 3 bde1 1 
! c 2 6479 2 e3 
! L 6479 
! c 2 bde0 b executables 
! c 3 bddc 3 
! c 2 6480 3 *.C 
! L 6480 
! c 2 6483 4 *.cc 
! L 6483 
! c 2 6486 5 *.cpp 
! L 6486 
! c 2 bddb a extensions 
! c 2 bdda a CPP_source 
! c 2 bdd9 4 name 
! c 2 bd9a a CPP_source 
! c 1 649b 
! c 0 be1e 4 
! c 2 be25 2 e3 
! c 2 be24 a defaultExe 
! c 3 be27 1 
! c 2 64a8 2 e3 
! L 64a8 
! c 2 be26 b executables 
! c 3 be22 1 
! c 2 64af 3 *.c 
! L 64af 
! c 2 be21 a extensions 
! c 2 be20 8 C_source 
! c 2 be1f 4 name 
! c 2 bd9b 8 C_source 
! c 1 64c4 
! c 0 be58 4 
! c 2 be5f 2 e3 
! c 2 be5e a defaultExe 
! c 3 be61 1 
! c 2 64d1 2 e3 
! L 64d1 
! c 2 be60 b executables 
! c 3 be5c 1 
! c 2 64d8 3 *.e 
! L 64d8 
! c 2 be5b a extensions 
! c 2 be5a 6 Eiffel 
! c 2 be59 4 name 
! c 2 bd9c 6 Eiffel 
! c 1 64ed 
! c 0 be92 4 
! c 2 be99 2 e3 
! c 2 be98 a defaultExe 
! c 3 be9b 1 
! c 2 64fa 2 e3 
! L 64fa 
! c 2 be9a b executables 
! c 3 be96 4 
! c 2 6501 3 *.F 
! L 6501 
! c 2 6504 3 *.f 
! L 6504 
! c 2 6507 5 *.for 
! L 6507 
! c 2 650a 5 *.fpp 
! L 650a 
! c 2 be95 a extensions 
! c 2 be94 7 Fortran 
! c 2 be93 4 name 
! c 2 bd9d 7 Fortran 
! c 1 651f 
! c 0 bed8 4 
! c 2 bedf 2 e3 
! c 2 bede a defaultExe 
! c 3 bee1 1 
! c 2 652c 2 e3 
! L 652c 
! c 2 bee0 b executables 
! c 3 bedc 2 
! c 2 6533 3 *.H 
! L 6533 
! c 2 6536 3 *.h 
! L 6536 
! c 2 bedb a extensions 
! c 2 beda 6 Header 
! c 2 bed9 4 name 
! c 2 bd9e 6 Header 
! c 1 654b 
! c 0 bf16 4 
! c 2 bf1d 9 surfboard 
! c 2 bf1c a defaultExe 
! c 3 bf1f 2 
! c 2 6558 2 e3 
! L 6558 
! c 2 655b 9 surfboard 
! L 655b 
! c 2 bf1e b executables 
! c 3 bf1a 2 
! c 2 6562 5 *.htm 
! L 6562 
! c 2 6565 6 *.html 
! L 6565 
! c 2 bf19 a extensions 
! c 2 bf18 4 Html 
! c 2 bf17 4 name 
! c 2 bd9f 4 Html 
! c 1 657a 
! c 0 bf58 4 
! c 2 bf5f 2 e3 
! c 2 bf5e a defaultExe 
! c 3 bf61 1 
! c 2 6587 2 e3 
! L 6587 
! c 2 bf60 b executables 
! c 3 bf5c 1 
! c 2 658e 6 *.java 
! L 658e 
! c 2 bf5b a extensions 
! c 2 bf5a 4 Java 
! c 2 bf59 4 name 
! c 2 bda0 4 Java 
! c 1 65a3 
! c 0 bf92 4 
! c 2 bf99 2 e3 
! c 2 bf98 a defaultExe 
! c 3 bf9b 1 
! c 2 65b0 2 e3 
! L 65b0 
! c 2 bf9a b executables 
! c 3 bf96 1 
! c 2 65b7 5 *.tex 
! L 65b7 
! c 2 bf95 a extensions 
! c 2 bf94 5 Latex 
! c 2 bf93 4 name 
! c 2 bda1 5 Latex 
! c 1 65cc 
! c 0 bfcc 4 
! c 2 bfd3 2 e3 
! c 2 bfd2 a defaultExe 
! c 3 bfd5 1 
! c 2 65d9 2 e3 
! L 65d9 
! c 2 bfd4 b executables 
! c 3 bfd0 0 
! c 2 bfcf a extensions 
! c 2 bfce 5 Other 
! c 2 bfcd 4 name 
! c 2 bda2 5 Other 
! c 2 bd97 a categories 
! c 0 bda4 1 
! C ProjectDir 4 65f6 
! c 2 65f7 23 netscript2/src/perl/NetScript/Util/ 11 81 
! c 2 65f8 0  0 
! c 2 bda6 23 netscript2/src/perl/NetScript/Util/ 
! c 2 bda3 b directories 
! C DmBag 5 bc21 7 
! c 2 bc57 dc b
! C DmDictionary 0 bc23 3 
! C DmString 1 bc35 36 b
! C DmSet 0 6636 1 
! C DmString 1 6664 5 Other 
! L 6664  
! c 1 bc34 a categories 
! c 1 bc25 13 ConfigFileParser.pm 
! c 1 bc24 4 name 
! C DmInteger 2 bc37 1 
! c 1 bc36 9 substMode  
! c 2 bc8c df b
! C DmDictionary 0 bc58 3 
! C DmString 1 bc6a 36 b
! C DmSet 0 6675 1 
! C DmString 1 66a3 5 Other 
! L 66a3  
! c 1 bc69 a categories 
! c 1 bc5a 16 ConfigurationParser.pm 
! c 1 bc59 4 name 
! C DmInteger 2 bc6c 1 
! c 1 bc6b 9 substMode  
! c 2 bcc1 d9 b
! C DmDictionary 0 bc8d 3 
! C DmString 1 bc9f 36 b
! C DmSet 0 66b4 1 
! C DmString 1 66e2 5 Other 
! L 66e2  
! c 1 bc9e a categories 
! c 1 bc8f 10 FileRetriever.pm 
! c 1 bc8e 4 name 
! C DmInteger 2 bca1 1 
! c 1 bca0 9 substMode  
! c 2 bcf6 dd b
! C DmDictionary 0 bcc2 3 
! C DmString 1 bcd4 36 b
! C DmSet 0 66f3 1 
! C DmString 1 6721 5 Other 
! L 6721  
! c 1 bcd3 a categories 
! c 1 bcc4 14 ObjectParserStyle.pm 
! c 1 bcc3 4 name 
! C DmInteger 2 bcd6 1 
! c 1 bcd5 9 substMode  
! c 2 bd2b de b
! C DmDictionary 0 bcf7 3 
! C DmString 1 bd09 36 b
! C DmSet 0 6732 1 
! C DmString 1 6760 5 Other 
! L 6760  
! c 1 bd08 a categories 
! c 1 bcf9 15 PropertyFileParser.pm 
! c 1 bcf8 4 name 
! C DmInteger 2 bd0b 1 
! c 1 bd0a 9 substMode  
! c 2 bd60 d7 b
! C DmDictionary 0 bd2c 3 
! C DmString 1 bd3e 36 b
! C DmSet 0 ba90 1 
! C DmString 1 bc0a 5 Other 
! L bc0a  
! c 1 bd3d a categories 
! c 1 bd2e f UIDGenerator.pm 
! c 1 bd2d 4 name 
! C DmInteger 2 bd40 1 
! c 1 bd3f 9 substMode  
! c 2 bd95 da b
! C DmDictionary 0 bd61 3 
! C DmString 1 bd73 36 b
! C DmSet 0 6771 1 
! C DmString 1 679f 5 Other 
! L 679f  
! c 1 bd72 a categories 
! c 1 bd63 11 XMLParserRelay.pm 
! c 1 bd62 4 name 
! C DmInteger 2 bd75 1 
! c 1 bd74 9 substMode  
! c 2 bd96 5 files 
! c 2 bc1d 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 bc1c 6 launch 
! c 2 bc19 4 make 
! c 2 bc18 4 make 
! c 2 bc1b 0  
! c 2 bc1a 8 makeFile 
! c 5 bc1e 0 
! c 2 bc20 7 modules 
! c 2 bc17 4 Util 
! c 2 bc16 4 name 
--- 1,281 ----
  b
! C DmDictionary 0 d6a9 8 
! c 0 d8cb 9 
! C Category 1 5e94 
! c 0 d90b 4 
! C DmString 2 d912 2 e3 
! c 2 d911 a defaultExe 
! C DmSet 3 d914 1 
! c 2 5ea3 2 e3 
! L 5ea3 
! c 2 d913 b executables 
! c 3 d90f 3 
! c 2 5eaa 3 *.C 
! L 5eaa 
! c 2 5ead 4 *.cc 
! L 5ead 
! c 2 5eb0 5 *.cpp 
! L 5eb0 
! c 2 d90e a extensions 
! c 2 d90d a CPP_source 
! c 2 d90c 4 name 
! c 2 d8cd a CPP_source 
! c 1 5ec5 
! c 0 d951 4 
! c 2 d958 2 e3 
! c 2 d957 a defaultExe 
! c 3 d95a 1 
! c 2 5ed2 2 e3 
! L 5ed2 
! c 2 d959 b executables 
! c 3 d955 1 
! c 2 5ed9 3 *.c 
! L 5ed9 
! c 2 d954 a extensions 
! c 2 d953 8 C_source 
! c 2 d952 4 name 
! c 2 d8ce 8 C_source 
! c 1 5eee 
! c 0 d98b 4 
! c 2 d992 2 e3 
! c 2 d991 a defaultExe 
! c 3 d994 1 
! c 2 5efb 2 e3 
! L 5efb 
! c 2 d993 b executables 
! c 3 d98f 1 
! c 2 5f02 3 *.e 
! L 5f02 
! c 2 d98e a extensions 
! c 2 d98d 6 Eiffel 
! c 2 d98c 4 name 
! c 2 d8cf 6 Eiffel 
! c 1 5f17 
! c 0 d9c5 4 
! c 2 d9cc 2 e3 
! c 2 d9cb a defaultExe 
! c 3 d9ce 1 
! c 2 5f24 2 e3 
! L 5f24 
! c 2 d9cd b executables 
! c 3 d9c9 4 
! c 2 5f2b 3 *.F 
! L 5f2b 
! c 2 5f2e 3 *.f 
! L 5f2e 
! c 2 5f31 5 *.for 
! L 5f31 
! c 2 5f34 5 *.fpp 
! L 5f34 
! c 2 d9c8 a extensions 
! c 2 d9c7 7 Fortran 
! c 2 d9c6 4 name 
! c 2 d8d0 7 Fortran 
! c 1 5f49 
! c 0 da0b 4 
! c 2 da12 2 e3 
! c 2 da11 a defaultExe 
! c 3 da14 1 
! c 2 5f56 2 e3 
! L 5f56 
! c 2 da13 b executables 
! c 3 da0f 2 
! c 2 5f5d 3 *.H 
! L 5f5d 
! c 2 5f60 3 *.h 
! L 5f60 
! c 2 da0e a extensions 
! c 2 da0d 6 Header 
! c 2 da0c 4 name 
! c 2 d8d1 6 Header 
! c 1 5f75 
! c 0 da49 4 
! c 2 da50 9 surfboard 
! c 2 da4f a defaultExe 
! c 3 da52 2 
! c 2 5f82 2 e3 
! L 5f82 
! c 2 5f85 9 surfboard 
! L 5f85 
! c 2 da51 b executables 
! c 3 da4d 2 
! c 2 5f8c 5 *.htm 
! L 5f8c 
! c 2 5f8f 6 *.html 
! L 5f8f 
! c 2 da4c a extensions 
! c 2 da4b 4 Html 
! c 2 da4a 4 name 
! c 2 d8d2 4 Html 
! c 1 5fa4 
! c 0 da8b 4 
! c 2 da92 2 e3 
! c 2 da91 a defaultExe 
! c 3 da94 1 
! c 2 5fb1 2 e3 
! L 5fb1 
! c 2 da93 b executables 
! c 3 da8f 1 
! c 2 5fb8 6 *.java 
! L 5fb8 
! c 2 da8e a extensions 
! c 2 da8d 4 Java 
! c 2 da8c 4 name 
! c 2 d8d3 4 Java 
! c 1 5fcd 
! c 0 dac5 4 
! c 2 dacc 2 e3 
! c 2 dacb a defaultExe 
! c 3 dace 1 
! c 2 5fda 2 e3 
! L 5fda 
! c 2 dacd b executables 
! c 3 dac9 1 
! c 2 5fe1 5 *.tex 
! L 5fe1 
! c 2 dac8 a extensions 
! c 2 dac7 5 Latex 
! c 2 dac6 4 name 
! c 2 d8d4 5 Latex 
! c 1 5ff6 
! c 0 daff 4 
! c 2 db06 2 e3 
! c 2 db05 a defaultExe 
! c 3 db08 1 
! c 2 6003 2 e3 
! L 6003 
! c 2 db07 b executables 
! c 3 db03 0 
! c 2 db02 a extensions 
! c 2 db01 5 Other 
! c 2 db00 4 name 
! c 2 d8d5 5 Other 
! c 2 d8ca a categories 
! c 0 d8d7 1 
! C ProjectDir 4 6020 
! c 2 6021 23 netscript2/src/perl/NetScript/Util/ 11 81 
! c 2 6022 0  0 
! c 2 d8d9 23 netscript2/src/perl/NetScript/Util/ 
! c 2 d8d6 b directories 
! C DmBag 5 d6b5 a 
! c 2 d6eb d7 b
! C DmDictionary 0 d6b7 3 
! C DmString 1 d6c9 36 b
! C DmSet 0 c13b 1 
! C DmString 1 c2b5 5 Other 
! L c2b5  
! c 1 d6c8 a categories 
! c 1 d6b9 f ClassWrapper.pm 
! c 1 d6b8 4 name 
! C DmInteger 2 d6cb 1 
! c 1 d6ca 9 substMode  
! c 2 d720 dc b
! C DmDictionary 0 d6ec 3 
! C DmString 1 d6fe 36 b
! C DmSet 0 6062 1 
! C DmString 1 6090 5 Other 
! L 6090  
! c 1 d6fd a categories 
! c 1 d6ee 13 ConfigFileParser.pm 
! c 1 d6ed 4 name 
! C DmInteger 2 d700 1 
! c 1 d6ff 9 substMode  
! c 2 d755 df b
! C DmDictionary 0 d721 3 
! C DmString 1 d733 36 b
! C DmSet 0 60a1 1 
! C DmString 1 60cf 5 Other 
! L 60cf  
! c 1 d732 a categories 
! c 1 d723 16 ConfigurationParser.pm 
! c 1 d722 4 name 
! C DmInteger 2 d735 1 
! c 1 d734 9 substMode  
! c 2 d78a d9 b
! C DmDictionary 0 d756 3 
! C DmString 1 d768 36 b
! C DmSet 0 60e0 1 
! C DmString 1 610e 5 Other 
! L 610e  
! c 1 d767 a categories 
! c 1 d758 10 FileRetriever.pm 
! c 1 d757 4 name 
! C DmInteger 2 d76a 1 
! c 1 d769 9 substMode  
! c 2 d7bf db b
! C DmDictionary 0 d78b 3 
! C DmString 1 d79d 36 b
! C DmSet 0 cb13 1 
! C DmString 1 cc8d 5 Other 
! L cc8d  
! c 1 d79c a categories 
! c 1 d78d 12 FunctionWrapper.pm 
! c 1 d78c 4 name 
! C DmInteger 2 d79f 1 
! c 1 d79e 9 substMode  
! c 2 d7f4 d9 b
! C DmDictionary 0 d7c0 3 
! C DmString 1 d7d2 36 b
! C DmSet 0 d524 1 
! C DmString 1 d69e 5 Other 
! L d69e  
! c 1 d7d1 a categories 
! c 1 d7c2 10 MemberWrapper.pm 
! c 1 d7c1 4 name 
! C DmInteger 2 d7d4 1 
! c 1 d7d3 9 substMode  
! c 2 d829 dd b
! C DmDictionary 0 d7f5 3 
! C DmString 1 d807 36 b
! C DmSet 0 611f 1 
! C DmString 1 614d 5 Other 
! L 614d  
! c 1 d806 a categories 
! c 1 d7f7 14 ObjectParserStyle.pm 
! c 1 d7f6 4 name 
! C DmInteger 2 d809 1 
! c 1 d808 9 substMode  
! c 2 d85e de b
! C DmDictionary 0 d82a 3 
! C DmString 1 d83c 36 b
! C DmSet 0 615e 1 
! C DmString 1 618c 5 Other 
! L 618c  
! c 1 d83b a categories 
! c 1 d82c 15 PropertyFileParser.pm 
! c 1 d82b 4 name 
! C DmInteger 2 d83e 1 
! c 1 d83d 9 substMode  
! c 2 d893 d7 b
! C DmDictionary 0 d85f 3 
! C DmString 1 d871 36 b
! C DmSet 0 619d 1 
! C DmString 1 61cb 5 Other 
! L 61cb  
! c 1 d870 a categories 
! c 1 d861 f UIDGenerator.pm 
! c 1 d860 4 name 
! C DmInteger 2 d873 1 
! c 1 d872 9 substMode  
! c 2 d8c8 da b
! C DmDictionary 0 d894 3 
! C DmString 1 d8a6 36 b
! C DmSet 0 61dc 1 
! C DmString 1 620a 5 Other 
! L 620a  
! c 1 d8a5 a categories 
! c 1 d896 11 XMLParserRelay.pm 
! c 1 d895 4 name 
! C DmInteger 2 d8a8 1 
! c 1 d8a7 9 substMode  
! c 2 d8c9 5 files 
! c 2 d6b1 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 d6b0 6 launch 
! c 2 d6ad 4 make 
! c 2 d6ac 4 make 
! c 2 d6af 0  
! c 2 d6ae 8 makeFile 
! c 5 d6b2 0 
! c 2 d6b4 7 modules 
! c 2 d6ab 4 Util 
! c 2 d6aa 4 name 

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries FormsLibrary.pm,NONE,1.1 VariablesLibrary.pm,NONE,1.1 ControlStructuresLibrary.pm,1.1,1.2

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

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

Modified Files:
	ControlStructuresLibrary.pm 
Added Files:
	FormsLibrary.pm VariablesLibrary.pm 
Log Message:
* added library for parameter and cookie retrieval

--- NEW FILE: FormsLibrary.pm ---
#--------------------------------------------------------
# $Id: FormsLibrary.pm,v 1.1 2002/05/29 20:27:39 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This library adds support for form parameter evaluation
# and cookies. Two objects named P and C are added to the global
# state. These objects have members with the same name as 
# all available cookies and form parameters. Use them as any other
# object member. 
# <pre>
#       The form parameter NAME is $(P.NAME).
#       The cookie UID has the value $(C.UID).
# </pre>
# It is possible but not recommended to create own objects named
# P and C, however this will overwrite the ones created by this
# library (and you will stand there without any parameters and cookies
# so this is definitely NOT recommended).
# <p>
# Also this library provides a function for setting a cookie.
# Use it like this:
# <pre>
#   &lt;ns:invoke var="C" func="setCookie" prm1="&lt;cookie name&gt;" 
#        prm2="&lt;cookie value&gt;" prm3="&lt;expires&gt;"/&gt;
# </pre> 
#*/
package NetScript::Libraries::FormsLibrary;
use base qw(NetScript::Libraries::Library);



use NetScript::Libraries::DebugLibrary;
use NetScript::Engine::EventListener;
use NetScript::Engine::EventRelay;
use NetScript::Interpreter;
use NetScript::Engine::DOMWalker;
use NetScript::Util::ClassWrapper;

#/**
# Ctor. 
# @public
#*/
sub new {
    my $proto = shift;                  # get Prototype
    my $class = ref($proto) || $proto;
    my $this = $class -> SUPER::new();
    $this;
    }


sub init {
    my ($this, $interpreter) = @_;
    $this -> SUPER::init( $interpreter );
    my $paramWrapper = NetScript::Util::ClassWrapper -> new( $this );
    $paramWrapper -> setMember( ".*", undef, "getParameter" );

    my $cookieWrapper = NetScript::Util::ClassWrapper -> new( $this );
    $cookieWrapper -> setMember( ".*", undef, "getCookie" );

    # register the P-object
    $this -> interpreter() -> getState() -> setObjectValue( "P", $paramWrapper );
    # register the C-object
    $this -> interpreter() -> getState() -> setObjectValue( "C", $cookieWrapper );
    }


#/**
# Returns the parameter with the given name.
# @param the name of the parameter to retrieve
# @return the value of the parameter.
# @callback
#*/
sub getParameter {
    my ( $this, $name ) = @_;
    my $cgi = $this -> interpreter() -> getCGI();
    $this -> debug( "Getting parameter: $name ... " );
    my $pName = $name;
    my $pIndex = 0;
    if ( $name =~ /(^.*):(.*)$/ ) {
        $pName = $1;
        $pIndex = $2;
        }
    my @values = $cgi -> param( $pName );
    $values[$pIndex];
    }

#/**
# Returns the value of a cookie with the given name
# @param the name of the cookie
# @return the value of the cookie
# @callback
#*/
sub getCookie {
    my ( $this, $name ) = @_;
    my $cgi = $this -> interpreter() -> getCGI();
    $cgi -> cookie( $name );
    }




sub shutdown {
    my ($this) = @_;
    $this -> SUPER::shutdown();
    }


#/**
# Sends a debug event.
# @param the debug message
# @private
#*/
sub debug {
    my ($this, $message) = @_;
    $this -> interpreter() -> getEventRelay() ->
            createAndRaiseEvent( 
            $NetScript::Libraries::DebugLibrary::DEBUG_EVENT,
            $message,
            "[Forms]" 
            );
    }
1; #make require happy


--- NEW FILE: VariablesLibrary.pm ---
#--------------------------------------------------------
# $Id: VariablesLibrary.pm,v 1.1 2002/05/29 20:27:39 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This library adds support for variable creation.
# Usage in your NetScripts is as follows.
# <pre>
# 
#   &lt;ns:var var="[variable name]" value="[value]"/&gt;
# </pre>
#*/
package NetScript::Libraries::VariablesLibrary;
use base qw(NetScript::Libraries::Library);



use NetScript::Libraries::DebugLibrary;
use NetScript::Engine::EventListener;
use NetScript::Engine::EventRelay;
use NetScript::Interpreter;
use NetScript::Engine::DOMWalker;

#/**
# Ctor. 
# @public
#*/
sub new {
    my $proto = shift;                  # get Prototype
    my $class = ref($proto) || $proto;
    my $this = $class -> SUPER::new();
    $this;
    }


sub init {
    my ($this, $interpreter) = @_;
    $this -> SUPER::init( $interpreter );
    # create event listeners for all events

    my $eventListener1 = NetScript::Engine::EventListener -> new();
    $eventListener1 -> init( 
            $NetScript::Engine::DOMWalker::ELEMENT_START_EVENT,
            "elementStarted", $this );

    my $eventListener2 = NetScript::Engine::EventListener -> new();
    $eventListener2 -> init( 
            $NetScript::Engine::DOMWalker::ELEMENT_END_EVENT,
            "elementFinished", $this );

    my $eventRelay = $this -> interpreter() -> getEventRelay();
    $eventRelay -> addEventListener( $eventListener1 );
    $eventRelay -> addEventListener( $eventListener2 );
    }

#/**
# Called upon element start
# @callback
#*/
sub elementStarted {
    my ( $this, $event ) = @_;
    my $domWalker = $event -> eventUnknown();
    my $node = $domWalker -> currentSource();
    if ( $node -> namespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
        if ($node -> localName() eq "var") {
            $this -> varStart( $domWalker, $node );
            0; # consume event
            }
        else {
            1; # do not consume event
            }
        }
    else {
        1; # do not consume event
        }
    }

#/**
# Called upon element finish.
# @callback
#*/
sub elementFinished {
    my ( $this, $event ) = @_;
    my $domWalker = $event -> eventUnknown();
    my $node = $domWalker -> currentSource();
    if ( $node -> namespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
        if ($node -> localName() eq "var") {
            0; # consume event 
            }
        else {
            1; # do not consume
            }
        }
    else {
        1; # do not consume event
        }
    }


#/**
# Called, when a variable starts.
# @callback
# @param an instance of <code>NetScript::Engine::DOMWalker</code>
# @param an instance of <code>XML::DOM2::Element</code>
#*/
sub varStart {
    my ( $this, $domWalker, $node ) = @_;
    my $name = $node -> getAttribute( {
        name => "var"
        });
    # replace variables
    my $se = $this -> interpreter() -> getStatementEvaluator();
    $name = $se -> evaluateStatement( $name );
    my $value = $node -> getAttribute( {
        name => "val"
        });
    $value = $se -> evaluateStatement( $value );
    $this -> interpreter() -> getStatementEvaluator() ->
        createVariable( $name, $value );
    $domWalker -> stepSourceIn();
    }


sub shutdown {
    my ($this) = @_;
    $this -> SUPER::shutdown();
    }


#/**
# Sends a debug event.
# @param the debug message
# @private
#*/
sub debug {
    my ($this, $message) = @_;
    $this -> interpreter() -> getEventRelay() ->
            createAndRaiseEvent( 
            $NetScript::Libraries::DebugLibrary::DEBUG_EVENT,
            $message,
            "[Variables]" 
            );
    }
1; #make require happy


Index: ControlStructuresLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/ControlStructuresLibrary.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ControlStructuresLibrary.pm	15 May 2002 18:22:18 -0000	1.1
--- ControlStructuresLibrary.pm	29 May 2002 20:27:39 -0000	1.2
***************
*** 141,148 ****
--- 141,151 ----
      unless ( $this -> checkNodeTest( $node ) ) {
          # test did not succeed, so we jump to the next sibling if any        
+         # dummy state, will be killed in the next step
+         $this -> interpreter() -> newState(); 
          $domWalker -> stepSourceNext();
          }
      else {
          # condition is true, proceed as usual
+         $this -> interpreter() -> newState();
          $domWalker -> stepSourceIn();
          }
***************
*** 174,180 ****
--- 177,186 ----
              # test did not succeed, so we proceed with the else case
              $domWalker -> stepSourceIn();
+             $this -> interpreter() -> newState();
              }
          else {
              # condition is true, proceed as usual
+             # dummy state, will be killed in the next step
+             $this -> interpreter() -> newState(); 
              $domWalker -> stepSourceNext();
              }
***************
*** 203,206 ****
--- 209,213 ----
          # condition is true, proceed as usual
          $domWalker -> stepSourceIn();
+         $this -> interpreter() -> newState();
          }
      }
***************
*** 214,217 ****
--- 221,225 ----
  sub whileEnd {
      my ( $this, $domWalker, $node ) = @_;
+     $this -> interpreter() -> dropState();
      if ( $this -> checkNodeTest( $node ) ) {
          $domWalker -> sourceAgain();        
***************
*** 296,300 ****
      my $value = $this -> interpreter() -> getState() ->
          getVariableValue( $var );
!         
      $this -> interpreter() -> dropState();
      if ( ( $from <= $to &&  $value <= $to ) ||
--- 304,308 ----
      my $value = $this -> interpreter() -> getState() ->
          getVariableValue( $var );
! 
      $this -> interpreter() -> dropState();
      if ( ( $from <= $to &&  $value <= $to ) ||
***************
*** 311,314 ****
--- 319,323 ----
  #/**
  # Called upon element finish.
+ # @callback
  #*/
  sub elementFinished {
***************
*** 318,326 ****
      if ( $node -> namespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
          if ($node -> localName() eq "if") {
!             # nothing to do, but event MUST be consumed
              0; # consume event 
              }
          elsif ($node -> localName() eq "else") {
!             # nothing to do, but event MUST be consumed
              0; # consume event 
              }
--- 327,337 ----
      if ( $node -> namespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
          if ($node -> localName() eq "if") {
!             # kill state
!             $this -> interpreter() -> dropState();
              0; # consume event 
              }
          elsif ($node -> localName() eq "else") {
!             # kill state
!             $this -> interpreter() -> dropState();
              0; # consume event 
              }

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries wipeout.project,1.4,1.5

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

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

Modified Files:
	wipeout.project 
Log Message:
* added library for parameter and cookie retrieval

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/wipeout.project,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** wipeout.project	15 May 2002 18:22:09 -0000	1.4
--- wipeout.project	29 May 2002 20:27:17 -0000	1.5
***************
*** 1,215 ****
  b
! C DmDictionary 0 518f3 8 
! c 0 519d7 9 
! C Category 1 7b90 
! c 0 51a17 4 
! C DmString 2 51a1e 2 e3 
! c 2 51a1d a defaultExe 
! C DmSet 3 51a20 1 
! c 2 7b9f 2 e3 
! L 7b9f 
! c 2 51a1f b executables 
! c 3 51a1b 3 
! c 2 7ba6 3 *.C 
! L 7ba6 
! c 2 7ba9 4 *.cc 
! L 7ba9 
! c 2 7bac 5 *.cpp 
! L 7bac 
! c 2 51a1a a extensions 
! c 2 51a19 a CPP_source 
! c 2 51a18 4 name 
! c 2 519d9 a CPP_source 
! c 1 7bc1 
! c 0 51a5d 4 
! c 2 51a64 2 e3 
! c 2 51a63 a defaultExe 
! c 3 51a66 1 
! c 2 7bce 2 e3 
! L 7bce 
! c 2 51a65 b executables 
! c 3 51a61 1 
! c 2 7bd5 3 *.c 
! L 7bd5 
! c 2 51a60 a extensions 
! c 2 51a5f 8 C_source 
! c 2 51a5e 4 name 
! c 2 519da 8 C_source 
! c 1 7bea 
! c 0 51a97 4 
! c 2 51a9e 2 e3 
! c 2 51a9d a defaultExe 
! c 3 51aa0 1 
! c 2 7bf7 2 e3 
! L 7bf7 
! c 2 51a9f b executables 
! c 3 51a9b 1 
! c 2 7bfe 3 *.e 
! L 7bfe 
! c 2 51a9a a extensions 
! c 2 51a99 6 Eiffel 
! c 2 51a98 4 name 
! c 2 519db 6 Eiffel 
! c 1 7c13 
! c 0 51ad1 4 
! c 2 51ad8 2 e3 
! c 2 51ad7 a defaultExe 
! c 3 51ada 1 
! c 2 7c20 2 e3 
! L 7c20 
! c 2 51ad9 b executables 
! c 3 51ad5 4 
! c 2 7c27 3 *.F 
! L 7c27 
! c 2 7c2a 3 *.f 
! L 7c2a 
! c 2 7c2d 5 *.for 
! L 7c2d 
! c 2 7c30 5 *.fpp 
! L 7c30 
! c 2 51ad4 a extensions 
! c 2 51ad3 7 Fortran 
! c 2 51ad2 4 name 
! c 2 519dc 7 Fortran 
! c 1 7c45 
! c 0 51b17 4 
! c 2 51b1e 2 e3 
! c 2 51b1d a defaultExe 
! c 3 51b20 1 
! c 2 7c52 2 e3 
! L 7c52 
! c 2 51b1f b executables 
! c 3 51b1b 2 
! c 2 7c59 3 *.H 
! L 7c59 
! c 2 7c5c 3 *.h 
! L 7c5c 
! c 2 51b1a a extensions 
! c 2 51b19 6 Header 
! c 2 51b18 4 name 
! c 2 519dd 6 Header 
! c 1 7c71 
! c 0 51b55 4 
! c 2 51b5c 9 surfboard 
! c 2 51b5b a defaultExe 
! c 3 51b5e 2 
! c 2 7c7e 2 e3 
! L 7c7e 
! c 2 7c81 9 surfboard 
! L 7c81 
! c 2 51b5d b executables 
! c 3 51b59 2 
! c 2 7c88 5 *.htm 
! L 7c88 
! c 2 7c8b 6 *.html 
! L 7c8b 
! c 2 51b58 a extensions 
! c 2 51b57 4 Html 
! c 2 51b56 4 name 
! c 2 519de 4 Html 
! c 1 7ca0 
! c 0 51b97 4 
! c 2 51b9e 2 e3 
! c 2 51b9d a defaultExe 
! c 3 51ba0 1 
! c 2 7cad 2 e3 
! L 7cad 
! c 2 51b9f b executables 
! c 3 51b9b 1 
! c 2 7cb4 6 *.java 
! L 7cb4 
! c 2 51b9a a extensions 
! c 2 51b99 4 Java 
! c 2 51b98 4 name 
! c 2 519df 4 Java 
! c 1 7cc9 
! c 0 51bd1 4 
! c 2 51bd8 2 e3 
! c 2 51bd7 a defaultExe 
! c 3 51bda 1 
! c 2 7cd6 2 e3 
! L 7cd6 
! c 2 51bd9 b executables 
! c 3 51bd5 1 
! c 2 7cdd 5 *.tex 
! L 7cdd 
! c 2 51bd4 a extensions 
! c 2 51bd3 5 Latex 
! c 2 51bd2 4 name 
! c 2 519e0 5 Latex 
! c 1 7cf2 
! c 0 51c0b 4 
! c 2 51c12 2 e3 
! c 2 51c11 a defaultExe 
! c 3 51c14 1 
! c 2 7cff 2 e3 
! L 7cff 
! c 2 51c13 b executables 
! c 3 51c0f 0 
! c 2 51c0e a extensions 
! c 2 51c0d 5 Other 
! c 2 51c0c 4 name 
! c 2 519e1 5 Other 
! c 2 519d6 a categories 
! c 0 519e3 1 
! C ProjectDir 4 7d1c 
! c 2 7d1d 28 netscript2/src/perl/NetScript/Libraries/ 11 81 
! c 2 7d1e 0  0 
! c 2 519e5 28 netscript2/src/perl/NetScript/Libraries/ 
! c 2 519e2 b directories 
! C DmBag 5 518ff 4 
! c 2 51935 ee b
! C DmDictionary 0 51901 3 
! C DmString 1 51913 39 b
! C DmSet 0 5176e 1 
! C DmString 1 518e8 5 Other 
! L 518e8  
! c 1 51912 a categories 
! c 1 51903 1b ControlStructuresLibrary.pm 
! c 1 51902 4 name 
! C DmInteger 2 51915 1 
! c 1 51914 9 substMode  
! c 2 5196a de b
! C DmDictionary 0 51936 3 
! C DmString 1 51948 36 b
! C DmSet 0 7d56 1 
! C DmString 1 7d84 5 Other 
! L 7d84  
! c 1 51947 a categories 
! c 1 51938 f DebugLibrary.pm 
! c 1 51937 4 name 
! C DmInteger 2 5194a 1 
! c 1 51949 9 substMode  
! c 2 5199f e1 b
! C DmDictionary 0 5196b 3 
! C DmString 1 5197d 36 b
! C DmSet 0 7d95 1 
! C DmString 1 7dc3 5 Other 
! L 7dc3  
! c 1 5197c a categories 
! c 1 5196d 11 DefaultLibrary.pm 
! c 1 5196c 4 name 
! C DmInteger 2 5197f 1 
! c 1 5197e 9 substMode  
! c 2 519d4 d9 b
! C DmDictionary 0 519a0 3 
! C DmString 1 519b2 36 b
! C DmSet 0 7dd4 1 
! C DmString 1 7e02 5 Other 
! L 7e02  
! c 1 519b1 a categories 
! c 1 519a2 a Library.pm 
! c 1 519a1 4 name 
! C DmInteger 2 519b4 1 
! c 1 519b3 9 substMode  
! c 2 519d5 5 files 
! c 2 518fb 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 518fa 6 launch 
! c 2 518f7 4 make 
! c 2 518f6 4 make 
! c 2 518f9 0  
! c 2 518f8 8 makeFile 
! c 5 518fc 0 
! c 2 518fe 7 modules 
! c 2 518f5 9 Libraries 
! c 2 518f4 4 name 
--- 1,237 ----
  b
! C DmDictionary 0 10cf8 8 
! c 0 10e46 9 
! C Category 1 5426 
! c 0 10e86 4 
! C DmString 2 10e8d 2 e3 
! c 2 10e8c a defaultExe 
! C DmSet 3 10e8f 1 
! c 2 5435 2 e3 
! L 5435 
! c 2 10e8e b executables 
! c 3 10e8a 3 
! c 2 543c 3 *.C 
! L 543c 
! c 2 543f 4 *.cc 
! L 543f 
! c 2 5442 5 *.cpp 
! L 5442 
! c 2 10e89 a extensions 
! c 2 10e88 a CPP_source 
! c 2 10e87 4 name 
! c 2 10e48 a CPP_source 
! c 1 5457 
! c 0 10ecc 4 
! c 2 10ed3 2 e3 
! c 2 10ed2 a defaultExe 
! c 3 10ed5 1 
! c 2 5464 2 e3 
! L 5464 
! c 2 10ed4 b executables 
! c 3 10ed0 1 
! c 2 546b 3 *.c 
! L 546b 
! c 2 10ecf a extensions 
! c 2 10ece 8 C_source 
! c 2 10ecd 4 name 
! c 2 10e49 8 C_source 
! c 1 5480 
! c 0 10f06 4 
! c 2 10f0d 2 e3 
! c 2 10f0c a defaultExe 
! c 3 10f0f 1 
! c 2 548d 2 e3 
! L 548d 
! c 2 10f0e b executables 
! c 3 10f0a 1 
! c 2 5494 3 *.e 
! L 5494 
! c 2 10f09 a extensions 
! c 2 10f08 6 Eiffel 
! c 2 10f07 4 name 
! c 2 10e4a 6 Eiffel 
! c 1 54a9 
! c 0 10f40 4 
! c 2 10f47 2 e3 
! c 2 10f46 a defaultExe 
! c 3 10f49 1 
! c 2 54b6 2 e3 
! L 54b6 
! c 2 10f48 b executables 
! c 3 10f44 4 
! c 2 54bd 3 *.F 
! L 54bd 
! c 2 54c0 3 *.f 
! L 54c0 
! c 2 54c3 5 *.for 
! L 54c3 
! c 2 54c6 5 *.fpp 
! L 54c6 
! c 2 10f43 a extensions 
! c 2 10f42 7 Fortran 
! c 2 10f41 4 name 
! c 2 10e4b 7 Fortran 
! c 1 54db 
! c 0 10f86 4 
! c 2 10f8d 2 e3 
! c 2 10f8c a defaultExe 
! c 3 10f8f 1 
! c 2 54e8 2 e3 
! L 54e8 
! c 2 10f8e b executables 
! c 3 10f8a 2 
! c 2 54ef 3 *.H 
! L 54ef 
! c 2 54f2 3 *.h 
! L 54f2 
! c 2 10f89 a extensions 
! c 2 10f88 6 Header 
! c 2 10f87 4 name 
! c 2 10e4c 6 Header 
! c 1 5507 
! c 0 10fc4 4 
! c 2 10fcb 9 surfboard 
! c 2 10fca a defaultExe 
! c 3 10fcd 2 
! c 2 5514 2 e3 
! L 5514 
! c 2 5517 9 surfboard 
! L 5517 
! c 2 10fcc b executables 
! c 3 10fc8 2 
! c 2 551e 5 *.htm 
! L 551e 
! c 2 5521 6 *.html 
! L 5521 
! c 2 10fc7 a extensions 
! c 2 10fc6 4 Html 
! c 2 10fc5 4 name 
! c 2 10e4d 4 Html 
! c 1 5536 
! c 0 11006 4 
! c 2 1100d 2 e3 
! c 2 1100c a defaultExe 
! c 3 1100f 1 
! c 2 5543 2 e3 
! L 5543 
! c 2 1100e b executables 
! c 3 1100a 1 
! c 2 554a 6 *.java 
! L 554a 
! c 2 11009 a extensions 
! c 2 11008 4 Java 
! c 2 11007 4 name 
! c 2 10e4e 4 Java 
! c 1 555f 
! c 0 11040 4 
! c 2 11047 2 e3 
! c 2 11046 a defaultExe 
! c 3 11049 1 
! c 2 556c 2 e3 
! L 556c 
! c 2 11048 b executables 
! c 3 11044 1 
! c 2 5573 5 *.tex 
! L 5573 
! c 2 11043 a extensions 
! c 2 11042 5 Latex 
! c 2 11041 4 name 
! c 2 10e4f 5 Latex 
! c 1 5588 
! c 0 1107a 4 
! c 2 11081 2 e3 
! c 2 11080 a defaultExe 
! c 3 11083 1 
! c 2 5595 2 e3 
! L 5595 
! c 2 11082 b executables 
! c 3 1107e 0 
! c 2 1107d a extensions 
! c 2 1107c 5 Other 
! c 2 1107b 4 name 
! c 2 10e50 5 Other 
! c 2 10e45 a categories 
! c 0 10e52 1 
! C ProjectDir 4 55b2 
! c 2 55b3 28 netscript2/src/perl/NetScript/Libraries/ 11 81 
! c 2 55b4 0  0 
! c 2 10e54 28 netscript2/src/perl/NetScript/Libraries/ 
! c 2 10e51 b directories 
! C DmBag 5 10d04 6 
! c 2 10d3a eb b
! C DmDictionary 0 10d06 3 
! C DmString 1 10d18 36 b
! C DmSet 0 55f0 1 
! C DmString 1 561e 5 Other 
! L 561e  
! c 1 10d17 a categories 
! c 1 10d08 1b ControlStructuresLibrary.pm 
! c 1 10d07 4 name 
! C DmInteger 2 10d1a 1 
! c 1 10d19 9 substMode  
! c 2 10d6f de b
! C DmDictionary 0 10d3b 3 
! C DmString 1 10d4d 36 b
! C DmSet 0 562f 1 
! C DmString 1 565d 5 Other 
! L 565d  
! c 1 10d4c a categories 
! c 1 10d3d f DebugLibrary.pm 
! c 1 10d3c 4 name 
! C DmInteger 2 10d4f 1 
! c 1 10d4e 9 substMode  
! c 2 10da4 e1 b
! C DmDictionary 0 10d70 3 
! C DmString 1 10d82 36 b
! C DmSet 0 566e 1 
! C DmString 1 569c 5 Other 
! L 569c  
! c 1 10d81 a categories 
! c 1 10d72 11 DefaultLibrary.pm 
! c 1 10d71 4 name 
! C DmInteger 2 10d84 1 
! c 1 10d83 9 substMode  
! c 2 10dd9 e1 b
! C DmDictionary 0 10da5 3 
! C DmString 1 10db7 39 b
! C DmSet 0 10b73 1 
! C DmString 1 10ced 5 Other 
! L 10ced  
! c 1 10db6 a categories 
! c 1 10da7 f FormsLibrary.pm 
! c 1 10da6 4 name 
! C DmInteger 2 10db9 1 
! c 1 10db8 9 substMode  
! c 2 10e0e d9 b
! C DmDictionary 0 10dda 3 
! C DmString 1 10dec 36 b
! C DmSet 0 56ad 1 
! C DmString 1 56db 5 Other 
! L 56db  
! c 1 10deb a categories 
! c 1 10ddc a Library.pm 
! c 1 10ddb 4 name 
! C DmInteger 2 10dee 1 
! c 1 10ded 9 substMode  
! c 2 10e43 e3 b
! C DmDictionary 0 10e0f 3 
! C DmString 1 10e21 36 b
! C DmSet 0 56ec 1 
! C DmString 1 571a 5 Other 
! L 571a  
! c 1 10e20 a categories 
! c 1 10e11 13 VariablesLibrary.pm 
! c 1 10e10 4 name 
! C DmInteger 2 10e23 1 
! c 1 10e22 9 substMode  
! c 2 10e44 5 files 
! c 2 10d00 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 10cff 6 launch 
! c 2 10cfc 4 make 
! c 2 10cfb 4 make 
! c 2 10cfe 0  
! c 2 10cfd 8 makeFile 
! c 5 10d01 0 
! c 2 10d03 7 modules 
! c 2 10cfa 9 Libraries 
! c 2 10cf9 4 name 

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Engine Function.pm,NONE,1.1 Member.pm,NONE,1.1 Class.pm,1.4,1.5 State.pm,1.4,1.5 StatementEvaluator.pm,1.5,1.6

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Engine
In directory usw-pr-cvs1:/tmp/cvs-serv7957

Modified Files:
	Class.pm State.pm StatementEvaluator.pm 
Added Files:
	Function.pm Member.pm 
Log Message:
* added Member, Function and Class - classes
* added support for member-variables

--- NEW FILE: Function.pm ---
#--------------------------------------------------------
# $Id: Function.pm,v 1.1 2002/05/29 20:26:17 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This class represents a Function.
# @abstract
#*/
package NetScript::Engine::Function;


#--------------------------------------------------------
# Globals
#--------------------------------------------------------


#/**
# Ctor.
# @param the parent class object
#*/
sub new {
    my ($proto, $parent) = @_;
    my $proto = shift;                  # get Prototype
    my $class = ref( $proto ) || $proto;# get the Classname

    my $this = {};
    bless( $this, $class );             # create Object
    $this -> { m_Parent } = $parent;      # parent class
    return $this;                       # return Object
    }


#/**
# Returns the parent class of this sub.
# @return an instance of <code>NetScript::Engine::Class</code>
#*/
sub parent {
    my ( $this )  = @_;
    $this -> { m_Parent };
    }

#/**
# Sets the parent class of this sub.
# @param an instance of <code>NetScript::Engine::Class</code>
#*/
sub setParent {
    my ( $this, $parent ) = @_;
    $this -> { m_Parent } = $parent;
    }

#/**
# Invokes this sub. A list of parameters is given as argument
# @optional one or more parameters 
# @not-implemented
#*/
sub invoke {
    
    }

1; # make "require" happy    

--- NEW FILE: Member.pm ---
#--------------------------------------------------------
# $Id: Member.pm,v 1.1 2002/05/29 20:26:17 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# This class represents a Member.
#*/
package NetScript::Engine::Member;


#--------------------------------------------------------
# Globals
#--------------------------------------------------------


#/**
# Ctor.
# @param the parent class object of this class
#*/
sub new {
    my ($proto, $parent) = @_;
    my $proto = shift;                  # get Prototype
    my $class = ref( $proto ) || $proto;# get the Classname

    my $this = {};
    bless( $this, $class );             # create Object
    $this -> { m_Parent } = $parent;      # parent class
    $this -> { m_Value } = "";
    return $this;                       # return Object
    }


#/**
# Returns the parent class of this sub.
# @return an instance of <code>NetScript::Engine::Class</code>
#*/
sub parent {
    my ( $this )  = @_;
    $this -> { m_Parent };
    }

#/**
# Sets the parent class of this sub.
# @param an instance of <code>NetScript::Engine::Class</code>
#*/
sub setParent {
    my ( $this, $parent ) = @_;
    $this -> { m_Parent } = $parent;
    }

#/**
# Returns the value of this member
#*/
sub value {
    my ( $this ) = @_;
    $this -> { m_Value };
    }

#/**
# Sets the value of this member.
# @param a scalar holding the value of this member.
#*/
sub setValue {
    my ( $this, $value ) = @_;
    $this -> { m_Value } = $value;
    }

1; # make "require" happy    

Index: Class.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/Class.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Class.pm	15 May 2002 18:21:37 -0000	1.4
--- Class.pm	29 May 2002 20:26:17 -0000	1.5
***************
*** 11,14 ****
--- 11,15 ----
  #/**
  # This class represents a Class.
+ # @abstract
  #*/
  package NetScript::Engine::Class;
***************
*** 41,69 ****
  
  #/**
! # Returns the given function, or sets it.
  # @param function name
- # @optional an instance of Netscript::Engine::Function
  # @return an instance of NetScript::Engine::Function
  #*/
  sub function {
!     my ($this, $name, $function ) = @_;
!     if ( defined( $function ) ) {
!         $this -> { m_Functions } -> { $name } = $function;
!         }
      $this -> { m_Functions } -> { $name };
      }
  
  #/**
! # Returns the given member or sets it.
  # @param member name
! # @optional an instance if Netscript::Engine::Variable
! # @return an instance of Netscript::Engine::Variable
  #*/
  sub member {
!     my ($this, $name, $member) = @_;
!     if ( defined( $member ) ) {
!         $this -> { m_Members } -> { $name } = $member;
!         }
      $this -> { m_Functions } -> { $name };
      }
  
--- 42,104 ----
  
  #/**
! # Returns the given function.
  # @param function name
  # @return an instance of NetScript::Engine::Function
  #*/
  sub function {
!     my ($this, $name ) = @_;
      $this -> { m_Functions } -> { $name };
      }
  
  #/**
! # Sets the given function.
! # @param an instance of Netscript::Engine::Function
! #*/
! sub setFunction {
!     my ($this, $function ) = @_;
!     $this -> { m_Functions } -> { $function -> name() } = $function;
!     $function -> setParent( $this );
!     }
! 
! 
! #/**
! # Returns the given member.
  # @param member name
! # @return an instance NetScript::Engine::Member
  #*/
  sub member {
!     my ($this, $name) = @_;
      $this -> { m_Functions } -> { $name };
+     }
+ 
+ #/**
+ # Sets the given member.
+ # @param an instance of NetScript::Engine::Member
+ #*/
+ sub setMember {
+     my ($this, $member) = @_;
+     $this -> { m_Members } -> { $member -> name() } = $member;
+     $member -> setParent( $this );
+     }
+ 
+ 
+ #/**
+ # Returns a reference to an array holding all functions
+ # defined in this class.
+ # @public
+ #*/
+ sub functions {
+     my ( $this ) = @_;
+     $this -> { m_Functions };
+     }
+ 
+ #/**
+ # Returns a reference to an array holding all members 
+ # defined in this class
+ # @public
+ #*/
+ sub members {
+     my ( $this ) = @_;
+     $this -> { m_Members };
      }
  

Index: State.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/State.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** State.pm	15 May 2002 18:21:37 -0000	1.4
--- State.pm	29 May 2002 20:26:17 -0000	1.5
***************
*** 39,49 ****
      my %variables = ();
      my %arrays = ();
      $this -> { m_Variables } = \%variables;
      $this -> { m_Arrays } = \%arrays;
      # Set parent if parent is defined.
      if (defined( $parent ) ) {
          $this -> setParent( $parent );
          }   
!         
      return $this;                       # return Object
      }
--- 39,52 ----
      my %variables = ();
      my %arrays = ();
+     my %objects = ();
      $this -> { m_Variables } = \%variables;
      $this -> { m_Arrays } = \%arrays;
+     $this -> { m_Objects } = \%objects;
+ 
      # Set parent if parent is defined.
      if (defined( $parent ) ) {
          $this -> setParent( $parent );
          }   
! 
      return $this;                       # return Object
      }
***************
*** 64,68 ****
  sub getParent {
      my ($this) = @_;
-     
      return $this -> { m_ParentState };
      }
--- 67,70 ----
***************
*** 114,121 ****
              return $parent -> arrayExists( $array );
              }
!         else {
!             # no more parent state, so the array does not exist.
!             return undef;
!             }
          }
      # array exists in this state so return yourself.
--- 116,121 ----
              return $parent -> arrayExists( $array );
              }
!         # no more parent state, so the array does not exist.
!         return undef;
          }
      # array exists in this state so return yourself.
***************
*** 124,127 ****
--- 124,152 ----
  
  #/**
+ # Checks if the object exists in current state. If not
+ # the check will be performed on the parent state. 
+ # @param a string containing the object name
+ # @return a reference to the State which holds the object
+ #   or undef, if the object is currently not known.
+ #*/
+ sub objectExists {
+     my ($this, $object) = @_;
+     my $parent = $this -> { m_ParentState };
+     my $result = $this -> { m_Objects } -> {$object};
+     
+     # check if object exists in this state
+     if ( !defined( $result ) ) {    # no it doesn't
+         if ( defined( $parent ) ) { # check for parent state
+             # try to get it from there
+             return $parent -> objectExists( $object );
+             }
+         # no more parent state, so the object does not exist.
+         return undef;
+         }
+     # object exists in this state so return yourself.
+     return $this;       
+     }
+ 
+ #/**
  # Sets the value of the given variable. Variable is 
  # first looked up in parent state, if it does exist there
***************
*** 132,136 ****
  sub setVariableValue {
      my ($this, $variable, $value) = @_;
-     
      # check if a parent state already knows this 
      # variable.
--- 157,160 ----
***************
*** 161,167 ****
          return $variableHolder -> { m_Variables } -> { $variable };
          }
!     else {
!         return undef;
!         }
      } 
          
--- 185,190 ----
          return $variableHolder -> { m_Variables } -> { $variable };
          }
!   
!     return undef;
      } 
          
***************
*** 212,219 ****
          return $variableHolder -> { m_Arrays } -> { $array } -> [$index];
          }
!     else {
!         return undef;
          }
      } 
  
  1; # make "require" happy    
--- 235,299 ----
          return $variableHolder -> { m_Arrays } -> { $array } -> [$index];
          }
!     return undef;
!     } 
! 
! #/**
! # Returns the largest index of the given array or undef, if no such
! # array exists.
! # @param the name of the array.
! # @return the largest valid index within the array.
! #*/
! sub getLargestArrayIndex {
!     my ( $this, $array ) = @_;
!     my $variableHolder = $this -> arrayExists( $array );
!     if ( defined( $variableHolder ) ) {
!         return scalar( @{$variableHolder -> { m_Arrays } -> { $array }} )-1;
!         }
!     undef;
!     } 
!     
! #/**
! # Sets an object for the given name.The name
! # first looked up in parent state, if it does exist there
! # then it is set there, else it is set in current state.
! # @param a string containing the object name.
! # @param a scalar containing the value
! # 
! #*/
! sub setObjectValue {
!     my ($this, $object, $value) = @_;
!     
!     # check if a parent state already knows this 
!     # object
!     my $variableHolder = $this -> objectExists( $object );
!     
!     if (defined( $variableHolder ) && $variableHolder != $this) {   
!         # Yes another one has it.
!         $variableHolder -> setObjectValue( $object, $value );
!         }
!     else {  # object is in this state or not defined at all
!         $this -> { m_Objects } -> { $object } = $value;
!         }
!     }
!     
! #/**
! # Returns the value of the given object . If this state 
! # does not contain the object, parent states will be checked until the 
! # object is found there, or the topmost state is reached.
! # @param a string containing the name of the object to look up.
! # @return a scalar holding the object or undef, if the
! #   object is not defined.
! #*/
! sub getObjectValue {
!     my ( $this, $object ) = @_;
!     
!     my $variableHolder = $this -> objectExists( $object );
!     if ( defined( $variableHolder ) ) {
!         return $variableHolder -> { m_Objects } -> { $object };
          }
+     return undef;
      } 
+ 
+ 
  
  1; # make "require" happy    

Index: StatementEvaluator.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/StatementEvaluator.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** StatementEvaluator.pm	15 May 2002 18:21:37 -0000	1.5
--- StatementEvaluator.pm	29 May 2002 20:26:17 -0000	1.6
***************
*** 17,20 ****
--- 17,21 ----
  
  use NetScript::Interpreter;
+ use NetScript::Libraries::DebugLibrary;
  
  
***************
*** 31,37 ****
  # @final
  #*/
! sub STRING_FILTER {
!     "STRING";
!     }
  
  #/**
--- 32,36 ----
  # @final
  #*/
! our $STRING_FILTER = "STRING";
  
  #/**
***************
*** 40,46 ****
  # @final
  #*/
! sub XML_FILTER {
!     "XML";
!     }
  
  #/**
--- 39,43 ----
  # @final
  #*/
! our $XML_FILTER = "XML";
  
  #/**
***************
*** 56,60 ****
      my $this = {};
      bless( $this, $class );             # create Object
!     $this -> { m_interpreter } = @_;
      return $this;                       # return Object
      }
--- 53,57 ----
      my $this = {};
      bless( $this, $class );             # create Object
!     $this -> { m_interpreter } = $interpreter;
      return $this;                       # return Object
      }
***************
*** 70,74 ****
      my $aString = $statement;
      my $stringBef = $statement;
- 
      #
      # Look if this string consists of more than spaces
--- 67,70 ----
***************
*** 85,89 ****
          
          # Quite hefty regexp. Does find the innermost pair parentheses which is not quoted.
!         while ( $aString =~ /^(.*[^\\])\(((\\\(|\\\)|[^\(\)])*[^\\\)])?\)((\\\(|[^\(])*)$/ ) {
              # Search for the innermost pair of parentheses.
              my $pref = $1;     # save string prefix
--- 81,87 ----
          
          # Quite hefty regexp. Does find the innermost pair parentheses which is not quoted.
! #        while ( $aString =~ /^(.*[^\\])\(((\\\(|\\\)|[^\(\)])*[^\\\)])?\)((\\\(|[^\(])*)$/ ) {
!         
!         while ( $aString =~ /^(.*[^\\])\(((\\\(|\\\)|[^\(\)])*[^\\\)]?)?\)((\\\(|[^\(])*)$/ ) {
              # Search for the innermost pair of parentheses.
              my $pref = $1;     # save string prefix
***************
*** 92,143 ****
              my $suff = $4;     # save the string suffix
              my $result = "";
- 
              # Unquote quoted parentheses                
              $param =~ s/\\\(/\(/g;
              $param =~ s/\\\)/\)/g;
! 
!             # Find reserved words
!             if ($pref =~ /^(.*)(\$|eval|@|str|\#)$/) {
!                 $pref = $1;
!                 $action = $2;
!                 }
!             # Find quoted reserved words.
!             if ($action ne '' && $pref =~ /^(.*)(\\)$/) {
!                 $action = $2.$action;
!                 $pref = $1;
                  }
              
!             # now evaluate the action and generate a result.
!             if ($action eq '$' ) { # a variable or array statement
!                 if ($param =~ /^([^:]+):(.*$)/) { # array statement
!                     $result = $this -> getArrayValue($1, $2);
!                     }
!                 else {
!                     $result = $this -> getVariableValue( $param );
  #                    if (! defined($result)) {
  #                        die "[standardlib] Error: undefined variable ", $param, "\n";
  #                        }
                      }
!                 }
!             elsif ($action eq 'eval') { # an eval-statement
!                 $result = eval($param);
!                 }
!             elsif ($action eq '@') { #last index of an array
!                 $result = $this -> getLargestArrayIndex( $param );
!                 }
!             elsif ($action eq '#') { #length of string
!                 $result = $this -> getStringLength( $param );
!                 }
!             elsif ($action eq 'str') { # string-filter
!                 $result = $this -> filter( $param, $this -> STRING_FILTER() );
!                 }
!             elsif ($action eq 'xml') { # xml-filter
!                 $result = $this -> filter( $param, $this -> XML_FILTER() );
!                 }
!             elsif ($action =~ /^\\(.*)$/) { # requote
!                 $result = $1."\(".$param."\)";
                  }
              else {
!                 $result = "\(".$param."\)";
                  }
              # Requote remaining parentheses.
--- 90,135 ----
              my $suff = $4;     # save the string suffix
              my $result = "";
              # Unquote quoted parentheses                
              $param =~ s/\\\(/\(/g;
              $param =~ s/\\\)/\)/g;
!             
!             # find a first dot representing a class
!             if ( $param =~/^(.*?)\.(.*)$/ ) {
!                 $action = $1;
!                 $param = $2;
                  }
+         
+             $this -> debug( "Pref: |$pref| Action: |$action| Param: |$param| Suff: |$suff|" );
              
!             if ( $pref =~ /^(.*?[^\\]?)\$$/ ) {
!                 $pref = $1;
!                 # now evaluate the action and generate a result.
!                 if ($action eq '' ) { # a variable or array statement
!                     if ($param =~ /^([^:]+):(.*)$/) { # array statement
!                         $result = $this -> getArrayValue($1, $2);
!                         }
!                     else {
!                         $result = $this -> getVariableValue( $param );
  #                    if (! defined($result)) {
  #                        die "[standardlib] Error: undefined variable ", $param, "\n";
  #                        }
                      }
!                     }
!                 elsif ($action eq 'eval') { # an eval-statement
!                     $result = eval($param);
!                     }
!                 elsif ($action eq '@') { #last index of an array
!                     $result = $this -> getLargestArrayIndex( $param );
!                     }
!                 elsif ($action eq '#') { #length of string
!                     $result = $this -> getStringLength( $param );
!                     }
!                 else {
!                     # return the member value of the given object
!                     $result = $this -> getMember( $action, $param );
!                     }
                  }
              else {
!                 $result = "(".$param.")";
                  }
              # Requote remaining parentheses.
***************
*** 162,166 ****
  sub getVariableValue {
      my ($this, $variable) = @_;
!     "Wert: " . $variable;
      }
  
--- 154,161 ----
  sub getVariableValue {
      my ($this, $variable) = @_;
!     my $result = $this -> interpreter() -> getState() ->
!             getVariableValue( $variable );
!     # TODO: check for undef
!     $result;
      }
  
***************
*** 173,177 ****
  sub getArrayValue {
      my ($this, $array, $index) = @_;
!     "Array [$index]: ". $array;
      }
  
--- 168,176 ----
  sub getArrayValue {
      my ($this, $array, $index) = @_;
!     my $result = $this -> interpreter() -> getState() -> 
!             getArrayValue( $array, $index );
!     $this -> debug( "Getting array index: $array:$index = $result" );        
!     # TODO: check for undef
!     $result;
      }
  
***************
*** 183,211 ****
  sub getLargestArrayIndex {
      my ( $this, $array ) = @_;
!     "10";
      }
  
  #/**
! # Returns the result of a function
! # @param the name of the function
! # @param the argument to the function
! # @return the value of the function.
! # @protected
  #*/
! sub getFunctionResult {
!     my ($this, $function, $arg ) = @_;
      }
  
  
  #/**
! # Filters the given scalar.
! # @param a scalar to filter.
! # @param a filter mode
! # @return the filtered string
! # @protected
  #*/
! sub filter {
!     my ($this, $toFilter, $mode) = @_;
!     "Filtered ($mode): $toFilter";
      }
  
--- 182,248 ----
  sub getLargestArrayIndex {
      my ( $this, $array ) = @_;
!     my $result = $this -> interpreter() -> getState() ->
!             getLargestArrayIndex( $array );
!     # TODO: check for undef
!     $result;            
      }
  
  #/**
! # Returns the member of the given object.
! # @param the name of the object
! # @param the name of the member
  #*/
! sub getMember {
!     my ( $this, $object, $member ) = @_;
!     my $object = $this -> interpreter() -> getState() ->
!             getObjectValue( $object );
!             
!     $this -> debug( "Getting member: $member of $object..." );       
!     # $object is an instance of Class 
!     return undef unless $object ;
!     my $memberObject = $object -> member( $member );
!     return undef unless $memberObject;
!     $memberObject -> value();
!     }
! 
! #/**
! # Creates the given variable (array).
! # @param string describing the variable name
! # @param string holding the variable value
! #*/
! sub createVariable {
!     my ( $this, $name, $value ) = @_;
! 
!     if ( $name =~ /(^.*):(.*$)/ ) { # its an array
!         $this -> interpreter() -> getState() -> 
!                 setArrayValue( $1, $2, $value );
!         }
!     else {
!         $this -> interpreter() -> getState() ->
!                 setVariableValue( $name, $value );
!         }
      }
  
+ #/**
+ # Returns an instance of <code>NetScript.:Interpreter</code>
+ #*/ 
+ sub interpreter {
+     my ( $this ) = @_;
+     $this -> { m_interpreter };
+     }
  
  #/**
! # Sends a debug event.
! # @param the debug message
! # @private
  #*/
! sub debug {
!     my ($this, $message) = @_;
!     $this -> interpreter() -> getEventRelay() ->
!             createAndRaiseEvent( 
!             $NetScript::Libraries::DebugLibrary::DEBUG_EVENT,
!             $message,
!             "Control" 
!             );
      }
  

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Engine wipeout.project,1.7,1.8

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Engine
In directory usw-pr-cvs1:/tmp/cvs-serv7785

Modified Files:
	wipeout.project 
Log Message:
* added Member, Function and Class - classes
* added support for member-variables

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/wipeout.project,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** wipeout.project	9 May 2002 19:10:52 -0000	1.7
--- wipeout.project	29 May 2002 20:26:04 -0000	1.8
***************
*** 1,292 ****
  b
! C DmDictionary 0 2c5d9 8 
! c 0 2c830 9 
! C Category 1 5147 
! c 0 2c870 4 
! C DmString 2 2c877 2 e3 
! c 2 2c876 a defaultExe 
! C DmSet 3 2c879 1 
! c 2 5156 2 e3 
! L 5156 
! c 2 2c878 b executables 
! c 3 2c874 3 
! c 2 515d 3 *.C 
! L 515d 
! c 2 5160 4 *.cc 
! L 5160 
! c 2 5163 5 *.cpp 
! L 5163 
! c 2 2c873 a extensions 
! c 2 2c872 a CPP_source 
! c 2 2c871 4 name 
! c 2 2c832 a CPP_source 
! c 1 5178 
! c 0 2c8b6 4 
! c 2 2c8bd 2 e3 
! c 2 2c8bc a defaultExe 
! c 3 2c8bf 1 
! c 2 5185 2 e3 
! L 5185 
! c 2 2c8be b executables 
! c 3 2c8ba 1 
! c 2 518c 3 *.c 
! L 518c 
! c 2 2c8b9 a extensions 
! c 2 2c8b8 8 C_source 
! c 2 2c8b7 4 name 
! c 2 2c833 8 C_source 
! c 1 51a1 
! c 0 2c8f0 4 
! c 2 2c8f7 2 e3 
! c 2 2c8f6 a defaultExe 
! c 3 2c8f9 1 
! c 2 51ae 2 e3 
! L 51ae 
! c 2 2c8f8 b executables 
! c 3 2c8f4 1 
! c 2 51b5 3 *.e 
! L 51b5 
! c 2 2c8f3 a extensions 
! c 2 2c8f2 6 Eiffel 
! c 2 2c8f1 4 name 
! c 2 2c834 6 Eiffel 
! c 1 51ca 
! c 0 2c92a 4 
! c 2 2c931 2 e3 
! c 2 2c930 a defaultExe 
! c 3 2c933 1 
! c 2 51d7 2 e3 
! L 51d7 
! c 2 2c932 b executables 
! c 3 2c92e 4 
! c 2 51de 3 *.F 
! L 51de 
! c 2 51e1 3 *.f 
! L 51e1 
! c 2 51e4 5 *.for 
! L 51e4 
! c 2 51e7 5 *.fpp 
! L 51e7 
! c 2 2c92d a extensions 
! c 2 2c92c 7 Fortran 
! c 2 2c92b 4 name 
! c 2 2c835 7 Fortran 
! c 1 51fc 
! c 0 2c970 4 
! c 2 2c977 2 e3 
! c 2 2c976 a defaultExe 
! c 3 2c979 1 
! c 2 5209 2 e3 
! L 5209 
! c 2 2c978 b executables 
! c 3 2c974 2 
! c 2 5210 3 *.H 
! L 5210 
! c 2 5213 3 *.h 
! L 5213 
! c 2 2c973 a extensions 
! c 2 2c972 6 Header 
! c 2 2c971 4 name 
! c 2 2c836 6 Header 
! c 1 5228 
! c 0 2c9ae 4 
! c 2 2c9b5 9 surfboard 
! c 2 2c9b4 a defaultExe 
! c 3 2c9b7 2 
  c 2 5235 2 e3 
  L 5235 
! c 2 5238 9 surfboard 
! L 5238 
! c 2 2c9b6 b executables 
! c 3 2c9b2 2 
! c 2 523f 5 *.htm 
  L 523f 
! c 2 5242 6 *.html 
  L 5242 
! c 2 2c9b1 a extensions 
! c 2 2c9b0 4 Html 
! c 2 2c9af 4 name 
! c 2 2c837 4 Html 
  c 1 5257 
! c 0 2c9f0 4 
! c 2 2c9f7 2 e3 
! c 2 2c9f6 a defaultExe 
! c 3 2c9f9 1 
  c 2 5264 2 e3 
  L 5264 
! c 2 2c9f8 b executables 
! c 3 2c9f4 1 
! c 2 526b 6 *.java 
  L 526b 
! c 2 2c9f3 a extensions 
! c 2 2c9f2 4 Java 
! c 2 2c9f1 4 name 
! c 2 2c838 4 Java 
  c 1 5280 
! c 0 2ca2a 4 
! c 2 2ca31 2 e3 
! c 2 2ca30 a defaultExe 
! c 3 2ca33 1 
  c 2 528d 2 e3 
  L 528d 
! c 2 2ca32 b executables 
! c 3 2ca2e 1 
! c 2 5294 5 *.tex 
  L 5294 
! c 2 2ca2d a extensions 
! c 2 2ca2c 5 Latex 
! c 2 2ca2b 4 name 
! c 2 2c839 5 Latex 
  c 1 52a9 
! c 0 2ca64 4 
! c 2 2ca6b 2 e3 
! c 2 2ca6a a defaultExe 
! c 3 2ca6d 1 
  c 2 52b6 2 e3 
  L 52b6 
! c 2 2ca6c b executables 
! c 3 2ca68 0 
! c 2 2ca67 a extensions 
! c 2 2ca66 5 Other 
! c 2 2ca65 4 name 
! c 2 2c83a 5 Other 
! c 2 2c82f a categories 
! c 0 2c83c 1 
! C ProjectDir 4 52d3 
! c 2 52d4 25 netscript2/src/perl/NetScript/Engine/ 11 81 
! c 2 52d5 0  0 
! c 2 2c83e 25 netscript2/src/perl/NetScript/Engine/ 
! c 2 2c83b b directories 
! C DmBag 5 2c5e5 b 
! c 2 2c61b e1 b
! C DmDictionary 0 2c5e7 3 
! C DmString 1 2c5f9 36 b
! C DmSet 0 531b 1 
! C DmString 1 5349 5 Other 
! L 5349  
! c 1 2c5f8 a categories 
! c 1 2c5e9 11 BasicStatement.pm 
! c 1 2c5e8 4 name 
! C DmInteger 2 2c5fb 1 
! c 1 2c5fa 9 substMode  
! c 2 2c650 e8 b
! C DmDictionary 0 2c61c 3 
! C DmString 1 2c62e 36 b
! C DmSet 0 535a 1 
! C DmString 1 5388 5 Other 
! L 5388  
! c 1 2c62d a categories 
! c 1 2c61e 11 BlockStatement.pm 
! c 1 2c61d 4 name 
! C DmInteger 2 2c630 80000001 
! c 1 2c62f 9 substMode  
! c 2 2c685 d7 b
! C DmDictionary 0 2c651 3 
! C DmString 1 2c663 36 b
! C DmSet 0 5399 1 
! C DmString 1 53c7 5 Other 
! L 53c7  
! c 1 2c662 a categories 
! c 1 2c653 8 Class.pm 
! c 1 2c652 4 name 
! C DmInteger 2 2c665 1 
! c 1 2c664 9 substMode  
! c 2 2c6ba e7 b
! C DmDictionary 0 2c686 3 
! C DmString 1 2c698 36 b
! C DmSet 0 53d8 1 
! C DmString 1 5406 5 Other 
! L 5406  
! c 1 2c697 a categories 
! c 1 2c688 10 CopyStatement.pm 
! c 1 2c687 4 name 
! C DmInteger 2 2c69a 80000001 
! c 1 2c699 9 substMode  
! c 2 2c6ef db b
! C DmDictionary 0 2c6bb 3 
! C DmString 1 2c6cd 36 b
! C DmSet 0 5417 1 
! C DmString 1 5445 5 Other 
! L 5445  
! c 1 2c6cc a categories 
! c 1 2c6bd c DOMWalker.pm 
! c 1 2c6bc 4 name 
! C DmInteger 2 2c6cf 1 
! c 1 2c6ce 9 substMode  
! c 2 2c724 d7 b
! C DmDictionary 0 2c6f0 3 
! C DmString 1 2c702 36 b
! C DmSet 0 5456 1 
! C DmString 1 5484 5 Other 
! L 5484  
! c 1 2c701 a categories 
! c 1 2c6f2 8 Event.pm 
! c 1 2c6f1 4 name 
! C DmInteger 2 2c704 1 
! c 1 2c703 9 substMode  
! c 2 2c759 e3 b
! C DmDictionary 0 2c725 3 
! C DmString 1 2c737 39 b
! C DmSet 0 2c454 1 
! C DmString 1 2c5ce 5 Other 
! L 2c5ce  
! c 1 2c736 a categories 
! c 1 2c727 10 EventListener.pm 
! c 1 2c726 4 name 
! C DmInteger 2 2c739 1 
! c 1 2c738 9 substMode  
! c 2 2c78e dc b
! C DmDictionary 0 2c75a 3 
! C DmString 1 2c76c 36 b
! C DmSet 0 5495 1 
! C DmString 1 54c3 5 Other 
! L 54c3  
! c 1 2c76b a categories 
! c 1 2c75c d EventRelay.pm 
! c 1 2c75b 4 name 
! C DmInteger 2 2c76e 1 
! c 1 2c76d 9 substMode  
! c 2 2c7c3 d7 b
! C DmDictionary 0 2c78f 3 
! C DmString 1 2c7a1 36 b
! C DmSet 0 54d4 1 
! C DmString 1 5502 5 Other 
! L 5502  
! c 1 2c7a0 a categories 
! c 1 2c791 8 State.pm 
! c 1 2c790 4 name 
! C DmInteger 2 2c7a3 1 
! c 1 2c7a2 9 substMode  
! c 2 2c7f8 db b
! C DmDictionary 0 2c7c4 3 
! C DmString 1 2c7d6 36 b
! C DmSet 0 5513 1 
! C DmString 1 5541 5 Other 
! L 5541  
! c 1 2c7d5 a categories 
! c 1 2c7c6 c Statement.pm 
! c 1 2c7c5 4 name 
! C DmInteger 2 2c7d8 1 
! c 1 2c7d7 9 substMode  
! c 2 2c82d e5 b
! C DmDictionary 0 2c7f9 3 
! C DmString 1 2c80b 36 b
! C DmSet 0 5552 1 
! C DmString 1 5580 5 Other 
! L 5580  
! c 1 2c80a a categories 
! c 1 2c7fb 15 StatementEvaluator.pm 
! c 1 2c7fa 4 name 
! C DmInteger 2 2c80d 1 
! c 1 2c80c 9 substMode  
! c 2 2c82e 5 files 
! c 2 2c5e1 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 2c5e0 6 launch 
! c 2 2c5dd 4 make 
! c 2 2c5dc 4 make 
! c 2 2c5df 0  
! c 2 2c5de 8 makeFile 
! c 5 2c5e2 0 
! c 2 2c5e4 7 modules 
! c 2 2c5db 6 Engine 
! c 2 2c5da 4 name 
--- 1,314 ----
  b
! C DmDictionary 0 11cd5 8 
! c 0 11f96 9 
! C Category 1 5226 
! c 0 11fd6 4 
! C DmString 2 11fdd 2 e3 
! c 2 11fdc a defaultExe 
! C DmSet 3 11fdf 1 
  c 2 5235 2 e3 
  L 5235 
! c 2 11fde b executables 
! c 3 11fda 3 
! c 2 523c 3 *.C 
! L 523c 
! c 2 523f 4 *.cc 
  L 523f 
! c 2 5242 5 *.cpp 
  L 5242 
! c 2 11fd9 a extensions 
! c 2 11fd8 a CPP_source 
! c 2 11fd7 4 name 
! c 2 11f98 a CPP_source 
  c 1 5257 
! c 0 1201c 4 
! c 2 12023 2 e3 
! c 2 12022 a defaultExe 
! c 3 12025 1 
  c 2 5264 2 e3 
  L 5264 
! c 2 12024 b executables 
! c 3 12020 1 
! c 2 526b 3 *.c 
  L 526b 
! c 2 1201f a extensions 
! c 2 1201e 8 C_source 
! c 2 1201d 4 name 
! c 2 11f99 8 C_source 
  c 1 5280 
! c 0 12056 4 
! c 2 1205d 2 e3 
! c 2 1205c a defaultExe 
! c 3 1205f 1 
  c 2 528d 2 e3 
  L 528d 
! c 2 1205e b executables 
! c 3 1205a 1 
! c 2 5294 3 *.e 
  L 5294 
! c 2 12059 a extensions 
! c 2 12058 6 Eiffel 
! c 2 12057 4 name 
! c 2 11f9a 6 Eiffel 
  c 1 52a9 
! c 0 12090 4 
! c 2 12097 2 e3 
! c 2 12096 a defaultExe 
! c 3 12099 1 
  c 2 52b6 2 e3 
  L 52b6 
! c 2 12098 b executables 
! c 3 12094 4 
! c 2 52bd 3 *.F 
! L 52bd 
! c 2 52c0 3 *.f 
! L 52c0 
! c 2 52c3 5 *.for 
! L 52c3 
! c 2 52c6 5 *.fpp 
! L 52c6 
! c 2 12093 a extensions 
! c 2 12092 7 Fortran 
! c 2 12091 4 name 
! c 2 11f9b 7 Fortran 
! c 1 52db 
! c 0 120d6 4 
! c 2 120dd 2 e3 
! c 2 120dc a defaultExe 
! c 3 120df 1 
! c 2 52e8 2 e3 
! L 52e8 
! c 2 120de b executables 
! c 3 120da 2 
! c 2 52ef 3 *.H 
! L 52ef 
! c 2 52f2 3 *.h 
! L 52f2 
! c 2 120d9 a extensions 
! c 2 120d8 6 Header 
! c 2 120d7 4 name 
! c 2 11f9c 6 Header 
! c 1 5307 
! c 0 12114 4 
! c 2 1211b 9 surfboard 
! c 2 1211a a defaultExe 
! c 3 1211d 2 
! c 2 5314 2 e3 
! L 5314 
! c 2 5317 9 surfboard 
! L 5317 
! c 2 1211c b executables 
! c 3 12118 2 
! c 2 531e 5 *.htm 
! L 531e 
! c 2 5321 6 *.html 
! L 5321 
! c 2 12117 a extensions 
! c 2 12116 4 Html 
! c 2 12115 4 name 
! c 2 11f9d 4 Html 
! c 1 5336 
! c 0 12156 4 
! c 2 1215d 2 e3 
! c 2 1215c a defaultExe 
! c 3 1215f 1 
! c 2 5343 2 e3 
! L 5343 
! c 2 1215e b executables 
! c 3 1215a 1 
! c 2 534a 6 *.java 
! L 534a 
! c 2 12159 a extensions 
! c 2 12158 4 Java 
! c 2 12157 4 name 
! c 2 11f9e 4 Java 
! c 1 535f 
! c 0 12190 4 
! c 2 12197 2 e3 
! c 2 12196 a defaultExe 
! c 3 12199 1 
! c 2 536c 2 e3 
! L 536c 
! c 2 12198 b executables 
! c 3 12194 1 
! c 2 5373 5 *.tex 
! L 5373 
! c 2 12193 a extensions 
! c 2 12192 5 Latex 
! c 2 12191 4 name 
! c 2 11f9f 5 Latex 
! c 1 5388 
! c 0 121ca 4 
! c 2 121d1 2 e3 
! c 2 121d0 a defaultExe 
! c 3 121d3 1 
! c 2 5395 2 e3 
! L 5395 
! c 2 121d2 b executables 
! c 3 121ce 0 
! c 2 121cd a extensions 
! c 2 121cc 5 Other 
! c 2 121cb 4 name 
! c 2 11fa0 5 Other 
! c 2 11f95 a categories 
! c 0 11fa2 1 
! C ProjectDir 4 53b2 
! c 2 53b3 25 netscript2/src/perl/NetScript/Engine/ 11 81 
! c 2 53b4 0  0 
! c 2 11fa4 25 netscript2/src/perl/NetScript/Engine/ 
! c 2 11fa1 b directories 
! C DmBag 5 11ce1 d 
! c 2 11d17 e1 b
! C DmDictionary 0 11ce3 3 
! C DmString 1 11cf5 36 b
! C DmSet 0 53fc 1 
! C DmString 1 542a 5 Other 
! L 542a  
! c 1 11cf4 a categories 
! c 1 11ce5 11 BasicStatement.pm 
! c 1 11ce4 4 name 
! C DmInteger 2 11cf7 1 
! c 1 11cf6 9 substMode  
! c 2 11d4c e8 b
! C DmDictionary 0 11d18 3 
! C DmString 1 11d2a 36 b
! C DmSet 0 543b 1 
! C DmString 1 5469 5 Other 
! L 5469  
! c 1 11d29 a categories 
! c 1 11d1a 11 BlockStatement.pm 
! c 1 11d19 4 name 
! C DmInteger 2 11d2c 80000001 
! c 1 11d2b 9 substMode  
! c 2 11d81 d7 b
! C DmDictionary 0 11d4d 3 
! C DmString 1 11d5f 36 b
! C DmSet 0 547a 1 
! C DmString 1 54a8 5 Other 
! L 54a8  
! c 1 11d5e a categories 
! c 1 11d4f 8 Class.pm 
! c 1 11d4e 4 name 
! C DmInteger 2 11d61 1 
! c 1 11d60 9 substMode  
! c 2 11db6 e7 b
! C DmDictionary 0 11d82 3 
! C DmString 1 11d94 36 b
! C DmSet 0 54b9 1 
! C DmString 1 54e7 5 Other 
! L 54e7  
! c 1 11d93 a categories 
! c 1 11d84 10 CopyStatement.pm 
! c 1 11d83 4 name 
! C DmInteger 2 11d96 80000001 
! c 1 11d95 9 substMode  
! c 2 11deb db b
! C DmDictionary 0 11db7 3 
! C DmString 1 11dc9 36 b
! C DmSet 0 54f8 1 
! C DmString 1 5526 5 Other 
! L 5526  
! c 1 11dc8 a categories 
! c 1 11db9 c DOMWalker.pm 
! c 1 11db8 4 name 
! C DmInteger 2 11dcb 1 
! c 1 11dca 9 substMode  
! c 2 11e20 d7 b
! C DmDictionary 0 11dec 3 
! C DmString 1 11dfe 36 b
! C DmSet 0 5537 1 
! C DmString 1 5565 5 Other 
! L 5565  
! c 1 11dfd a categories 
! c 1 11dee 8 Event.pm 
! c 1 11ded 4 name 
! C DmInteger 2 11e00 1 
! c 1 11dff 9 substMode  
! c 2 11e55 e0 b
! C DmDictionary 0 11e21 3 
! C DmString 1 11e33 36 b
! C DmSet 0 5576 1 
! C DmString 1 55a4 5 Other 
! L 55a4  
! c 1 11e32 a categories 
! c 1 11e23 10 EventListener.pm 
! c 1 11e22 4 name 
! C DmInteger 2 11e35 1 
! c 1 11e34 9 substMode  
! c 2 11e8a dc b
! C DmDictionary 0 11e56 3 
! C DmString 1 11e68 36 b
! C DmSet 0 55b5 1 
! C DmString 1 55e3 5 Other 
! L 55e3  
! c 1 11e67 a categories 
! c 1 11e58 d EventRelay.pm 
! c 1 11e57 4 name 
! C DmInteger 2 11e6a 1 
! c 1 11e69 9 substMode  
! c 2 11ebf da b
! C DmDictionary 0 11e8b 3 
! C DmString 1 11e9d 36 b
! C DmSet 0 ecd1 1 
! C DmString 1 ee4b 5 Other 
! L ee4b  
! c 1 11e9c a categories 
! c 1 11e8d b Function.pm 
! c 1 11e8c 4 name 
! C DmInteger 2 11e9f 1 
! c 1 11e9e 9 substMode  
! c 2 11ef4 db b
! C DmDictionary 0 11ec0 3 
! C DmString 1 11ed2 39 b
! C DmSet 0 11b50 1 
! C DmString 1 11cca 5 Other 
! L 11cca  
! c 1 11ed1 a categories 
! c 1 11ec2 9 Member.pm 
! c 1 11ec1 4 name 
! C DmInteger 2 11ed4 1 
! c 1 11ed3 9 substMode  
! c 2 11f29 d7 b
! C DmDictionary 0 11ef5 3 
! C DmString 1 11f07 36 b
! C DmSet 0 55f4 1 
! C DmString 1 5622 5 Other 
! L 5622  
! c 1 11f06 a categories 
! c 1 11ef7 8 State.pm 
! c 1 11ef6 4 name 
! C DmInteger 2 11f09 1 
! c 1 11f08 9 substMode  
! c 2 11f5e db b
! C DmDictionary 0 11f2a 3 
! C DmString 1 11f3c 36 b
! C DmSet 0 5633 1 
! C DmString 1 5661 5 Other 
! L 5661  
! c 1 11f3b a categories 
! c 1 11f2c c Statement.pm 
! c 1 11f2b 4 name 
! C DmInteger 2 11f3e 1 
! c 1 11f3d 9 substMode  
! c 2 11f93 e5 b
! C DmDictionary 0 11f5f 3 
! C DmString 1 11f71 36 b
! C DmSet 0 5672 1 
! C DmString 1 56a0 5 Other 
! L 56a0  
! c 1 11f70 a categories 
! c 1 11f61 15 StatementEvaluator.pm 
! c 1 11f60 4 name 
! C DmInteger 2 11f73 1 
! c 1 11f72 9 substMode  
! c 2 11f94 5 files 
! c 2 11cdd 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 11cdc 6 launch 
! c 2 11cd9 4 make 
! c 2 11cd8 4 make 
! c 2 11cdb 0  
! c 2 11cda 8 makeFile 
! c 5 11cde 0 
! c 2 11ce0 7 modules 
! c 2 11cd7 6 Engine 
! c 2 11cd6 4 name 

[NetScript CVS] CVS: netscript2/src/perl/NetScript Interpreter.pm,1.6,1.7

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript
In directory usw-pr-cvs1:/tmp/cvs-serv18312

Modified Files:
	Interpreter.pm 
Log Message:
* added variable state controls
* included ControlStructuresLibrary

Index: Interpreter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Interpreter.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Interpreter.pm	11 May 2002 13:12:35 -0000	1.6
--- Interpreter.pm	15 May 2002 18:24:27 -0000	1.7
***************
*** 8,11 ****
--- 8,12 ----
  # mailto: ko...@in...
  #--------------------------------------------------------
+ use strict;
  
  #/**
***************
*** 17,22 ****
  package NetScript::Interpreter;
  
- use strict;
- 
  #--------------------------------------------------------
  # IMPORTS
--- 18,21 ----
***************
*** 24,27 ****
--- 23,27 ----
  use CGI;
  use XML::Parser;
+ use NetScript::Engine::State;
  use NetScript::Engine::DOMWalker;
  use NetScript::Engine::Event;
***************
*** 30,33 ****
--- 30,34 ----
  use NetScript::Libraries::DefaultLibrary;
  use NetScript::Libraries::DebugLibrary;
+ use NetScript::Libraries::ControlStructuresLibrary;
  use NetScript::Util::XMLParserRelay;
  use NetScript::Util::FileRetriever;
***************
*** 38,45 ****
  use XML::DOM2::XMLDOMWriterStyle;
  
! #--------------------------------------------------------
  # Globals
! #--------------------------------------------------------
! our $VERSION = '2.0';                       # Current Version of Class
  
  # This is for catching errors at compile-time
--- 39,57 ----
  use XML::DOM2::XMLDOMWriterStyle;
  
! 
! #-----------------------------------------------------------
  # Globals
! #-----------------------------------------------------------
! #/**
! # The current Version of NetScript
! #*/
! our $VERSION = '2.0 ($Date$)';
! 
! #/**
! # The namespace URI of all NetScript related tags.
! # (http://netscript.insomnia-hq.de).
! #*/
! our $NAMESPACE_URI = "http://netscript.insomnia-hq.de";
! 
  
  # This is for catching errors at compile-time
***************
*** 61,65 ****
          print $msg;
          }
- 
      set_message(\&handle_errors);
      }
--- 73,76 ----
***************
*** 88,91 ****
--- 99,104 ----
      $this -> { m_StatementEvaluator } = 
              NetScript::Engine::StatementEvaluator -> new( $this );
+     $this -> { m_currentState } = 
+             NetScript::Engine::State -> new();
  
      my $defLib = NetScript::Libraries::DefaultLibrary -> new();
***************
*** 94,97 ****
--- 107,114 ----
      my $debugLib = NetScript::Libraries::DebugLibrary -> new();
      $debugLib -> init( $this );
+     
+     my $csLib = NetScript::Libraries::ControlStructuresLibrary -> new();
+     $csLib -> init( $this );
+     
      return $this;                       # return Object
      }
***************
*** 206,209 ****
--- 223,258 ----
      my ($this) = @_;
      return $this -> { m_StatementEvaluator };
+     }
+ 
+ 
+ #/**
+ # Returns the current variable state
+ # @public
+ # @return an instance of <code>NetScript::Engine::State</code>
+ #*/
+ sub getState {
+     my ( $this ) = @_;
+     $this -> { m_currentState };
+     }
+ 
+ #/**
+ # Creates a new state and sets this as top state.
+ # @public
+ #*/
+ sub newState {
+     my ( $this ) = @_;
+     my $state = NetScript::Engine::State -> new( $this -> getState() );
+     $this -> { m_currentState } = $state;
+     }
+ 
+ #/**
+ # Drops the current state and sets its parent
+ # as new current state.
+ # @public
+ #*/
+ sub dropState {
+     my ( $this ) = @_;
+     my $parent = $this -> { m_currentState } -> getParent();
+     $this -> { m_currentState } = $parent;
      }
  

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Util ConfigFileParser.pm,1.4,1.5 ConfigurationParser.pm,1.2,1.3 FileRetriever.pm,1.4,1.5 PropertyFileParser.pm,1.5,1.6 UIDGenerator.pm,1.2,1.3 XMLParserRelay.pm,1.4,1.5

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Util
In directory usw-pr-cvs1:/tmp/cvs-serv17924

Modified Files:
	ConfigFileParser.pm ConfigurationParser.pm FileRetriever.pm 
	PropertyFileParser.pm UIDGenerator.pm XMLParserRelay.pm 
Log Message:


Index: ConfigFileParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/ConfigFileParser.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ConfigFileParser.pm	11 May 2002 13:09:39 -0000	1.4
--- ConfigFileParser.pm	15 May 2002 18:23:11 -0000	1.5
***************
*** 20,24 ****
  # Globals
  #--------------------------------------------------------
! our $VERSION = '1.0';
  
  #--------------------------------------------------------
--- 20,24 ----
  # Globals
  #--------------------------------------------------------
! 
  
  #--------------------------------------------------------

Index: ConfigurationParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/ConfigurationParser.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ConfigurationParser.pm	11 May 2002 13:09:39 -0000	1.2
--- ConfigurationParser.pm	15 May 2002 18:23:11 -0000	1.3
***************
*** 19,23 ****
  # Globals
  #--------------------------------------------------------
! our $VERSION = '1.0';
  $CONFIG_FILE = 'configuration';
  
--- 19,23 ----
  # Globals
  #--------------------------------------------------------
! 
  $CONFIG_FILE = 'configuration';
  

Index: FileRetriever.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/FileRetriever.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** FileRetriever.pm	11 May 2002 13:09:39 -0000	1.4
--- FileRetriever.pm	15 May 2002 18:23:11 -0000	1.5
***************
*** 7,11 ****
  # present will lead to a fatal error.
  # 
- # Class FileRetriever
  # $Id$
  # 
--- 7,10 ----
***************
*** 27,31 ****
  # Globals
  #--------------------------------------------------------
! our $VERSION = '1.0';
  
  #/**
--- 26,30 ----
  # Globals
  #--------------------------------------------------------
! 
  
  #/**
***************
*** 54,58 ****
          import HTTP::Response;
          my $userAgent = LWP::UserAgent -> new;
!         $userAgent -> agent("NetScript2 FileRetriever/$VERSION");
          $userAgent;
          };
--- 53,57 ----
          import HTTP::Response;
          my $userAgent = LWP::UserAgent -> new;
!         $userAgent -> agent("NetScript2 FileRetriever");
          $userAgent;
          };

Index: PropertyFileParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/PropertyFileParser.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** PropertyFileParser.pm	11 May 2002 13:09:39 -0000	1.5
--- PropertyFileParser.pm	15 May 2002 18:23:11 -0000	1.6
***************
*** 26,30 ****
  # Globals
  #--------------------------------------------------------
! our $VERSION = '1.0';
  
  #/**
--- 26,30 ----
  # Globals
  #--------------------------------------------------------
! 
  
  #/**

Index: UIDGenerator.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/UIDGenerator.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** UIDGenerator.pm	11 May 2002 13:09:39 -0000	1.2
--- UIDGenerator.pm	15 May 2002 18:23:11 -0000	1.3
***************
*** 2,6 ****
  # $Id$
  # 
- # Class UIDGenerator
  # 
  # NetScript and all related materials, such as documentation,
--- 2,5 ----

Index: XMLParserRelay.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/XMLParserRelay.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** XMLParserRelay.pm	11 May 2002 13:09:39 -0000	1.4
--- XMLParserRelay.pm	15 May 2002 18:23:11 -0000	1.5
***************
*** 26,30 ****
  # Globals
  #--------------------------------------------------------
! our $VERSION = "1.0";
  
  #/**
--- 26,30 ----
  # Globals
  #--------------------------------------------------------
! 
  
  #/**

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries ControlStructuresLibrary.pm,NONE,1.1 DebugLibrary.pm,1.2,1.3 DefaultLibrary.pm,1.2,1.3 Library.pm,1.2,1.3

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

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

Modified Files:
	DebugLibrary.pm DefaultLibrary.pm Library.pm 
Added Files:
	ControlStructuresLibrary.pm 
Log Message:
* added ControlStructuresLibrary

--- NEW FILE: ControlStructuresLibrary.pm ---
#--------------------------------------------------------
# $Id: ControlStructuresLibrary.pm,v 1.1 2002/05/15 18:22:18 derkork Exp $
# 
# 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...
#--------------------------------------------------------
use strict;

#/**
# The control structures library enables some basic control structures
# as a WHILE and FOR-loop and an IF/ELSE-statement.
# Usage in your NetScripts is as follows. The IF-statement
# <pre>
#
#   &lt;ns:if test="[some boolean value here]"&gt;
#       This test was true
#   &lt;/ns:if&gt;
#   &lt;ns:else&gt;
#       This test was false
#   &lt;/ns:else&gt;    
# </pre>
# The loops:
# <pre>
#
#   &lt;ns:while test="[some boolean value here]"&gt;
#       [while-block here]
#   &lt;/ns:while&gt;
#
#   &lt;ns:for var="[counter variable]" from="[start value]" to="[end value]"&gt;
#       [for-block here]
#   &lt;/ns:for&gt;
#       
# </pre>
#*/
package NetScript::Libraries::ControlStructuresLibrary;
use base qw(NetScript::Libraries::Library);



use NetScript::Libraries::DebugLibrary;
use NetScript::Engine::EventListener;
use NetScript::Engine::EventRelay;
use NetScript::Interpreter;
use NetScript::Engine::DOMWalker;

#/**
# Ctor. 
# @public
#*/
sub new {
    my $proto = shift;                  # get Prototype
    my $class = ref($proto) || $proto;
    my $this = $class -> SUPER::new();
    my %forLoops = ();
    $this -> { m_forLoops } = \%forLoops;
    $this;
    }


sub init {
    my ($this, $interpreter) = @_;
    $this -> SUPER::init( $interpreter );
    # create event listeners for all events

    my $eventListener1 = NetScript::Engine::EventListener -> new();
    $eventListener1 -> init( 
            $NetScript::Engine::DOMWalker::ELEMENT_START_EVENT,
            "elementStarted", $this );

    my $eventListener2 = NetScript::Engine::EventListener -> new();
    $eventListener2 -> init( 
            $NetScript::Engine::DOMWalker::ELEMENT_END_EVENT,
            "elementFinished", $this );
    my $eventRelay = $this -> interpreter() -> getEventRelay();
    $eventRelay -> addEventListener( $eventListener1 );
    $eventRelay -> addEventListener( $eventListener2 );
    }

#/**
# Called upon element start
# @callback
#*/
sub elementStarted {
    my ( $this, $event ) = @_;
    my $domWalker = $event -> eventUnknown();
    my $node = $domWalker -> currentSource();
    if ( $node -> namespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
        if ($node -> localName() eq "if") {
            $this -> ifStart( $domWalker, $node );
            0; # consume event
            }
        elsif( $node -> localName() eq "else" ) {
            $this -> elseStart( $domWalker, $node );
            0; # consume event
            }
        elsif ($node -> localName() eq "while" ) {
            $this -> whileStart( $domWalker, $node );
            0; # consume event
            }
        elsif ($node -> localName() eq "for" ) {
            $this -> forStart( $domWalker, $node );
            0; # consume event
            }
        else {
            1; # do not consume event
            }
        }
    else {
        1; # do not consume event
        }
    }

#/**
# Checks the test-attribute of the given element node
# for being true or false.
# @private
# @param an instance of <code>XML::DOM2::Element</code>
#*/
sub checkNodeTest {
    my ($this, $node) = @_;
    my $test = $node -> getAttribute( {
        name => "test"
        });
    # replace variables
    my $se = $this -> interpreter() -> getStatementEvaluator();
    $test = $se -> evaluateStatement( $test );
    eval( $test );
    }

#/**
# Called upon the start of an if-node.
# @param an instance of NetScript::Engine::DOMWalker
# @param the if-node (XML::DOM2::Element)
# @private
#*/
sub ifStart {
    my ( $this, $domWalker, $node ) = @_;
    # check condition
    unless ( $this -> checkNodeTest( $node ) ) {
        # test did not succeed, so we jump to the next sibling if any        
        $domWalker -> stepSourceNext();
        }
    else {
        # condition is true, proceed as usual
        $domWalker -> stepSourceIn();
        }
    }

#/**
# Called upon the start of an else-node.
# @param an instance of NetScript::Engine::DOMWalker
# @param the if-node (XML::DOM2::Element)
# @private
#*/
sub elseStart {
    my ( $this, $domWalker, $node ) = @_;
    # find the belonging IF-Node
    my $ifNode = $node -> previousSibling();

    # skip text nodes
    while ( $ifNode && $ifNode -> nodeType() == $XML::DOM2::Node::TEXT_NODE ) {
        $ifNode = $ifNode -> previousSibling();
        }

    if ( $ifNode && 
            $ifNode -> namespaceURI() eq 
            $NetScript::Interpreter::NAMESPACE_URI &&
            $ifNode -> localName() eq "if") {
        
        # check condition
        unless ( $this -> checkNodeTest( $ifNode ) ) {
            # test did not succeed, so we proceed with the else case
            $domWalker -> stepSourceIn();
            }
        else {
            # condition is true, proceed as usual
            $domWalker -> stepSourceNext();
            }
        }
    else {
        # FIXME: DO not use DIE
        die "Else without IF" ;
        }
    }   


#/**
# Called upon the start of a while-node.
# @param an instance of NetScript::Engine::DOMWalker
# @param the if-node (XML::DOM2::Element)
# @private
#*/
sub whileStart {
    my ( $this, $domWalker, $node ) = @_;
    # check condition
    if ( $this -> checkNodeTest( $node ) ) {
        # test did not succeed, so we jump to the next sibling if any        
        $domWalker -> stepSourceNext();
        }
    else {
        # condition is true, proceed as usual
        $domWalker -> stepSourceIn();
        }
    }

#/**
# Called upon the end of an while loop.
# @param an instance of NetScript::Engine::DOMWalker
# @param the if-node (XML::DOM2::Element)
# @private
#*/
sub whileEnd {
    my ( $this, $domWalker, $node ) = @_;
    if ( $this -> checkNodeTest( $node ) ) {
        $domWalker -> sourceAgain();        
        }
    # else do nothing
    }


#/**
# Called when a for-loop starts.
# @param an instance of NetScript::Engine::DOMWalker
# @param the if-node (XML::DOM2::Element)
# @private
#*/
sub forStart {
    my ( $this, $domWalker, $node ) = @_;
    

    my $from = $node -> getAttribute({
        name => "from"
        });
    my $to = $node -> getAttribute({
        name => "to"
        });
    
    my $var = $node -> getAttribute({
        name => "var"
        });

    my $value = $this -> { m_forLoops } -> {  $node };

        
    if ( !defined( $value ) )  { # variable is yet unknown so we initialize it
        $value = $from;
        }
    else {
        if ( $from <= $to ) { # step up if from is <= to
            $value ++;
            }
        else {                # step down otherwise
            $value --;
            }
        }
    # create new state

    $this -> interpreter() -> newState();
    # set variable 
    $this -> interpreter() -> getState() -> setVariableValue(
        $var, $value );
    $this -> { m_forLoops } -> { $node } = $value;

    if ( ( $from <= $to &&  $value > $to ) ||
         ( $from > $to &&  $value < $to ) )  { # check if loop should be executed
        # no it should not, skip node
        $domWalker -> stepSourceNext();
        }
    else {
        # it should, proceed in
        $domWalker -> stepSourceIn();
        }
    }

#/**
# Called when a for-loop ends..
# @param an instance of NetScript::Engine::DOMWalker
# @param the if-node (XML::DOM2::Element)
# @private
#*/
sub forEnd {
    my ($this, $domWalker, $node) = @_;
    my $from = $node -> getAttribute({
        name => "from"
        });
    my $to = $node -> getAttribute({
        name => "to"
        });
    
    my $var = $node -> getAttribute({
        name => "var"
        });

    my $value = $this -> interpreter() -> getState() ->
        getVariableValue( $var );
        
    $this -> interpreter() -> dropState();
    if ( ( $from <= $to &&  $value <= $to ) ||
         ( $from > $to &&  $value >= $to ) )  { # check if loop should be executed
        # in case that the user has changed the value
        $this -> { m_forLoops } -> { $node } = $value;
        $domWalker -> sourceAgain();
        }
    else {
        delete $this -> { m_forLoops } ->  { $node };
        }
    }

#/**
# Called upon element finish.
#*/
sub elementFinished {
    my ( $this, $event ) = @_;
    my $domWalker = $event -> eventUnknown();
    my $node = $domWalker -> currentSource();
    if ( $node -> namespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
        if ($node -> localName() eq "if") {
            # nothing to do, but event MUST be consumed
            0; # consume event 
            }
        elsif ($node -> localName() eq "else") {
            # nothing to do, but event MUST be consumed
            0; # consume event 
            }
        elsif ($node -> localName() eq "while" ) {
            $this -> whileEnd( $domWalker, $node );
            0; # consume event
            }
        elsif ($node -> localName() eq "for" ) {
            $this -> forEnd( $domWalker, $node );
            0; # consume event
            }
        else {
            1; # do not consume event
            }
        }
    else {
        1; # do not consume event
        }
    }


sub shutdown {
    my ($this) = @_;
    $this -> SUPER::shutdown();
    }


#/**
# Sends a debug event.
# @param the debug message
# @private
#*/
sub debug {
    my ($this, $message) = @_;
    $this -> interpreter() -> getEventRelay() ->
            createAndRaiseEvent( 
            $NetScript::Libraries::DebugLibrary::DEBUG_EVENT,
            $message,
            "Control" 
            );
    }
1; #make require happy


Index: DebugLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DebugLibrary.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DebugLibrary.pm	11 May 2002 13:13:10 -0000	1.2
--- DebugLibrary.pm	15 May 2002 18:22:18 -0000	1.3
***************
*** 2,6 ****
  # $Id$
  #
- # Class DebugLibrary
  # 
  # NetScript and all related materials, such as documentation,
--- 2,5 ----
***************
*** 18,22 ****
  use base qw(NetScript::Libraries::Library);
  
! our $VERSION = '1.0';
  
  our $DEBUG_EVENT = "DEBUG_LIBRARY_DEBUG_EVENT";
--- 17,21 ----
  use base qw(NetScript::Libraries::Library);
  
! 
  
  our $DEBUG_EVENT = "DEBUG_LIBRARY_DEBUG_EVENT";
***************
*** 67,71 ****
      my ( $this, $event ) = @_;
      my $domWalker = $event -> eventUnknown();
!     my $document = $domWalker -> currentSource() -> ownerDocument();
      my $comment = $document -> createComment( { 
              data => $this -> debugMessage() 
--- 66,70 ----
      my ( $this, $event ) = @_;
      my $domWalker = $event -> eventUnknown();
!     my $document = $domWalker -> sourceDocument();
      my $comment = $document -> createComment( { 
              data => $this -> debugMessage() 

Index: DefaultLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DefaultLibrary.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DefaultLibrary.pm	11 May 2002 13:09:03 -0000	1.2
--- DefaultLibrary.pm	15 May 2002 18:22:18 -0000	1.3
***************
*** 2,6 ****
  # $Id$
  #
- # Class DefaultLibrary
  # 
  # NetScript and all related materials, such as documentation,
--- 2,5 ----
***************
*** 20,24 ****
  use base qw(NetScript::Libraries::Library);
  
! our $VERSION = '1.0';
  
  use NetScript::Engine::EventListener;
--- 19,23 ----
  use base qw(NetScript::Libraries::Library);
  
! 
  
  use NetScript::Engine::EventListener;
***************
*** 35,40 ****
      my $class = ref($proto) || $proto;
      my $this = $class -> SUPER::new();
-     my @elemStack = ();
-     $this -> { m_elemStack } = \@elemStack;
      $this;
      }
--- 34,37 ----
***************
*** 82,85 ****
--- 79,89 ----
             $NetScript::Engine::EventListener::PRIORITY_LAST );
  
+     my $eventListener7 = NetScript::Engine::EventListener -> new();
+     $eventListener7 -> init( 
+             $NetScript::Engine::DOMWalker::DOCUMENT_START_EVENT,
+             "documentStarted", $this, 
+            $NetScript::Engine::EventListener::PRIORITY_LAST );
+ 
+ 
      my $eventRelay = $this -> interpreter() -> getEventRelay();
      $eventRelay -> addEventListener( $eventListener1 );
***************
*** 89,92 ****
--- 93,97 ----
      $eventRelay -> addEventListener( $eventListener5 );
      $eventRelay -> addEventListener( $eventListener6 );
+     $eventRelay -> addEventListener( $eventListener7 );
      }
  
***************
*** 101,104 ****
--- 106,110 ----
      my $node = $domWalker -> currentSource();
      $domWalker -> insertIntoTarget( $node, 1 );
+     $domWalker -> stepSourceIn();
      0; # consume event
      }
***************
*** 112,117 ****
      my ($this, $event) = @_;
      my $domWalker = $event -> eventUnknown();
-     my $id = $domWalker -> markCurrentTarget();
-     push( @{$this -> { m_elemStack }}, $id );
      $this -> copyNode( $event );
      0; # consume event
--- 118,121 ----
***************
*** 126,135 ****
      my ($this, $event) = @_;
      my $domWalker = $event -> eventUnknown();
!     my $id = pop( @{$this -> { m_elemStack }} );
!     my $node = $domWalker -> markedNode( $id );
!     $domWalker -> currentTarget( $node );
!     $domWalker -> clearMark( $id );
      0; # consume event
      }
  
  sub shutdown {
--- 130,149 ----
      my ($this, $event) = @_;
      my $domWalker = $event -> eventUnknown();
!     $domWalker -> stepTargetUp();
      0; # consume event
      }
+ 
+ 
+ #/**
+ # Called, if the document is started.
+ # @callback
+ #*/
+ sub documentStarted {
+     my ($this, $event) = @_;
+     my $domWalker = $event -> eventUnknown();
+     $domWalker -> stepSourceIn();
+     }
+ 
+ 
  
  sub shutdown {

Index: Library.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/Library.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Library.pm	11 May 2002 13:09:03 -0000	1.2
--- Library.pm	15 May 2002 18:22:18 -0000	1.3
***************
*** 22,26 ****
  
  
! our $VERSION = '1.0';
  
  #/**
--- 22,26 ----
  
  
! 
  
  #/**
***************
*** 71,74 ****
--- 71,75 ----
      $this -> { m_interpreter };
      }
+ 
  
  1; #make require happy

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries wipeout.project,1.3,1.4

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

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

Modified Files:
	wipeout.project 
Log Message:
* added ControlStructuresLibrary

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/wipeout.project,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** wipeout.project	11 May 2002 13:08:54 -0000	1.3
--- wipeout.project	15 May 2002 18:22:09 -0000	1.4
***************
*** 1,204 ****
  b
! C DmDictionary 0 d0c0 8 
! c 0 d16f 9 
! C Category 1 51b8 
! c 0 d1af 4 
! C DmString 2 d1b6 2 e3 
! c 2 d1b5 a defaultExe 
! C DmSet 3 d1b8 1 
! c 2 51c7 2 e3 
! L 51c7 
! c 2 d1b7 b executables 
! c 3 d1b3 3 
! c 2 51ce 3 *.C 
! L 51ce 
! c 2 51d1 4 *.cc 
! L 51d1 
! c 2 51d4 5 *.cpp 
! L 51d4 
! c 2 d1b2 a extensions 
! c 2 d1b1 a CPP_source 
! c 2 d1b0 4 name 
! c 2 d171 a CPP_source 
! c 1 51e9 
! c 0 d1f5 4 
! c 2 d1fc 2 e3 
! c 2 d1fb a defaultExe 
! c 3 d1fe 1 
! c 2 51f6 2 e3 
! L 51f6 
! c 2 d1fd b executables 
! c 3 d1f9 1 
! c 2 51fd 3 *.c 
! L 51fd 
! c 2 d1f8 a extensions 
! c 2 d1f7 8 C_source 
! c 2 d1f6 4 name 
! c 2 d172 8 C_source 
! c 1 5212 
! c 0 d22f 4 
! c 2 d236 2 e3 
! c 2 d235 a defaultExe 
! c 3 d238 1 
! c 2 521f 2 e3 
! L 521f 
! c 2 d237 b executables 
! c 3 d233 1 
! c 2 5226 3 *.e 
! L 5226 
! c 2 d232 a extensions 
! c 2 d231 6 Eiffel 
! c 2 d230 4 name 
! c 2 d173 6 Eiffel 
! c 1 523b 
! c 0 d269 4 
! c 2 d270 2 e3 
! c 2 d26f a defaultExe 
! c 3 d272 1 
! c 2 5248 2 e3 
! L 5248 
! c 2 d271 b executables 
! c 3 d26d 4 
! c 2 524f 3 *.F 
! L 524f 
! c 2 5252 3 *.f 
! L 5252 
! c 2 5255 5 *.for 
! L 5255 
! c 2 5258 5 *.fpp 
! L 5258 
! c 2 d26c a extensions 
! c 2 d26b 7 Fortran 
! c 2 d26a 4 name 
! c 2 d174 7 Fortran 
! c 1 526d 
! c 0 d2af 4 
! c 2 d2b6 2 e3 
! c 2 d2b5 a defaultExe 
! c 3 d2b8 1 
! c 2 527a 2 e3 
! L 527a 
! c 2 d2b7 b executables 
! c 3 d2b3 2 
! c 2 5281 3 *.H 
! L 5281 
! c 2 5284 3 *.h 
! L 5284 
! c 2 d2b2 a extensions 
! c 2 d2b1 6 Header 
! c 2 d2b0 4 name 
! c 2 d175 6 Header 
! c 1 5299 
! c 0 d2ed 4 
! c 2 d2f4 9 surfboard 
! c 2 d2f3 a defaultExe 
! c 3 d2f6 2 
! c 2 52a6 2 e3 
! L 52a6 
! c 2 52a9 9 surfboard 
! L 52a9 
! c 2 d2f5 b executables 
! c 3 d2f1 2 
! c 2 52b0 5 *.htm 
! L 52b0 
! c 2 52b3 6 *.html 
! L 52b3 
! c 2 d2f0 a extensions 
! c 2 d2ef 4 Html 
! c 2 d2ee 4 name 
! c 2 d176 4 Html 
! c 1 52c8 
! c 0 d32f 4 
! c 2 d336 2 e3 
! c 2 d335 a defaultExe 
! c 3 d338 1 
! c 2 52d5 2 e3 
! L 52d5 
! c 2 d337 b executables 
! c 3 d333 1 
! c 2 52dc 6 *.java 
! L 52dc 
! c 2 d332 a extensions 
! c 2 d331 4 Java 
! c 2 d330 4 name 
! c 2 d177 4 Java 
! c 1 52f1 
! c 0 d369 4 
! c 2 d370 2 e3 
! c 2 d36f a defaultExe 
! c 3 d372 1 
! c 2 52fe 2 e3 
! L 52fe 
! c 2 d371 b executables 
! c 3 d36d 1 
! c 2 5305 5 *.tex 
! L 5305 
! c 2 d36c a extensions 
! c 2 d36b 5 Latex 
! c 2 d36a 4 name 
! c 2 d178 5 Latex 
! c 1 531a 
! c 0 d3a3 4 
! c 2 d3aa 2 e3 
! c 2 d3a9 a defaultExe 
! c 3 d3ac 1 
! c 2 5327 2 e3 
! L 5327 
! c 2 d3ab b executables 
! c 3 d3a7 0 
! c 2 d3a6 a extensions 
! c 2 d3a5 5 Other 
! c 2 d3a4 4 name 
! c 2 d179 5 Other 
! c 2 d16e a categories 
! c 0 d17b 1 
! C ProjectDir 4 5344 
! c 2 5345 28 netscript2/src/perl/NetScript/Libraries/ 11 81 
! c 2 5346 0  0 
! c 2 d17d 28 netscript2/src/perl/NetScript/Libraries/ 
! c 2 d17a b directories 
! C DmBag 5 d0cc 3 
! c 2 d102 d7 b
! C DmDictionary 0 d0ce 3 
! C DmString 1 d0e0 36 b
! C DmSet 0 cf3b 1 
! C DmString 1 d0b5 5 Other 
! L d0b5  
! c 1 d0df a categories 
! c 1 d0d0 f DebugLibrary.pm 
! c 1 d0cf 4 name 
! C DmInteger 2 d0e2 1 
! c 1 d0e1 9 substMode  
! c 2 d137 da b
! C DmDictionary 0 d103 3 
! C DmString 1 d115 36 b
! C DmSet 0 537c 1 
! C DmString 1 53aa 5 Other 
! L 53aa  
! c 1 d114 a categories 
! c 1 d105 11 DefaultLibrary.pm 
! c 1 d104 4 name 
! C DmInteger 2 d117 1 
! c 1 d116 9 substMode  
! c 2 d16c d2 b
! C DmDictionary 0 d138 3 
! C DmString 1 d14a 36 b
! C DmSet 0 53bb 1 
! C DmString 1 53e9 5 Other 
! L 53e9  
! c 1 d149 a categories 
! c 1 d13a a Library.pm 
! c 1 d139 4 name 
! C DmInteger 2 d14c 1 
! c 1 d14b 9 substMode  
! c 2 d16d 5 files 
! c 2 d0c8 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 d0c7 6 launch 
! c 2 d0c4 4 make 
! c 2 d0c3 4 make 
! c 2 d0c6 0  
! c 2 d0c5 8 makeFile 
! c 5 d0c9 0 
! c 2 d0cb 7 modules 
! c 2 d0c2 9 Libraries 
! c 2 d0c1 4 name 
--- 1,215 ----
  b
! C DmDictionary 0 518f3 8 
! c 0 519d7 9 
! C Category 1 7b90 
! c 0 51a17 4 
! C DmString 2 51a1e 2 e3 
! c 2 51a1d a defaultExe 
! C DmSet 3 51a20 1 
! c 2 7b9f 2 e3 
! L 7b9f 
! c 2 51a1f b executables 
! c 3 51a1b 3 
! c 2 7ba6 3 *.C 
! L 7ba6 
! c 2 7ba9 4 *.cc 
! L 7ba9 
! c 2 7bac 5 *.cpp 
! L 7bac 
! c 2 51a1a a extensions 
! c 2 51a19 a CPP_source 
! c 2 51a18 4 name 
! c 2 519d9 a CPP_source 
! c 1 7bc1 
! c 0 51a5d 4 
! c 2 51a64 2 e3 
! c 2 51a63 a defaultExe 
! c 3 51a66 1 
! c 2 7bce 2 e3 
! L 7bce 
! c 2 51a65 b executables 
! c 3 51a61 1 
! c 2 7bd5 3 *.c 
! L 7bd5 
! c 2 51a60 a extensions 
! c 2 51a5f 8 C_source 
! c 2 51a5e 4 name 
! c 2 519da 8 C_source 
! c 1 7bea 
! c 0 51a97 4 
! c 2 51a9e 2 e3 
! c 2 51a9d a defaultExe 
! c 3 51aa0 1 
! c 2 7bf7 2 e3 
! L 7bf7 
! c 2 51a9f b executables 
! c 3 51a9b 1 
! c 2 7bfe 3 *.e 
! L 7bfe 
! c 2 51a9a a extensions 
! c 2 51a99 6 Eiffel 
! c 2 51a98 4 name 
! c 2 519db 6 Eiffel 
! c 1 7c13 
! c 0 51ad1 4 
! c 2 51ad8 2 e3 
! c 2 51ad7 a defaultExe 
! c 3 51ada 1 
! c 2 7c20 2 e3 
! L 7c20 
! c 2 51ad9 b executables 
! c 3 51ad5 4 
! c 2 7c27 3 *.F 
! L 7c27 
! c 2 7c2a 3 *.f 
! L 7c2a 
! c 2 7c2d 5 *.for 
! L 7c2d 
! c 2 7c30 5 *.fpp 
! L 7c30 
! c 2 51ad4 a extensions 
! c 2 51ad3 7 Fortran 
! c 2 51ad2 4 name 
! c 2 519dc 7 Fortran 
! c 1 7c45 
! c 0 51b17 4 
! c 2 51b1e 2 e3 
! c 2 51b1d a defaultExe 
! c 3 51b20 1 
! c 2 7c52 2 e3 
! L 7c52 
! c 2 51b1f b executables 
! c 3 51b1b 2 
! c 2 7c59 3 *.H 
! L 7c59 
! c 2 7c5c 3 *.h 
! L 7c5c 
! c 2 51b1a a extensions 
! c 2 51b19 6 Header 
! c 2 51b18 4 name 
! c 2 519dd 6 Header 
! c 1 7c71 
! c 0 51b55 4 
! c 2 51b5c 9 surfboard 
! c 2 51b5b a defaultExe 
! c 3 51b5e 2 
! c 2 7c7e 2 e3 
! L 7c7e 
! c 2 7c81 9 surfboard 
! L 7c81 
! c 2 51b5d b executables 
! c 3 51b59 2 
! c 2 7c88 5 *.htm 
! L 7c88 
! c 2 7c8b 6 *.html 
! L 7c8b 
! c 2 51b58 a extensions 
! c 2 51b57 4 Html 
! c 2 51b56 4 name 
! c 2 519de 4 Html 
! c 1 7ca0 
! c 0 51b97 4 
! c 2 51b9e 2 e3 
! c 2 51b9d a defaultExe 
! c 3 51ba0 1 
! c 2 7cad 2 e3 
! L 7cad 
! c 2 51b9f b executables 
! c 3 51b9b 1 
! c 2 7cb4 6 *.java 
! L 7cb4 
! c 2 51b9a a extensions 
! c 2 51b99 4 Java 
! c 2 51b98 4 name 
! c 2 519df 4 Java 
! c 1 7cc9 
! c 0 51bd1 4 
! c 2 51bd8 2 e3 
! c 2 51bd7 a defaultExe 
! c 3 51bda 1 
! c 2 7cd6 2 e3 
! L 7cd6 
! c 2 51bd9 b executables 
! c 3 51bd5 1 
! c 2 7cdd 5 *.tex 
! L 7cdd 
! c 2 51bd4 a extensions 
! c 2 51bd3 5 Latex 
! c 2 51bd2 4 name 
! c 2 519e0 5 Latex 
! c 1 7cf2 
! c 0 51c0b 4 
! c 2 51c12 2 e3 
! c 2 51c11 a defaultExe 
! c 3 51c14 1 
! c 2 7cff 2 e3 
! L 7cff 
! c 2 51c13 b executables 
! c 3 51c0f 0 
! c 2 51c0e a extensions 
! c 2 51c0d 5 Other 
! c 2 51c0c 4 name 
! c 2 519e1 5 Other 
! c 2 519d6 a categories 
! c 0 519e3 1 
! C ProjectDir 4 7d1c 
! c 2 7d1d 28 netscript2/src/perl/NetScript/Libraries/ 11 81 
! c 2 7d1e 0  0 
! c 2 519e5 28 netscript2/src/perl/NetScript/Libraries/ 
! c 2 519e2 b directories 
! C DmBag 5 518ff 4 
! c 2 51935 ee b
! C DmDictionary 0 51901 3 
! C DmString 1 51913 39 b
! C DmSet 0 5176e 1 
! C DmString 1 518e8 5 Other 
! L 518e8  
! c 1 51912 a categories 
! c 1 51903 1b ControlStructuresLibrary.pm 
! c 1 51902 4 name 
! C DmInteger 2 51915 1 
! c 1 51914 9 substMode  
! c 2 5196a de b
! C DmDictionary 0 51936 3 
! C DmString 1 51948 36 b
! C DmSet 0 7d56 1 
! C DmString 1 7d84 5 Other 
! L 7d84  
! c 1 51947 a categories 
! c 1 51938 f DebugLibrary.pm 
! c 1 51937 4 name 
! C DmInteger 2 5194a 1 
! c 1 51949 9 substMode  
! c 2 5199f e1 b
! C DmDictionary 0 5196b 3 
! C DmString 1 5197d 36 b
! C DmSet 0 7d95 1 
! C DmString 1 7dc3 5 Other 
! L 7dc3  
! c 1 5197c a categories 
! c 1 5196d 11 DefaultLibrary.pm 
! c 1 5196c 4 name 
! C DmInteger 2 5197f 1 
! c 1 5197e 9 substMode  
! c 2 519d4 d9 b
! C DmDictionary 0 519a0 3 
! C DmString 1 519b2 36 b
! C DmSet 0 7dd4 1 
! C DmString 1 7e02 5 Other 
! L 7e02  
! c 1 519b1 a categories 
! c 1 519a2 a Library.pm 
! c 1 519a1 4 name 
! C DmInteger 2 519b4 1 
! c 1 519b3 9 substMode  
! c 2 519d5 5 files 
! c 2 518fb 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 518fa 6 launch 
! c 2 518f7 4 make 
! c 2 518f6 4 make 
! c 2 518f9 0  
! c 2 518f8 8 makeFile 
! c 5 518fc 0 
! c 2 518fe 7 modules 
! c 2 518f5 9 Libraries 
! c 2 518f4 4 name