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

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

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

revision 1.5 by wakaba, Mon Jul 21 09:40:59 2008 UTC revision 1.6 by wakaba, Mon Jul 21 12:56:34 2008 UTC
# Line 82  sub generate_structure_dump_section ($) Line 82  sub generate_structure_dump_section ($)
82        $out->end_tag ('code');        $out->end_tag ('code');
83      } elsif ($nt == $child->DOCUMENT_NODE) {      } elsif ($nt == $child->DOCUMENT_NODE) {
84        $out->start_tag ('li', id => $node_id, class => 'tree-document');        $out->start_tag ('li', id => $node_id, class => 'tree-document');
85        $out->text ('Document');        $out->nl_text ('Document');
86    
87        $out->start_tag ('ul', class => 'attributes');        $out->start_tag ('ul', class => 'attributes');
88          
89        my $cp = $child->manakai_charset;        my $cp = $child->manakai_charset;
90        if (defined $cp) {        if (defined $cp) {
91          $out->html (qq[<li><code>charset</code> parameter = <code>]);          $out->start_tag ('li');
92          $out->text ($cp);          $out->nl_text ('manakaiCharset');
93          $out->html ('</code>');          $out->text (' = ');
94            $out->code ($cp);
95        }        }
96        $out->html (qq[<li><code>inputEncoding</code> = ]);        
97          $out->start_tag ('li');
98          $out->nl_text ('inputEncoding');
99          $out->text (' = ');
100        my $ie = $child->input_encoding;        my $ie = $child->input_encoding;
101        if (defined $ie) {        if (defined $ie) {
102          $out->code ($ie);          $out->code ($ie);
103          if ($child->manakai_has_bom) {          if ($child->manakai_has_bom) {
104            $out->html (qq[ (with <code class=charname><abbr>BOM</abbr></code>)]);            $out->nl_text ('... with BOM');
105          }          }
106        } else {        } else {
107          $out->html (qq[(<code>null</code>)]);          $out->html (qq[(<code>null</code>)]);
108        }        }
109        $out->html (qq[<li>@{[scalar main::get_text ('manakaiIsHTML:'.($child->manakai_is_html?1:0))]}</li>]);  
110        $out->html (qq[<li>@{[scalar main::get_text ('manakaiCompatMode:'.$child->manakai_compat_mode)]}</li>]);        $out->start_tag ('li');
111          $out->nl_text ('manakaiIsHTML:'.($child->manakai_is_html?1:0));
112    
113          $out->start_tag ('li');
114          $out->nl_text ('manakaiCompatMode:'.$child->manakai_compat_mode);
115    
116        unless ($child->manakai_is_html) {        unless ($child->manakai_is_html) {
117          $out->html (qq[<li>XML version = ]);          $out->start_tag ('li');
118            $out->nl_text ('xmlVersion');
119            $out->text (' = ');
120          $out->code ($child->xml_version);          $out->code ($child->xml_version);
121            
122            $out->start_tag ('li');
123            $out->nl_text ('xmlEncoding');
124            $out->text (' = ');
125          if (defined $child->xml_encoding) {          if (defined $child->xml_encoding) {
           $out->html (qq[<li>XML encoding = ]);  
126            $out->code ($child->xml_encoding);            $out->code ($child->xml_encoding);
127          } else {          } else {
128            $out->html (qq[<li>XML encoding = (null)</li>]);            $out->html ('(<code>null</code>)');
129          }          }
130          $out->html (qq[<li>XML standalone = @{[$child->xml_standalone ? 'true' : 'false']}</li>]);  
131            $out->start_tag ('li');
132            $out->nl_text ('xmlStandalone');
133            $out->text (' = ');
134            $out->code ($child->xml_standalone ? 'true' : 'false');
135        }        }
136    
137        $out->end_tag ('ul');        $out->end_tag ('ul');
138          
139        if ($child->has_child_nodes) {        if ($child->has_child_nodes) {
140          $out->start_tag ('ol', class => 'children');          $out->start_tag ('ol', class => 'children');
141          unshift @node, @{$child->child_nodes}, '</ol></li>';          unshift @node, @{$child->child_nodes}, '</ol></li>';
# Line 210  sub generate_table_section ($) { Line 232  sub generate_table_section ($) {
232    return unless @$tables;    return unless @$tables;
233    
234    my $out = $self->output;    my $out = $self->output;
235    $out->start_section (id => 'tables', title => 'Tables');    $out->start_section (id => 'tables', short_title => 'Tables',
236                           title => 'Tables Section');
237    
238    $out->html (q[<!--[if IE]><script type="text/javascript" src="../excanvas.js"></script><![endif]-->    $out->html (q[<!--[if IE]><script type="text/javascript" src="../excanvas.js"></script><![endif]-->
239  <script src="../table-script.js" type="text/javascript"></script>  <script src="../table-script.js" type="text/javascript"></script>
# Line 226  sub generate_table_section ($) { Line 249  sub generate_table_section ($) {
249      my $index = $out->input->full_subdocument_index;      my $index = $out->input->full_subdocument_index;
250      $index = $index ? $index . '.' . $i : $i;      $index = $index ? $index . '.' . $i : $i;
251      $out->start_section (id => 'table-' . $i,      $out->start_section (id => 'table-' . $i,
252                           title => 'Table #' . $index);                           title => 'Table #',
253                             text => $index);
254    
255      $out->start_tag ('dl');      $out->start_tag ('dl');
256      $out->dt ('Table Element');      $out->dt ('Table Element');
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24