/[suikacvs]/markup/html/whatpm/Whatpm/HTML.pm.src
Suika

Diff of /markup/html/whatpm/Whatpm/HTML.pm.src

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

revision 1.14 by wakaba, Sat Jun 23 06:38:12 2007 UTC revision 1.15 by wakaba, Sat Jun 23 06:48:24 2007 UTC
# Line 361  sub parse_string ($$$;$) { Line 361  sub parse_string ($$$;$) {
361        $line++;        $line++;
362        $column = 0;        $column = 0;
363      } elsif ($self->{next_input_character} == 0x000D) { # CR      } elsif ($self->{next_input_character} == 0x000D) { # CR
364        if ($i >= length $$s) {        $i++ if substr ($$s, $i, 1) eq "\x0A";
         #  
       } else {  
         my $next_char = ord substr $$s, $i++, 1;  
         if ($next_char == 0x000A) { # LF  
           #  
         } else {  
           push @{$self->{char}}, $next_char;  
         }  
       }  
365        $self->{next_input_character} = 0x000A; # LF # MUST        $self->{next_input_character} = 0x000A; # LF # MUST
366        $line++;        $line++;
367        $column = 0;        $column = 0;
# Line 4959  sub set_inner_html ($$$) { Line 4950  sub set_inner_html ($$$) {
4950          $line++;          $line++;
4951          $column = 0;          $column = 0;
4952        } elsif ($self->{next_input_character} == 0x000D) { # CR        } elsif ($self->{next_input_character} == 0x000D) { # CR
4953          if ($i >= length $$s) {          $i++ if substr ($$s, $i, 1) eq "\x0A";
           #  
         } else {  
           my $next_char = ord substr $$s, $i++, 1;  
           if ($next_char == 0x000A) { # LF  
             #  
           } else {  
             push @{$self->{char}}, $next_char;  
             ## TODO: This is incorrect, since $next_char might be e.g. CR.  
           }  
         }  
4954          $self->{next_input_character} = 0x000A; # LF # MUST          $self->{next_input_character} = 0x000A; # LF # MUST
4955          $line++;          $line++;
4956          $column = 0;          $column = 0;
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24