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;