epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Trace: empty or zero value is equivalent to no ID

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-09 13:44:28 +02:00
parent d8389b2b77
commit 0fc6ae8a75
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ACU/Trace.pm
View File

@ -179,28 +179,38 @@ sub end_element
{
my ($self, $element) = @_;
if ($element->{Name} eq "value") {
if ($self->{values} =~ /(-?[0-9]+(.[0-9]+)?)/) {
if ($element->{Name} eq "value")
{
if ($self->{values} =~ /(-?[0-9]+(.[0-9]+)?)/)
{
$self->{parsed}{ids}{ $self->{inEval} } += $1;
if ($self->{inValue} ne NO_ID_VALUE) {
if ($self->{inValue} ne NO_ID_VALUE and $1) {
$self->{parsed}{ids}{ $self->{inValue} } = $1;
}
}
$self->{inValue} = "";
}
elsif ($element->{Name} eq "comment") {
elsif ($element->{Name} eq "eval")
{
delete $self->{parsed}{ids}{ $self->{inEval} } if (!$self->{parsed}{ids}{ $self->{inEval} });
$self->{inEval} = "";
}
elsif ($element->{Name} eq "comment")
{
if ($self->{values} =~ /([^\s].*[^\s]|[^\s])/) {
$self->{parsed}{comments}{ $self->{inComment} } = $1;
}
$self->{inComment} = "";
}
elsif ($element->{Name} eq "who") {
elsif ($element->{Name} eq "who")
{
if ($self->{values} =~ /([^\s].*[^\s]|[^\s])/) {
$self->{parsed}{who}{ $self->{inWho} } = $1;
}
$self->{inComment} = "";
}
elsif ($element->{Name} eq "info") {
elsif ($element->{Name} eq "info")
{
if ($self->{values} =~ /([^\s].*[^\s]|[^\s])/) {
$self->{parsed}{infos}{ $self->{inInfo} } = $1;
}