wps/wpsbuild.pl

   1 #!/usr/bin/perl
   2 #             __________               __   ___.
   3 #   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4 #   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5 #   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6 #   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7 #                     \/            \/     \/    \/            \/
   8 # $Id$
   9 #
  10
  11 $ROOT="..";
  12
  13 if($ARGV[0] eq "-r") {
  14     $ROOT=$ARGV[1];
  15     shift @ARGV;
  16     shift @ARGV;
  17 }
  18
  19 my $verbose;
  20 if($ARGV[0] eq "-v") {
  21     $verbose =1;
  22     shift @ARGV;
  23 }
  24
  25 my $firmdir="$ROOT/firmware";
  26
  27 my $wpslist=$ARGV[0];
  28
  29 my $target = $ARGV[1];
  30 my $cppdef = $target;
  31 my @depthlist = ( 16, 8, 4, 2, 1 );
  32
  33 if(!$wpslist) {
  34     print "Usage: wpsbuilds.pl <WPSLIST> <target>\n",
  35     "Run this script in the root of the target build, and it will put all the\n",
  36     "stuff in .rockbox/wps/\n";
  37     exit;
  38 }
  39
  40 sub getlcdsizes {
  41     my ($remote) = @_;
  42
  43     open(GCC, ">gcctemp");
  44     if($remote) {
  45         # Get the remote LCD screen size
  46     print GCC <<STOP
  47 \#include "config.h"
  48 #ifdef HAVE_REMOTE_LCD
  49 Height: LCD_REMOTE_HEIGHT
  50 Width: LCD_REMOTE_WIDTH
  51 Depth: LCD_REMOTE_DEPTH
  52 #endif
  53 STOP
  54 ;
  55     }
  56     else {
  57     print GCC <<STOP
  58 \#include "config.h"
  59 Height: LCD_HEIGHT
  60 Width: LCD_WIDTH
  61 Depth: LCD_DEPTH
  62 STOP
  63 ;
  64 }
  65     close(GCC);
  66
  67     my $c="cat gcctemp | gcc $cppdef -I. -I$firmdir/export -E -P -";
  68
  69     #print "CMD $c\n";
  70
  71     open(GETSIZE, "$c|");
  72
  73     my ($height, $width);
  74     while(<GETSIZE>) {
  75         if($_ =~ /^Height: (\d*)/) {
  76             $height = $1;
  77         }
  78         elsif($_ =~ /^Width: (\d*)/) {
  79             $width = $1;
  80         }
  81         elsif($_ =~ /^Depth: (\d*)/) {
  82             $depth = $1;
  83         }
  84         if($height && $width && $depth) {
  85             last;
  86         }
  87     }
  88     close(GETSIZE);
  89     unlink("gcctemp");
  90
  91     return ($height, $width, $depth);
  92 }
  93
  94 sub mkdirs {
  95     my $wpsdir = $wps;
  96     $wpsdir =~ s/\.(r|)wps//;
  97     mkdir ".rockbox/wps", 0777;
  98     mkdir ".rockbox/themes", 0777;
  99
 100     if( -d ".rockbox/wps/$wpsdir") {
 101         #print STDERR "wpsbuild warning: directory wps/$wpsdir already exists!\n";
 102     }
 103     else
 104     {
 105        mkdir ".rockbox/wps/$wpsdir", 0777;
 106     }
 107 }
 108
 109 sub copybackdrop {
 110         #copy the backdrop file into the build dir
 111
 112         $backdrop =~ /\/(.*backdrops\/(.*))/i;
 113         `cp $ROOT/backdrops/$2 $1`;
 114 }
 115
 116 sub copythemefont {
 117         #copy the font specified by the theme
 118
 119         $o=$font;
 120         $o =~ s/\.fnt/\.bdf/;
 121         `mkdir .rockbox/fonts/ >/dev/null 2>&1`;
 122         $cmd ="$ROOT/tools/convbdf -f -o \".rockbox/fonts/$font\" \"$ROOT/fonts/$o\" ";
 123         `$cmd`;
 124 }
 125
 126 sub copythemeicon {
 127         #copy the icon specified by the theme
 128
 129         $iconset =~ /\/(.*icons\/(.*))/i;
 130         `cp $ROOT/icons/$2 $1`;
 131 }
 132
 133 sub copythemeviewericon {
 134         #copy the viewer icon specified by the theme
 135
 136         $viewericon =~ /\/(.*icons\/(.*))/i;
 137         `cp $ROOT/icons/$2 $1`;
 138 }
 139
 140
 141 sub copywps {
 142     # we assume that we copy the WPS files from the same dir the WPSLIST
 143     # file is located in
 144     my $dir;
 145     my @filelist;
 146     my $file;
 147
 148     if($wpslist =~ /(.*)WPSLIST/) {
 149         $dir = $1;
 150 #        system("cp $dir/$wps .rockbox/wps/");
 151         # print "$req_t_wps $req_g_wps\n";
 152
 153         if (-e "$dir/$req_t_wps" ) {
 154           system("cp $dir/$req_t_wps .rockbox/wps/$wps");
 155
 156         } elsif (-e "$dir/$req_g_wps") {
 157            system("cp $dir/$req_g_wps .rockbox/wps/$wps");
 158
 159            open(WPSFILE, "$dir/$req_g_wps");
 160            while (<WPSFILE>) {
 161               $filelist[$#filelist + 1] = $1 if (/\|([^|]*?.bmp)\|/);
 162            }
 163            close(WPSFILE);
 164
 165            if ($#filelist >= 0) {
 166               if (-e "$dir/$wps_prefix/$req_g") {
 167                  foreach $file (@filelist) {
 168                      system("cp $dir/$wps_prefix/$req_g/$file .rockbox/wps/$wps_prefix/");
 169                  }
 170               }
 171               elsif (-e "$dir/$wps_prefix") {
 172                  foreach $file (@filelist) {
 173                      system("cp $dir/$wps_prefix/$file .rockbox/wps/$wps_prefix/");
 174                  }
 175               }
 176               else {
 177                   print STDERR "beep, no dir to copy WPS from!\n";
 178               }
 179            }
 180
 181        } else {
 182            print STDERR "Skipping $wps - no matching resolution.\n";
 183        }
 184     } else {
 185         print STDERR "No source directory!\n";
 186     }
 187 }
 188
 189 sub buildcfg {
 190     my $cfg = $wps;
 191     my @out;
 192
 193     $cfg =~ s/\.(r|)wps/.cfg/;
 194
 195     push @out, <<MOO
 196 \#
 197 \# $cfg generated by wpsbuild.pl
 198 \# $wps is made by $author
 199 \#
 200 wps: /.rockbox/wps/$wps
 201 MOO
 202 ;
 203     if($font) {
 204         push @out, "font: /.rockbox/fonts/$font\n";
 205     }
 206     if($fgcolor) {
 207         push @out, "foreground color: $fgcolor\n";
 208     }
 209     if($bgcolor) {
 210         push @out, "background color: $bgcolor\n";
 211     }
 212     if($statusbar) {
 213         push @out, "statusbar: $statusbar\n";
 214     }
 215     if($backdrop) {
 216         push @out, "backdrop: $backdrop\n";
 217     }
 218     if($lineselectstart) {
 219         push @out, "line selector start color: $lineselectstart\n";
 220     }
 221     if($lineselectend) {
 222         push @out, "line selector end color: $lineselectend\n";
 223     }
 224     if($selecttype) {
 225         push @out, "selector type: $selecttype\n";
 226     }
 227     if($iconset) {
 228         push @out, "iconset: $iconset\n";
 229     }
 230     if($viewericon) {
 231         push @out, "viewers iconset: $viewericon\n";
 232     }
 233     if($lineselecttextcolor) {
 234         push @out, "line selector text color: $lineselecttextcolor\n";
 235     }
 236     if($filetylecolor) {
 237         push @out, "filetype colours: $filetylecolor\n";
 238     }
 239     if($rwps && $has_remote ) {
 240         push @out, "rwps: /.rockbox/wps/$rwps\n";
 241     }
 242     if(-f ".rockbox/wps/$cfg") {
 243         print STDERR "wpsbuild warning: wps/$cfg already exists!\n";
 244     }
 245     else {
 246         open(CFG, ">.rockbox/themes/$cfg");
 247         print CFG @out;
 248         close(CFG);
 249     }
 250 }
 251
 252 # Get the LCD sizes first
 253 my ($main_height, $main_width, $main_depth) = getlcdsizes();
 254 my ($remote_height, $remote_width, $remote_depth) = getlcdsizes(1);
 255
 256 #print "LCD: ${main_height}x${main_width}x${main_depth}\n";
 257 $has_remote = 1 if ($remote_height && $remote_width && remote_depth);
 258
 259 open(WPS, "<$wpslist");
 260 while(<WPS>) {
 261     my $l = $_;
 262     if($l =~ /^ *\#/) {
 263         # skip comment
 264         next;
 265     }
 266     if($l =~ /^ *<(r|)wps>/i) {
 267         $isrwps = $1;
 268         $within = 1;
 269         # undef is a unary operator (!)
 270         undef $wps;
 271         undef $wps_prefix;
 272         undef $rwps;
 273         undef $width;
 274         undef $height;
 275         undef $font;
 276         undef $fgcolor;
 277         undef $bgcolor;
 278         undef $statusbar;
 279         undef $author;
 280         undef $req_g_wps;
 281         undef $req_t_wps;
 282         undef $backdrop;
 283         undef $lineselectstart;
 284         undef $lineselectend;
 285         undef $selecttype;
 286         undef $iconset;
 287         undef $viewericon;
 288         undef $lineselecttextcolor;
 289         undef $filetylecolor;
 290
 291         next;
 292     }
 293     if($within) {
 294         if($l =~ /^ *<\/${isrwps}wps>/i) {
 295             # Get the required width and height
 296             my ($rheight, $rwidth, $rdepth);
 297             if($isrwps) {
 298                 ($rheight, $rwidth, $rdepth) =
 299                          ($remote_height, $remote_width, $remote_depth);
 300             }
 301             else {
 302                 ($rheight, $rwidth, $rdepth) =
 303                          ($main_height, $main_width, $main_depth);
 304             }
 305
 306             if(!$rheight || !$rwidth) {
 307                 #printf STDERR "wpsbuild notice: No %sLCD size, skipping $wps\n",
 308                 #$isrwps?"remote ":"";
 309                 $within = 0;
 310                 next;
 311             }
 312             $wpslist =~ /(.*)WPSLIST/;
 313             my $wpsdir = $1;
 314         # If this WPS installable on this platform, one of the following
 315         # two files will be present
 316         foreach $d (@depthlist) {
 317                 next if ($d > $rdepth);
 318
 319                 $req_g = $rwidth . "x" . $rheight . "x" . $d;
 320
 321                 $req_g_wps = $wps_prefix . "." . $req_g . ".wps";
 322                 last if (-e "$wpsdir/$req_g_wps");
 323
 324                 if ($isrwps) {
 325                     $req_g = $req_g . "." . $main_width . "x" . $main_height . "x" . "$main_depth";
 326
 327                     $req_g_wps = $wps_prefix . "." . $req_g . ".wps";
 328                     last if (-e "$wpsdir/$req_g_wps");
 329                 }
 330             }
 331             $req_t_wps = $wps_prefix . ".txt" . ".wps";
 332
 333             #print "LCD: $wps wants $height x $width\n";
 334             #print "LCD: is $rheight x $rwidth\n";
 335
 336             #print "gwps: $wpsdir/$req_g_wps" . "\n";
 337             if (-e "$wpsdir/$req_g_wps" || -e "$wpsdir/$req_t_wps" ) {
 338                 #
 339                 # The target model has an LCD that is suitable for this
 340                 # WPS
 341                 #
 342                 #print "Size requirement is fine!\n";
 343                 mkdirs() if (-e "$wpsdir/$req_g_wps");
 344                 if(!$isrwps) {
 345                     # We only make .cfg files for <wps> sections:
 346                     buildcfg();
 347                 }
 348                 copywps();
 349             }
 350             else {
 351                 #print "(${wps_prefix}-${rwidth}x${rheight}x$rdepth) ";
 352                 #print "Skip $wps due to size restraints\n";
 353             }
 354             $within = 0;
 355         }
 356         elsif($l =~ /^Name: (.*)/i) {
 357             # Note that in the case this is within <rwps>, $wps will contain the
 358             # name of the rwps. Use $isrwps to figure out what type it is.
 359             $wps = $wps_prefix = $1;
 360             $wps_prefix =~ s/\.(r|)wps//;
 361             # print $wps_prefix . "\n";
 362         }
 363         elsif($l =~ /^RWPS: (.*)/i) {
 364             $rwps = $1;
 365         }
 366         elsif($l =~ /^RWPS\.${main_width}x${main_height}x$main_depth: (.*)/i) {
 367             $rwps = $1;
 368         }
 369         elsif($l =~ /^Author: (.*)/i) {
 370             $author = $1;
 371         }
 372         elsif($l =~ /^Width: (.*)/i) {
 373             $width = $1;
 374         }
 375         elsif($l =~ /^Width\.${main_width}x${main_height}x$main_depth: (.*)/i) {
 376             $width = $1;
 377         }
 378         elsif($l =~ /^Height: (.*)/i) {
 379             $height = $1;
 380         }
 381         elsif($l =~ /^Height\.${main_width}x${main_height}x$main_depth: (.*)/i) {
 382             $height = $1;
 383         }
 384         elsif($l =~ /^Font: (.*)/i) {
 385             $font = $1;
 386         }
 387         elsif($l =~ /^Foreground Color: (.*)/i) {
 388             $fgcolor = $1;
 389         }
 390         elsif($l =~ /^Background Color: (.*)/i) {
 391             $bgcolor = $1;
 392         }
 393         elsif($l =~ /^Font\.${main_width}x${main_height}x$main_depth: (.*)/i) {
 394             $font = $1;
 395             copythemefont();
 396         }
 397         elsif($l =~ /^Statusbar: (.*)/i) {
 398             $statusbar = $1;
 399         }
 400         elsif($l =~ /^Statusbar\.${main_width}x${main_height}x$main_depth: (.*)/i) {
 401             $statusbar = $1;
 402         }
 403         elsif($l =~ /^Backdrop: (.*)/i) {
 404             $backdrop = $1;
 405             copybackdrop();
 406         }
 407         elsif($l =~ /^Backdrop\.${main_width}x${main_height}x$main_depth: (.*)/i) {
 408             $backdrop = $1;
 409             copybackdrop();
 410         }
 411         elsif($l =~ /^line selector start color: (.*)/i) {
 412             $lineselectstart = $1;
 413         }
 414         elsif($l =~ /^line selector end color: (.*)/i) {
 415             $lineselectend = $1;
 416         }
 417         elsif($l =~ /^selector type: (.*)/i) {
 418             $selecttype = $1;
 419         }
 420         elsif($l =~ /^selector type\.${main_width}x${main_height}x$main_depth: (.*)/i) {
 421             $selecttype = $1;
 422         }
 423         elsif($l =~ /^iconset: (.*)/i) {
 424             $iconset = $1;
 425             copythemeicon();
 426         }
 427         elsif($l =~ /^iconset\.${main_width}x${main_height}x$main_depth: (.*)/i) {
 428             $iconset = $1;
 429             copythemeicon();
 430         }
 431         elsif($l =~ /^viewers iconset: (.*)/i) {
 432             $viewericon = $1;
 433             copythemeviewericon();
 434         }
 435         elsif($l =~ /^viewers iconset\.${main_width}x${main_height}x$main_depth: (.*)/i) {
 436             $viewericon = $1;
 437             copythemeviewericon();
 438         }
 439         elsif($l =~ /^line selector text color: (.*)/i) {
 440             $lineselecttextcolor = $1;
 441         }
 442         elsif($l =~ /^filetype colours: (.*)/i) {
 443             $filetylecolor = $1;
 444         }
 445         else{
 446                 #print "Unknown line:  $l!\n";
 447         }
 448
 449
 450
 451     }
 452 }
 453
 454 close(WPS);