1 |
wakaba |
1.1 |
use strict; |
2 |
|
|
package SuikaWiki::Plugin::Registry; |
3 |
|
|
|
4 |
|
|
|
5 |
|
|
our %Info; |
6 |
|
|
$Info{q#Devel#}->{Name} = q#Devel#; |
7 |
|
|
$Info{q#Devel#}->{q#Version#} = q#2004.0831.0328#; |
8 |
|
|
$Info{q#Devel#}->{q#InterfaceVersion#} = q#2.9.1#; |
9 |
|
|
$Info{q#Devel#}->{q#mkpluginVersion#} = q#2.1.19#; |
10 |
|
|
$Info{q#Devel#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Devel1040731032805T19r#; |
11 |
|
|
$Info{q#Devel#}->{RequiredPlugin} = [q#Error#]; |
12 |
|
|
$Info{q#Devel#}->{RequiredModule} = []; |
13 |
|
|
$Info{q#Devel#}->{Description} = [[q#SuikaWiki Develping Tools#, q#en#, q##]]; |
14 |
|
|
$Info{q#Devel#}->{License} = [[q#%%GPL%%#, q##, q##]]; |
15 |
|
|
$Info{q#Devel#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]]; |
16 |
|
|
|
17 |
|
|
package SuikaWiki::Plugin::plugin::Devel1040731032805T19r; |
18 |
|
|
|
19 |
|
|
{my $def = {q#Parameter#, {}, q#Description#, [[q#Shows call function stack trace table#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; |
20 |
|
|
|
21 |
|
|
#line 1 "(WikiPlugin module source Devel.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#page-link#, q#link-to-resource#, q#form-input#, q#form-template#]/call_trace_table']/Formatting)" |
22 |
|
|
SuikaWiki::Plugin->module_package ('Error') |
23 |
|
|
->make_caller_trace_table ($p->{-parent});}} |
24 |
|
|
#line 1 "(WikiPlugin module Devel, chunk 1)" |
25 |
|
|
; |
26 |
|
|
$SuikaWiki::Plugin::Rule{view}->{call_trace_table} = $def; |
27 |
|
|
$SuikaWiki::Plugin::Rule{view_resource}->{call_trace_table} = $def; |
28 |
|
|
$SuikaWiki::Plugin::Rule{page_link}->{call_trace_table} = $def; |
29 |
|
|
$SuikaWiki::Plugin::Rule{link_to_resource}->{call_trace_table} = $def; |
30 |
|
|
$SuikaWiki::Plugin::Rule{form_input}->{call_trace_table} = $def; |
31 |
|
|
$SuikaWiki::Plugin::Rule{form_template}->{call_trace_table} = $def; |
32 |
|
|
}; |
33 |
|
|
|
34 |
|
|
{my $def = {q#Parameter#, {}, q#Description#, [[q#Output formatting rule context name#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; |
35 |
|
|
|
36 |
|
|
#line 1 "(WikiPlugin module source Devel.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#, q#form-template#, q#page-link#, q#link-to-resource#]/context']/Formatting)" |
37 |
|
|
$p->{-parent}->append_text ($f->{-category_name});}} |
38 |
|
|
#line 1 "(WikiPlugin module Devel, chunk 3)" |
39 |
|
|
; |
40 |
|
|
$SuikaWiki::Plugin::Rule{view}->{context} = $def; |
41 |
|
|
$SuikaWiki::Plugin::Rule{view_resource}->{context} = $def; |
42 |
|
|
$SuikaWiki::Plugin::Rule{form_input}->{context} = $def; |
43 |
|
|
$SuikaWiki::Plugin::Rule{form_template}->{context} = $def; |
44 |
|
|
$SuikaWiki::Plugin::Rule{page_link}->{context} = $def; |
45 |
|
|
$SuikaWiki::Plugin::Rule{link_to_resource}->{context} = $def; |
46 |
|
|
}; |
47 |
|
|
package SuikaWiki::Plugin::Registry; |
48 |
|
|
|
49 |
|
|
$Info{q#Devel#}->{provide} = {q#rule#, {q#link_to_resource#, [q#call_trace_table#, q#context#], q#form_input#, [q#call_trace_table#, q#context#], q#form_template#, [q#call_trace_table#, q#context#], q#view#, [q#call_trace_table#, q#context#], q#view_resource#, [q#call_trace_table#, q#context#], q#page_link#, [q#call_trace_table#, q#context#]}}; |
50 |
|
|
|
51 |
|
|
1; |