/[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.72 by wakaba, Sun Mar 2 14:32:26 2008 UTC revision 1.73 by wakaba, Sun Mar 2 23:38:37 2008 UTC
# Line 1586  sub _get_next_token ($) { Line 1586  sub _get_next_token ($) {
1586        }        }
1587    
1588        !!!parse-error (type => 'string after DOCTYPE name');        !!!parse-error (type => 'string after DOCTYPE name');
1589          delete $self->{current_token}->{correct};
1590    
1591        $self->{state} = BOGUS_DOCTYPE_STATE;        $self->{state} = BOGUS_DOCTYPE_STATE;
1592        # next-input-character is already done        # next-input-character is already done
1593        redo A;        redo A;
# Line 1629  sub _get_next_token ($) { Line 1631  sub _get_next_token ($) {
1631          redo A;          redo A;
1632        } else {        } else {
1633          !!!parse-error (type => 'string after PUBLIC');          !!!parse-error (type => 'string after PUBLIC');
1634            delete $self->{current_token}->{correct};
1635    
1636          $self->{state} = BOGUS_DOCTYPE_STATE;          $self->{state} = BOGUS_DOCTYPE_STATE;
1637          !!!next-input-character;          !!!next-input-character;
1638          redo A;          redo A;
# Line 1734  sub _get_next_token ($) { Line 1738  sub _get_next_token ($) {
1738          redo A;          redo A;
1739        } else {        } else {
1740          !!!parse-error (type => 'string after PUBLIC literal');          !!!parse-error (type => 'string after PUBLIC literal');
1741            delete $self->{current_token}->{correct};
1742    
1743          $self->{state} = BOGUS_DOCTYPE_STATE;          $self->{state} = BOGUS_DOCTYPE_STATE;
1744          !!!next-input-character;          !!!next-input-character;
1745          redo A;          redo A;
# Line 1777  sub _get_next_token ($) { Line 1783  sub _get_next_token ($) {
1783          redo A;          redo A;
1784        } else {        } else {
1785          !!!parse-error (type => 'string after SYSTEM');          !!!parse-error (type => 'string after SYSTEM');
1786            delete $self->{current_token}->{correct};
1787    
1788          $self->{state} = BOGUS_DOCTYPE_STATE;          $self->{state} = BOGUS_DOCTYPE_STATE;
1789          !!!next-input-character;          !!!next-input-character;
1790          redo A;          redo A;
# Line 1872  sub _get_next_token ($) { Line 1880  sub _get_next_token ($) {
1880          redo A;          redo A;
1881        } else {        } else {
1882          !!!parse-error (type => 'string after SYSTEM literal');          !!!parse-error (type => 'string after SYSTEM literal');
1883            delete $self->{current_token}->{correct};
1884    
1885          $self->{state} = BOGUS_DOCTYPE_STATE;          $self->{state} = BOGUS_DOCTYPE_STATE;
1886          !!!next-input-character;          !!!next-input-character;
1887          redo A;          redo A;
# Line 1881  sub _get_next_token ($) { Line 1891  sub _get_next_token ($) {
1891          $self->{state} = DATA_STATE;          $self->{state} = DATA_STATE;
1892          !!!next-input-character;          !!!next-input-character;
1893    
         delete $self->{current_token}->{correct};  
1894          !!!emit ($self->{current_token}); # DOCTYPE          !!!emit ($self->{current_token}); # DOCTYPE
1895    
1896          redo A;          redo A;
# Line 1890  sub _get_next_token ($) { Line 1899  sub _get_next_token ($) {
1899          $self->{state} = DATA_STATE;          $self->{state} = DATA_STATE;
1900          ## reconsume          ## reconsume
1901    
         delete $self->{current_token}->{correct};  
1902          !!!emit ($self->{current_token}); # DOCTYPE          !!!emit ($self->{current_token}); # DOCTYPE
1903    
1904          redo A;          redo A;
Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24