/[suikacvs]/test/html-webhacc/WebHACC/Language/CacheManifest.pm
Suika

Diff of /test/html-webhacc/WebHACC/Language/CacheManifest.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by wakaba, Thu Aug 14 07:19:44 2008 UTC revision 1.6 by wakaba, Fri Aug 15 05:53:23 2008 UTC
# Line 15  sub generate_syntax_error_section ($) { Line 15  sub generate_syntax_error_section ($) {
15    
16    my $out = $self->output;    my $out = $self->output;
17    
18      $self->result->layer_uncertain ('charset');
19    
20    $out->start_section (role => 'parse-errors');    $out->start_section (role => 'parse-errors');
21    $out->start_error_list (role => 'parse-errors');    $out->start_error_list (role => 'parse-errors');
22      $self->result->layer_applicable ('syntax');
23    
24    my $input = $self->input;    my $input = $self->input;
25    my $result = $self->result;    my $result = $self->result;
26    
27      $self->result->layer_uncertain ('encode') unless $input->{is_char_string};
28    
29    my $m = $input->{is_char_string} ? 'parse_char_string' : 'parse_byte_string';    my $m = $input->{is_char_string} ? 'parse_char_string' : 'parse_byte_string';
30    $self->{structure} = Whatpm::CacheManifest->$m    $self->{structure} = Whatpm::CacheManifest->$m
31        ($input->{s}, $input->{uri}, $input->{base_uri}, sub {        ($input->{s}, $input->{uri}, $input->{base_uri}, sub {
# Line 75  sub generate_structure_error_section ($) Line 80  sub generate_structure_error_section ($)
80    
81    $out->start_section (role => 'structure-errors');    $out->start_section (role => 'structure-errors');
82    $out->start_error_list (role => 'structure-errors');    $out->start_error_list (role => 'structure-errors');
83      $self->result->layer_applicable ('structure');
84    
85    my $result = $self->result;    my $result = $self->result;
86    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24