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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
#!/usr/bin/perl
# __________ __ ___.
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
# \/ \/ \/ \/ \/
# $Id$
#
# This program attempts to run configure with the correct build target
# and type based on the pwd.
# example: ~/rockbox/sansae200 is the build dir, it would run configure
# for the sansae200 normal build target.
# ~/rockbox/sansae200-sim for the e200 sim build (-boot for bootloader)
# ~/rockbox/sim/sansae200 for e200 sim build. (replace sim with boot is also possible)
# The full shortname is not required, each target name is checked and the first
# possible match is used.
# This script must be placed in the same directory as configure and builds.pm
#
use File::Basename;
my $srcdir = dirname $0;
require "$srcdir/builds.pm";
my $builddir = `pwd`;
my @dirs = split(/\//, $builddir);
my $test = pop(@dirs);
sub doconfigure {
my ($target, $type, $width, $height) = @_;
if (!exists($builds{$target})) {
for $key (keys(%builds)) {
if ($key =~ $target) {
$target = $key;
last;
}
}
}
$command = "${srcdir}/configure --type=${type} --target=${target}";
if (defined $width) {
$command .= " --lcdwidth=${width}";
}
if (defined $height) {
$command .= " --lcdheight=${height}";
}
%typenames = ("n" => "Normal", "s" => "Simulator", "b" => "Bootloader" );
unless (@ARGV[0] eq "-y") {
$prompt = "Rockbox autoconf: \n\tTarget: $target \n\tType: $typenames{$type} \n";
if (defined $width) {
$prompt .= "\tLCD width: $width\n";
}
if (defined $height) {
$prompt .= "\tLCD height: $height\n";
}
print $prompt . "Correct? [Y/n] ";
chomp($response = <>);
if ($response eq "") {
$response = "y";
}
if ($response ne "y" && $response ne "Y") {
print "autoconf: Aborting\n";
exit(0);
}
}
system($command);
}
sub buildtype {
my ($text) = @_;
if ($text eq "sim") {
$build = "s";
} elsif ($text eq "boot") {
$build = "b";
} elsif ($text eq "build") {
$build = "n";
} else {
$build = "";
}
return $build;
}
if ($test =~ /(.*)-(.*)-([0-9]+)x([0-9]+)/)
{
if (buildtype($2)) {
doconfigure($1, buildtype($2), $3, $4);
} elsif (buildtype($1)) {
doconfigure($2, buildtype($1), $3, $4);
}
}
elsif ($test =~ /(.*)-(.*)/)
{
if (buildtype($2)) {
doconfigure($1, buildtype($2));
} elsif (buildtype($1)) {
doconfigure($2, buildtype($1));
}
}
elsif ($test =~ /(.*)/)
{
$target = $1;
$build = buildtype(pop(@dirs));
doconfigure($target, $build);
}
|
