misc/plugins/xml.pm

use strict;
package SuikaWiki::Plugin::Registry;


our %Info;
$Info{q#XML#}->{Name} = q#XML#;
$Info{q#XML#}->{q#Version#} = q#2004.0831.0328#;
$Info{q#XML#}->{q#InterfaceVersion#} = q#2.9.1#;
$Info{q#XML#}->{q#mkpluginVersion#} = q#2.1.19#;
$Info{q#XML#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::XML1040731032807VhhY#;
$Info{q#XML#}->{q#Date.RCS#} = q#$Date: 2004/02/08 08:49:48 $#;
$Info{q#XML#}->{Description} = [[q#XML support#, q#en#, q##]];
$Info{q#XML#}->{License} = [[q#%%GPL%%#, q##, q##]];
$Info{q#XML#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];

package SuikaWiki::Plugin::plugin::XML1040731032807VhhY;

$SuikaWiki::Plugin::Rule{view}->{xml_declaration} = {q#Parameter#, {q#downgrade_html#, {q#Type#, q#boolean#, q#Default#, q#"0"#, q#Description#, [[q#HTML downgrade mode.  PIs are not outputed if User-Agent does not
support PIs (eg. Classic Mozilla).#, q##, q##]]}}, q#Description#, [[q#XML declaration#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source xml.wp2, block FormattingRule[name()='[q#view#]/xml_declaration']/Formatting)"
$p->{q#downgrade_html#} = do { my $r = $f->parse_attr ($p=>q#downgrade_html#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
if ($p->{downgrade_html}) {
return if $o->{wiki}->{var}->{client}->{downgrade}->{html_no_pi};
}
my $xml = $p->{-parent}->append_new_node
(type => '#pi', 
local_name => 'xml');
$xml->set_attribute (version => '1.0');}}
#line 1 "(WikiPlugin module XML, chunk 1)"
;

push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ht__pre_element_content#}},   {
    Main => q#%xml-declaration (downgrade-html);
#,
    Order => -10000,
    Description => [[q#XML declaration#, q#en#, q##]],
  };
package SuikaWiki::Plugin::Registry;

$Info{q#XML#}->{provide} = {q#rule#, {q#view#, [q#xml_declaration#]}, q#viewfragment#, [{q#Name#, q#ht__pre_element_content#}]};

1;
1	use strict;
2	package SuikaWiki::Plugin::Registry;
3
4
5	our %Info;
6	$Info{q#XML#}->{Name} = q#XML#;
7	$Info{q#XML#}->{q#Version#} = q#2004.0831.0328#;
8	$Info{q#XML#}->{q#InterfaceVersion#} = q#2.9.1#;
9	$Info{q#XML#}->{q#mkpluginVersion#} = q#2.1.19#;
10	$Info{q#XML#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::XML1040731032807VhhY#;
11	$Info{q#XML#}->{q#Date.RCS#} = q#$Date: 2004/02/08 08:49:48 $#;
12	$Info{q#XML#}->{Description} = [[q#XML support#, q#en#, q##]];
13	$Info{q#XML#}->{License} = [[q#%%GPL%%#, q##, q##]];
14	$Info{q#XML#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];
15
16	package SuikaWiki::Plugin::plugin::XML1040731032807VhhY;
17
18	$SuikaWiki::Plugin::Rule{view}->{xml_declaration} = {q#Parameter#, {q#downgrade_html#, {q#Type#, q#boolean#, q#Default#, q#"0"#, q#Description#, [[q#HTML downgrade mode. PIs are not outputed if User-Agent does not
19	support PIs (eg. Classic Mozilla).#, q##, q##]]}}, q#Description#, [[q#XML declaration#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
20
21	#line 1 "(WikiPlugin module source xml.wp2, block FormattingRule[name()='[q#view#]/xml_declaration']/Formatting)"
22	$p->{q#downgrade_html#} = do { my $r = $f->parse_attr ($p=>q#downgrade_html#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
23	if ($p->{downgrade_html}) {
24	return if $o->{wiki}->{var}->{client}->{downgrade}->{html_no_pi};
25	}
26	my $xml = $p->{-parent}->append_new_node
27	(type => '#pi',
28	local_name => 'xml');
29	$xml->set_attribute (version => '1.0');}}
30	#line 1 "(WikiPlugin module XML, chunk 1)"
31	;
32
33	push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ht__pre_element_content#}}, {
34	Main => q#%xml-declaration (downgrade-html);
35	#,
36	Order => -10000,
37	Description => [[q#XML declaration#, q#en#, q##]],
38	};
39	package SuikaWiki::Plugin::Registry;
40
41	$Info{q#XML#}->{provide} = {q#rule#, {q#view#, [q#xml_declaration#]}, q#viewfragment#, [{q#Name#, q#ht__pre_element_content#}]};
42
43	1;