Add some scripts to automate target listing and generating build-info
This adds tools/list_targets.pl and tools/build-info.pl. list_targets does exactly what it sounds like - it lists targets by target status. build-info automates the generation of build-info.release for new releases. Change-Id: I4c859fdeb54c8cc645832a7c4192f9d18590031e
This commit is contained in:
parent
19c154fe8f
commit
ec8b3d3147
2 changed files with 55 additions and 0 deletions
28
tools/build-info.pl
Executable file
28
tools/build-info.pl
Executable file
|
@ -0,0 +1,28 @@
|
|||
#!/usr/bin/perl
|
||||
# __________ __ ___.
|
||||
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
||||
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
||||
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
||||
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
||||
# \/ \/ \/ \/ \/
|
||||
#
|
||||
# Generate the build-info.release file found on download.rockbox.org
|
||||
|
||||
require "./builds.pm";
|
||||
|
||||
print "[release]\n";
|
||||
|
||||
foreach my $b (&stablebuilds) {
|
||||
if(exists($builds{$b}{release})) {
|
||||
print "$b=$builds{$b}{release}\n";
|
||||
}
|
||||
else {
|
||||
print "$b=$publicrelease\n";
|
||||
}
|
||||
}
|
||||
|
||||
print "[status]\n";
|
||||
|
||||
foreach my $b (&allbuilds) {
|
||||
print "$b=$builds{$b}{status}\n";
|
||||
}
|
27
tools/list_targets.pl
Executable file
27
tools/list_targets.pl
Executable file
|
@ -0,0 +1,27 @@
|
|||
#!/usr/bin/perl
|
||||
# __________ __ ___.
|
||||
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
||||
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
||||
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
||||
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
||||
# \/ \/ \/ \/ \/
|
||||
#
|
||||
# List all targets in builds.pm, categorized by target status.
|
||||
|
||||
require "./builds.pm";
|
||||
|
||||
print "Stable:\n";
|
||||
|
||||
for my $b (&stablebuilds) {
|
||||
print $builds{$b}{name} , "\n";
|
||||
}
|
||||
|
||||
print "Unstable:\n";
|
||||
for my $b (&usablebuilds) {
|
||||
print $builds{$b}{name} , "\n";
|
||||
}
|
||||
|
||||
print "Unusable:\n";
|
||||
for my $b (&allbuilds) {
|
||||
print $builds{$b}{name} , "\n" if($builds{$b}{status} == 1);
|
||||
}
|
Loading…
Reference in a new issue