/[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.116 by wakaba, Thu Mar 20 01:33:59 2008 UTC revision 1.117 by wakaba, Thu Mar 20 03:37:18 2008 UTC
# Line 947  sub _get_next_token ($) { Line 947  sub _get_next_token ($) {
947        } elsif (0x0041 <= $self->{next_char} and        } elsif (0x0041 <= $self->{next_char} and
948                 $self->{next_char} <= 0x005A) { # A..Z                 $self->{next_char} <= 0x005A) { # A..Z
949                    
950          $self->{current_attribute} = {name => chr ($self->{next_char} + 0x0020),          $self->{current_attribute}
951                                value => ''};              = {name => chr ($self->{next_char} + 0x0020),
952                   value => '',
953                   line => $self->{line}, column => $self->{column}};
954          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
955                    
956        if (@{$self->{char}}) {        if (@{$self->{char}}) {
# Line 1012  sub _get_next_token ($) { Line 1014  sub _get_next_token ($) {
1014          } else {          } else {
1015                        
1016          }          }
1017          $self->{current_attribute} = {name => chr ($self->{next_char}),          $self->{current_attribute}
1018                                value => ''};              = {name => chr ($self->{next_char}),
1019                   value => '',
1020                   line => $self->{line}, column => $self->{column}};
1021          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
1022                    
1023        if (@{$self->{char}}) {        if (@{$self->{char}}) {
# Line 1228  sub _get_next_token ($) { Line 1232  sub _get_next_token ($) {
1232        } elsif (0x0041 <= $self->{next_char} and        } elsif (0x0041 <= $self->{next_char} and
1233                 $self->{next_char} <= 0x005A) { # A..Z                 $self->{next_char} <= 0x005A) { # A..Z
1234                    
1235          $self->{current_attribute} = {name => chr ($self->{next_char} + 0x0020),          $self->{current_attribute}
1236                                value => ''};              = {name => chr ($self->{next_char} + 0x0020),
1237                   value => '',
1238                   line => $self->{line}, column => $self->{column}};
1239          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
1240                    
1241        if (@{$self->{char}}) {        if (@{$self->{char}}) {
# Line 1286  sub _get_next_token ($) { Line 1292  sub _get_next_token ($) {
1292          redo A;          redo A;
1293        } else {        } else {
1294                    
1295          $self->{current_attribute} = {name => chr ($self->{next_char}),          $self->{current_attribute}
1296                                value => ''};              = {name => chr ($self->{next_char}),
1297                   value => '',
1298                   line => $self->{line}, column => $self->{column}};
1299          $self->{state} = ATTRIBUTE_NAME_STATE;          $self->{state} = ATTRIBUTE_NAME_STATE;
1300                    
1301        if (@{$self->{char}}) {        if (@{$self->{char}}) {
# Line 3597  sub _tree_construction_root_element ($) Line 3605  sub _tree_construction_root_element ($)
3605          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
3606            
3607          for my $attr_name (keys %{ $token->{attributes}}) {          for my $attr_name (keys %{ $token->{attributes}}) {
3608            $root_element->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =  $token->{attributes}->{$attr_name};
3609                                   $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
3610                  (undef, [undef, $attr_name]);
3611              $attr->value ($attr_t->{value});
3612              $attr->set_user_data (manakai_source_line => $attr_t->{line});
3613              $attr->set_user_data (manakai_source_column => $attr_t->{column});
3614              $root_element->set_attribute_node_ns ($attr);
3615          }          }
3616                
3617          $root_element->set_user_data (manakai_source_line => $token->{line})          $root_element->set_user_data (manakai_source_line => $token->{line})
# Line 3846  sub _tree_construction_main ($) { Line 3859  sub _tree_construction_main ($) {
3859          (q<http://www.w3.org/1999/xhtml>, [undef,  $start_tag_name]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $start_tag_name]);
3860            
3861          for my $attr_name (keys %{ $token->{attributes}}) {          for my $attr_name (keys %{ $token->{attributes}}) {
3862            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =  $token->{attributes}->{$attr_name};
3863                                   $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
3864                  (undef, [undef, $attr_name]);
3865              $attr->value ($attr_t->{value});
3866              $attr->set_user_data (manakai_source_line => $attr_t->{line});
3867              $attr->set_user_data (manakai_source_column => $attr_t->{column});
3868              $el->set_attribute_node_ns ($attr);
3869          }          }
3870                
3871          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 3909  sub _tree_construction_main ($) { Line 3927  sub _tree_construction_main ($) {
3927          (q<http://www.w3.org/1999/xhtml>, [undef,  'script']);          (q<http://www.w3.org/1999/xhtml>, [undef,  'script']);
3928            
3929          for my $attr_name (keys %{ $token->{attributes}}) {          for my $attr_name (keys %{ $token->{attributes}}) {
3930            $script_el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =  $token->{attributes}->{$attr_name};
3931                                   $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
3932                  (undef, [undef, $attr_name]);
3933              $attr->value ($attr_t->{value});
3934              $attr->set_user_data (manakai_source_line => $attr_t->{line});
3935              $attr->set_user_data (manakai_source_column => $attr_t->{column});
3936              $script_el->set_attribute_node_ns ($attr);
3937          }          }
3938                
3939          $script_el->set_user_data (manakai_source_line => $token->{line})          $script_el->set_user_data (manakai_source_line => $token->{line})
# Line 4380  sub _tree_construction_main ($) { Line 4403  sub _tree_construction_main ($) {
4403          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
4404            
4405          for my $attr_name (keys %{ $token->{attributes}}) {          for my $attr_name (keys %{ $token->{attributes}}) {
4406            $self->{head_element}->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =  $token->{attributes}->{$attr_name};
4407                                   $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
4408                  (undef, [undef, $attr_name]);
4409              $attr->value ($attr_t->{value});
4410              $attr->set_user_data (manakai_source_line => $attr_t->{line});
4411              $attr->set_user_data (manakai_source_column => $attr_t->{column});
4412              $self->{head_element}->set_attribute_node_ns ($attr);
4413          }          }
4414                
4415          $self->{head_element}->set_user_data (manakai_source_line => $token->{line})          $self->{head_element}->set_user_data (manakai_source_line => $token->{line})
# Line 4454  sub _tree_construction_main ($) { Line 4482  sub _tree_construction_main ($) {
4482          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
4483            
4484          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
4485            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
4486                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
4487                  (undef, [undef, $attr_name]);
4488              $attr->value ($attr_t->{value});
4489              $attr->set_user_data (manakai_source_line => $attr_t->{line});
4490              $attr->set_user_data (manakai_source_column => $attr_t->{column});
4491              $el->set_attribute_node_ns ($attr);
4492          }          }
4493                
4494          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 4489  sub _tree_construction_main ($) { Line 4522  sub _tree_construction_main ($) {
4522          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
4523            
4524          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
4525            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
4526                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
4527                  (undef, [undef, $attr_name]);
4528              $attr->value ($attr_t->{value});
4529              $attr->set_user_data (manakai_source_line => $attr_t->{line});
4530              $attr->set_user_data (manakai_source_column => $attr_t->{column});
4531              $el->set_attribute_node_ns ($attr);
4532          }          }
4533                
4534          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 4524  sub _tree_construction_main ($) { Line 4562  sub _tree_construction_main ($) {
4562          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
4563            
4564          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
4565            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
4566                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
4567                  (undef, [undef, $attr_name]);
4568              $attr->value ($attr_t->{value});
4569              $attr->set_user_data (manakai_source_line => $attr_t->{line});
4570              $attr->set_user_data (manakai_source_column => $attr_t->{column});
4571              $el->set_attribute_node_ns ($attr);
4572          }          }
4573                
4574          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 4641  sub _tree_construction_main ($) { Line 4684  sub _tree_construction_main ($) {
4684          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
4685            
4686          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
4687            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
4688                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
4689                  (undef, [undef, $attr_name]);
4690              $attr->value ($attr_t->{value});
4691              $attr->set_user_data (manakai_source_line => $attr_t->{line});
4692              $attr->set_user_data (manakai_source_column => $attr_t->{column});
4693              $el->set_attribute_node_ns ($attr);
4694          }          }
4695                
4696          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 4720  sub _tree_construction_main ($) { Line 4768  sub _tree_construction_main ($) {
4768          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
4769            
4770          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
4771            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
4772                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
4773                  (undef, [undef, $attr_name]);
4774              $attr->value ($attr_t->{value});
4775              $attr->set_user_data (manakai_source_line => $attr_t->{line});
4776              $attr->set_user_data (manakai_source_column => $attr_t->{column});
4777              $el->set_attribute_node_ns ($attr);
4778          }          }
4779                
4780          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 5539  sub _tree_construction_main ($) { Line 5592  sub _tree_construction_main ($) {
5592          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
5593            
5594          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
5595            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
5596                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
5597                  (undef, [undef, $attr_name]);
5598              $attr->value ($attr_t->{value});
5599              $attr->set_user_data (manakai_source_line => $attr_t->{line});
5600              $attr->set_user_data (manakai_source_column => $attr_t->{column});
5601              $el->set_attribute_node_ns ($attr);
5602          }          }
5603                
5604          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 5594  sub _tree_construction_main ($) { Line 5652  sub _tree_construction_main ($) {
5652          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
5653            
5654          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
5655            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
5656                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
5657                  (undef, [undef, $attr_name]);
5658              $attr->value ($attr_t->{value});
5659              $attr->set_user_data (manakai_source_line => $attr_t->{line});
5660              $attr->set_user_data (manakai_source_column => $attr_t->{column});
5661              $el->set_attribute_node_ns ($attr);
5662          }          }
5663                
5664          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 5770  sub _tree_construction_main ($) { Line 5833  sub _tree_construction_main ($) {
5833          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
5834            
5835          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
5836            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
5837                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
5838                  (undef, [undef, $attr_name]);
5839              $attr->value ($attr_t->{value});
5840              $attr->set_user_data (manakai_source_line => $attr_t->{line});
5841              $attr->set_user_data (manakai_source_column => $attr_t->{column});
5842              $el->set_attribute_node_ns ($attr);
5843          }          }
5844                
5845          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 5884  sub _tree_construction_main ($) { Line 5952  sub _tree_construction_main ($) {
5952          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
5953            
5954          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
5955            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
5956                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
5957                  (undef, [undef, $attr_name]);
5958              $attr->value ($attr_t->{value});
5959              $attr->set_user_data (manakai_source_line => $attr_t->{line});
5960              $attr->set_user_data (manakai_source_column => $attr_t->{column});
5961              $el->set_attribute_node_ns ($attr);
5962          }          }
5963                
5964          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 6248  sub _tree_construction_main ($) { Line 6321  sub _tree_construction_main ($) {
6321          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
6322            
6323          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
6324            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
6325                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
6326                  (undef, [undef, $attr_name]);
6327              $attr->value ($attr_t->{value});
6328              $attr->set_user_data (manakai_source_line => $attr_t->{line});
6329              $attr->set_user_data (manakai_source_column => $attr_t->{column});
6330              $el->set_attribute_node_ns ($attr);
6331          }          }
6332                
6333          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 6350  sub _tree_construction_main ($) { Line 6428  sub _tree_construction_main ($) {
6428          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
6429            
6430          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
6431            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
6432                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
6433                  (undef, [undef, $attr_name]);
6434              $attr->value ($attr_t->{value});
6435              $attr->set_user_data (manakai_source_line => $attr_t->{line});
6436              $attr->set_user_data (manakai_source_column => $attr_t->{column});
6437              $el->set_attribute_node_ns ($attr);
6438          }          }
6439                
6440          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 6390  sub _tree_construction_main ($) { Line 6473  sub _tree_construction_main ($) {
6473          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
6474            
6475          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
6476            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
6477                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
6478                  (undef, [undef, $attr_name]);
6479              $attr->value ($attr_t->{value});
6480              $attr->set_user_data (manakai_source_line => $attr_t->{line});
6481              $attr->set_user_data (manakai_source_column => $attr_t->{column});
6482              $el->set_attribute_node_ns ($attr);
6483          }          }
6484                
6485          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 6753  sub _tree_construction_main ($) { Line 6841  sub _tree_construction_main ($) {
6841          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
6842            
6843          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
6844            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
6845                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
6846                  (undef, [undef, $attr_name]);
6847              $attr->value ($attr_t->{value});
6848              $attr->set_user_data (manakai_source_line => $attr_t->{line});
6849              $attr->set_user_data (manakai_source_column => $attr_t->{column});
6850              $el->set_attribute_node_ns ($attr);
6851          }          }
6852                
6853          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 6779  sub _tree_construction_main ($) { Line 6872  sub _tree_construction_main ($) {
6872          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
6873            
6874          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
6875            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
6876                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
6877                  (undef, [undef, $attr_name]);
6878              $attr->value ($attr_t->{value});
6879              $attr->set_user_data (manakai_source_line => $attr_t->{line});
6880              $attr->set_user_data (manakai_source_column => $attr_t->{column});
6881              $el->set_attribute_node_ns ($attr);
6882          }          }
6883                
6884          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 6908  sub _tree_construction_main ($) { Line 7006  sub _tree_construction_main ($) {
7006          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7007            
7008          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
7009            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
7010                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7011                  (undef, [undef, $attr_name]);
7012              $attr->value ($attr_t->{value});
7013              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7014              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7015              $el->set_attribute_node_ns ($attr);
7016          }          }
7017                
7018          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 6934  sub _tree_construction_main ($) { Line 7037  sub _tree_construction_main ($) {
7037          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7038            
7039          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
7040            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
7041                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7042                  (undef, [undef, $attr_name]);
7043              $attr->value ($attr_t->{value});
7044              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7045              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7046              $el->set_attribute_node_ns ($attr);
7047          }          }
7048                
7049          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 7062  sub _tree_construction_main ($) { Line 7170  sub _tree_construction_main ($) {
7170          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7171            
7172          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
7173            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
7174                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7175                  (undef, [undef, $attr_name]);
7176              $attr->value ($attr_t->{value});
7177              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7178              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7179              $el->set_attribute_node_ns ($attr);
7180          }          }
7181                
7182          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 7175  sub _tree_construction_main ($) { Line 7288  sub _tree_construction_main ($) {
7288          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7289            
7290          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
7291            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
7292                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7293                  (undef, [undef, $attr_name]);
7294              $attr->value ($attr_t->{value});
7295              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7296              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7297              $el->set_attribute_node_ns ($attr);
7298          }          }
7299                
7300          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 7216  sub _tree_construction_main ($) { Line 7334  sub _tree_construction_main ($) {
7334          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7335            
7336          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
7337            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
7338                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7339                  (undef, [undef, $attr_name]);
7340              $attr->value ($attr_t->{value});
7341              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7342              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7343              $el->set_attribute_node_ns ($attr);
7344          }          }
7345                
7346          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 7277  sub _tree_construction_main ($) { Line 7400  sub _tree_construction_main ($) {
7400          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7401            
7402          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
7403            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
7404                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7405                  (undef, [undef, $attr_name]);
7406              $attr->value ($attr_t->{value});
7407              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7408              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7409              $el->set_attribute_node_ns ($attr);
7410          }          }
7411                
7412          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 7324  sub _tree_construction_main ($) { Line 7452  sub _tree_construction_main ($) {
7452          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7453            
7454          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
7455            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
7456                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7457                  (undef, [undef, $attr_name]);
7458              $attr->value ($attr_t->{value});
7459              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7460              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7461              $el->set_attribute_node_ns ($attr);
7462          }          }
7463                
7464          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 7371  sub _tree_construction_main ($) { Line 7504  sub _tree_construction_main ($) {
7504          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7505            
7506          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
7507            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
7508                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7509                  (undef, [undef, $attr_name]);
7510              $attr->value ($attr_t->{value});
7511              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7512              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7513              $el->set_attribute_node_ns ($attr);
7514          }          }
7515                
7516          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 7471  sub _tree_construction_main ($) { Line 7609  sub _tree_construction_main ($) {
7609          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7610            
7611          for my $attr_name (keys %{ $token->{attributes}}) {          for my $attr_name (keys %{ $token->{attributes}}) {
7612            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =  $token->{attributes}->{$attr_name};
7613                                   $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7614                  (undef, [undef, $attr_name]);
7615              $attr->value ($attr_t->{value});
7616              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7617              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7618              $el->set_attribute_node_ns ($attr);
7619          }          }
7620                
7621          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
# Line 7555  sub _tree_construction_main ($) { Line 7698  sub _tree_construction_main ($) {
7698          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);          (q<http://www.w3.org/1999/xhtml>, [undef,  $token->{tag_name}]);
7699            
7700          for my $attr_name (keys %{  $token->{attributes}}) {          for my $attr_name (keys %{  $token->{attributes}}) {
7701            $el->set_attribute_ns (undef, [undef, $attr_name],            my $attr_t =   $token->{attributes}->{$attr_name};
7702                                    $token->{attributes} ->{$attr_name}->{value});            my $attr = $self->{document}->create_attribute_ns
7703                  (undef, [undef, $attr_name]);
7704              $attr->value ($attr_t->{value});
7705              $attr->set_user_data (manakai_source_line => $attr_t->{line});
7706              $attr->set_user_data (manakai_source_column => $attr_t->{column});
7707              $el->set_attribute_node_ns ($attr);
7708          }          }
7709                
7710          $el->set_user_data (manakai_source_line => $token->{line})          $el->set_user_data (manakai_source_line => $token->{line})
Legend:
Removed from v.1.116  
changed lines
  Added in v.1.117
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24