mirror of
https://github.com/perlbot/perlbuut-pastebin
synced 2025-06-07 06:06:23 -04:00
196 lines
12 KiB
Perl
196 lines
12 KiB
Perl
package App::Model::Languages;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Mojo::Base '-base';
|
|
|
|
my @langs = (
|
|
{name => "perl5.34", mode => "perl", description => "Perl 5.34"},
|
|
{name => "perl6", mode => "perl", description => "Rakudo Star / Perl 6"},
|
|
{name => "bash", mode => "bash", description => "Bash"},
|
|
{name => "ruby", mode => "ruby", description => "Ruby (2.1)"},
|
|
{name => "javascript", mode => "javascript", description => "Javascript/Node.js"},
|
|
{name => "tcc", mode => "c_cpp", description => "TCC 0.9.27"},
|
|
{name => "text", mode => "text", description => "Plain text"},
|
|
{name => "text", mode => "text", description => "----------"},
|
|
{name => "cobol", mode => "cobol", description => "GnuCOBOL 2.2"},
|
|
{name => "perl", mode => "perl", description => "Perl 5 (blead/git)"},
|
|
{name => "perlt", mode => "perl", description => "Perl 5 (blead/git threaded)"},
|
|
{name => "deparse", mode => "perl", description => "Deparsed Perl"},
|
|
{name => "evalall", mode => "perl", description => "Perl (EvalAll) (major unthreaded)"},
|
|
{name => "evaltall", mode => "perl", description => "Perl (EvalAll) (major threaded)"},
|
|
{name => "evalrall", mode => "perl", description => "Perl (EvalAll) (major un+threaded)"},
|
|
{name => "evalyall", mode => "perl", description => "Perl (EvalY'All) (EVERYTHING)"},
|
|
{name => "perl5.34.0", mode => "perl", description => "Perl 5.34.0"},
|
|
{name => "perl5.34.0t", mode => "perl", description => "Perl 5.34.0 (threaded)"},
|
|
{name => "perl5.32.1", mode => "perl", description => "Perl 5.32.1"},
|
|
{name => "perl5.32.1t", mode => "perl", description => "Perl 5.32.1 (threaded)"},
|
|
{name => "perl5.32.0", mode => "perl", description => "Perl 5.32.0"},
|
|
{name => "perl5.32.0t", mode => "perl", description => "Perl 5.32.0 (threaded)"},
|
|
{name => "perl5.30.3", mode => "perl", description => "Perl 5.30.3"},
|
|
{name => "perl5.30.3t", mode => "perl", description => "Perl 5.30.3 (threaded)"},
|
|
{name => "perl5.30.2", mode => "perl", description => "Perl 5.30.2"},
|
|
{name => "perl5.30.2t", mode => "perl", description => "Perl 5.30.2 (threaded)"},
|
|
{name => "perl5.30.1", mode => "perl", description => "Perl 5.30.1"},
|
|
{name => "perl5.30.1t", mode => "perl", description => "Perl 5.30.1 (threaded)"},
|
|
{name => "perl5.30.0", mode => "perl", description => "Perl 5.30.0"},
|
|
{name => "perl5.30.0t", mode => "perl", description => "Perl 5.30.0 (threaded)"},
|
|
{name => "perl5.28.2", mode => "perl", description => "Perl 5.28.2"},
|
|
{name => "perl5.28.2t", mode => "perl", description => "Perl 5.28.2 (threaded)"},
|
|
{name => "perl5.28.1", mode => "perl", description => "Perl 5.28.1"},
|
|
{name => "perl5.28.1t", mode => "perl", description => "Perl 5.28.1 (threaded)"},
|
|
{name => "perl5.28.0", mode => "perl", description => "Perl 5.28.0"},
|
|
{name => "perl5.28.0t", mode => "perl", description => "Perl 5.28.0 (threaded)"},
|
|
{name => "perl5.26.3", mode => "perl", description => "Perl 5.26.3"},
|
|
{name => "perl5.26.3t", mode => "perl", description => "Perl 5.26.3 (threaded)"},
|
|
{name => "perl5.26.2", mode => "perl", description => "Perl 5.26.2"},
|
|
{name => "perl5.26.2t", mode => "perl", description => "Perl 5.26.2 (threaded)"},
|
|
{name => "perl5.26.1", mode => "perl", description => "Perl 5.26.1"},
|
|
{name => "perl5.26.1t", mode => "perl", description => "Perl 5.26.1 (threaded)"},
|
|
{name => "perl5.26.0", mode => "perl", description => "Perl 5.26.0"},
|
|
{name => "perl5.26.0t", mode => "perl", description => "Perl 5.26.0 (threaded)"},
|
|
{name => "perl5.24.4", mode => "perl", description => "Perl 5.24.4"},
|
|
{name => "perl5.24.4t", mode => "perl", description => "Perl 5.24.4 (threaded)"},
|
|
{name => "perl5.24.3", mode => "perl", description => "Perl 5.24.3"},
|
|
{name => "perl5.24.3t", mode => "perl", description => "Perl 5.24.3 (threaded)"},
|
|
{name => "perl5.24.2", mode => "perl", description => "Perl 5.24.2"},
|
|
{name => "perl5.24.2t", mode => "perl", description => "Perl 5.24.2 (threaded)"},
|
|
{name => "perl5.24.1", mode => "perl", description => "Perl 5.24.1"},
|
|
{name => "perl5.24.1t", mode => "perl", description => "Perl 5.24.1 (threaded)"},
|
|
{name => "perl5.24.0", mode => "perl", description => "Perl 5.24.0"},
|
|
{name => "perl5.24.0t", mode => "perl", description => "Perl 5.24.0 (threaded)"},
|
|
{name => "perl5.22.4", mode => "perl", description => "Perl 5.22.4"},
|
|
{name => "perl5.22.4t", mode => "perl", description => "Perl 5.22.4 (threaded)"},
|
|
{name => "perl5.22.3", mode => "perl", description => "Perl 5.22.3"},
|
|
{name => "perl5.22.3t", mode => "perl", description => "Perl 5.22.3 (threaded)"},
|
|
{name => "perl5.22.2", mode => "perl", description => "Perl 5.22.2"},
|
|
{name => "perl5.22.2t", mode => "perl", description => "Perl 5.22.2 (threaded)"},
|
|
{name => "perl5.22.1", mode => "perl", description => "Perl 5.22.1"},
|
|
{name => "perl5.22.1t", mode => "perl", description => "Perl 5.22.1 (threaded)"},
|
|
{name => "perl5.22.0", mode => "perl", description => "Perl 5.22.0"},
|
|
{name => "perl5.22.0t", mode => "perl", description => "Perl 5.22.0 (threaded)"},
|
|
{name => "perl5.20.3", mode => "perl", description => "Perl 5.20.3"},
|
|
{name => "perl5.20.3t", mode => "perl", description => "Perl 5.20.3 (threaded)"},
|
|
{name => "perl5.20.2", mode => "perl", description => "Perl 5.20.2"},
|
|
{name => "perl5.20.2t", mode => "perl", description => "Perl 5.20.2 (threaded)"},
|
|
{name => "perl5.20.1", mode => "perl", description => "Perl 5.20.1"},
|
|
{name => "perl5.20.1t", mode => "perl", description => "Perl 5.20.1 (threaded)"},
|
|
{name => "perl5.20.0", mode => "perl", description => "Perl 5.20.0"},
|
|
{name => "perl5.20.0t", mode => "perl", description => "Perl 5.20.0 (threaded)"},
|
|
{name => "perl5.18.4", mode => "perl", description => "Perl 5.18.4"},
|
|
{name => "perl5.18.4t", mode => "perl", description => "Perl 5.18.4 (threaded)"},
|
|
{name => "perl5.18.3", mode => "perl", description => "Perl 5.18.3"},
|
|
{name => "perl5.18.3t", mode => "perl", description => "Perl 5.18.3 (threaded)"},
|
|
{name => "perl5.18.2", mode => "perl", description => "Perl 5.18.2"},
|
|
{name => "perl5.18.2t", mode => "perl", description => "Perl 5.18.2 (threaded)"},
|
|
{name => "perl5.18.1", mode => "perl", description => "Perl 5.18.1"},
|
|
{name => "perl5.18.1t", mode => "perl", description => "Perl 5.18.1 (threaded)"},
|
|
{name => "perl5.18.0", mode => "perl", description => "Perl 5.18.0"},
|
|
{name => "perl5.18.0t", mode => "perl", description => "Perl 5.18.0 (threaded)"},
|
|
{name => "perl5.16.3", mode => "perl", description => "Perl 5.16.3"},
|
|
{name => "perl5.16.3t", mode => "perl", description => "Perl 5.16.3 (threaded)"},
|
|
{name => "perl5.16.2", mode => "perl", description => "Perl 5.16.2"},
|
|
{name => "perl5.16.2t", mode => "perl", description => "Perl 5.16.2 (threaded)"},
|
|
{name => "perl5.16.1", mode => "perl", description => "Perl 5.16.1"},
|
|
{name => "perl5.16.1t", mode => "perl", description => "Perl 5.16.1 (threaded)"},
|
|
{name => "perl5.16.0", mode => "perl", description => "Perl 5.16.0"},
|
|
{name => "perl5.16.0t", mode => "perl", description => "Perl 5.16.0 (threaded)"},
|
|
{name => "perl5.14.4", mode => "perl", description => "Perl 5.14.4"},
|
|
{name => "perl5.14.4t", mode => "perl", description => "Perl 5.14.4 (threaded)"},
|
|
{name => "perl5.14.3", mode => "perl", description => "Perl 5.14.3"},
|
|
{name => "perl5.14.3t", mode => "perl", description => "Perl 5.14.3 (threaded)"},
|
|
{name => "perl5.14.2", mode => "perl", description => "Perl 5.14.2"},
|
|
{name => "perl5.14.2t", mode => "perl", description => "Perl 5.14.2 (threaded)"},
|
|
{name => "perl5.14.1", mode => "perl", description => "Perl 5.14.1"},
|
|
{name => "perl5.14.1t", mode => "perl", description => "Perl 5.14.1 (threaded)"},
|
|
{name => "perl5.14.0", mode => "perl", description => "Perl 5.14.0"},
|
|
{name => "perl5.14.0t", mode => "perl", description => "Perl 5.14.0 (threaded)"},
|
|
{name => "perl5.12.5", mode => "perl", description => "Perl 5.12.5"},
|
|
{name => "perl5.12.5t", mode => "perl", description => "Perl 5.12.5 (threaded)"},
|
|
{name => "perl5.12.4", mode => "perl", description => "Perl 5.12.4"},
|
|
{name => "perl5.12.4t", mode => "perl", description => "Perl 5.12.4 (threaded)"},
|
|
{name => "perl5.12.3", mode => "perl", description => "Perl 5.12.3"},
|
|
{name => "perl5.12.3t", mode => "perl", description => "Perl 5.12.3 (threaded)"},
|
|
{name => "perl5.12.2", mode => "perl", description => "Perl 5.12.2"},
|
|
{name => "perl5.12.2t", mode => "perl", description => "Perl 5.12.2 (threaded)"},
|
|
{name => "perl5.12.1", mode => "perl", description => "Perl 5.12.1"},
|
|
{name => "perl5.12.1t", mode => "perl", description => "Perl 5.12.1 (threaded)"},
|
|
{name => "perl5.12.0", mode => "perl", description => "Perl 5.12.0"},
|
|
{name => "perl5.12.0t", mode => "perl", description => "Perl 5.12.0 (threaded)"},
|
|
{name => "perl5.10.1", mode => "perl", description => "Perl 5.10.1"},
|
|
{name => "perl5.10.1t", mode => "perl", description => "Perl 5.10.1 (threaded)"},
|
|
{name => "perl5.10.0", mode => "perl", description => "Perl 5.10.0"},
|
|
{name => "perl5.10.0t", mode => "perl", description => "Perl 5.10.0 (threaded)"},
|
|
{name => "perl5.8.9", mode => "perl", description => "Perl 5.8.9"},
|
|
{name => "perl5.8.9t", mode => "perl", description => "Perl 5.8.9 (threaded)"},
|
|
{name => "perl5.8.8", mode => "perl", description => "Perl 5.8.8"},
|
|
{name => "perl5.8.8t", mode => "perl", description => "Perl 5.8.8 (threaded)"},
|
|
{name => "perl5.8.7", mode => "perl", description => "Perl 5.8.7"},
|
|
{name => "perl5.8.7t", mode => "perl", description => "Perl 5.8.7 (threaded)"},
|
|
{name => "perl5.8.6", mode => "perl", description => "Perl 5.8.6"},
|
|
{name => "perl5.8.6t", mode => "perl", description => "Perl 5.8.6 (threaded)"},
|
|
{name => "perl5.8.5", mode => "perl", description => "Perl 5.8.5"},
|
|
{name => "perl5.8.5t", mode => "perl", description => "Perl 5.8.5 (threaded)"},
|
|
{name => "perl5.8.4", mode => "perl", description => "Perl 5.8.4"},
|
|
{name => "perl5.8.4t", mode => "perl", description => "Perl 5.8.4 (threaded)"},
|
|
{name => "perl5.8.3", mode => "perl", description => "Perl 5.8.3"},
|
|
{name => "perl5.8.3t", mode => "perl", description => "Perl 5.8.3 (threaded)"},
|
|
{name => "perl5.8.2", mode => "perl", description => "Perl 5.8.2"},
|
|
{name => "perl5.8.2t", mode => "perl", description => "Perl 5.8.2 (threaded)"},
|
|
{name => "perl5.8.1", mode => "perl", description => "Perl 5.8.1"},
|
|
{name => "perl5.8.1t", mode => "perl", description => "Perl 5.8.1 (threaded)"},
|
|
{name => "perl5.8.0", mode => "perl", description => "Perl 5.8.0"},
|
|
{name => "perl5.8.0t", mode => "perl", description => "Perl 5.8.0 (threaded)"},
|
|
{name => "perl5.6.2", mode => "perl", description => "Perl 5.6.2"},
|
|
{name => "perl5.6.2t", mode => "perl", description => "Perl 5.6.2 (threaded)"},
|
|
{name => "perl5.6.1", mode => "perl", description => "Perl 5.6.1"},
|
|
{name => "perl5.6.1t", mode => "perl", description => "Perl 5.6.1 (threaded)"},
|
|
{name => "perl5.6.0", mode => "perl", description => "Perl 5.6.0"},
|
|
{name => "perl5.6.0t", mode => "perl", description => "Perl 5.6.0 (threaded)"},
|
|
{name => "perl5.5", mode => "perl", description => "Perl 5.5"},
|
|
{name => "perl5.4", mode => "perl", description => "Perl 5.004"},
|
|
{name => "perl5.3", mode => "perl", description => "Perl 5.003"},
|
|
{name => "perl5.2", mode => "perl", description => "Perl 5.002"},
|
|
{name => "perl5.1", mode => "perl", description => "Perl 5.001"},
|
|
{name => "perl5.0", mode => "perl", description => "Perl 5.000"},
|
|
{name => "perl4", mode => "perl", description => "Perl 4.0.36"},
|
|
{name => "perl3", mode => "perl", description => "Perl 3.0.1.10_44"},
|
|
{name => "perl2", mode => "perl", description => "Perl 2"},
|
|
{name => "perl1", mode => "perl", description => "Perl 1"},
|
|
);
|
|
|
|
# Add a sorting rank to each language
|
|
for my $i (0..$#langs) {
|
|
my $r = $i;
|
|
$r = -1 if ($langs[$i]{name} eq 'perl'); # specially handle blead as being top dog
|
|
$langs[$i]{rank} = $r;
|
|
}
|
|
|
|
my %langs = (
|
|
map {$_->{name} => $_} @langs,
|
|
);
|
|
|
|
sub language_to_acemode {
|
|
my ($self, $lang) = @_;
|
|
|
|
return $langs{$lang}{mode} // "text";
|
|
}
|
|
|
|
sub get_language_hash {
|
|
return \%langs;
|
|
}
|
|
|
|
sub get_languages {
|
|
return \@langs
|
|
}
|
|
|
|
sub perl_sort_versions {
|
|
return $_[0] unless ref($_[0]);
|
|
my @in = @{shift()};
|
|
my @ranks = map {$langs{$_}{rank}} @in;
|
|
my @ret = sort {$langs{$a}{rank} <=> $langs{$b}{rank}} @in;
|
|
return @ret;
|
|
}
|
|
|
|
1;
|