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

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

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

revision 1.3 by wakaba, Fri Oct 17 07:14:29 2008 UTC revision 1.5 by wakaba, Sun Oct 19 06:14:57 2008 UTC
# Line 87  sub dumptree ($) { Line 87  sub dumptree ($) {
87        $r .= $child->[0]->data . "?>\x0A";        $r .= $child->[0]->data . "?>\x0A";
88      } elsif ($nt == $child->[0]->ENTITY_NODE) {      } elsif ($nt == $child->[0]->ENTITY_NODE) {
89        $r .= $child->[1] . '<!ENTITY ' . $child->[0]->node_name . ' "';        $r .= $child->[1] . '<!ENTITY ' . $child->[0]->node_name . ' "';
90          $r .= $child->[0]->text_content;
91          $r .= '" "';
92        $r .= $child->[0]->public_id if defined $child->[0]->public_id;        $r .= $child->[0]->public_id if defined $child->[0]->public_id;
93        $r .= '" "';        $r .= '" "';
94        $r .= $child->[0]->system_id if defined $child->[0]->system_id;        $r .= $child->[0]->system_id if defined $child->[0]->system_id;
# Line 115  sub dumptree ($) { Line 117  sub dumptree ($) {
117          0, 'CDATA', 'ID', 'IDREF', 'IDREFS', 'ENTITY', 'ENTITIES',          0, 'CDATA', 'ID', 'IDREF', 'IDREFS', 'ENTITY', 'ENTITIES',
118          'NMTOKEN', 'NMTOKENS', 'NOTATION', 'ENUMERATION', 11,          'NMTOKEN', 'NMTOKENS', 'NOTATION', 'ENUMERATION', 11,
119        ]->[$child->[0]->declared_type] || $child->[0]->declared_type;        ]->[$child->[0]->declared_type] || $child->[0]->declared_type;
120        if ($child->[0]->declared_type == 9 or        $r .= ' (' . join ('|', @{$child->[0]->allowed_tokens}) . ') ';
           $child->[0]->declared_type == 10) {  
         $r .= '(' . join ('|', @{$child->[0]->allowed_tokens}) . ')';  
       }  
       $r .= ' ';  
121        $r .= [        $r .= [
122          0, 'FIXED', 'REQUIRED', 'IMPLIED', 'EXPLICIT',          0, 'FIXED', 'REQUIRED', 'IMPLIED', 'EXPLICIT',
123        ]->[$child->[0]->default_type] || $child->[0]->default_type;        ]->[$child->[0]->default_type] || $child->[0]->default_type;
124        if ($child->[0]->default_type == 1 or        $r .= ' "' . $child->[0]->text_content . '"';
           $child->[0]->default_type == 4) {  
         $r .= ' "' . $child->[0]->text_content . '"';  
       }  
125        $r .= "\x0A";        $r .= "\x0A";
126      } else {      } else {
127        $r .= $child->[1] . $child->[0]->node_type . "\x0A"; # error        $r .= $child->[1] . $child->[0]->node_type . "\x0A"; # error
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24