/[suikacvs]/webroot/gate/2007/html/WebHACC/Language/WebIDL.pm
Suika

Diff of /webroot/gate/2007/html/WebHACC/Language/WebIDL.pm

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

revision 1.5 by wakaba, Thu Aug 14 15:50:42 2008 UTC revision 1.6 by wakaba, Fri Aug 15 05:53:23 2008 UTC
# Line 13  sub generate_syntax_error_section ($) { Line 13  sub generate_syntax_error_section ($) {
13    
14    require Whatpm::WebIDL;    require Whatpm::WebIDL;
15    
   $self->result->layer_uncertain ('encode');  
16    $self->result->layer_uncertain ('charset');    $self->result->layer_uncertain ('charset');
17    
18    my $out = $self->output;    my $out = $self->output;
# Line 24  sub generate_syntax_error_section ($) { Line 23  sub generate_syntax_error_section ($) {
23    my $input = $self->input;    my $input = $self->input;
24    my $result = $self->result;    my $result = $self->result;
25    
26      $self->result->layer_uncertain ('encode') unless $input->{is_char_string};
27    
28    require Encode;    require Encode;
29    my $s = $input->{is_char_string} ? $input->{s} : Encode::decode ($input->{charset} || 'utf-8', $input->{s}); ## TODO: charset    my $s = $input->{is_char_string} ? $input->{s} : Encode::decode ($input->{charset} || 'utf-8', $input->{s}); ## TODO: charset
30    my $parser = Whatpm::WebIDL::Parser->new;    my $parser = Whatpm::WebIDL::Parser->new;
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24