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

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

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

Modified Files:
	Interpreter.pm 
Log Message:
* added autoload for DebugLibrary

Index: Interpreter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Interpreter.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Interpreter.pm	9 May 2002 19:14:00 -0000	1.5
--- Interpreter.pm	11 May 2002 13:12:35 -0000	1.6
***************
*** 16,20 ****
  #*/
  package NetScript::Interpreter;
! use vars qw($VERSION);
  use strict;
  
--- 16,20 ----
  #*/
  package NetScript::Interpreter;
! 
  use strict;
  
***************
*** 29,32 ****
--- 29,33 ----
  use NetScript::Engine::StatementEvaluator;
  use NetScript::Libraries::DefaultLibrary;
+ use NetScript::Libraries::DebugLibrary;
  use NetScript::Util::XMLParserRelay;
  use NetScript::Util::FileRetriever;
***************
*** 37,40 ****
--- 38,46 ----
  use XML::DOM2::XMLDOMWriterStyle;
  
+ #--------------------------------------------------------
+ # Globals
+ #--------------------------------------------------------
+ our $VERSION = '2.0';                       # Current Version of Class
+ 
  # This is for catching errors at compile-time
  use CGI::Carp qw(fatalsToBrowser set_message);
***************
*** 59,104 ****
      }
  
- #--------------------------------------------------------
- # Globals
- #--------------------------------------------------------
- $VERSION = '2.0';                       # Current Version of Class
- 
- #/** 
- # Constant for a Debug-Event 
- #*/
- sub DEBUG_EVENT             { "NetScript::Interpreter::DEBUG_EVENT"; }
- 
- #/** 
- # Constant for an Warning-Event 
- #*/
- sub WARNING_EVENT           { "NetScript::Interpreter::WARNING_EVENT"; }
- 
- #/** 
- # Constant for a Fatal-Error-Event 
- #*/
- sub FATAL_EVENT             { "NetScript::Interpreter::FATAL_EVENT"; }
- 
- #/** 
- # Constant for an Event, that will be raised before parsing of
- # the input file.
- #*/
- sub PARSE_START_EVENT       { "NetScript::Interpreter::PARSE_START_EVENT"; }
- 
- #/** 
- # Constant for an Event, that will be raised after parsing of
- # the input file.
- #*/
- sub PARSE_END_EVENT         { "NetScript::Interpreter::PARSE_END_EVENT"; }
- 
- #/** 
- # Constant for an Event, that will be raised before interpreter will 
- # terminate.
- #*/
- sub INTERPRETER_EXIT_EVENT  { "NetScript::Interpreter::INTERPRETER_EXIT_EVENT"; }
- 
- #/** 
- # Constant for the NetScript namespace URI.
- #*/
- sub NETSCRIPT_NAMESPACE_URI { "http://www.insomnia-hq.de/netscript"; }
  
  #/**
--- 65,68 ----
***************
*** 127,130 ****
--- 91,97 ----
      my $defLib = NetScript::Libraries::DefaultLibrary -> new();
      $defLib -> init( $this );
+     
+     my $debugLib = NetScript::Libraries::DebugLibrary -> new();
+     $debugLib -> init( $this );
      return $this;                       # return Object
      }
***************
*** 166,170 ****
      
      
-     $this -> getEventRelay() -> createAndRaiseEvent(&PARSE_START_EVENT());
      # start input file parsing
      my $domparser = XML::DOM2::DOMParser -> new();
--- 133,136 ----
***************
*** 188,192 ****
      
  
-     $this -> getEventRelay() -> createAndRaiseEvent(&PARSE_END_EVENT());
      # end input file parsing
      
--- 154,157 ----
***************
*** 194,198 ****
      
      # shutdown
-     $this -> getEventRelay() -> createAndRaiseEvent(&INTERPRETER_EXIT_EVENT());
      }
  
--- 159,162 ----