--- a/common/tools/raptor/RaptorSAXHandler.pm	Thu Mar 11 13:20:26 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,108 +0,0 @@
-# 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 add_observer
-{
-	my ($self, $name, $initialstatus) = @_;
-	
-	$self->{observers} = {} if (!defined $self->{observers});
-	
-	$self->{observers}->{$name} = $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";
-	
-	for my $observer (keys %{$self->{observers}})
-	{
-		#print "processing observer $observer: $self->{observers}->{$observer} $self->{observers}->{$observer}->{name}\n";
-		#for (keys %{$self->{observers}->{$observer}->{next_status}}) {print "$_\n";}
-		
-		if (defined $self->{observers}->{$observer}->{next_status}->{$tagname})
-		{
-			#print "processing observer $observer\n";
-			my $oldstatus = $self->{observers}->{$observer};
-			$self->{observers}->{$observer} = $self->{observers}->{$observer}->{next_status}->{$tagname};
-			#print "$observer: status is now $self->{observers}->{$observer}->{name}\n";
-			$self->{observers}->{$observer}->{next_status}->{$tagname} = $oldstatus;
-			&{$self->{observers}->{$observer}->{on_start}}($el) if (defined $self->{observers}->{$observer}->{on_start});
-		}
-		elsif (defined $self->{observers}->{$observer}->{next_status}->{'?default?'})
-		{
-			#print "processing observer $observer\n";
-			#print "changing to default status\n";
-			my $oldstatus = $self->{observers}->{$observer};
-			$self->{observers}->{$observer} = $self->{observers}->{$observer}->{next_status}->{'?default?'};
-			#print "status is now ?default?\n";
-			$self->{observers}->{$observer}->{next_status}->{$tagname} = $oldstatus;
-			&{$self->{observers}->{$observer}->{on_start}}($el) if (defined $self->{observers}->{$observer}->{on_start});
-		}
-	}
-}
-
-sub end_element
-{
-	my ($self, $el) = @_;
-	# process element start event
-	
-	my $tagname = $el->{LocalName};
-	
-	#print "end_element($tagname)\n";
-	
-	for my $observer (keys %{$self->{observers}})
-	{
-		if (defined $self->{observers}->{$observer}->{next_status}->{$tagname})
-		{
-			&{$self->{observers}->{$observer}->{on_end}}($el) if (defined $self->{observers}->{$observer}->{on_end});
-			$self->{observers}->{$observer} = $self->{observers}->{$observer}->{next_status}->{$tagname};
-			#print "status is now $self->{observers}->{$observer}->{name}\n";
-		}
-	}
-}
-
-sub characters
-{
-	my ($self, $ch) = @_;
-	
-	for my $observer (keys %{$self->{observers}})
-	{
-		&{$self->{observers}->{$observer}->{on_chars}}($ch) if (defined $self->{observers}->{$observer}->{on_chars});
-	}
-}
-
-1;