@@ -31,141 +31,7 @@ my %VM = (
31
31
mono => ' mono-sgen' ,
32
32
d8 => ' BENCH/../v8/out/native/d8' ,
33
33
);
34
- my %COMPILERS = (
35
- perl5 => [
36
- {
37
- name => ' perl5' ,
38
- enabled => 1,
39
- language => ' Perl 5' ,
40
- compiler => ' perl5' ,
41
- vm => ' perl5' ,
42
- dir => ' BENCH' ,
43
- f_run => [qw( VM ) ],
44
- e_run => [qw( VM -E ) ],
45
- show_ver => [qw( VM -E say+$] ) ],
46
- },
47
- {
48
- name => ' p5.pl' ,
49
- enabled => 1,
50
- language => ' Perl 5' ,
51
- compiler => ' perlito5' ,
52
- vm => ' perl5' ,
53
- f_run => [qw( VM -Ilib5 perlito5.pl -Isrc5/lib ) ],
54
- e_run => [qw( VM -Ilib5 perlito5.pl -Isrc5/lib -e ) ],
55
- show_ver => [qw( VM -Ilib5 perlito5.pl --version ) ],
56
- },
57
- {
58
- name => ' p5.js_node' ,
59
- enabled => 1,
60
- language => ' Perl 5' ,
61
- compiler => ' perlito5' ,
62
- vm => ' node.js' ,
63
- f_run => [qw( VM perlito5.js -Isrc5/lib ) ],
64
- e_run => [qw( VM perlito5.js -Isrc5/lib -e ) ],
65
- show_ver => [qw( VM perlito5.js --version ) ],
66
- },
67
- {
68
- name => ' p5.js_v8' ,
69
- enabled => 1,
70
- language => ' Perl 5' ,
71
- compiler => ' perlito5' ,
72
- vm => ' d8' ,
73
- f_compile => [qw( VM perlito5.js -- -Isrc5/lib -Cjs ) ],
74
- e_compile => [qw( VM perlito5.js -- -Isrc5/lib -Cjs -e ) ],
75
- show_ver => [qw( VM perlito5.js -- --version ) ],
76
- f_run => [qw( VM COMPILED -- ) ],
77
- e_run => [qw( VM COMPILED -- ) ],
78
- },
79
- ],
80
- perl6 => [
81
- {
82
- name => ' rakudo' ,
83
- enabled => 1,
84
- language => ' Perl 6' ,
85
- compiler => ' rakudo' ,
86
- vm => ' parrot' ,
87
- f_run => [qw( install/bin/perl6 ) ],
88
- e_run => [qw( install/bin/perl6 -e ) ],
89
- show_ver => [qw( install/bin/perl6 --version ) ],
90
- },
91
- {
92
- name => ' niecza' ,
93
- enabled => 1,
94
- language => ' Perl 6' ,
95
- compiler => ' niecza' ,
96
- vm => ' mono' ,
97
- f_run => [qw( VM run/Niecza.exe ) ],
98
- e_run => [qw( VM run/Niecza.exe -e ) ],
99
- show_ver => [qw( VM run/Niecza.exe --version ) ],
100
- },
101
- {
102
- name => ' p6.pl' ,
103
- enabled => 1,
104
- language => ' Perl 6' ,
105
- compiler => ' perlito6' ,
106
- vm => ' perl5' ,
107
- f_compile => [qw( VM -Ilib5 perlito6.pl -Cperl5 ) ],
108
- e_compile => [qw( VM -Ilib5 perlito6.pl -Cperl5 -e ) ],
109
- show_ver => [qw( VM -Ilib5 perlito6.pl --version ) ],
110
- f_run => [qw( VM -Ilib5 COMPILED ) ],
111
- e_run => [qw( VM -Ilib5 COMPILED ) ],
112
- },
113
- {
114
- name => ' p6.js_v8' ,
115
- enabled => 1,
116
- language => ' Perl 6' ,
117
- compiler => ' perlito6' ,
118
- vm => ' d8' ,
119
- f_compile => [qw( VM perlito6.js -- -Cjs ) ],
120
- e_compile => [qw( VM perlito6.js -- -Cjs -e ) ],
121
- show_ver => [qw( VM perlito6.js -- --version ) ],
122
- f_run => [qw( VM COMPILED -- ) ],
123
- e_run => [qw( VM COMPILED -- ) ],
124
- },
125
- ],
126
- nqp => [
127
- {
128
- name => ' nqp' ,
129
- enabled => 1,
130
- language => ' NQP' ,
131
- compiler => ' nqp' ,
132
- vm => ' parrot' ,
133
- f_run => [qw( install/bin/nqp --vmlibs=math_ops ) ],
134
- e_run => [qw( install/bin/nqp --vmlibs=math_ops -e ) ],
135
- show_ver => [qw( install/bin/nqp --version ) ],
136
- },
137
- {
138
- name => ' nqp-jvm' ,
139
- enabled => 1,
140
- language => ' NQP' ,
141
- compiler => ' nqp-jvm' ,
142
- vm => ' jvm' ,
143
- f_run => [qw( ./nqp ) ],
144
- e_run => [qw( ./nqp -e ) ],
145
- show_ver => [qw( ./nqp --version ) ],
146
- },
147
- {
148
- name => ' rakudo.nqp' ,
149
- enabled => 1,
150
- language => ' NQP' ,
151
- compiler => ' rakudo' ,
152
- vm => ' parrot' ,
153
- f_run => [qw( install/bin/perl6 ) ],
154
- e_run => [qw( install/bin/perl6 -e ) ],
155
- show_ver => [qw( install/bin/perl6 --version ) ],
156
- },
157
- {
158
- name => ' niecza.nqp' ,
159
- enabled => 1,
160
- language => ' NQP' ,
161
- compiler => ' niecza' ,
162
- vm => ' mono' ,
163
- f_run => [qw( VM run/Niecza.exe ) ],
164
- e_run => [qw( VM run/Niecza.exe -e ) ],
165
- show_ver => [qw( VM run/Niecza.exe --version ) ],
166
- },
167
- ],
168
- );
34
+ my $COMPILERS = do " $FindBin::Bin /compilers.pl" ;
169
35
my %TESTS = (
170
36
e => do " $FindBin::Bin /microbenchmarks.pl" ,
171
37
f => do " $FindBin::Bin /minibenchmarks.pl" ,
@@ -220,7 +86,7 @@ sub MAIN {
220
86
221
87
sub canonify_compilers {
222
88
for my $group (@GROUPS ) {
223
- for my $compiler (@{$COMPILERS {$group }}) {
89
+ for my $compiler (@{$COMPILERS -> {$group }}) {
224
90
$compiler -> {group } = $group ;
225
91
push @COMPILERS , $compiler ;
226
92
}
0 commit comments