-
Notifications
You must be signed in to change notification settings - Fork 138
/
ops.pl
64 lines (45 loc) · 1.1 KB
/
ops.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id$
=head1 NAME
config/inter/ops.pl - Ops Files
=head1 DESCRIPTION
Asks the user to select which ops files to include.
=cut
package Configure::Step;
use strict;
use vars qw($description @args);
use Parrot::Configure::Step ':inter';
$description = 'Determining what opcode files should be compiled in...';
@args=qw(ask ops);
sub runstep {
my @ops=(
sort {
if($a =~ /core\.ops/) { return -1 }
if($b =~ /core\.ops/) { return 1 }
return ( $a cmp $b )
}
grep { !/vtable\.ops/ }
glob "ops/*.ops"
);
my $ops=join ' ', grep { !/obscure\.ops/ } @ops;
$ops=$_[1] if defined $_[1];
# ops selection disabled - until we can build and load
# opcode subset libs
if (0 && $_[0]) {
print <<"END";
The following opcode files are available:
@ops
END
{
$ops=prompt('Which opcode files would you like?', $ops);
if($ops !~ m{\bcore\.ops}) {
print "core.ops must be the first selection.\n";
redo;
}
}
}
Configure::Data->set(
ops => $ops
);
}
1;