From ec8b3d31470bd612d50a3fd6e60589d30a38230c Mon Sep 17 00:00:00 2001
From: Franklin Wei <franklin@rockbox.org>
Date: Wed, 30 Oct 2019 23:56:05 -0400
Subject: 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
---
 tools/build-info.pl   | 28 ++++++++++++++++++++++++++++
 tools/list_targets.pl | 27 +++++++++++++++++++++++++++
 2 files changed, 55 insertions(+)
 create mode 100755 tools/build-info.pl
 create mode 100755 tools/list_targets.pl

(limited to 'tools')

diff --git a/tools/build-info.pl b/tools/build-info.pl
new file mode 100755
index 0000000000..157e29fb1b
--- /dev/null
+++ b/tools/build-info.pl
@@ -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";
+}
diff --git a/tools/list_targets.pl b/tools/list_targets.pl
new file mode 100755
index 0000000000..039c14f0db
--- /dev/null
+++ b/tools/list_targets.pl
@@ -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);
+}
-- 
cgit v1.2.3