tools/buildtheme.pl

   1 #!/usr/bin/perl
   2 #             __________               __   ___.
   3 #   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4 #   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5 #   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6 #   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7 #                     \/            \/     \/    \/            \/
   8 # $Id: wpsbuild.pl 24813 2010-02-21 19:10:57Z kugel $
   9 #
  10
  11 use strict;
  12 use Getopt::Long qw(:config pass_through);      # pass_through so not confused by -DTYPE_STUFF
  13
  14 my $ROOT="..";
  15 my $verbose;
  16 my $rbdir=".rockbox";
  17 my $wpslist;
  18 my $target;
  19 my $modelname;
  20
  21 # Get options
  22 GetOptions ( 'r|root=s'         => \$ROOT,
  23              'm|modelname=s'    => \$modelname,
  24              'v|verbose'        => \$verbose,
  25              'rbdir=s'          => \$rbdir, # If we want to put in a different directory
  26     );
  27
  28 ($wpslist, $target) = @ARGV;
  29
  30 my $firmdir="$ROOT/firmware";
  31 my $cppdef = $target;
  32 my @depthlist = ( 16, 8, 4, 2, 1 );
  33
  34
  35 # LCD sizes
  36 my ($main_height, $main_width, $main_depth);
  37 my ($remote_height, $remote_width, $remote_depth);
  38 my $has_remote;
  39
  40
  41 if(!$wpslist) {
  42     print "Usage: buildtheme.pl <WPSLIST> <target>\n",
  43     "Run this script in the root of the target build, and it will put all the\n",
  44     "stuff in $rbdir/wps/\n";
  45     exit;
  46 }
  47
  48 sub getlcdsizes
  49 {
  50     my ($remote) = @_;
  51
  52     open(GCC, ">gcctemp");
  53     if($remote) {
  54         # Get the remote LCD screen size
  55     print GCC <<STOP
  56 \#include "config.h"
  57 #ifdef HAVE_REMOTE_LCD
  58 Height: LCD_REMOTE_HEIGHT
  59 Width: LCD_REMOTE_WIDTH
  60 Depth: LCD_REMOTE_DEPTH
  61 #endif
  62 STOP
  63 ;
  64     }
  65     else {
  66     print GCC <<STOP
  67 \#include "config.h"
  68 Height: LCD_HEIGHT
  69 Width: LCD_WIDTH
  70 Depth: LCD_DEPTH
  71 STOP
  72 ;
  73 }
  74     close(GCC);
  75
  76     my $c="cat gcctemp | gcc $cppdef -I. -I$firmdir/export -E -P -";
  77
  78     #print "CMD $c\n";
  79
  80     open(GETSIZE, "$c|");
  81
  82     my ($height, $width, $depth);
  83     while(<GETSIZE>) {
  84         if($_ =~ /^Height: (\d*)/) {
  85             $height = $1;
  86         }
  87         elsif($_ =~ /^Width: (\d*)/) {
  88             $width = $1;
  89         }
  90         elsif($_ =~ /^Depth: (\d*)/) {
  91             $depth = $1;
  92         }
  93         if($height && $width && $depth) {
  94             last;
  95         }
  96     }
  97     close(GETSIZE);
  98     unlink("gcctemp");
  99
 100     return ($height, $width, $depth);
 101 }
 102
 103 # Get the LCD sizes first
 104 ($main_height, $main_width, $main_depth) = getlcdsizes();
 105 ($remote_height, $remote_width, $remote_depth) = getlcdsizes(1);
 106
 107 #print "LCD: ${main_width}x${main_height}x${main_depth}\n";
 108 $has_remote = 1 if ($remote_height && $remote_width && $remote_depth);
 109
 110 my $isrwps;
 111 my $within;
 112
 113 my %theme;
 114
 115
 116 sub match {
 117     my ($string, $pattern)=@_;
 118
 119     $pattern =~ s/\*/.*/g;
 120     $pattern =~ s/\?/./g;
 121
 122     return ($string =~ /^$pattern\z/);
 123 }
 124
 125 sub matchdisplaystring {
 126     my ($string)=@_;
 127     return ($string =~ /${main_width}x${main_height}x${main_depth}/i) ||
 128             ($string =~ /r${remote_width}x${remote_height}x${remote_depth}/i);
 129 }
 130
 131 sub mkdirs
 132 {
 133     my ($themename) = @_;
 134     mkdir "$rbdir", 0777;
 135     mkdir "$rbdir/wps", 0777;
 136     mkdir "$rbdir/themes", 0777;
 137     mkdir "$rbdir/icons", 0777;
 138     mkdir "$rbdir/backdrops", 0777;
 139
 140     if( -d "$rbdir/wps/$themename") {
 141   #      print STDERR "wpsbuild warning: directory wps/$themename already exists!\n";
 142     }
 143     else
 144     {
 145        mkdir "$rbdir/wps/$themename", 0777;
 146     }
 147 }
 148
 149 sub buildcfg {
 150     my ($themename) = @_;
 151     my @out;
 152
 153     push @out, <<MOO
 154 \#
 155 \# generated by buildtheme.pl
 156 \# $themename is made by $theme{"Author"}
 157 \#
 158 MOO
 159 ;
 160     my %configs = (
 161                 "Name" => "# Theme Name",
 162                 "WPS" => "wps", "RWPS" => "rwps",
 163                 "FMS" => "fms", "RFMS" => "rfms",
 164                 "SBS" => "sbs", "RSBS" => "rsbs",
 165                 "Font" => "font", "Remote Font" => "remote font",
 166                 "Statusbar" => "statusbar", "Remote Statusbar" => "remote statusbar",
 167                 "selector type" => "selector type", "Remote Selector Type" => "remote selector type",
 168                 "backdrop" => "backdrop", "iconset" => "iconset", "viewers iconset" => "viewers iconset",
 169                 "remote iconset" => "remote iconset", "remote viewers iconset" => "remote viewers iconset",
 170                 "Foreground Color" => "foreground color", "Background Color" => "background color",
 171                 "backdrop" => "backdrop"
 172                 );
 173
 174     while( my ($k, $v) = each %configs )
 175     {
 176         if ($k =~ "Name")
 177         {
 178             # do nothing
 179         }
 180         elsif ($k =~ /WPS|RWPS|FMS|RFMS|SBS|RSBS/ && exists($theme{$k}))
 181         {
 182             push (@out, "$v: $themename.$v\n");
 183         }
 184         elsif ($k =~ /backdrop/ )
 185         {
 186             if (exists($theme{$k}))
 187             {
 188                 my $dst = $theme{$k};
 189                 $dst =~ s/(\.[0-9]*x[0-9]*x[0-9]*)//;
 190                 push (@out, "$v: $theme{$k}\n");
 191             }
 192             else
 193             {
 194                 push (@out, "$v: -\n");
 195             }
 196         }
 197         elsif (exists($theme{$k}))
 198         {
 199             push (@out, "$v: $theme{$k}\n");
 200         }
 201         else
 202         {
 203             push (@out, "$v: -\n");
 204         }
 205     }
 206
 207   #  if(-f "$rbdir/themes/$themename.cfg") {
 208   #      print STDERR "wpsbuild warning: $themename.cfg already exists!\n";
 209   #  }
 210   #  else {
 211         open(CFG, ">$rbdir/themes/$themename.cfg");
 212         print CFG @out;
 213         close(CFG);
 214   #  }
 215 }
 216
 217
 218 sub copythemefont
 219 {
 220     my ($font) = @_;
 221     #copy the font specified by the theme
 222
 223     my $o=$font;
 224     $o =~ s/\.fnt/\.bdf/;
 225     mkdir "$rbdir/fonts";
 226     my $cmd ="$ROOT/tools/convbdf -f -o \"$rbdir/fonts/$font\" \"$ROOT/fonts/$o\" ";
 227     # print "$cmd\n";
 228     `$cmd`;
 229 }
 230
 231 sub copyiconset
 232 {
 233     my ($iconset) = @_;
 234     #copy the icon specified by the theme
 235
 236     if ($iconset ne '') {
 237         $iconset =~ s/.rockbox/$rbdir/;
 238         $iconset =~ /\/(.*icons\/(.*))/i;
 239         `cp $ROOT/icons/$2 $1`;
 240     }
 241 }
 242
 243 sub copybackdrop
 244 {
 245     my ($backdrop) = @_;
 246     #copy the backdrop file into the build dir
 247     if ($backdrop ne '')
 248     {
 249         my $dst = $backdrop;
 250         $dst =~ s/(\.[0-9]*x[0-9]*x[0-9]*)//;
 251         my $cmd = "cp $ROOT/$backdrop $rbdir/$dst";
 252         # print "$cmd\n";
 253         `$cmd`;
 254     }
 255 }
 256
 257
 258 sub copyskin
 259 {
 260     my ($themename, $skin, $ext) = @_;
 261     # we assume that we copy the WPS files from the same dir the WPSLIST
 262     # file is located in
 263     my $dir;
 264     my @filelist;
 265     my $src;
 266     my $dest;
 267
 268     if($wpslist =~ /(.*)OUT/) {
 269         $dir = $1;
 270
 271         # first try the actual filename given to us
 272         # then $skin.widthxheightxdepths.ext
 273         # then $skin.ext
 274         $src = "${dir}$skin.$ext";
 275         if ( -e $src )
 276         {
 277             my $cmd = "cp $src $rbdir/wps/$themename.$ext";
 278             `$cmd`;
 279         }
 280         else
 281         {
 282             my $is_remote = ($ext =~ /^r.../i);
 283             my $width = $is_remote ? $remote_width : $main_width;
 284             my $height = $is_remote ? $remote_height : $main_height;
 285             my $depth = $is_remote ? $remote_depth : $main_depth;
 286
 287             foreach my $d (@depthlist)
 288             {
 289                 next if ($d > $depth);
 290                 $src = "${dir}$skin.${width}x${height}x${d}.$ext";
 291                 last if (-e $src);
 292             }
 293             if (-e $src)
 294             {
 295                 my $cmd = "cp $src $rbdir/wps/$themename.$ext";
 296                 print "$cmd\n";
 297                 `$cmd`;
 298             }
 299             elsif (-e "${dir}$skin.$ext")
 300             {
 301                 my $cmd = "cp ${dir}$skin.$ext $rbdir/wps/$themename.$ext";
 302                 `$cmd`;
 303             }
 304             else
 305             {
 306                 #print STDERR "buildtheme warning: No suitable skin file for $ext\n";
 307             }
 308         }
 309     }
 310 }
 311
 312 open(WPS, "<$wpslist");
 313 while(<WPS>) {
 314     my $l = $_;
 315
 316     # remove CR
 317     $l =~ s/\r//g;
 318     if($l =~ /^ *\#/) {
 319         # skip comment
 320         next;
 321     }
 322     if($l =~ /^ *<(r|)wps>/i) {
 323         $isrwps = $1;
 324         $within = 1;
 325         undef %theme;
 326         next;
 327     }
 328     if($within) {
 329         if($l =~ /^ *<\/${isrwps}wps>/i) {
 330             #get the skin directory
 331             $wpslist =~ /(.*)WPSLIST/;
 332             my $wpsdir = $1;
 333             $within = 0;
 334
 335             next if (!exists($theme{Name}));
 336             mkdirs($theme{Name});
 337             buildcfg($theme{Name});
 338
 339             copyskin($theme{"Name"}, $theme{"WPS"}, "wps") if exists($theme{"WPS"});
 340             copyskin($theme{"Name"}, $theme{"RWPS"}, "rwps") if exists($theme{"RWPS"});
 341             copyskin($theme{"Name"}, $theme{"FMS"}, "fms") if exists($theme{"FMS"});
 342             copyskin($theme{"Name"}, $theme{"RFMS"}, "rfms") if exists($theme{"RFMS"});
 343             copyskin($theme{"Name"}, $theme{"SBS"}, "sbs") if exists($theme{"SBS"});
 344             copyskin($theme{"Name"}, $theme{"RSBS"}, "rsbs") if exists($theme{"RSBS"});
 345
 346             copyiconset($theme{"iconset"}) if exists($theme{"iconset"});
 347             copyiconset($theme{"remote iconset"}) if exists($theme{"remote iconset"});
 348             copyiconset($theme{"viewers iconset"}) if exists($theme{"viewers iconset"});
 349             copyiconset($theme{"remote viewers iconset"}) if exists($theme{"remote viewers iconset"});
 350
 351             copythemefont($theme{"Font"}) if exists($theme{"Font"});
 352             copythemefont($theme{"Remote Font"}) if exists($theme{"Remote Font"});
 353
 354             copybackdrop($theme{"backdrop"}) if exists($theme{"backdrop"});
 355
 356
 357
 358         }
 359         elsif($l =~ /^([\w ]*)\.?(.*):\s*(.*)/) {
 360             my $var = $1;
 361             my $extra = $2;
 362             my $value = $3;
 363             if (!exists($theme{$var}))
 364             {
 365                 if (!$extra ||
 366                     ($extra && (match($target, $extra) || matchdisplaystring($extra))))
 367                 {
 368                     $theme{$var} = $value;
 369                     #print "\'$var\': $value\n";
 370                 }
 371             }
 372         }
 373         else{
 374             #print "Unknown line:  $l!\n";
 375         }
 376     }
 377 }
 378
 379 close(WPS);