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

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

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

revision 1.168 by wakaba, Sun Sep 14 03:07:57 2008 UTC revision 1.169 by wakaba, Sun Sep 14 03:59:08 2008 UTC
# Line 1829  sub _get_next_token ($) { Line 1829  sub _get_next_token ($) {
1829        } else {        } else {
1830                    
1831          $self->{current_attribute}->{value} .= chr ($self->{next_char});          $self->{current_attribute}->{value} .= chr ($self->{next_char});
1832            $self->{read_until}->($self->{current_attribute}->{value},
1833                                  q["&],
1834                                  length $self->{current_attribute}->{value});
1835    
1836          ## Stay in the state          ## Stay in the state
1837                    
1838      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 1882  sub _get_next_token ($) { Line 1886  sub _get_next_token ($) {
1886        } else {        } else {
1887                    
1888          $self->{current_attribute}->{value} .= chr ($self->{next_char});          $self->{current_attribute}->{value} .= chr ($self->{next_char});
1889            $self->{read_until}->($self->{current_attribute}->{value},
1890                                  q['&],
1891                                  length $self->{current_attribute}->{value});
1892    
1893          ## Stay in the state          ## Stay in the state
1894                    
1895      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 1972  sub _get_next_token ($) { Line 1980  sub _get_next_token ($) {
1980                        
1981          }          }
1982          $self->{current_attribute}->{value} .= chr ($self->{next_char});          $self->{current_attribute}->{value} .= chr ($self->{next_char});
1983            $self->{read_until}->($self->{current_attribute}->{value},
1984                                  q["'=& >],
1985                                  length $self->{current_attribute}->{value});
1986    
1987          ## Stay in the state          ## Stay in the state
1988                    
1989      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 2128  sub _get_next_token ($) { Line 2140  sub _get_next_token ($) {
2140        } else {        } else {
2141                    
2142          $self->{current_token}->{data} .= chr ($self->{next_char}); # comment          $self->{current_token}->{data} .= chr ($self->{next_char}); # comment
2143            $self->{read_until}->($self->{current_token}->{data},
2144                                  q[>],
2145                                  length $self->{current_token}->{data});
2146    
2147          ## Stay in the state.          ## Stay in the state.
2148                    
2149      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 2394  sub _get_next_token ($) { Line 2410  sub _get_next_token ($) {
2410        } else {        } else {
2411                    
2412          $self->{current_token}->{data} .= chr ($self->{next_char}); # comment          $self->{current_token}->{data} .= chr ($self->{next_char}); # comment
2413            $self->{read_until}->($self->{current_token}->{data},
2414                                  q[-],
2415                                  length $self->{current_token}->{data});
2416    
2417          ## Stay in the state          ## Stay in the state
2418                    
2419      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 2817  sub _get_next_token ($) { Line 2837  sub _get_next_token ($) {
2837                    
2838          $self->{current_token}->{public_identifier} # DOCTYPE          $self->{current_token}->{public_identifier} # DOCTYPE
2839              .= chr $self->{next_char};              .= chr $self->{next_char};
2840            $self->{read_until}->($self->{current_token}->{public_identifier},
2841                                  q[">],
2842                                  length $self->{current_token}->{public_identifier});
2843    
2844          ## Stay in the state          ## Stay in the state
2845                    
2846      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 2859  sub _get_next_token ($) { Line 2883  sub _get_next_token ($) {
2883                    
2884          $self->{current_token}->{public_identifier} # DOCTYPE          $self->{current_token}->{public_identifier} # DOCTYPE
2885              .= chr $self->{next_char};              .= chr $self->{next_char};
2886            $self->{read_until}->($self->{current_token}->{public_identifier},
2887                                  q['>],
2888                                  length $self->{current_token}->{public_identifier});
2889    
2890          ## Stay in the state          ## Stay in the state
2891                    
2892      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 3021  sub _get_next_token ($) { Line 3049  sub _get_next_token ($) {
3049                    
3050          $self->{current_token}->{system_identifier} # DOCTYPE          $self->{current_token}->{system_identifier} # DOCTYPE
3051              .= chr $self->{next_char};              .= chr $self->{next_char};
3052            $self->{read_until}->($self->{current_token}->{system_identifier},
3053                                  q[">],
3054                                  length $self->{current_token}->{system_identifier});
3055    
3056          ## Stay in the state          ## Stay in the state
3057                    
3058      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 3063  sub _get_next_token ($) { Line 3095  sub _get_next_token ($) {
3095                    
3096          $self->{current_token}->{system_identifier} # DOCTYPE          $self->{current_token}->{system_identifier} # DOCTYPE
3097              .= chr $self->{next_char};              .= chr $self->{next_char};
3098            $self->{read_until}->($self->{current_token}->{system_identifier},
3099                                  q['>],
3100                                  length $self->{current_token}->{system_identifier});
3101    
3102          ## Stay in the state          ## Stay in the state
3103                    
3104      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 3133  sub _get_next_token ($) { Line 3169  sub _get_next_token ($) {
3169          redo A;          redo A;
3170        } else {        } else {
3171                    
3172            my $s = '';
3173            $self->{read_until}->($s, q[>], 0);
3174    
3175          ## Stay in the state          ## Stay in the state
3176                    
3177      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
# Line 3167  sub _get_next_token ($) { Line 3206  sub _get_next_token ($) {
3206        } else {        } else {
3207                    
3208          $self->{current_token}->{data} .= chr $self->{next_char};          $self->{current_token}->{data} .= chr $self->{next_char};
3209            $self->{read_until}->($self->{current_token}->{data},
3210                                  q<]>,
3211                                  length $self->{current_token}->{data});
3212    
3213          ## Stay in the state.          ## Stay in the state.
3214                    
3215      $self->{set_next_char}->($self);      $self->{set_next_char}->($self);
Legend:
Removed from v.1.168  
changed lines
  Added in v.1.169
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24