A modern Music Player Daemon based on Rockbox open source high quality audio player
libadwaita audio rust zig deno mpris rockbox mpd
at master 38 lines 1.0 kB view raw
1#!/usr/bin/perl 2# __________ __ ___. 3# Open \______ \ ____ ____ | | _\_ |__ _______ ___ 4# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / 5# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < 6# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ 7# \/ \/ \/ \/ \/ 8# 9# List all targets in builds.pm, categorized by target status. 10 11require "./builds.pm"; 12 13print "Retired:\n"; 14 15for my $b (&stablebuilds) { 16 print " " , $builds{$b}{name} , "\n" if($builds{$b}{status} == 0); 17} 18 19print "Stable:\n"; 20 21for my $b (&stablebuilds) { 22 print " " , $builds{$b}{name} , "\n" if($builds{$b}{status} != 0); 23} 24 25print "Unstable:\n"; 26for my $b (&usablebuilds) { 27 print " " , $builds{$b}{name} , "\n"; 28} 29 30print "Unusable:\n"; 31for my $b (&allbuilds) { 32 print " " , $builds{$b}{name} , "\n" if($builds{$b}{status} == 1); 33} 34 35print "Simulators:\n"; 36for my $b (&simbuilds) { 37 print " " , $builds{$b}{name} , "\n"; 38}