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

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

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

revision 1.6 by wakaba, Thu Aug 14 11:58:32 2008 UTC revision 1.8 by wakaba, Sun Sep 14 14:36:12 2008 UTC
# Line 74  sub generate_structure_error_section ($) Line 74  sub generate_structure_error_section ($)
74        
75    $out->start_section (role => 'structure-errors');    $out->start_section (role => 'structure-errors');
76    $out->start_error_list (role => 'structure-errors');    $out->start_error_list (role => 'structure-errors');
77      $self->result->layer_applicable ('structure');
78    
79    $self->result->add_error (input => $self->input,    $self->result->add_error (input => $self->input,
80                              level => 'u',                              level => 'u',
# Line 83  sub generate_structure_error_section ($) Line 84  sub generate_structure_error_section ($)
84    
85    $out->end_error_list (role => 'structure-errors');    $out->end_error_list (role => 'structure-errors');
86    $out->end_section;    $out->end_section;
87    
88      $self->result->layer_uncertain ('semantics');
89  } # generate_structure_error_section  } # generate_structure_error_section
90    
91  sub source_charset ($) {  sub source_charset ($) {
# Line 112  sub generate_source_string_section ($) { Line 115  sub generate_source_string_section ($) {
115    
116      my $t = '';      my $t = '';
117      while (1) {      while (1) {
118        my $c = $char_stream->getc;        if ($char_stream->read ($t, 1024, length $t)) {
119        last unless defined $c;          #
120        $t .= $c;        } else {
121            last;
122          }
123      }      }
124      $s = \$t;      $s = \$t;
125      ## TODO: Output for each line, don't concat all of lines.      ## TODO: Output for each line, don't concat all of lines.
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24