lib/SuikaWiki/Plugin.pm

# -*- perl -*-

=head1 NAME

SuikaWiki::Plugin --- SuikaWiki: Plugin manager and the interface to the Wiki database from plugins

=cut

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

=head1 PLUGIN INTERFACE

=over 4

=item $o->new_index ($index_name)

Increments the index number and returns the new index number.

=cut

{my %Index;
sub new_index ($$) { ++$Index{$_[1]} }
}

## Obsolete
sub magic_and_content ($$) {
  my ($magic, $page) = ('', $_[1]);
  $magic = $1 if $page =~ s!^((?:\#\?|/\*|<\?)[^\x02\x0A\x0D]+)[\x02\x0A\x0D]+!!s;
  ($magic, $page);
}

{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};
}}

sub module_package ($$) {
  my ($self, $module) = @_;
  my $pack = $SuikaWiki::Plugin::Registry::Info{$module}->{module_name};
  if ($pack) {
    return $pack;
  } else {
## TODO: throw
    die "Module $module not loaded";
  }
}

## Obsolete
sub get_data ($$$$;%) {
    my ($self, $prop, $key, %opt) = @_;
    ## TODO: common interface to WikiDB
    ## TODO: error recovering
    $main::WIKI->{db}->get ($prop => $key);
}

## Obsolete
sub regist ($@) {
}

=back

=head1 WIKIPLUGIN MANAGER OBJECT

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

=over 4

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

Constructs new instance of WikiPlugin manager

=cut

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

sub load_directory ($;@) {
  shift;
  for my $dir (@_) {
    opendir PDIR, $dir;
    require $dir.'/'.$_ for grep {substr ($_, -3) eq '.pm'} readdir (PDIR);
    closedir PDIR;
  }
}

=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 ($) {
  return {
    -class => 'Message::Markup::XML::Node',
  };
}

=head1 SEE ALSO

suikawiki.pl, suikawiki-config.ph, <IW:SuikaWiki:SuikaWiki>

=head1 LICENSE

Copyright 2002-2003 Wakaba <[email protected]>

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

=cut

1; # $Date: 2003/11/25 12:43:13 $
1	# -- perl --
2
3	=head1 NAME
4
5	SuikaWiki::Plugin --- SuikaWiki: Plugin manager and the interface to the Wiki database from plugins
6
7	=cut
8
9	package SuikaWiki::Plugin;
10	use strict;
11	our $VERSION = do{my @r=(q$Revision: 1.8 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
12
13	=head1 PLUGIN INTERFACE
14
15	=over 4
16
17	=item $o->new_index ($index_name)
18
19	Increments the index number and returns the new index number.
20
21	=cut
22
23	{my %Index;
24	sub new_index ($$) { ++$Index{$_[1]} }
25	}
26
27	## Obsolete
28	sub magic_and_content ($$) {
29	my ($magic, $page) = ('', $_[1]);
30	$magic = $1 if $page =~ s!^((?:\#\?\|/\*\|<\?)[^\x02\x0A\x0D]+)[\x02\x0A\x0D]+!!s;
31	($magic, $page);
32	}
33
34	{my %Formatter;
35	sub formatter ($$) {
36	my $t = $_[1]; $t =~ tr/-/_/;
37	unless ($Formatter{$t}) {
38	$Formatter{$t} = new SuikaWiki::Plugin::xml_formatter
39	-category_name => $t;
40	}
41	return $Formatter{$t};
42	}}
43
44	sub module_package ($$) {
45	my ($self, $module) = @_;
46	my $pack = $SuikaWiki::Plugin::Registry::Info{$module}->{module_name};
47	if ($pack) {
48	return $pack;
49	} else {
50	## TODO: throw
51	die "Module $module not loaded";
52	}
53	}
54
55	## Obsolete
56	sub get_data ($$$$;%) {
57	my ($self, $prop, $key, %opt) = @_;
58	## TODO: common interface to WikiDB
59	## TODO: error recovering
60	$main::WIKI->{db}->get ($prop => $key);
61	}
62
63	## Obsolete
64	sub regist ($@) {
65	}
66
67	=back
68
69	=head1 WIKIPLUGIN MANAGER OBJECT
70
71	This part implements WikiPlugin manager object of SuikaWiki WikiPlugin
72	implementation model, second edition.
73
74	=over 4
75
76	=item $p = SuikaWiki::Plugin->new (wiki => $WIKI)
77
78	Constructs new instance of WikiPlugin manager
79
80	=cut
81
82	sub new ($%) {
83	my $class = shift;
84	my $self = bless {@_}, $class;
85
86	$self;
87	}
88
89	sub load_directory ($;@) {
90	shift;
91	for my $dir (@_) {
92	opendir PDIR, $dir;
93	require $dir.'/'.$_ for grep {substr ($_, -3) eq '.pm'} readdir (PDIR);
94	closedir PDIR;
95	}
96	}
97
98	=item $p->{wiki}
99
100	Wiki implementation $p is associated with
101
102	=back
103
104	=cut
105
106	package SuikaWiki::Plugin::xml_formatter;
107	require Message::Util::Formatter::Node;
108	our @ISA = 'Message::Util::Formatter::Node';
109	require Message::Markup::XML::Node;
110
111	sub rule_def ($) {
112	$SuikaWiki::Plugin::Rule{$_[0]->{-category_name}};
113	}
114
115	sub replace_option ($) {
116	return {
117	-class => 'Message::Markup::XML::Node',
118	};
119	}
120
121	=head1 SEE ALSO
122
123	suikawiki.pl, suikawiki-config.ph, <IW:SuikaWiki:SuikaWiki>
124
125	=head1 LICENSE
126
127	Copyright 2002-2003 Wakaba <[email protected]>
128
129	This program is free software; you can redistribute it and/or
130	modify it under the same terms as Perl itself.
131
132	=cut
133
134	1; # $Date: 2003/11/25 12:43:13 $