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


our %Info;
$Info{q#WikiNamespace#}->{Name} = q#WikiNamespace#;
$Info{q#WikiNamespace#}->{q#Version#} = q#2004.0831.0328#;
$Info{q#WikiNamespace#}->{q#InterfaceVersion#} = q#2.9.1#;
$Info{q#WikiNamespace#}->{q#mkpluginVersion#} = q#2.1.19#;
$Info{q#WikiNamespace#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::WikiNamespace1040731032809OuRi#;
$Info{q#WikiNamespace#}->{q#Date.RCS#} = q#$Date: 2010/05/16 23:05:49 $#;
$Info{q#WikiNamespace#}->{RequiredPlugin} = [q#HTML#];
$Info{q#WikiNamespace#}->{Description} = [[q#Namespaced WikiName properties#, q#en#, q##]];
$Info{q#WikiNamespace#}->{License} = [[q#%%Perl%%#, q##, q##]];
$Info{q#WikiNamespace#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];

package SuikaWiki::Plugin::plugin::WikiNamespace1040731032809OuRi;

{my $def = {q#Parameter#, {q#page#, {q#Type#, q#WikiName#, q#Default#, q#(auto)#, q#Description#, [[q#WikiName#, q#en#, q##]]}}, q#Description#, [[q#Last component of WikiName#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source ns.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/ns_short_page_name']/Formatting)"
my $name = $o->{wiki}->name ($p->{name} || $o->{wiki}->{var}->{page});
$p->{-parent}->append_text ($name->[-1]);}}
#line 1 "(WikiPlugin module WikiNamespace, chunk 1)"
;
$SuikaWiki::Plugin::Rule{form_input}->{ns_short_page_name} = $def;
$SuikaWiki::Plugin::Rule{view}->{ns_short_page_name} = $def;
$SuikaWiki::Plugin::Rule{view_resource}->{ns_short_page_name} = $def;
};

$SuikaWiki::Plugin::Rule{page_link}->{ns_short_page_name} = {q#Parameter#, {q#page#, {q#Type#, q#WikiName#, q#Default#, q#(auto)#, q#Description#, [[q#WikiName#, q#en#, q##]]}}, q#Description#, [[q#Last component of WikiName#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source ns.wp2, block FormattingRule[name()='[q#page-link#]/ns_short_page_name']/Formatting)"
my $name = $o->{wiki}->name ($p->{name} || $o->{link}->{dest}->{page_name});
$p->{-parent}->append_text ($name->[-1]);    }}
#line 1 "(WikiPlugin module WikiNamespace, chunk 3)"
;

{my $def = {q#Parameter#, {}, q#Description#, [[q#WikiName without last component#, q##, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source ns.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/ns_page_path_name']/Formatting)"
my $name = $o->{wiki}->name ($p->{name} || $o->{wiki}->{var}->{page});
$p->{-parent}->append_text ($o->{wiki}->name ([@$name[0..$#$name-1]])
->stringify (wiki => $o->{wiki}));}}
#line 1 "(WikiPlugin module WikiNamespace, chunk 5)"
;
$SuikaWiki::Plugin::Rule{form_input}->{ns_page_path_name} = $def;
$SuikaWiki::Plugin::Rule{view}->{ns_page_path_name} = $def;
$SuikaWiki::Plugin::Rule{view_resource}->{ns_page_path_name} = $def;
};

$SuikaWiki::Plugin::Rule{page_link}->{ns_page_path_name} = {q#Parameter#, {}, q#Description#, [[q#WikiName without last component#, q##, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source ns.wp2, block FormattingRule[name()='[q#page-link#]/ns_page_path_name']/Formatting)"
my $name = $o->{wiki}->name ($p->{name} || $o->{link}->{dest}->{page_name});
$p->{-parent}->append_text ($o->{wiki}->name ([@$name[0..$#$name-1]])
->stringify (wiki => $o->{wiki}));}}
#line 1 "(WikiPlugin module WikiNamespace, chunk 7)"
;

{my $def = {q#Parameter#, {q#page#, {q#Type#, q#WikiName#, q#Default#, q#(auto)#, q#Description#, [[q#WikiPage name#, q#en#, q##]]}, q#false#, {q#Type#, q#CDATA#, q#Default#, q#(none)#, q#Description#, [[q#Evaluated if "parent" page does not exist#, q#en#, q##]]}, q#true#, {q#Type#, q#CDATA#, q#Default#, q#(none)#, q#Description#, [[q#Evaluated if "parent" page exists#, q#en#, q##]]}}, q#Description#, [[q#Conditional content, whether "parent" page exists or not#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source ns.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#, q#link-to-wikipage#]/is_child_of_root_ns']/Formatting)"
my $name = $o->{wiki}->name ($p->{name} || $o->{wiki}->{var}->{page});
if (@$name == 1) {
$f->parse_attr ($p=>q#true#, $o, -parent => $p->{-parent}, -non_parsed_to_node => 1, %opt);
} else {
$f->parse_attr ($p=>q#false#, $o, -parent => $p->{-parent}, -non_parsed_to_node => 1, %opt);
}}}
#line 1 "(WikiPlugin module WikiNamespace, chunk 9)"
;
$SuikaWiki::Plugin::Rule{form_input}->{is_child_of_root_ns} = $def;
$SuikaWiki::Plugin::Rule{view}->{is_child_of_root_ns} = $def;
$SuikaWiki::Plugin::Rule{view_resource}->{is_child_of_root_ns} = $def;
$SuikaWiki::Plugin::Rule{link_to_wikipage}->{is_child_of_root_ns} = $def;
};

$SuikaWiki::Plugin::Rule{page_link}->{is_child_of_root_ns} = {q#Parameter#, {q#page#, {q#Type#, q#WikiName#, q#Default#, q#(auto)#, q#Description#, [[q#WikiPage name#, q#en#, q##]]}, q#false#, {q#Type#, q#CDATA#, q#Default#, q#(none)#, q#Description#, [[q#Evaluated if "parent" page does not exist#, q#en#, q##]]}, q#true#, {q#Type#, q#CDATA#, q#Default#, q#(none)#, q#Description#, [[q#Evaluated if "parent" page exists#, q#en#, q##]]}}, q#Description#, [[q#Conditional content, whether "parent" page exists or not#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source ns.wp2, block FormattingRule[name()='[q#page-link#]/is_child_of_root_ns']/Formatting)"
my $name = $o->{wiki}->name ($p->{name} || $o->{link}->{dest}->{page_name});
if (@$name == 1) {
$f->parse_attr ($p=>q#true#, $o, -parent => $p->{-parent}, -non_parsed_to_node => 1, %opt);
} else {
$f->parse_attr ($p=>q#false#, $o, -parent => $p->{-parent}, -non_parsed_to_node => 1, %opt);
}}}
#line 1 "(WikiPlugin module WikiNamespace, chunk 11)"
;

{my $def = {q#Parameter#, {}, q#Description#, [[q#Text representation of "root" WikiPage name#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source ns.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#, q#page-link#, q#link-to-resource#]/ns__root_wikiname']/Formatting)"
$p->{-parent}->append_text ($o->{wiki}->{config}->{name}->{space}->{root});}}
#line 1 "(WikiPlugin module WikiNamespace, chunk 13)"
;
$SuikaWiki::Plugin::Rule{view}->{ns__root_wikiname} = $def;
$SuikaWiki::Plugin::Rule{view_resource}->{ns__root_wikiname} = $def;
$SuikaWiki::Plugin::Rule{form_input}->{ns__root_wikiname} = $def;
$SuikaWiki::Plugin::Rule{page_link}->{ns__root_wikiname} = $def;
$SuikaWiki::Plugin::Rule{link_to_resource}->{ns__root_wikiname} = $def;
};

push @{$SuikaWiki::View::Implementation::TemplateFragment{q#links#}},   {
    Main => q#%link-wiki (
page => {%ns-page-path-name;}p,
rel => {up},
description => {%res (name => {WikiNS:GoToParent:Description});}p,
);#,
    Order => 0,
    Description => [],
  };

package SuikaWiki::Plugin::Resource;

our $BaseResource;
$BaseResource->{q#en#}->{q##}->{q#WikiNS:GoToParent:Description#} = q#Parent WikiPage, "%ns-page-path-name;"#;
package SuikaWiki::Plugin::Registry;

$Info{q#WikiNamespace#}->{provide} = {q#rule#, {q#link_to_resource#, [q#ns__root_wikiname#], q#form_input#, [q#ns_short_page_name#, q#ns_page_path_name#, q#is_child_of_root_ns#, q#ns__root_wikiname#], q#link_to_wikipage#, [q#is_child_of_root_ns#], q#view#, [q#ns_short_page_name#, q#ns_page_path_name#, q#is_child_of_root_ns#, q#ns__root_wikiname#], q#view_resource#, [q#ns_short_page_name#, q#ns_page_path_name#, q#is_child_of_root_ns#, q#ns__root_wikiname#], q#page_link#, [q#ns_short_page_name#, q#ns_page_path_name#, q#is_child_of_root_ns#, q#ns__root_wikiname#]}, q#viewfragment#, [{q#Name#, q#links#}]};

1;