GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Add support for using an optional `name` field to override language 

Since Perl modules cannot use certain characters in the module name,
such as the '+' character, modules cannot have names like "c++".

Using a `name` field allows us to use, e.g., "cpp" as the module name
and "c++" as the language name to invoke that module.
This commit is contained in:
Pragmatic Software 2015-04-05 02:29:12 -07:00
parent 137a29cd3c
commit 14ebbe2533
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
modules/compiler_vm/compiler_vm_client.pl
View File

@ -12,14 +12,32 @@ eval {
use lib 'languages';
require "$language.pm";
} or do {
print "Language '$language' is not supported.\n";
my @modules = glob 'languages/*.pm';
my $found = 0;
my ($languages, $comma) = ('', '');
my @languages = glob 'languages/*.pm';
print "Supported languages are: ";
print join(", ", grep { $_ = basename $_; $_ =~ s/.pm$//; $_ !~ m/^_/ } sort @languages);
print "\n";
foreach my $module (sort @modules) {
$module = basename $module;
$module =~ s/.pm$//;
next if $module =~ m/^_/;
require "$module.pm";
my $mod = $module->new;
exit;
if (exists $mod->{name} and $mod->{name} eq $language) {
$language = $module;
$found = 1;
last;
}
$module = $mod->{name} if exists $mod->{name};
$languages .= "$comma$module";
$comma = ', ';
}
if (not $found) {
print "Language '$language' is not supported.\nSupported languages are: $languages\n";
exit;
}
};
my $nick = shift @ARGV // (print "Missing nick argument.\n" and die);