|
1 # Copyright (c) 2009 Symbian Foundation Ltd |
|
2 # This component and the accompanying materials are made available |
|
3 # under the terms of the License "Eclipse Public License v1.0" |
|
4 # which accompanies this distribution, and is available |
|
5 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
6 # |
|
7 # Initial Contributors: |
|
8 # Symbian Foundation Ltd - initial contribution. |
|
9 # |
|
10 # Contributors: |
|
11 # |
|
12 # Description: |
|
13 # SAX Handler for the Raptor log |
|
14 |
|
15 package RaptorSAXHandler; |
|
16 use base qw(XML::SAX::Base); |
|
17 |
|
18 sub new |
|
19 { |
|
20 my ($type) = @_; |
|
21 |
|
22 return bless {}, $type; |
|
23 } |
|
24 |
|
25 sub add_observer |
|
26 { |
|
27 my ($self, $name, $initialstatus) = @_; |
|
28 |
|
29 $self->{observers} = {} if (!defined $self->{observers}); |
|
30 |
|
31 $self->{observers}->{$name} = $initialstatus; |
|
32 } |
|
33 |
|
34 sub start_document |
|
35 { |
|
36 my ($self, $doc) = @_; |
|
37 # process document start event |
|
38 |
|
39 #print "start_document\n"; |
|
40 } |
|
41 |
|
42 sub start_element |
|
43 { |
|
44 my ($self, $el) = @_; |
|
45 # process element start event |
|
46 |
|
47 my $tagname = $el->{LocalName}; |
|
48 |
|
49 #print "start_element($tagname)\n"; |
|
50 |
|
51 for my $observer (keys %{$self->{observers}}) |
|
52 { |
|
53 #print "processing observer $observer: $self->{observers}->{$observer} $self->{observers}->{$observer}->{name}\n"; |
|
54 #for (keys %{$self->{observers}->{$observer}->{next_status}}) {print "$_\n";} |
|
55 |
|
56 if (defined $self->{observers}->{$observer}->{next_status}->{$tagname}) |
|
57 { |
|
58 #print "processing observer $observer\n"; |
|
59 my $oldstatus = $self->{observers}->{$observer}; |
|
60 $self->{observers}->{$observer} = $self->{observers}->{$observer}->{next_status}->{$tagname}; |
|
61 #print "$observer: status is now $self->{observers}->{$observer}->{name}\n"; |
|
62 $self->{observers}->{$observer}->{next_status}->{$tagname} = $oldstatus; |
|
63 &{$self->{observers}->{$observer}->{on_start}}($el) if (defined $self->{observers}->{$observer}->{on_start}); |
|
64 } |
|
65 elsif (defined $self->{observers}->{$observer}->{next_status}->{'?default?'}) |
|
66 { |
|
67 #print "processing observer $observer\n"; |
|
68 #print "changing to default status\n"; |
|
69 my $oldstatus = $self->{observers}->{$observer}; |
|
70 $self->{observers}->{$observer} = $self->{observers}->{$observer}->{next_status}->{'?default?'}; |
|
71 #print "status is now ?default?\n"; |
|
72 $self->{observers}->{$observer}->{next_status}->{$tagname} = $oldstatus; |
|
73 &{$self->{observers}->{$observer}->{on_start}}($el) if (defined $self->{observers}->{$observer}->{on_start}); |
|
74 } |
|
75 } |
|
76 } |
|
77 |
|
78 sub end_element |
|
79 { |
|
80 my ($self, $el) = @_; |
|
81 # process element start event |
|
82 |
|
83 my $tagname = $el->{LocalName}; |
|
84 |
|
85 #print "end_element($tagname)\n"; |
|
86 |
|
87 for my $observer (keys %{$self->{observers}}) |
|
88 { |
|
89 if (defined $self->{observers}->{$observer}->{next_status}->{$tagname}) |
|
90 { |
|
91 &{$self->{observers}->{$observer}->{on_end}}($el) if (defined $self->{observers}->{$observer}->{on_end}); |
|
92 $self->{observers}->{$observer} = $self->{observers}->{$observer}->{next_status}->{$tagname}; |
|
93 #print "status is now $self->{observers}->{$observer}->{name}\n"; |
|
94 } |
|
95 } |
|
96 } |
|
97 |
|
98 sub characters |
|
99 { |
|
100 my ($self, $ch) = @_; |
|
101 |
|
102 for my $observer (keys %{$self->{observers}}) |
|
103 { |
|
104 &{$self->{observers}->{$observer}->{on_chars}}($ch) if (defined $self->{observers}->{$observer}->{on_chars}); |
|
105 } |
|
106 } |
|
107 |
|
108 1; |