[NetScript CVS] CVS: netscript2/src/perl/NetScript Interpreter.pm,1.13,1.14

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

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

Modified Files:
	Interpreter.pm 
Log Message:
* added ID-generator

Index: Interpreter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Interpreter.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Interpreter.pm	26 Oct 2002 21:09:35 -0000	1.13
--- Interpreter.pm	26 Oct 2002 22:03:52 -0000	1.14
***************
*** 16,23 ****
  # registered.
  # 
! # The interpreter delivers two global variables:
  #   <pre>
  #       $(SYS.interpreterURL) - URL of the interpreter
  #       $(SYS.scriptURL) - URL of the currently executed script
  #   </pre>
  #   
--- 16,26 ----
  # registered.
  # 
! # The interpreter delivers three global variables:
  #   <pre>
  #       $(SYS.interpreterURL) - URL of the interpreter
  #       $(SYS.scriptURL) - URL of the currently executed script
+ #       $(SYS.nextID) - contains always a unique ID, which can
+ #                       be used for any purpose. Note that this
+ #                       id is not numerical.
  #   </pre>
  #   
***************
*** 206,209 ****
--- 209,213 ----
      $systemWrapper -> setMember( '^interpreterURL$', undef, "getInterpreterURL" );
      $systemWrapper -> setMember( '^scriptURL$', undef, "getScriptURL" );
+     $systemWrapper -> setMember( '^nextID$', undef, "getUID" );
  
      # register the SYS-object