# Copyright (c) 2009 Symbian Foundation Ltd

# This component and the accompanying materials are made available

# under the terms of the License "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Symbian Foundation Ltd - initial contribution.

#

# Contributors:

#

# Description:

# SAX Handler for the Raptor log

package RaptorSAXHandler;

use base qw(XML::SAX::Base);

sub new

{

    my ($type) = @_;

    return bless {}, $type;

}

sub set_init_status

{

	my ($self, $initialstatus) = @_;

	$self->{status} = $initialstatus;

}

sub start_document

{

	my ($self, $doc) = @_;

	# process document start event

	#print "start_document\n";

}

sub start_element

{

	my ($self, $el) = @_;

	# process element start event

	my $tagname = $el->{LocalName};

	#print "start_element($tagname)\n";

	if (defined $self->{status}->{next_status}->{$tagname})

	{

		my $oldstatus = $self->{status};

		$self->{status} = $self->{status}->{next_status}->{$tagname};

		#print "status is now $self->{status}->{name}\n";

		$self->{status}->{next_status}->{$tagname} = $oldstatus;

		&{$self->{status}->{on_start}}($el) if (defined $self->{status}->{on_start});

	}

	elsif (defined $self->{status}->{next_status}->{'?default?'})

	{

		#print "changing to default status\n";

		my $oldstatus = $self->{status};

		$self->{status} = $self->{status}->{next_status}->{'?default?'};

		#print "status is now ?default?\n";

		$self->{status}->{next_status}->{$tagname} = $oldstatus;

		&{$self->{status}->{on_start}}($el) if (defined $self->{status}->{on_start});

	}

}

sub end_element

{

	my ($self, $el) = @_;

	# process element start event

	my $tagname = $el->{LocalName};

	#print "end_element($tagname)\n";

	if (defined $self->{status}->{next_status}->{$tagname})

	{

		&{$self->{status}->{on_end}}($el) if (defined $self->{status}->{on_end});

		$self->{status} = $self->{status}->{next_status}->{$tagname};

		#print "status is now $self->{status}->{name}\n";

	}

}

sub characters

{

	my ($self, $ch) = @_;

	&{$self->{status}->{on_chars}}($ch) if (defined $self->{status}->{on_chars});

}

1;