/[suikacvs]/markup/html/whatpm/Whatpm/ContentChecker/Atom.pm
Suika

Diff of /markup/html/whatpm/Whatpm/ContentChecker/Atom.pm

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

revision 1.6 by wakaba, Sun Oct 14 09:21:46 2007 UTC revision 1.7 by wakaba, Sun Nov 25 08:04:20 2007 UTC
# Line 221  my $AtomPersonConstruct = { Line 221  my $AtomPersonConstruct = {
221        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
222          ## TODO: Are white spaces allowed?          ## TODO: Are white spaces allowed?
223          $self->{onerror}->(node => $node, type => 'character not allowed');          $self->{onerror}->(node => $node, type => 'character not allowed');
224            if ($node->data =~ /[^\x09-\x0D\x20]/) {
225              $todo->{flag}->{has_descendant}->{significant} = 1;
226            }
227        } elsif ($nt == 5) {        } elsif ($nt == 5) {
228          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
229        }        }
# Line 258  $Element->{$ATOM_NS}->{name} = { Line 261  $Element->{$ATOM_NS}->{name} = {
261          unshift @nodes, @$sib;          unshift @nodes, @$sib;
262          push @$new_todos, @$ch;          push @$new_todos, @$ch;
263        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
264          #          $todo->{flag}->{has_descendant}->{significant} = 1;
265        } elsif ($nt == 5) {        } elsif ($nt == 5) {
266          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
267        }        }
# Line 297  $Element->{$ATOM_NS}->{uri} = { Line 300  $Element->{$ATOM_NS}->{uri} = {
300          push @$new_todos, @$ch;          push @$new_todos, @$ch;
301        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
302          $s .= $node->data;          $s .= $node->data;
303            $todo->{flag}->{has_descendant}->{significant} = 1;
304        } elsif ($nt == 5) {        } elsif ($nt == 5) {
305          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
306        }        }
# Line 343  $Element->{$ATOM_NS}->{email} = { Line 347  $Element->{$ATOM_NS}->{email} = {
347          push @$new_todos, @$ch;          push @$new_todos, @$ch;
348        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
349          $s .= $node->data;          $s .= $node->data;
350            $todo->{flag}->{has_descendant}->{significant} = 1;
351        } elsif ($nt == 5) {        } elsif ($nt == 5) {
352          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
353        }        }
# Line 384  my $AtomDateConstruct = { Line 389  my $AtomDateConstruct = {
389          push @$new_todos, @$ch;          push @$new_todos, @$ch;
390        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
391          $s .= $node->data;          $s .= $node->data;
392            $todo->{flag}->{has_descendant}->{significant} = 1;
393        } elsif ($nt == 5) {        } elsif ($nt == 5) {
394          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
395        }        }
# Line 516  $Element->{$ATOM_NS}->{entry} = { Line 522  $Element->{$ATOM_NS}->{entry} = {
522        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
523          ## TODO: Are white spaces allowed?          ## TODO: Are white spaces allowed?
524          $self->{onerror}->(node => $node, type => 'character not allowed');          $self->{onerror}->(node => $node, type => 'character not allowed');
525            if ($node->data =~ /[^\x09-\x0D\x20]/) {
526              $todo->{flag}->{has_descendant}->{significant} = 1;
527            }
528        } elsif ($nt == 5) {        } elsif ($nt == 5) {
529          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
530        }        }
# Line 631  $Element->{$ATOM_NS}->{feed} = { Line 640  $Element->{$ATOM_NS}->{feed} = {
640        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
641          ## TODO: Are white spaces allowed?          ## TODO: Are white spaces allowed?
642          $self->{onerror}->(node => $node, type => 'character not allowed');          $self->{onerror}->(node => $node, type => 'character not allowed');
643            if ($node->data =~ /[^\x09-\x0D\x20]/) {
644              $todo->{flag}->{has_descendant}->{significant} = 1;
645            }
646        } elsif ($nt == 5) {        } elsif ($nt == 5) {
647          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
648        }        }
# Line 758  $Element->{$ATOM_NS}->{content} = { Line 770  $Element->{$ATOM_NS}->{content} = {
770          } elsif ($nt == 3 or $nt == 4) {          } elsif ($nt == 3 or $nt == 4) {
771            $self->{onerror}->(node => $node, type => 'character not allowed')            $self->{onerror}->(node => $node, type => 'character not allowed')
772                if $src_attr;                if $src_attr;
773              if ($node->data =~ /[^\x09-\x0D\x20]/) {
774                $todo->{flag}->{has_descendant}->{significant} = 1;
775              }            
776          } elsif ($nt == 5) {          } elsif ($nt == 5) {
777            unshift @nodes, @{$node->child_nodes};            unshift @nodes, @{$node->child_nodes};
778          }          }
# Line 791  $Element->{$ATOM_NS}->{content} = { Line 806  $Element->{$ATOM_NS}->{content} = {
806          } elsif ($nt == 3 or $nt == 4) {          } elsif ($nt == 3 or $nt == 4) {
807            $self->{onerror}->(node => $node, type => 'character not allowed')            $self->{onerror}->(node => $node, type => 'character not allowed')
808                if $src_attr;                if $src_attr;
809              if ($node->data =~ /[^\x09-\x0D\x20]/) {
810                $todo->{flag}->{has_descendant}->{significant} = 1;
811              }
812          } elsif ($nt == 5) {          } elsif ($nt == 5) {
813            unshift @nodes, @{$node->child_nodes};            unshift @nodes, @{$node->child_nodes};
814          }          }
# Line 835  $Element->{$ATOM_NS}->{content} = { Line 853  $Element->{$ATOM_NS}->{content} = {
853          } elsif ($nt == 3 or $nt == 4) {          } elsif ($nt == 3 or $nt == 4) {
854            ## TODO: Are white spaces allowed?            ## TODO: Are white spaces allowed?
855            $self->{onerror}->(node => $node, type => 'character not allowed');            $self->{onerror}->(node => $node, type => 'character not allowed');
856              if ($node->data =~ /[^\x09-\x0D\x20]/) {
857                $todo->{flag}->{has_descendant}->{significant} = 1;
858              }
859          } elsif ($nt == 5) {          } elsif ($nt == 5) {
860            unshift @nodes, @{$node->child_nodes};            unshift @nodes, @{$node->child_nodes};
861          }          }
# Line 876  $Element->{$ATOM_NS}->{content} = { Line 897  $Element->{$ATOM_NS}->{content} = {
897          } elsif ($nt == 3 or $nt == 4) {          } elsif ($nt == 3 or $nt == 4) {
898            ## TODO: Are white spaces allowed?            ## TODO: Are white spaces allowed?
899            $self->{onerror}->(node => $node, type => 'character not allowed');            $self->{onerror}->(node => $node, type => 'character not allowed');
900              if ($node->data =~ /[^\x09-\x0D\x20]/) {
901                $todo->{flag}->{has_descendant}->{significant} = 1;
902              }
903          } elsif ($nt == 5) {          } elsif ($nt == 5) {
904            unshift @nodes, @{$node->child_nodes};            unshift @nodes, @{$node->child_nodes};
905          }          }
# Line 913  $Element->{$ATOM_NS}->{content} = { Line 937  $Element->{$ATOM_NS}->{content} = {
937          } elsif ($nt == 3 or $nt == 4) {          } elsif ($nt == 3 or $nt == 4) {
938            $self->{onerror}->(node => $node, type => 'character not allowed')            $self->{onerror}->(node => $node, type => 'character not allowed')
939                if $src_attr;                if $src_attr;
940              if ($node->data =~ /[^\x09-\x0D\x20]/) {
941                $todo->{flag}->{has_descendant}->{significant} = 1;
942              }
943          } elsif ($nt == 5) {          } elsif ($nt == 5) {
944            unshift @nodes, @{$node->child_nodes};            unshift @nodes, @{$node->child_nodes};
945          }          }
# Line 945  $Element->{$ATOM_NS}->{content} = { Line 972  $Element->{$ATOM_NS}->{content} = {
972            $s .= $node->data;            $s .= $node->data;
973            $self->{onerror}->(node => $node, type => 'character not allowed')            $self->{onerror}->(node => $node, type => 'character not allowed')
974                if $src_attr;                if $src_attr;
975              if ($node->data =~ /[^\x09-\x0D\x20]/) {
976                $todo->{flag}->{has_descendant}->{significant} = 1;
977              }
978          } elsif ($nt == 5) {          } elsif ($nt == 5) {
979            unshift @nodes, @{$node->child_nodes};            unshift @nodes, @{$node->child_nodes};
980          }          }
# Line 1002  $Element->{$ATOM_NS}->{category} = { Line 1032  $Element->{$ATOM_NS}->{category} = {
1032          unshift @nodes, @$sib;          unshift @nodes, @$sib;
1033          push @$new_todos, @$ch;          push @$new_todos, @$ch;
1034        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
1035          #          if ($node->data =~ /[^\x09-\x0D\x20]/) {
1036              $todo->{flag}->{has_descendant}->{significant} = 1;
1037            }
1038        } elsif ($nt == 5) {        } elsif ($nt == 5) {
1039          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
1040        }        }
# Line 1052  $Element->{$ATOM_NS}->{generator} = { Line 1084  $Element->{$ATOM_NS}->{generator} = {
1084        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
1085          ## MUST be a string that is a human-readable name for          ## MUST be a string that is a human-readable name for
1086          ## the generating agent          ## the generating agent
1087            if ($node->data =~ /[^\x09-\x0D\x20]/) {
1088              $todo->{flag}->{has_descendant}->{significant} = 1;
1089            }
1090        } elsif ($nt == 5) {        } elsif ($nt == 5) {
1091          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
1092        }        }
# Line 1083  $Element->{$ATOM_NS}->{icon} = { Line 1118  $Element->{$ATOM_NS}->{icon} = {
1118          push @$new_todos, @$ch;          push @$new_todos, @$ch;
1119        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
1120          $s .= $node->data;          $s .= $node->data;
1121            if ($node->data =~ /[^\x09-\x0D\x20]/) {
1122              $todo->{flag}->{has_descendant}->{significant} = 1;
1123            }
1124        } elsif ($nt == 5) {        } elsif ($nt == 5) {
1125          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
1126        }        }
# Line 1125  $Element->{$ATOM_NS}->{id} = { Line 1163  $Element->{$ATOM_NS}->{id} = {
1163          push @$new_todos, @$ch;          push @$new_todos, @$ch;
1164        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
1165          $s .= $node->data;          $s .= $node->data;
1166            if ($node->data =~ /[^\x09-\x0D\x20]/) {
1167              $todo->{flag}->{has_descendant}->{significant} = 1;
1168            }
1169        } elsif ($nt == 5) {        } elsif ($nt == 5) {
1170          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
1171        }        }
# Line 1233  $Element->{$ATOM_NS}->{link} = { Line 1274  $Element->{$ATOM_NS}->{link} = {
1274          unshift @nodes, @$sib;          unshift @nodes, @$sib;
1275          push @$new_todos, @$ch;          push @$new_todos, @$ch;
1276        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
1277          #          if ($node->data =~ /[^\x09-\x0D\x20]/) {
1278              $todo->{flag}->{has_descendant}->{significant} = 1;
1279            }
1280        } elsif ($nt == 5) {        } elsif ($nt == 5) {
1281          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
1282        }        }
# Line 1265  $Element->{$ATOM_NS}->{logo} = { Line 1308  $Element->{$ATOM_NS}->{logo} = {
1308          push @$new_todos, @$ch;          push @$new_todos, @$ch;
1309        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
1310          $s .= $node->data;          $s .= $node->data;
1311            if ($node->data =~ /[^\x09-\x0D\x20]/) {
1312              $todo->{flag}->{has_descendant}->{significant} = 1;
1313            }
1314        } elsif ($nt == 5) {        } elsif ($nt == 5) {
1315          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
1316        }        }
# Line 1362  $Element->{$ATOM_NS}->{source} = { Line 1408  $Element->{$ATOM_NS}->{source} = {
1408        } elsif ($nt == 3 or $nt == 4) {        } elsif ($nt == 3 or $nt == 4) {
1409          ## TODO: Are white spaces allowed?          ## TODO: Are white spaces allowed?
1410          $self->{onerror}->(node => $node, type => 'character not allowed');          $self->{onerror}->(node => $node, type => 'character not allowed');
1411            if ($node->data =~ /[^\x09-\x0D\x20]/) {
1412              $todo->{flag}->{has_descendant}->{significant} = 1;
1413            }
1414        } elsif ($nt == 5) {        } elsif ($nt == 5) {
1415          unshift @nodes, @{$node->child_nodes};          unshift @nodes, @{$node->child_nodes};
1416        }        }
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24