[Tinyos-beta-commits] CVS: tinyos-1.x/beta/SystemCore/EventLogger EventLoggerPerl.h, 1.4, 1.5

[Gilman Tolle]

Update of /cvsroot/tinyos/tinyos-1.x/beta/SystemCore/EventLogger
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28859/EventLogger

Modified Files:
	EventLoggerPerl.h 
Log Message:
Added XSM Sounder to Deployer Response
Debug/Testing code for Drip and PowerMgmt
Cleanups

Added a copy of the most recent compiled XSM binary.



Index: EventLoggerPerl.h
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/beta/SystemCore/EventLogger/EventLoggerPerl.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** EventLoggerPerl.h	3 Aug 2004 17:46:54 -0000	1.4
--- EventLoggerPerl.h	7 Sep 2004 22:15:38 -0000	1.5
***************
*** 6,16 ****
    my %arg = @_;
    my $command = $arg{text};
!   $command =~ m/(.*)logEvent\((.*)\)/;
    my $storeVar = $1;
    my $arglist = $2;
    $arglist =~ m/(".*")/;
    my $schemaString = $1;
!   $arglist =~ s/".*"//g;
!   my @commandArgs = split(/,\s*/, $arglist);
  
    if (!defined($main::schemaKey)) {
--- 6,17 ----
    my %arg = @_;
    my $command = $arg{text};
!   $command =~ m/(.*)logEvent\((.*)\)/s;
    my $storeVar = $1;
    my $arglist = $2;
    $arglist =~ m/(".*")/;
    my $schemaString = $1;
!   $arglist =~ s/\".*\"//g;
! 
!   my @commandArgs = split(/\s*,\s*/, $arglist);
  
    if (!defined($main::schemaKey)) {