mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 10:25:42 -04:00
47 lines
1.1 KiB
Perl
47 lines
1.1 KiB
Perl
package Bot::BB3::PluginConfigParser;
|
|
use strict;
|
|
use Parse::RecDescent;
|
|
use Bot::BB3::Logger;
|
|
|
|
local $/;
|
|
my $grammar = <DATA>;
|
|
my $parser = Parse::RecDescent->new( $grammar );
|
|
|
|
sub parse_file {
|
|
my( $package, $filename ) = @_;
|
|
|
|
open my $fh, "< $filename" or die "$filename: $!";
|
|
local $/;
|
|
my $filecontents = <$fh>;
|
|
|
|
$parser->start( $filecontents );
|
|
}
|
|
|
|
1;
|
|
|
|
__DATA__
|
|
|
|
start: server(s)
|
|
{ $item[1] }
|
|
server: 'server' server_name '{' channel(s) '}'
|
|
{ [ $item[1], $item[2], $item[4] ] }
|
|
channel: 'channel' channel_name '{' plugin(s) '}'
|
|
{ [ $item[1], $item[2], $item[4] ] }
|
|
plugin: 'plugin' plugin_name '{' option(s?) '}'
|
|
{ [ $item[1], $item[2], { map @$_, @{$item[4]} } ] }
|
|
option: key ':' value semicolon(?)
|
|
{ [$item[1], $item[3]] }
|
|
semicolon: ';'
|
|
|
|
server_name: quoted_string | /[\w.]+/ | '*'
|
|
{ $item[1] }
|
|
channel_name: quoted_string | /#\w+/ | '*'
|
|
{ $item[1] }
|
|
plugin_name: quoted_string | /\w+/ | '*'
|
|
{ $item[1] }
|
|
key: quoted_string | /\w+/
|
|
{ $item[1] }
|
|
value: quoted_string | /\w+/
|
|
{ $item[1] }
|
|
quoted_string: /"[^"]+"/
|
|
{ my $str = $item[1]; $str =~ s/^"//; $str =~ s/"$//; $str }
|