mirror of
https://github.com/Rockbox/rockbox.git
synced 2025-10-13 10:07:38 -04:00
tools: Delete the unused 'buildtheme.pl' script
It was forked off of wpsbuild.pl but never utilized, and wpsbuild continued to receive improvements Change-Id: I38de687e45560398f438830ba920bacceff5cc24
This commit is contained in:
Solomon Peachy
parent
963a66f670
commit
b0a4aae76e
1 changed files with 0 additions and 413 deletions
|
|
@ -1,413 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
# __________ __ ___.
|
||||
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
||||
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
||||
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
||||
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
||||
# \/ \/ \/ \/ \/
|
||||
# $Id: wpsbuild.pl 24813 2010-02-21 19:10:57Z kugel $
|
||||
#
|
||||
|
||||
use strict;
|
||||
use Getopt::Long qw(:config pass_through); # pass_through so not confused by -DTYPE_STUFF
|
||||
|
||||
my $ROOT="..";
|
||||
my $verbose;
|
||||
my $rbdir=".rockbox";
|
||||
my $wpslist;
|
||||
my $target;
|
||||
my $modelname;
|
||||
|
||||
# Get options
|
||||
GetOptions ( 'r|root=s' => \$ROOT,
|
||||
'm|modelname=s' => \$modelname,
|
||||
'v|verbose' => \$verbose,
|
||||
'rbdir=s' => \$rbdir, # If we want to put in a different directory
|
||||
);
|
||||
|
||||
($wpslist, $target) = @ARGV;
|
||||
|
||||
my $firmdir="$ROOT/firmware";
|
||||
my $cppdef = $target;
|
||||
my @depthlist = ( 16, 8, 4, 2, 1 );
|
||||
|
||||
|
||||
# LCD sizes
|
||||
my ($main_height, $main_width, $main_depth);
|
||||
my ($remote_height, $remote_width, $remote_depth);
|
||||
my $has_remote;
|
||||
|
||||
|
||||
if(!$wpslist) {
|
||||
print "Usage: buildtheme.pl <WPSLIST> <target>\n",
|
||||
"Run this script in the root of the target build, and it will put all the\n",
|
||||
"stuff in $rbdir/wps/\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
sub getlcdsizes
|
||||
{
|
||||
my ($remote) = @_;
|
||||
|
||||
open(GCC, ">gcctemp");
|
||||
if($remote) {
|
||||
# Get the remote LCD screen size
|
||||
print GCC <<STOP
|
||||
\#include "config.h"
|
||||
#ifdef HAVE_REMOTE_LCD
|
||||
Height: LCD_REMOTE_HEIGHT
|
||||
Width: LCD_REMOTE_WIDTH
|
||||
Depth: LCD_REMOTE_DEPTH
|
||||
#endif
|
||||
STOP
|
||||
;
|
||||
}
|
||||
else {
|
||||
print GCC <<STOP
|
||||
\#include "config.h"
|
||||
Height: LCD_HEIGHT
|
||||
Width: LCD_WIDTH
|
||||
Depth: LCD_DEPTH
|
||||
STOP
|
||||
;
|
||||
}
|
||||
close(GCC);
|
||||
|
||||
my $c="cat gcctemp | gcc $cppdef -I. -I$firmdir/export -E -P -";
|
||||
|
||||
#print "CMD $c\n";
|
||||
|
||||
open(GETSIZE, "$c|");
|
||||
|
||||
my ($height, $width, $depth);
|
||||
while(<GETSIZE>) {
|
||||
if($_ =~ /^Height: (\d*)/) {
|
||||
$height = $1;
|
||||
}
|
||||
elsif($_ =~ /^Width: (\d*)/) {
|
||||
$width = $1;
|
||||
}
|
||||
elsif($_ =~ /^Depth: (\d*)/) {
|
||||
$depth = $1;
|
||||
}
|
||||
if($height && $width && $depth) {
|
||||
last;
|
||||
}
|
||||
}
|
||||
close(GETSIZE);
|
||||
unlink("gcctemp");
|
||||
|
||||
return ($height, $width, $depth);
|
||||
}
|
||||
|
||||
# Get the LCD sizes first
|
||||
($main_height, $main_width, $main_depth) = getlcdsizes();
|
||||
($remote_height, $remote_width, $remote_depth) = getlcdsizes(1);
|
||||
|
||||
#print "LCD: ${main_width}x${main_height}x${main_depth}\n";
|
||||
$has_remote = 1 if ($remote_height && $remote_width && $remote_depth);
|
||||
|
||||
my $isrwps;
|
||||
my $within;
|
||||
|
||||
my %theme;
|
||||
|
||||
|
||||
sub match {
|
||||
my ($string, $pattern)=@_;
|
||||
|
||||
$pattern =~ s/\*/.*/g;
|
||||
$pattern =~ s/\?/./g;
|
||||
|
||||
return ($string =~ /^$pattern\z/);
|
||||
}
|
||||
|
||||
sub matchdisplaystring {
|
||||
my ($string)=@_;
|
||||
return ($string =~ /${main_width}x${main_height}x${main_depth}/i) ||
|
||||
($string =~ /r${remote_width}x${remote_height}x${remote_depth}/i);
|
||||
}
|
||||
|
||||
sub mkdirs
|
||||
{
|
||||
my ($themename) = @_;
|
||||
mkdir "$rbdir", 0777;
|
||||
mkdir "$rbdir/wps", 0777;
|
||||
mkdir "$rbdir/themes", 0777;
|
||||
mkdir "$rbdir/icons", 0777;
|
||||
mkdir "$rbdir/backdrops", 0777;
|
||||
|
||||
if( -d "$rbdir/wps/$themename") {
|
||||
# print STDERR "wpsbuild warning: directory wps/$themename already exists!\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
mkdir "$rbdir/wps/$themename", 0777;
|
||||
}
|
||||
}
|
||||
|
||||
sub buildcfg {
|
||||
my ($themename) = @_;
|
||||
my @out;
|
||||
|
||||
push @out, <<MOO
|
||||
\#
|
||||
\# generated by buildtheme.pl
|
||||
\# $themename is made by $theme{"Author"}
|
||||
\#
|
||||
MOO
|
||||
;
|
||||
my %configs = (
|
||||
"Name" => "# Theme Name",
|
||||
"WPS" => "wps", "RWPS" => "rwps",
|
||||
"FMS" => "fms", "RFMS" => "rfms",
|
||||
"SBS" => "sbs", "RSBS" => "rsbs",
|
||||
"Font" => "font", "Remote Font" => "remote font",
|
||||
"Statusbar" => "statusbar", "Remote Statusbar" => "remote statusbar",
|
||||
"selector type" => "selector type", "Remote Selector Type" => "remote selector type",
|
||||
"backdrop" => "backdrop", "iconset" => "iconset", "viewers iconset" => "viewers iconset",
|
||||
"remote iconset" => "remote iconset", "remote viewers iconset" => "remote viewers iconset",
|
||||
"Foreground Color" => "foreground color", "Background Color" => "background color",
|
||||
"backdrop" => "backdrop"
|
||||
);
|
||||
|
||||
while( my ($k, $v) = each %configs )
|
||||
{
|
||||
if ($k =~ "Name")
|
||||
{
|
||||
# do nothing
|
||||
}
|
||||
elsif ($k =~ /WPS|RWPS|FMS|RFMS|SBS|RSBS/ && exists($theme{$k}))
|
||||
{
|
||||
push (@out, "$v: $themename.$v\n");
|
||||
}
|
||||
elsif ($k =~ /backdrop/ )
|
||||
{
|
||||
if (exists($theme{$k}))
|
||||
{
|
||||
my $dst = $theme{$k};
|
||||
$dst =~ s/(\.[0-9]*x[0-9]*x[0-9]*)//;
|
||||
push (@out, "$v: $theme{$k}\n");
|
||||
}
|
||||
else
|
||||
{
|
||||
push (@out, "$v: -\n");
|
||||
}
|
||||
}
|
||||
elsif (exists($theme{$k}))
|
||||
{
|
||||
push (@out, "$v: $theme{$k}\n");
|
||||
}
|
||||
else
|
||||
{
|
||||
push (@out, "$v: -\n");
|
||||
}
|
||||
}
|
||||
|
||||
# if(-f "$rbdir/themes/$themename.cfg") {
|
||||
# print STDERR "wpsbuild warning: $themename.cfg already exists!\n";
|
||||
# }
|
||||
# else {
|
||||
open(CFG, ">$rbdir/themes/$themename.cfg");
|
||||
print CFG @out;
|
||||
close(CFG);
|
||||
# }
|
||||
}
|
||||
|
||||
|
||||
sub copythemefont
|
||||
{
|
||||
my ($font) = @_;
|
||||
#copy the font specified by the theme
|
||||
|
||||
my $o=$font;
|
||||
$o =~ s/\.fnt/\.bdf/;
|
||||
mkdir "$rbdir/fonts";
|
||||
my $cmd ="$ROOT/tools/convbdf -f -o \"$rbdir/fonts/$font\" \"$ROOT/fonts/$o\" ";
|
||||
# print "$cmd\n";
|
||||
`$cmd`;
|
||||
}
|
||||
|
||||
sub copyiconset
|
||||
{
|
||||
my ($iconset) = @_;
|
||||
#copy the icon specified by the theme
|
||||
|
||||
if ($iconset ne '') {
|
||||
$iconset =~ s/.rockbox/$rbdir/;
|
||||
$iconset =~ /\/(.*icons\/(.*))/i;
|
||||
`cp $ROOT/icons/$2 $1`;
|
||||
}
|
||||
}
|
||||
|
||||
sub copybackdrop
|
||||
{
|
||||
my ($backdrop) = @_;
|
||||
#copy the backdrop file into the build dir
|
||||
if ($backdrop ne '')
|
||||
{
|
||||
my $dst = $backdrop;
|
||||
$dst =~ s/(\.[0-9]*x[0-9]*x[0-9]*)//;
|
||||
my $cmd = "cp $ROOT/$backdrop $rbdir/$dst";
|
||||
# print "$cmd\n";
|
||||
`$cmd`;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
sub copyskin
|
||||
{
|
||||
my ($themename, $skin, $ext) = @_;
|
||||
# we assume that we copy the WPS files from the same dir the WPSLIST
|
||||
# file is located in
|
||||
my $dir;
|
||||
my @filelist;
|
||||
my $src;
|
||||
my $dest;
|
||||
my $sizestring;
|
||||
|
||||
if($wpslist =~ /(.*)WPSFILE/) {
|
||||
$dir = $1;
|
||||
|
||||
# first try the actual filename given to us
|
||||
# then $skin.widthxheightxdepths.ext
|
||||
# then $skin.ext
|
||||
$src = "${dir}$skin.$ext";
|
||||
if ( -e $src )
|
||||
{
|
||||
if ($skin =~ /\w\.(\d*x\d*x\d*).*/)
|
||||
{
|
||||
$sizestring = $1;
|
||||
}
|
||||
my $cmd = "cp $src $rbdir/wps/$themename.$ext";
|
||||
`$cmd`;
|
||||
}
|
||||
else
|
||||
{
|
||||
my $is_remote = ($ext =~ /^r.../i);
|
||||
my $width = $is_remote ? $remote_width : $main_width;
|
||||
my $height = $is_remote ? $remote_height : $main_height;
|
||||
my $depth = $is_remote ? $remote_depth : $main_depth;
|
||||
|
||||
foreach my $d (@depthlist)
|
||||
{
|
||||
next if ($d > $depth);
|
||||
$sizestring = "${width}x${height}x${d}";
|
||||
$src = "${dir}$skin.${sizestring}.$ext";
|
||||
last if (-e $src);
|
||||
}
|
||||
if (-e $src)
|
||||
{
|
||||
my $cmd = "cp $src $rbdir/wps/$themename.$ext";
|
||||
`$cmd`;
|
||||
}
|
||||
elsif (-e "${dir}$skin.$ext")
|
||||
{
|
||||
my $cmd = "cp ${dir}$skin.$ext $rbdir/wps/$themename.$ext";
|
||||
`$cmd`;
|
||||
}
|
||||
else
|
||||
{
|
||||
#print STDERR "buildtheme warning: No suitable skin file for $ext\n";
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
open(WPSFILE, "$rbdir/wps/$themename.$ext");
|
||||
while (<WPSFILE>) {
|
||||
$filelist[$#filelist + 1] = $1 if (/\|([^|]*?.bmp)\|/);
|
||||
}
|
||||
close(WPSFILE);
|
||||
if ($#filelist >= 0)
|
||||
{
|
||||
my $file;
|
||||
if ($sizestring && -e "$dir/$themename/$sizestring")
|
||||
{
|
||||
foreach $file (@filelist)
|
||||
{
|
||||
system("cp $dir/$themename/$sizestring/$file $rbdir/wps/$themename/");
|
||||
}
|
||||
}
|
||||
elsif (-e "$dir/$themename")
|
||||
{
|
||||
foreach $file (@filelist)
|
||||
{
|
||||
system("cp $dir/$themename/$file $rbdir/wps/$themename/");
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
print STDERR "beep, no dir to copy WPS from!\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
open(WPS, "<$wpslist");
|
||||
while(<WPS>) {
|
||||
my $l = $_;
|
||||
|
||||
# remove CR
|
||||
$l =~ s/\r//g;
|
||||
if($l =~ /^ *\#/) {
|
||||
# skip comment
|
||||
next;
|
||||
}
|
||||
if($l =~ /^ *<(r|)wps>/i) {
|
||||
$isrwps = $1;
|
||||
$within = 1;
|
||||
undef %theme;
|
||||
next;
|
||||
}
|
||||
if($within) {
|
||||
if($l =~ /^ *<\/${isrwps}wps>/i) {
|
||||
#get the skin directory
|
||||
$wpslist =~ /(.*)WPSLIST/;
|
||||
my $wpsdir = $1;
|
||||
$within = 0;
|
||||
|
||||
next if (!exists($theme{Name}));
|
||||
mkdirs($theme{Name});
|
||||
buildcfg($theme{Name});
|
||||
|
||||
copyskin($theme{"Name"}, $theme{"WPS"}, "wps") if exists($theme{"WPS"});
|
||||
copyskin($theme{"Name"}, $theme{"RWPS"}, "rwps") if exists($theme{"RWPS"});
|
||||
copyskin($theme{"Name"}, $theme{"FMS"}, "fms") if exists($theme{"FMS"});
|
||||
copyskin($theme{"Name"}, $theme{"RFMS"}, "rfms") if exists($theme{"RFMS"});
|
||||
copyskin($theme{"Name"}, $theme{"SBS"}, "sbs") if exists($theme{"SBS"});
|
||||
copyskin($theme{"Name"}, $theme{"RSBS"}, "rsbs") if exists($theme{"RSBS"});
|
||||
|
||||
copyiconset($theme{"iconset"}) if exists($theme{"iconset"});
|
||||
copyiconset($theme{"remote iconset"}) if exists($theme{"remote iconset"});
|
||||
copyiconset($theme{"viewers iconset"}) if exists($theme{"viewers iconset"});
|
||||
copyiconset($theme{"remote viewers iconset"}) if exists($theme{"remote viewers iconset"});
|
||||
|
||||
copythemefont($theme{"Font"}) if exists($theme{"Font"});
|
||||
copythemefont($theme{"Remote Font"}) if exists($theme{"Remote Font"});
|
||||
|
||||
copybackdrop($theme{"backdrop"}) if exists($theme{"backdrop"});
|
||||
|
||||
|
||||
|
||||
}
|
||||
elsif($l =~ /^([\w ]*)\.?(.*):\s*(.*)/) {
|
||||
my $var = $1;
|
||||
my $extra = $2;
|
||||
my $value = $3;
|
||||
if (!exists($theme{$var}))
|
||||
{
|
||||
if (!$extra ||
|
||||
($extra && (match($target, $extra) || matchdisplaystring($extra))))
|
||||
{
|
||||
$theme{$var} = $value;
|
||||
#print "\'$var\': $value\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
else{
|
||||
#print "Unknown line: $l!\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
close(WPS);
|
||||
Loading…
Add table
Add a link
Reference in a new issue