mirror of https://github.com/pragma-/pbot.git
31 lines
740 B
Perl
Executable File
31 lines
740 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $language = shift @ARGV // 'c11';
|
|
$language = lc $language;
|
|
|
|
eval {
|
|
use lib 'languages';
|
|
require "$language.pm";
|
|
} or do {
|
|
print "Language '$language' is not supported.\n";
|
|
die $@;
|
|
};
|
|
|
|
my $nick = shift @ARGV // (print "Missing nick argument.\n" and die);
|
|
my $channel = shift @ARGV // (print "Missing channel argument.\n" and die);
|
|
my $code = join(' ', @ARGV);
|
|
|
|
my $lang = $language->new(nick => $nick, channel => $channel, lang => $language, code => $code);
|
|
|
|
$lang->process_interactive_edit;
|
|
$lang->process_standard_options;
|
|
$lang->process_custom_options;
|
|
$lang->process_cmdline_options;
|
|
$lang->preprocess_code;
|
|
$lang->execute;
|
|
$lang->postprocess_output;
|
|
$lang->show_output;
|