Tables
@@ -656,7 +965,8 @@
## so that this script don't have to run the algorithm twice.
my $table = Whatpm::HTMLTable->form_table ($table_el);
- for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}) {
+ for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption},
+ @{$table->{row}}) {
next unless $_;
delete $_->{element};
}
@@ -692,7 +1002,8 @@
sub print_listing_section ($$$) {
my ($opt, $input, $ids) = @_;
- push @nav, ['#' . $opt->{id} => $opt->{label}] unless $input->{nested};
+ push @nav, ['#' . $input->{id_prefix} . $opt->{id} => $opt->{label}]
+ unless $input->{nested};
print STDOUT qq[
$opt->{heading}
@@ -708,6 +1019,106 @@
print STDOUT qq[];
} # print_listing_section
+sub print_uri_section ($$$) {
+ my ($input, $uris) = @_;
+
+ ## NOTE: URIs contained in the DOM (i.e. in HTML or XML documents),
+ ## except for those in RDF triples.
+ ## TODO: URIs in CSS
+
+ push @nav, ['#' . $input->{id_prefix} . 'uris' => 'URIs']
+ unless $input->{nested};
+ print STDOUT qq[
+
];
+} # print_uri_section
+
+sub print_rdf_section ($$$) {
+ my ($input, $rdfs) = @_;
+
+ push @nav, ['#' . $input->{id_prefix} . 'rdf' => 'RDF']
+ unless $input->{nested};
+ print STDOUT qq[
+
];
+} # print_rdf_section
+
+sub get_rdf_resource_html ($) {
+ my $resource = shift;
+ if (defined $resource->{uri}) {
+ my $euri = htescape ($resource->{uri});
+ return '
<' . $euri .
+ '>';
+ } elsif (defined $resource->{bnodeid}) {
+ return htescape ('_:' . $resource->{bnodeid});
+ } elsif ($resource->{nodes}) {
+ return '(rdf:XMLLiteral)';
+ } elsif (defined $resource->{value}) {
+ my $elang = htescape (defined $resource->{language}
+ ? $resource->{language} : '');
+ my $r = qq[
] . htescape ($resource->{value}) . '
';
+ if (defined $resource->{datatype}) {
+ my $euri = htescape ($resource->{datatype});
+ $r .= '^^
<' . $euri .
+ '>';
+ } elsif (length $resource->{language}) {
+ $r .= '@' . htescape ($resource->{language});
+ }
+ return $r;
+ } else {
+ return '??';
+ }
+} # get_rdf_resource_html
+
sub print_result_section ($) {
my $result = shift;
@@ -804,7 +1215,7 @@
my $euri = htescape ($input->{uri});
print STDOUT qq[
-
+
];
- push @nav, ['#parse-errors' => 'Errors'];
+ push @nav, [qq[#$input->{id_prefix}parse-errors] => 'Errors']
+ unless $input->{nested};
add_error (char => {level => 'u'} => $result);
add_error (syntax => {level => 'u'} => $result);
add_error (structure => {level => 'u'} => $result);
@@ -836,23 +1248,58 @@
my $r = '';
- if (defined $err->{line}) {
- if ($err->{column} > 0) {
- $r = qq[
Line $err->{line} column $err->{column}];
+ my $line;
+ my $column;
+
+ if (defined $err->{node}) {
+ $line = $err->{node}->get_user_data ('manakai_source_line');
+ if (defined $line) {
+ $column = $err->{node}->get_user_data ('manakai_source_column');
+ } else {
+ if ($err->{node}->node_type == $err->{node}->ATTRIBUTE_NODE) {
+ my $owner = $err->{node}->owner_element;
+ $line = $owner->get_user_data ('manakai_source_line');
+ $column = $owner->get_user_data ('manakai_source_column');
+ } else {
+ my $parent = $err->{node}->parent_node;
+ if ($parent) {
+ $line = $parent->get_user_data ('manakai_source_line');
+ $column = $parent->get_user_data ('manakai_source_column');
+ }
+ }
+ }
+ }
+ unless (defined $line) {
+ if (defined $err->{token} and defined $err->{token}->{line}) {
+ $line = $err->{token}->{line};
+ $column = $err->{token}->{column};
+ } elsif (defined $err->{line}) {
+ $line = $err->{line};
+ $column = $err->{column};
+ }
+ }
+
+ if (defined $line) {
+ if (defined $column and $column > 0) {
+ $r = qq[
Line $line column $column];
} else {
- $err->{line} = $err->{line} - 1 || 1;
- $r = qq[
Line $err->{line}];
+ $line = $line - 1 || 1;
+ $r = qq[
Line $line];
}
}
if (defined $err->{node}) {
$r .= ' ' if length $r;
- $r = get_node_link ($input, $err->{node});
+ $r .= get_node_link ($input, $err->{node});
}
if (defined $err->{index}) {
- $r .= ' ' if length $r;
- $r .= 'Index ' . (0+$err->{index});
+ if (length $r) {
+ $r .= ', Index ' . (0+$err->{index});
+ } else {
+ $r .= "
Index "
+ . (0+$err->{index}) . '';
+ }
}
if (defined $err->{value}) {
@@ -880,6 +1327,8 @@
} elsif ($err->{level} eq 'u' or $err->{level} eq 'unsupported') {
$r = qq[
Not
supported: ];
+ } elsif ($err->{level} eq 'i') {
+ $r = qq[
Information: ];
} else {
my $elevel = htescape ($err->{level});
$r = qq[
$elevel:
@@ -895,10 +1344,10 @@
while (defined $node) {
my $rs;
if ($node->node_type == 1) {
- $rs = $node->manakai_local_name;
+ $rs = $node->node_name;
$node = $node->parent_node;
} elsif ($node->node_type == 2) {
- $rs = '@' . $node->manakai_local_name;
+ $rs = '@' . $node->node_name;
$node = $node->owner_element;
} elsif ($node->node_type == 3) {
$rs = '"' . $node->data . '"';
@@ -976,6 +1425,17 @@
}
+sub encode_uri_component ($) {
+ require Encode;
+ my $s = Encode::encode ('utf8', shift);
+ $s =~ s/([^0-9A-Za-z_.~-])/sprintf '%%%02X', ord $1/ge;
+ return $s;
+} # encode_uri_component
+
+sub get_cc_uri ($) {
+ return './?uri=' . encode_uri_component ($_[0]);
+} # get_cc_uri
+
sub get_input_document ($$) {
my ($http, $dom) = @_;
@@ -1124,6 +1584,8 @@
return $r;
}
+ $r->{inner_html_element} = $http->get_parameter ('e');
+
return $r;
} # get_input_document
@@ -1156,11 +1618,11 @@
=head1 LICENSE
-Copyright 2007 Wakaba
+Copyright 2007-2008 Wakaba
This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
=cut
-## $Date: 2008/02/10 03:11:06 $
+## $Date: 2008/05/06 07:50:28 $