Skip to content

Commit 356641f

Browse files
moritzmoritz
committed
adapt to current realities
1 parent 97ff805 commit 356641f

File tree

2 files changed

+60
-61
lines changed

2 files changed

+60
-61
lines changed

‎evalbot.pl

Lines changed: 59 additions & 61 deletions
Original file line numberDiff line numberDiff line change
@@ -61,35 +61,35 @@ package Evalbot;
6161
);
6262

6363
our %impls = (
64-
'partcl' => {
65-
chdir => "$home/partcl-nqp",
66-
cmd_line => './partcl %program',
67-
filter => \&filter_pct,
68-
revision => sub { get_revision_from_file('/home/p6eval/partcl-nqp/.revision', 6)},
69-
},
70-
perlesque => {
71-
chdir => "$home/sprixel/sprixel/sprixel/bin/Release",
72-
cmd_line => '/home/p6eval/sprixel/clr/bin/mono --gc=sgen sprixel.exe -s %program',
73-
},
74-
mildew => {
75-
chdir => $home,
76-
cmd_line => '/home/mildew/perl5/perlbrew/bin/perl /home/mildew/perl5/perlbrew/perls/current/bin/mildew %program',
77-
},
64+
# 'partcl' => {
65+
# chdir => "$home/partcl-nqp",
66+
# cmd_line => './partcl %program',
67+
# filter => \&filter_pct,
68+
# revision => sub { get_revision_from_file('/home/p6eval/partcl-nqp/.revision', 6)},
69+
# },
70+
# perlesque => {
71+
# chdir => "$home/sprixel/sprixel/sprixel/bin/Release",
72+
# cmd_line => '/home/p6eval/sprixel/clr/bin/mono --gc=sgen sprixel.exe -s %program',
73+
# },
74+
# mildew => {
75+
# chdir => $home,
76+
# cmd_line => '/home/mildew/perl5/perlbrew/bin/perl /home/mildew/perl5/perlbrew/perls/current/bin/mildew %program',
77+
# },
7878
niecza => {
7979
chdir => "$home/niecza",
8080
cmd_line => 'PATH=/usr/local/mono-2.10.1/bin:/usr/local/bin:/usr/bin:/bin LD_LIBRARY_PATH=/usr/local/mono-2.10.1/lib mono ./run/Niecza.exe --safe %program',
8181
revision => sub { get_revision_from_file('~/niecza/VERSION')},
8282
},
83-
nqpnet => {
84-
chdir => "$home/6model/dotnet/compiler",
85-
cmd_line => './try2.sh %program',
86-
#revision => sub { get_revision_from_file('~/6model/VERSION'
87-
},
88-
nqplua => {
89-
chdir => "$home/nqplua/6model/lua/compiler",
90-
cmd_line => './try.sh %program',
91-
#revision => sub { get_revision_from_file('~/nqplua/VERSION'
92-
},
83+
# nqpnet => {
84+
# chdir => "$home/6model/dotnet/compiler",
85+
# cmd_line => './try2.sh %program',
86+
# #revision => sub { get_revision_from_file('~/6model/VERSION'
87+
# },
88+
# nqplua => {
89+
# chdir => "$home/nqplua/6model/lua/compiler",
90+
# cmd_line => './try.sh %program',
91+
# #revision => sub { get_revision_from_file('~/nqplua/VERSION'
92+
# },
9393
b => {
9494
chdir => "$home/rakudo/",
9595
cmd_line => 'PERL6LIB=lib ../p/bin/perl6 %program',
@@ -124,42 +124,40 @@ package Evalbot;
124124
rakudo => {
125125
chdir => "$home",
126126
cmd_line => './nom-inst/bin/perl6 --setting=SAFE %program',
127-
filter => \&filter_pct,
128127
nolock => 1,
129128
revision => sub { get_revision_from_file('~/nom-inst/rakudo-revision')},
130129
},
131130
star => {
132-
chdir => "$home/rakudo-star-2012.01/",
133-
cmd_line => './install/bin/perl6 --setting=SAFE %program',
134-
revision => sub { '2012.01' },
135-
filter => \&filter_pct,
136-
},
137-
alpha => {
138-
chdir => "$home/rakudo-alpha/",
139-
cmd_line => 'PERL6LIB=lib ../rakudo-alpha/perl6 %program',
140-
revision => sub { get_revision_from_file('~/rakudo-alpha/revision')},
141-
filter => \&filter_pct,
142-
program_prefix => 'my $ss_SS_S_S__S_S_s = -> *@a, *%h { die "operation not permitted in safe mode" };
143-
Q:PIR {
144-
$P0 = get_hll_namespace
145-
$P1 = find_lex \'$ss_SS_S_S__S_S_s\'
146-
$P0[\'run\'] = $P1
147-
$P0[\'open\'] = $P1
148-
$P0[\'!qx\'] = $P1
149-
null $P1
150-
set_hll_global [\'IO\'], \'Socket\', $P0
151-
};',
131+
chdir => "$home/star/",
132+
cmd_line => './bin/perl6 --setting=SAFE %program',
133+
revision => sub { get_revision_from_file("$home/star/version") },
152134
},
135+
# alpha => {
136+
# chdir => "$home/rakudo-alpha/",
137+
# cmd_line => 'PERL6LIB=lib ../rakudo-alpha/perl6 %program',
138+
# revision => sub { get_revision_from_file('~/rakudo-alpha/revision')},
139+
# filter => \&filter_pct,
140+
# program_prefix => 'my $ss_SS_S_S__S_S_s = -> *@a, *%h { die "operation not permitted in safe mode" };
141+
# Q:PIR {
142+
#$P0 = get_hll_namespace
143+
#$P1 = find_lex \'$ss_SS_S_S__S_S_s\'
144+
#$P0[\'run\'] = $P1
145+
#$P0[\'open\'] = $P1
146+
#$P0[\'!qx\'] = $P1
147+
#null $P1
148+
#set_hll_global [\'IO\'], \'Socket\', $P0
149+
# };',
150+
# },
153151
nqp => {
154-
chdir => "$home/nqp",
155-
cmd_line => './nqp %program',
156-
filter => \&filter_pct,
157-
},
158-
nqprx => {
159-
chdir => "$home/nqp-rx",
160-
cmd_line => './nqp %program',
152+
chdir => "$home",
153+
cmd_line => './nom-inst/bin/nqp %program',
161154
filter => \&filter_pct,
162155
},
156+
# nqprx => {
157+
# chdir => "$home/nqp-rx",
158+
# cmd_line => './nqp %program',
159+
# filter => \&filter_pct,
160+
# },
163161
pugs => {
164162
cmd_line => "PUGS_SAFEMODE=true LC_ALL=en_US.ISO-8859-1 $home/Pugs.hs/Pugs/pugs %program",
165163
},
@@ -169,15 +167,15 @@ package Evalbot;
169167
revision => sub { get_revision_from_file("$home/std/snap/revision")},
170168
nolock => 1,
171169
},
172-
yapsi => {
173-
chdir => "$home/yapsi",
174-
cmd_line => 'PERL6LIB=lib /home/p6eval/p/bin/perl6 bin/yapsi %program',
175-
},
176-
highlight => {
177-
chdir => "$home/std/snap/std_hilite",
178-
cmd_line => $^X . ' STD_syntax_highlight %program',
179-
revision => sub { get_revision_from_file("$home/std/snap/revision")},
180-
},
170+
# yapsi => {
171+
# chdir => "$home/yapsi",
172+
# cmd_line => 'PERL6LIB=lib /home/p6eval/p/bin/perl6 bin/yapsi %program',
173+
# },
174+
# highlight => {
175+
# chdir => "$home/std/snap/std_hilite",
176+
# cmd_line => $^X . ' STD_syntax_highlight %program',
177+
# revision => sub { get_revision_from_file("$home/std/snap/revision")},
178+
# },
181179
);
182180

183181
my $evalbot_version = get_revision();

‎sync.pl

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,7 @@
99
niecza => [qw/niecza/, ''],
1010
pugs => [qw!Pugs.hs/Pugs/ Pugs.hs/Pugs/!],
1111
std => [qw!std/snap/ std/snap/!],
12+
star => [qw/star/, ''],
1213
);
1314

1415
if ($dirs{$sync}) {

0 commit comments

Comments
 (0)