lib/SuikaWiki/Plugin.pm

=head1 NAME

SuikaWiki::Plugin - SuikaWiki: WikiPlugin common interface

=head1 DESCRIPTION

This module provides WikiPlugin interface implementation.

There are two interface: class methods collection and WikiPlugin object.
Class methods collection provides some useful facilities to be
called by WikiPlugin module and/or by contexts using WikiPlugin.

This module is part of SuikaWiki.

=cut

package SuikaWiki::Plugin;
use strict;
our $VERSION = do{my @r=(q$Revision: 1.15 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};

=head1 CLASS METHODS

=over 4

=item $formatter = SuikaWiki::Plugin->formatter ($category_name)

Returns an instance of formatter whose category (context) is
$category_name.

=cut

{my %Formatter;
sub formatter ($$) {
  my $t = $_[1]; $t =~ tr/-/_/;
  unless ($Formatter{$t}) {
    $Formatter{$t} = new SuikaWiki::Plugin::xml_formatter
                       -category_name => $t;
  }
  return $Formatter{$t};
}}

{my %Formatter;
sub text_formatter ($$) {
  my $t = $_[1]; $t =~ tr/-/_/;
  unless ($Formatter{$t}) {
    $Formatter{$t} = new SuikaWiki::Plugin::text_formatter
                       -category_name => $t;
  }
  return $Formatter{$t};
}}

{my %Formatter;
sub boolean_formatter ($$) {
  my $t = $_[1]; $t =~ tr/-/_/;
  unless ($Formatter{$t}) {
    $Formatter{$t} = new SuikaWiki::Plugin::boolean_formatter
                       -category_name => $t;
  }
  return $Formatter{$t};
}}

=item $package = SuikaWiki::Plugin->module_package ($plugin_name)

Returns package name of the plugin module named $plugin_name.

=cut

sub module_package ($$;%) {
  my ($self, $module, %opt) = @_;
  my $pack = $SuikaWiki::Plugin::Registry::Info{$module}->{module_name};
  if ($pack) {
    return $pack;
  } elsif (not $opt{allow_undef}) {
    throw SuikaWiki::Plugin::error
      -type => 'PLUGIN_NOT_FOUND',
      module => $module,
      -object => $self, method => 'module_package';
  } else {
    return undef;
  }
}

=item SuikaWiki::Plugin->load_directory ($dir1, $dir2,...)

Loads plugin modules in specified directories.

=cut

sub load_directory ($;@) {
  my $self = shift;
  for my $dir (@_) {
    opendir PDIR, $dir or throw SuikaWiki::Plugin::error
                            -type => 'PLUGIN_DIRECTORY_CANT_OPEN',
                            file => $dir,
                            message => $!,
                            -object => $self, method => 'load_directory';
    for (grep {substr ($_, -3) eq '.pm'} readdir PDIR) {
      eval { require $dir.'/'.$_ };
      if ($@) {
        throw SuikaWiki::Plugin::error
          -type => 'PLUGIN_COMPILE_ERROR',
          file => $dir.'/'.$_,
          message => $@,
          method => 'load_directory', -object => $self;
      }
    }
    closedir PDIR;
  }
}

sub load_file ($@) {
  my $self = shift;
  for (@_) {
    eval { require $_.'.pm' };
    if ($@) {
      throw SuikaWiki::Plugin::error
          -type => 'PLUGIN_COMPILE_ERROR',
          file => $_.'.pm',
          message => $@,
          method => 'load_file', -object => $self;
    }
  }
}

=back

=head1 WIKIPLUGIN MANAGER OBJECT

This part implements WikiPlugin manager object of SuikaWiki WikiPlugin 
implementation model, second edition.

Note that class methods such as C<< ->load_directory >>
and C<< ->formatter >> as also available as methods of WikiPlugin object,
although result of those operation is still "global".

WikiPlugin manager object is usually instantiated by C<init_plugins>
method of Wiki implementation object (C<SuikaWiki::Implementation> module).

  $wiki = <SuikaWiki::Implementation instance>;
  $wiki->init_plugins;
  $plugin_manager = $wiki->{plugin};

=over 4

=item $p = SuikaWiki::Plugin->new (wiki => $WIKI)

Constructs new instance of WikiPlugin manager

=cut

sub new ($;%) {
  my $class = shift;
  bless {@_}, $class;
}

sub exit ($) {
  my $self = shift;
  delete $self->{wiki};
  $self->{exited} = 1;
}

sub DESTROY ($) {
  my $self = shift;
  $self->exit unless $self->{exited};
}

=item $p->{wiki}

Wiki implementation $p is associated with

=back

=cut

package SuikaWiki::Plugin::xml_formatter;
require Message::Util::Formatter::Node;
our @ISA = 'Message::Util::Formatter::Node';
require Message::Markup::XML::Node;

sub ___rule_def ($) {
  $SuikaWiki::Plugin::Rule{$_[0]->{-category_name}} || {};
}

sub replace_option () {+{
    -class => 'Message::Markup::XML::Node',
}}

package SuikaWiki::Plugin::text_formatter;
require Message::Util::Formatter::Text;
our @ISA = 'Message::Util::Formatter::Text';

sub ___rule_def ($) {
  $SuikaWiki::Plugin::Rule{$_[0]->{-category_name}} || {};
}

package SuikaWiki::Plugin::boolean_formatter;
require Message::Util::Formatter::Boolean;
our @ISA = 'Message::Util::Formatter::Boolean';

sub ___rule_def ($) {
  $SuikaWiki::Plugin::Rule{$_[0]->{-category_name}} || {};
}

package SuikaWiki::Plugin::error;
require Message::Util::Error;
our @ISA = 'Message::Util::Error';

=head1 EXCEPTIONS

=over 4

=item PLUGIN_COMPILE_ERROR

Something wrong while loading WikiPlugin module file C<file>,
because of C<message>.

=item PLUGIN_DIRECTORY_CANT_OPEN

WikiPlugin directory C<file> cannot be opened, because of C<message>.

=item PLUGIN_NOT_FOUND

WikiPlugin module C<module> not found.

=cut

sub ___error_def () {+{
  PLUGIN_COMPILE_ERROR => {
    description => q(%t(name => method);: %t(name => file);: %t(name => message);),
  },
  PLUGIN_DIRECTORY_CANT_OPEN => {
    description => q(%t(name => method);: %t(name => file);: %t(name => message);),
  },
  PLUGIN_NOT_FOUND => {
    description => q(%t(name => method);: WikiPlugin module "%t(name => module);" not loaded),
  },
}}

=back

=head1 SEE ALSO

<IW:SuikaWiki:SuikaWiki:WikiPlugin>

C<lib/SuikaWiki/Plugin/*>,
C<misc/pluging/*>

=head1 LICENSE

Copyright 2002-2003 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1; # $Date: 2004/03/12 04:57:39 $
1	wakaba	1.10	=head1 NAME
2
3			SuikaWiki::Plugin - SuikaWiki: WikiPlugin common interface
4
5			=head1 DESCRIPTION
6
7			This module provides WikiPlugin interface implementation.
8	wakaba	1.1
9	wakaba	1.10	There are two interface: class methods collection and WikiPlugin object.
10			Class methods collection provides some useful facilities to be
11			called by WikiPlugin module and/or by contexts using WikiPlugin.
12	wakaba	1.1
13	wakaba	1.10	This module is part of SuikaWiki.
14	wakaba	1.1
15			=cut
16
17			package SuikaWiki::Plugin;
18			use strict;
19	wakaba	1.16	our $VERSION = do{my @r=(q$Revision: 1.15 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
20	wakaba	1.1
21	wakaba	1.10	=head1 CLASS METHODS
22	wakaba	1.1
23			=over 4
24
25	wakaba	1.10	=item $formatter = SuikaWiki::Plugin->formatter ($category_name)
26
27			Returns an instance of formatter whose category (context) is
28			$category_name.
29
30			=cut
31	wakaba	1.1
32	w	1.5	{my %Formatter;
33			sub formatter ($$) {
34			my $t = $_[1]; $t =~ tr/-/_/;
35	wakaba	1.7	unless ($Formatter{$t}) {
36	wakaba	1.8	$Formatter{$t} = new SuikaWiki::Plugin::xml_formatter
37			-category_name => $t;
38	wakaba	1.7	}
39	w	1.5	return $Formatter{$t};
40			}}
41
42	wakaba	1.12	{my %Formatter;
43			sub text_formatter ($$) {
44			my $t = $_[1]; $t =~ tr/-/_/;
45			unless ($Formatter{$t}) {
46			$Formatter{$t} = new SuikaWiki::Plugin::text_formatter
47			-category_name => $t;
48			}
49			return $Formatter{$t};
50			}}
51
52	wakaba	1.14	{my %Formatter;
53			sub boolean_formatter ($$) {
54			my $t = $_[1]; $t =~ tr/-/_/;
55			unless ($Formatter{$t}) {
56			$Formatter{$t} = new SuikaWiki::Plugin::boolean_formatter
57			-category_name => $t;
58			}
59			return $Formatter{$t};
60			}}
61
62	wakaba	1.10	=item $package = SuikaWiki::Plugin->module_package ($plugin_name)
63
64			Returns package name of the plugin module named $plugin_name.
65
66			=cut
67
68	wakaba	1.16	sub module_package ($$;%) {
69			my ($self, $module, %opt) = @_;
70	wakaba	1.8	my $pack = $SuikaWiki::Plugin::Registry::Info{$module}->{module_name};
71			if ($pack) {
72			return $pack;
73	wakaba	1.16	} elsif (not $opt{allow_undef}) {
74	wakaba	1.10	throw SuikaWiki::Plugin::error
75			-type => 'PLUGIN_NOT_FOUND',
76			module => $module,
77			-object => $self, method => 'module_package';
78	wakaba	1.16	} else {
79			return undef;
80	wakaba	1.8	}
81			}
82
83	wakaba	1.10	=item SuikaWiki::Plugin->load_directory ($dir1, $dir2,...)
84
85			Loads plugin modules in specified directories.
86
87			=cut
88	wakaba	1.6
89	wakaba	1.10	sub load_directory ($;@) {
90			my $self = shift;
91			for my $dir (@_) {
92			opendir PDIR, $dir or throw SuikaWiki::Plugin::error
93			-type => 'PLUGIN_DIRECTORY_CANT_OPEN',
94			file => $dir,
95			message => $!,
96			-object => $self, method => 'load_directory';
97	wakaba	1.13	for (grep {substr ($_, -3) eq '.pm'} readdir PDIR) {
98	wakaba	1.10	eval { require $dir.'/'.$_ };
99			if ($@) {
100			throw SuikaWiki::Plugin::error
101			-type => 'PLUGIN_COMPILE_ERROR',
102			file => $dir.'/'.$_,
103			message => $@,
104			method => 'load_directory', -object => $self;
105			}
106			}
107			closedir PDIR;
108			}
109	wakaba	1.1	}
110
111	wakaba	1.15	sub load_file ($@) {
112			my $self = shift;
113			for (@_) {
114			eval { require $_.'.pm' };
115			if ($@) {
116			throw SuikaWiki::Plugin::error
117			-type => 'PLUGIN_COMPILE_ERROR',
118			file => $_.'.pm',
119			message => $@,
120			method => 'load_file', -object => $self;
121			}
122			}
123			}
124
125	wakaba	1.1	=back
126
127	wakaba	1.6	=head1 WIKIPLUGIN MANAGER OBJECT
128
129			This part implements WikiPlugin manager object of SuikaWiki WikiPlugin
130			implementation model, second edition.
131
132	wakaba	1.10	Note that class methods such as C<< ->load_directory >>
133			and C<< ->formatter >> as also available as methods of WikiPlugin object,
134			although result of those operation is still "global".
135
136			WikiPlugin manager object is usually instantiated by C<init_plugins>
137			method of Wiki implementation object (C<SuikaWiki::Implementation> module).
138
139			$wiki = <SuikaWiki::Implementation instance>;
140			$wiki->init_plugins;
141			$plugin_manager = $wiki->{plugin};
142
143	wakaba	1.6	=over 4
144
145			=item $p = SuikaWiki::Plugin->new (wiki => $WIKI)
146
147			Constructs new instance of WikiPlugin manager
148
149			=cut
150
151	wakaba	1.10	sub new ($;%) {
152	wakaba	1.6	my $class = shift;
153	wakaba	1.10	bless {@_}, $class;
154	wakaba	1.6	}
155
156	wakaba	1.11	sub exit ($) {
157			my $self = shift;
158			delete $self->{wiki};
159			$self->{exited} = 1;
160			}
161
162			sub DESTROY ($) {
163			my $self = shift;
164			$self->exit unless $self->{exited};
165			}
166
167	wakaba	1.6	=item $p->{wiki}
168
169			Wiki implementation $p is associated with
170
171			=back
172
173	wakaba	1.8	=cut
174
175			package SuikaWiki::Plugin::xml_formatter;
176			require Message::Util::Formatter::Node;
177			our @ISA = 'Message::Util::Formatter::Node';
178			require Message::Markup::XML::Node;
179
180	wakaba	1.11	sub ___rule_def ($) {
181	wakaba	1.12	$SuikaWiki::Plugin::Rule{$_[0]->{-category_name}} \|\| {};
182	wakaba	1.8	}
183
184	wakaba	1.10	sub replace_option () {+{
185	wakaba	1.8	-class => 'Message::Markup::XML::Node',
186	wakaba	1.10	}}
187
188	wakaba	1.12	package SuikaWiki::Plugin::text_formatter;
189			require Message::Util::Formatter::Text;
190			our @ISA = 'Message::Util::Formatter::Text';
191
192			sub ___rule_def ($) {
193			$SuikaWiki::Plugin::Rule{$_[0]->{-category_name}} \|\| {};
194			}
195
196	wakaba	1.14	package SuikaWiki::Plugin::boolean_formatter;
197			require Message::Util::Formatter::Boolean;
198			our @ISA = 'Message::Util::Formatter::Boolean';
199
200			sub ___rule_def ($) {
201			$SuikaWiki::Plugin::Rule{$_[0]->{-category_name}} \|\| {};
202			}
203
204	wakaba	1.10	package SuikaWiki::Plugin::error;
205			require Message::Util::Error;
206			our @ISA = 'Message::Util::Error';
207
208			=head1 EXCEPTIONS
209
210			=over 4
211
212			=item PLUGIN_COMPILE_ERROR
213
214			Something wrong while loading WikiPlugin module file C<file>,
215			because of C<message>.
216
217			=item PLUGIN_DIRECTORY_CANT_OPEN
218
219			WikiPlugin directory C<file> cannot be opened, because of C<message>.
220
221			=item PLUGIN_NOT_FOUND
222
223			WikiPlugin module C<module> not found.
224
225			=cut
226
227	wakaba	1.11	sub ___error_def () {+{
228	wakaba	1.10	PLUGIN_COMPILE_ERROR => {
229			description => q(%t(name => method);: %t(name => file);: %t(name => message);),
230			},
231			PLUGIN_DIRECTORY_CANT_OPEN => {
232			description => q(%t(name => method);: %t(name => file);: %t(name => message);),
233			},
234			PLUGIN_NOT_FOUND => {
235			description => q(%t(name => method);: WikiPlugin module "%t(name => module);" not loaded),
236			},
237			}}
238
239			=back
240	wakaba	1.8
241	wakaba	1.1	=head1 SEE ALSO
242
243	wakaba	1.10	<IW:SuikaWiki:SuikaWiki:WikiPlugin>
244
245			C<lib/SuikaWiki/Plugin/*>,
246			C<misc/pluging/*>
247	wakaba	1.1
248			=head1 LICENSE
249
250			Copyright 2002-2003 Wakaba <w@suika.fam.cx>
251
252			This program is free software; you can redistribute it and/or
253			modify it under the same terms as Perl itself.
254
255			=cut
256
257	wakaba	1.16	1; # $Date: 2004/03/12 04:57:39 $