/[pub]/suikawiki/script/misc/plugins/Devel.pm
Suika

Contents of /suikawiki/script/misc/plugins/Devel.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations) (download)
Sun May 16 23:05:49 2010 UTC (14 years, 5 months ago) by wakaba
Branch: MAIN
CVS Tags: suikawiki3-redirect, HEAD
added latest .pm files

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;

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24