plugins/link/search.pm

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


our %Info;
$Info{q#Search#}->{Name} = q#Search#;
$Info{q#Search#}->{q#Version#} = q#2004.0831.0328#;
$Info{q#Search#}->{q#InterfaceVersion#} = q#2.9.1#;
$Info{q#Search#}->{q#mkpluginVersion#} = q#2.1.19#;
$Info{q#Search#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Search1040731032809Rm7Z#;
$Info{q#Search#}->{q#Date.RCS#} = q#$Date: 2004/04/01 04:39:58 $#;
$Info{q#Search#}->{RequiredPlugin} = [q#WikiLinking#];
$Info{q#Search#}->{Description} = [[q#Wiki internal full-text search#, q#en#, q##]];
$Info{q#Search#}->{License} = [[q#%%Perl%%#, q##, q##]];
$Info{q#Search#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];
package SuikaWiki::Plugin::plugin::Search1040731032809Rm7Z;


#line 1 "(WikiPlugin module source search.wp2, block Plugin/Use)"
use Message::Util::Error;
my $WIKILINKING;
my $WIKIRESOURCE;
#line 1 "(WikiPlugin module Search, chunk 1)"

{my $def = {q#Parameter#, {q#number#, {q#Type#, q#<<1*DIGIT>>#, q#Default#, q#(auto)#, q#Description#, [[q#(Reserved)#, q#en#, q##]]}, q#query#, {q#Type#, q#string#, q#Default#, q#""#, q#Description#, [[q#Query.#, q#en#, q##]]}, q#case_sensitive#, {q#Type#, q#boolean#, q#Default#, q#"0"#, q#Description#, [[q#Case sensitivility of search.#, q#en#, q##]]}, q#start#, {q#Type#, q#<<1*DIGIT>>#, q#Default#, q#"0"#, q#Description#, []}}, q#Description#, [[q#Full-text search in wiki with given query string.

This rule seek all (*1) wiki page contents whenever cache is not
available.  This rule should not be used within wiki that has
lots of wiki pages.  (*1 Number of wiki pages that is to be target
of search is limited to C<$max_target> defined in this rule for
safety.)

This rule does not support multiple wiki page content formats.
It handles contents as a plain text whatever its actual media type is.

This rule requires C<m__search_result> WikiDB property to be enabled
for caching.  (See C<suikawiki-config.ph>.)

Namazu WikiPlugin module provides more clever search engine.#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/search_result']/Formatting)"
$p->{q#query#} = do { my $r = $f->parse_attr ($p=>q#query#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
$p->{query} ||= ($o->{wiki}->{input} ?
$o->{wiki}->{input}->parameter ('search__query') : undef)
|| $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki});
$p->{q#case_sensitive#} = do { my $r = $f->parse_attr ($p=>q#case_sensitive#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
my $word = $p->{case_sensitive} ? $p->{query} : lc $p->{query};
my $max_target = 1023;
my @r;
my $sr = $o->{wiki}->{db}->get (m__search_result => [$word]);
unless ($sr) {
my $n = 0;
for my $page ($o->{wiki}->{db}->keys ('content')) {
last if $n++ == $max_target;
my $content;
try {
$content = $o->{wiki}->{db}->get (content => $page);
} catch SuikaWiki::DB::Util::Error with {
my $err = shift;
$err->throw if $err->{-type} eq 'ERROR_REPORTED';
$content = undef;
};
$content = $p->{case_sensitive} ? $content : lc $content;
$content =~ s/^[^\x0A\x0D]+[\x0D\x0A]+//s;
$page = $o->{wiki}->name ($page);
my $n_page = $page->stringify (wiki => $o->{wiki});
$n_page = lc $n_page unless $p->{case_sensible};
if (index ($n_page, $word) > -1) {
my $c = $content =~ s/\Q$word\E//g;
push @r, [$page, $c+20];
} elsif (index ($word, $n_page) > -1) {
my $c = $content =~ s/\Q$word\E//g;
push @r, [$page, $c+10];
} elsif (my $c = $content =~ s/\Q$word\E//g) {
push @r, [$page, $c];
}
}
@r = sort {$b->[1] <=> $a->[1] || $a->[0] cmp $b->[0]} @r;
$sr = join "\x1E",
map {$_->[0]->stringify (wiki => $o->{wiki}, delimiter => "\x1D")
."\x1F".$_->[1]} @r;
$o->{wiki}->{db}->set (m__search_result => [$word] => $sr);
} else {
@r = map {[$o->{wiki}->name ($_->[0], delimiter_reg => qr/\x1D/), $_->[1]]}
map {[split /\x1F/, $_, 2]} split /\x1E/, $sr;
}
return unless @r;
my $list = $p->{-parent}->append_new_node
(type => '#element',
namespace_uri => q#http://www.w3.org/1999/xhtml#,
local_name => 'ol');
$p->{q#template#} = do { my $r = $f->parse_attr ($p=>q#template#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
$p->{template} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get
(name => 'Link:toWikiPage:SourceLabelLong:SearchResult',
wiki => $o->{wiki}, o => $o);
for (@r) {
($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
label => $p->{template},
} => {
base => $o->{wiki}->{var}->{page},
page_name_relative => $_->[0],
wiki_mode => $p->{mode},
}, {
o => $o,
parent => $list->append_new_node
(type => '#element',
namespace_uri => q#http://www.w3.org/1999/xhtml#,
local_name => 'li'),
-m__weight => $_->[1],
});
}}}
#line 1 "(WikiPlugin module Search, chunk 2)"
;
$SuikaWiki::Plugin::Rule{form_input}->{search_result} = $def;
$SuikaWiki::Plugin::Rule{view}->{search_result} = $def;
$SuikaWiki::Plugin::Rule{view_resource}->{search_result} = $def;
};

{my $def = {q#Parameter#, {q#fragment#, {q#Type#, q#URI:fragment#, q#Default#, q#(none)#, q#Description#, [[q#Fragment identifier of destination resource#, q#en#, q##]]}}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#]/search__result_navigation']/Formatting)"
my $result = $o->{var}->{search__result};
return if $result->{min} == $result->{start} and
$result->{max} == $result->{end};
my $number = $result->{number}; # $result->{end} - $result->{start} + 1;
my @range;
my $first = ($result->{start} - $result->{min}) % $number;
if ($first) {
push @range, {start => $result->{min}, end => $first - 1,
number => $first,
dir => 'prev', seq => 0};
}
my $dir;
use integer;
for my $i (0..(($result->{max} - $result->{min} + 1 - $first) / $number - 1)) {
my $start = $result->{min} + $first + $number * $i;
push @range, {start => $start,
end => $start + $number - 1,
number => $number,
dir => $dir || (($result->{start} == $start) ?
($dir = 'next' and 'current') : 'prev'),
seq => scalar @range};
}
if ($range[-1]->{end} < $result->{max}) {
push @range, {start => $range[-1]->{end} + 1,
end => $result->{max},
dir => $dir || 'current',
number => $number,
seq => scalar @range};
}
my %template;
for (@range) {
$template{$_->{dir}} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get_text
(name => 'Search:Navigation:'.$_->{dir},
o => $o, wiki => $o->{wiki});
($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
label => $template{$_->{dir}},
} => {
base => $o->{wiki}->{var}->{page},
page_name_relative => $o->{wiki}->{var}->{page},
param => {
$result->{param_prefix}.'__query' => $result->{query},
$result->{param_prefix}.'__range_start' => $_->{start},
$result->{param_prefix}.'__range_number' => $_->{number},
},
search__range => $_,
page_anchor_name => $p->{fragment},
wiki_mode => $o->{wiki}->{var}->{mode},
}, {
o => $o,
parent => $p->{-parent},
});
}}}
#line 1 "(WikiPlugin module Search, chunk 4)"
;
$SuikaWiki::Plugin::Rule{view}->{search__result_navigation} = $def;
$SuikaWiki::Plugin::Rule{view_resource}->{search__result_navigation} = $def;
$SuikaWiki::Plugin::Rule{form_input}->{search__result_navigation} = $def;
};

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

#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_navigation_seq']/Formatting)"
$p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{seq} + 1);}}
#line 1 "(WikiPlugin module Search, chunk 6)"
;

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

#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_query']/Formatting)"
$p->{-parent}->append_text ($o->{link}->{dest}->{param}->{search__query});}}
#line 1 "(WikiPlugin module Search, chunk 8)"
;

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

#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_start']/Formatting)"
$p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{start} + 1);}}
#line 1 "(WikiPlugin module Search, chunk 10)"
;

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

#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_end']/Formatting)"
$p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{end} + 1);}}
#line 1 "(WikiPlugin module Search, chunk 12)"
;

push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ws__post_content#}},   {
    Main => q#%section (
id => see-also,
title => {%res(name=>SeeAlso);}p, heading,
content => {%search-result (
post-list => {
%search--result-navigation (
fragment => see-also,
);
}p,
);}p,
);#,
    Order => 101,
    Description => [[q#After content body -- Backward links#, q#en#, q##]],
  };

package SuikaWiki::Plugin::Resource;

our $BaseResource;
$BaseResource->{q#und#}->{q##}->{q#Link:toWikiPage:SourceLabelLong:SearchResult#} = q#{%m--link-weight;} %link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p);#;
$BaseResource->{q#und#}->{q##}->{q#Search:Navigation:prev#} = q#[%link-to-it ( label => {%search--result-navigation-seq;}p, description => {%search--result-query; [%search--result-start;-%search--result-end;]}p, );] #;
$BaseResource->{q#und#}->{q##}->{q#Search:Navigation:current#} = q#[%search--result-navigation-seq;] #;
$BaseResource->{q#und#}->{q##}->{q#Search:Navigation:next#} = q#[%link-to-it ( label => {%search--result-navigation-seq;}p, description => {%search--result-query; [%search--result-start;-%search--result-end;]}p, );] #;
package SuikaWiki::Plugin::Registry;

$Info{q#Search#}->{provide} = {q#rule#, {q#form_input#, [q#search_result#, q#search__result_navigation#], q#view#, [q#search_result#, q#search__result_navigation#], q#view_resource#, [q#search_result#, q#search__result_navigation#], q#page_link#, [q#search__result_navigation_seq#, q#search__result_query#, q#search__result_start#, q#search__result_end#]}, q#viewfragment#, [{q#Name#, q#ws__post_content#}]};

1;
1	use strict;
2	package SuikaWiki::Plugin::Registry;
3
4
5	our %Info;
6	$Info{q#Search#}->{Name} = q#Search#;
7	$Info{q#Search#}->{q#Version#} = q#2004.0831.0328#;
8	$Info{q#Search#}->{q#InterfaceVersion#} = q#2.9.1#;
9	$Info{q#Search#}->{q#mkpluginVersion#} = q#2.1.19#;
10	$Info{q#Search#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Search1040731032809Rm7Z#;
11	$Info{q#Search#}->{q#Date.RCS#} = q#$Date: 2004/04/01 04:39:58 $#;
12	$Info{q#Search#}->{RequiredPlugin} = [q#WikiLinking#];
13	$Info{q#Search#}->{Description} = [[q#Wiki internal full-text search#, q#en#, q##]];
14	$Info{q#Search#}->{License} = [[q#%%Perl%%#, q##, q##]];
15	$Info{q#Search#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];
16	package SuikaWiki::Plugin::plugin::Search1040731032809Rm7Z;
17
18
19	#line 1 "(WikiPlugin module source search.wp2, block Plugin/Use)"
20	use Message::Util::Error;
21	my $WIKILINKING;
22	my $WIKIRESOURCE;
23	#line 1 "(WikiPlugin module Search, chunk 1)"
24
25	{my $def = {q#Parameter#, {q#number#, {q#Type#, q#<<1DIGIT>>#, q#Default#, q#(auto)#, q#Description#, [[q#(Reserved)#, q#en#, q##]]}, q#query#, {q#Type#, q#string#, q#Default#, q#""#, q#Description#, [[q#Query.#, q#en#, q##]]}, q#case_sensitive#, {q#Type#, q#boolean#, q#Default#, q#"0"#, q#Description#, [[q#Case sensitivility of search.#, q#en#, q##]]}, q#start#, {q#Type#, q#<<1DIGIT>>#, q#Default#, q#"0"#, q#Description#, []}}, q#Description#, [[q#Full-text search in wiki with given query string.
26
27	This rule seek all (*1) wiki page contents whenever cache is not
28	available. This rule should not be used within wiki that has
29	lots of wiki pages. (*1 Number of wiki pages that is to be target
30	of search is limited to C<$max_target> defined in this rule for
31	safety.)
32
33	This rule does not support multiple wiki page content formats.
34	It handles contents as a plain text whatever its actual media type is.
35
36	This rule requires C<m__search_result> WikiDB property to be enabled
37	for caching. (See C<suikawiki-config.ph>.)
38
39	Namazu WikiPlugin module provides more clever search engine.#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
40
41	#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/search_result']/Formatting)"
42	$p->{q#query#} = do { my $r = $f->parse_attr ($p=>q#query#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
43	$p->{query} \|\|= ($o->{wiki}->{input} ?
44	$o->{wiki}->{input}->parameter ('search__query') : undef)
45	\|\| $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki});
46	$p->{q#case_sensitive#} = do { my $r = $f->parse_attr ($p=>q#case_sensitive#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
47	my $word = $p->{case_sensitive} ? $p->{query} : lc $p->{query};
48	my $max_target = 1023;
49	my @r;
50	my $sr = $o->{wiki}->{db}->get (m__search_result => [$word]);
51	unless ($sr) {
52	my $n = 0;
53	for my $page ($o->{wiki}->{db}->keys ('content')) {
54	last if $n++ == $max_target;
55	my $content;
56	try {
57	$content = $o->{wiki}->{db}->get (content => $page);
58	} catch SuikaWiki::DB::Util::Error with {
59	my $err = shift;
60	$err->throw if $err->{-type} eq 'ERROR_REPORTED';
61	$content = undef;
62	};
63	$content = $p->{case_sensitive} ? $content : lc $content;
64	$content =~ s/^[^\x0A\x0D]+[\x0D\x0A]+//s;
65	$page = $o->{wiki}->name ($page);
66	my $n_page = $page->stringify (wiki => $o->{wiki});
67	$n_page = lc $n_page unless $p->{case_sensible};
68	if (index ($n_page, $word) > -1) {
69	my $c = $content =~ s/\Q$word\E//g;
70	push @r, [$page, $c+20];
71	} elsif (index ($word, $n_page) > -1) {
72	my $c = $content =~ s/\Q$word\E//g;
73	push @r, [$page, $c+10];
74	} elsif (my $c = $content =~ s/\Q$word\E//g) {
75	push @r, [$page, $c];
76	}
77	}
78	@r = sort {$b->[1] <=> $a->[1] \|\| $a->[0] cmp $b->[0]} @r;
79	$sr = join "\x1E",
80	map {$_->[0]->stringify (wiki => $o->{wiki}, delimiter => "\x1D")
81	."\x1F".$_->[1]} @r;
82	$o->{wiki}->{db}->set (m__search_result => [$word] => $sr);
83	} else {
84	@r = map {[$o->{wiki}->name ($_->[0], delimiter_reg => qr/\x1D/), $_->[1]]}
85	map {[split /\x1F/, $_, 2]} split /\x1E/, $sr;
86	}
87	return unless @r;
88	my $list = $p->{-parent}->append_new_node
89	(type => '#element',
90	namespace_uri => q#http://www.w3.org/1999/xhtml#,
91	local_name => 'ol');
92	$p->{q#template#} = do { my $r = $f->parse_attr ($p=>q#template#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
93	$p->{template} \|\|= ($WIKIRESOURCE \|\|= SuikaWiki::Plugin->module_package ('WikiResource'))->get
94	(name => 'Link:toWikiPage:SourceLabelLong:SearchResult',
95	wiki => $o->{wiki}, o => $o);
96	for (@r) {
97	($WIKILINKING \|\|= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
98	label => $p->{template},
99	} => {
100	base => $o->{wiki}->{var}->{page},
101	page_name_relative => $_->[0],
102	wiki_mode => $p->{mode},
103	}, {
104	o => $o,
105	parent => $list->append_new_node
106	(type => '#element',
107	namespace_uri => q#http://www.w3.org/1999/xhtml#,
108	local_name => 'li'),
109	-m__weight => $_->[1],
110	});
111	}}}
112	#line 1 "(WikiPlugin module Search, chunk 2)"
113	;
114	$SuikaWiki::Plugin::Rule{form_input}->{search_result} = $def;
115	$SuikaWiki::Plugin::Rule{view}->{search_result} = $def;
116	$SuikaWiki::Plugin::Rule{view_resource}->{search_result} = $def;
117	};
118
119	{my $def = {q#Parameter#, {q#fragment#, {q#Type#, q#URI:fragment#, q#Default#, q#(none)#, q#Description#, [[q#Fragment identifier of destination resource#, q#en#, q##]]}}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
120
121	#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#]/search__result_navigation']/Formatting)"
122	my $result = $o->{var}->{search__result};
123	return if $result->{min} == $result->{start} and
124	$result->{max} == $result->{end};
125	my $number = $result->{number}; # $result->{end} - $result->{start} + 1;
126	my @range;
127	my $first = ($result->{start} - $result->{min}) % $number;
128	if ($first) {
129	push @range, {start => $result->{min}, end => $first - 1,
130	number => $first,
131	dir => 'prev', seq => 0};
132	}
133	my $dir;
134	use integer;
135	for my $i (0..(($result->{max} - $result->{min} + 1 - $first) / $number - 1)) {
136	my $start = $result->{min} + $first + $number * $i;
137	push @range, {start => $start,
138	end => $start + $number - 1,
139	number => $number,
140	dir => $dir \|\| (($result->{start} == $start) ?
141	($dir = 'next' and 'current') : 'prev'),
142	seq => scalar @range};
143	}
144	if ($range[-1]->{end} < $result->{max}) {
145	push @range, {start => $range[-1]->{end} + 1,
146	end => $result->{max},
147	dir => $dir \|\| 'current',
148	number => $number,
149	seq => scalar @range};
150	}
151	my %template;
152	for (@range) {
153	$template{$_->{dir}} \|\|= ($WIKIRESOURCE \|\|= SuikaWiki::Plugin->module_package ('WikiResource'))->get_text
154	(name => 'Search:Navigation:'.$_->{dir},
155	o => $o, wiki => $o->{wiki});
156	($WIKILINKING \|\|= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
157	label => $template{$_->{dir}},
158	} => {
159	base => $o->{wiki}->{var}->{page},
160	page_name_relative => $o->{wiki}->{var}->{page},
161	param => {
162	$result->{param_prefix}.'__query' => $result->{query},
163	$result->{param_prefix}.'__range_start' => $_->{start},
164	$result->{param_prefix}.'__range_number' => $_->{number},
165	},
166	search__range => $_,
167	page_anchor_name => $p->{fragment},
168	wiki_mode => $o->{wiki}->{var}->{mode},
169	}, {
170	o => $o,
171	parent => $p->{-parent},
172	});
173	}}}
174	#line 1 "(WikiPlugin module Search, chunk 4)"
175	;
176	$SuikaWiki::Plugin::Rule{view}->{search__result_navigation} = $def;
177	$SuikaWiki::Plugin::Rule{view_resource}->{search__result_navigation} = $def;
178	$SuikaWiki::Plugin::Rule{form_input}->{search__result_navigation} = $def;
179	};
180
181	$SuikaWiki::Plugin::Rule{page_link}->{search__result_navigation_seq} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
182
183	#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_navigation_seq']/Formatting)"
184	$p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{seq} + 1);}}
185	#line 1 "(WikiPlugin module Search, chunk 6)"
186	;
187
188	$SuikaWiki::Plugin::Rule{page_link}->{search__result_query} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
189
190	#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_query']/Formatting)"
191	$p->{-parent}->append_text ($o->{link}->{dest}->{param}->{search__query});}}
192	#line 1 "(WikiPlugin module Search, chunk 8)"
193	;
194
195	$SuikaWiki::Plugin::Rule{page_link}->{search__result_start} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
196
197	#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_start']/Formatting)"
198	$p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{start} + 1);}}
199	#line 1 "(WikiPlugin module Search, chunk 10)"
200	;
201
202	$SuikaWiki::Plugin::Rule{page_link}->{search__result_end} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
203
204	#line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_end']/Formatting)"
205	$p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{end} + 1);}}
206	#line 1 "(WikiPlugin module Search, chunk 12)"
207	;
208
209	push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ws__post_content#}}, {
210	Main => q#%section (
211	id => see-also,
212	title => {%res(name=>SeeAlso);}p, heading,
213	content => {%search-result (
214	post-list => {
215	%search--result-navigation (
216	fragment => see-also,
217	);
218	}p,
219	);}p,
220	);#,
221	Order => 101,
222	Description => [[q#After content body -- Backward links#, q#en#, q##]],
223	};
224
225	package SuikaWiki::Plugin::Resource;
226
227	our $BaseResource;
228	$BaseResource->{q#und#}->{q##}->{q#Link:toWikiPage:SourceLabelLong:SearchResult#} = q#{%m--link-weight;} %link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p);#;
229	$BaseResource->{q#und#}->{q##}->{q#Search:Navigation:prev#} = q#[%link-to-it ( label => {%search--result-navigation-seq;}p, description => {%search--result-query; [%search--result-start;-%search--result-end;]}p, );] #;
230	$BaseResource->{q#und#}->{q##}->{q#Search:Navigation:current#} = q#[%search--result-navigation-seq;] #;
231	$BaseResource->{q#und#}->{q##}->{q#Search:Navigation:next#} = q#[%link-to-it ( label => {%search--result-navigation-seq;}p, description => {%search--result-query; [%search--result-start;-%search--result-end;]}p, );] #;
232	package SuikaWiki::Plugin::Registry;
233
234	$Info{q#Search#}->{provide} = {q#rule#, {q#form_input#, [q#search_result#, q#search__result_navigation#], q#view#, [q#search_result#, q#search__result_navigation#], q#view_resource#, [q#search_result#, q#search__result_navigation#], q#page_link#, [q#search__result_navigation_seq#, q#search__result_query#, q#search__result_start#, q#search__result_end#]}, q#viewfragment#, [{q#Name#, q#ws__post_content#}]};
235
236	1;