mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-13 23:49:31 +01:00
73 lines
1.6 KiB
Perl
Executable File
73 lines
1.6 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# This Source Code Form is subject to the terms of the Mozilla Public
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use File::Basename;
|
|
use JSON;
|
|
|
|
my $json = join ' ', @ARGV;
|
|
my $h = decode_json $json;
|
|
|
|
my $language = lc $h->{lang};
|
|
|
|
eval {
|
|
use lib 'languages';
|
|
require "$language.pm";
|
|
} or do {
|
|
$language =~ s/^cfact_//;
|
|
|
|
my @modules = glob 'languages/*.pm';
|
|
my $found = 0;
|
|
my ($languages, $comma) = ('', '');
|
|
|
|
foreach my $module (sort @modules) {
|
|
$module = basename $module;
|
|
$module =~ s/.pm$//;
|
|
next if $module =~ m/^_/;
|
|
require "$module.pm";
|
|
my $mod = $module->new;
|
|
|
|
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;
|
|
}
|
|
};
|
|
|
|
if (not length $h->{code}) {
|
|
if (exists $h->{usage}) {
|
|
print "$h->{usage}\n";
|
|
} else {
|
|
print "Usage: cc [-paste] [-lang=<language>] [-info] [language options] <code> [-input=<stdin input>]\n";
|
|
}
|
|
exit;
|
|
}
|
|
|
|
my $lang = $language->new(%$h);
|
|
|
|
$lang->{local} = $ENV{CC_LOCAL};
|
|
|
|
$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;
|