wps/wpsbuild.pl

   1 #!/usr/bin/perl
   2 #             __________               __   ___.
   3 #   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4 #   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5 #   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6 #   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7 #                     \/            \/     \/    \/            \/
   8 # $Id$
   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 # These parameters are filled in as we parse wpslist
  35 my $req_size;
  36 my $req_g_wps;
  37 my $req_t;
  38 my $req_t_wps;
  39 my $wps;
  40 my $wps_prefix;
  41 my $sbs_prefix;
  42 my $rwps;
  43 my $sbs;
  44 my $sbs_w_size;
  45 my $rsbs;
  46 my $rsbs_w_size;
  47 my $width;
  48 my $height;
  49 my $font;
  50 my $fgcolor;
  51 my $bgcolor;
  52 my $statusbar;
  53 my $author;
  54 my $backdrop;
  55 my $lineselectstart;
  56 my $lineselectend;
  57 my $selecttype;
  58 my $iconset;
  59 my $viewericon;
  60 my $lineselecttextcolor;
  61 my $filetylecolor;
  62 my $listviewport;
  63 my $remotelistviewport;
  64
  65 # LCD sizes
  66 my ($main_height, $main_width, $main_depth);
  67 my ($remote_height, $remote_width, $remote_depth);
  68 my $has_remote;
  69
  70
  71 if(!$wpslist) {
  72     print "Usage: wpsbuilds.pl <WPSLIST> <target>\n",
  73     "Run this script in the root of the target build, and it will put all the\n",
  74     "stuff in $rbdir/wps/\n";
  75     exit;
  76 }
  77
  78 sub getlcdsizes
  79 {
  80     my ($remote) = @_;
  81
  82     open(GCC, ">gcctemp");
  83     if($remote) {
  84         # Get the remote LCD screen size
  85     print GCC <<STOP
  86 \#include "config.h"
  87 #ifdef HAVE_REMOTE_LCD
  88 Height: LCD_REMOTE_HEIGHT
  89 Width: LCD_REMOTE_WIDTH
  90 Depth: LCD_REMOTE_DEPTH
  91 #endif
  92 STOP
  93 ;
  94     }
  95     else {
  96     print GCC <<STOP
  97 \#include "config.h"
  98 Height: LCD_HEIGHT
  99 Width: LCD_WIDTH
 100 Depth: LCD_DEPTH
 101 STOP
 102 ;
 103 }
 104     close(GCC);
 105
 106     my $c="cat gcctemp | gcc $cppdef -I. -I$firmdir/export -E -P -";
 107
 108     #print "CMD $c\n";
 109
 110     open(GETSIZE, "$c|");
 111
 112     my ($height, $width, $depth);
 113     while(<GETSIZE>) {
 114         if($_ =~ /^Height: (\d*)/) {
 115             $height = $1;
 116         }
 117         elsif($_ =~ /^Width: (\d*)/) {
 118             $width = $1;
 119         }
 120         elsif($_ =~ /^Depth: (\d*)/) {
 121             $depth = $1;
 122         }
 123         if($height && $width && $depth) {
 124             last;
 125         }
 126     }
 127     close(GETSIZE);
 128     unlink("gcctemp");
 129
 130     return ($height, $width, $depth);
 131 }
 132
 133 sub mkdirs
 134 {
 135     my $wpsdir = $wps;
 136     $wpsdir =~ s/\.(r|)wps//;
 137     mkdir "$rbdir/wps", 0777;
 138     mkdir "$rbdir/themes", 0777;
 139
 140     if( -d "$rbdir/wps/$wpsdir") {
 141         #print STDERR "wpsbuild warning: directory wps/$wpsdir already exists!\n";
 142     }
 143     else
 144     {
 145        mkdir "$rbdir/wps/$wpsdir", 0777;
 146     }
 147 }
 148
 149 sub copybackdrop
 150 {
 151     #copy the backdrop file into the build dir
 152     if ($backdrop ne '') {
 153         my $dst = $backdrop;
 154         $dst =~ s/(\.[0-9]*x[0-9]*x[0-9]*)//;
 155         my $cmd = "cp $ROOT/$backdrop $rbdir/$dst";
 156         `$cmd`;
 157     }
 158 }
 159
 160 sub copythemefont
 161 {
 162     #copy the font specified by the theme
 163
 164     my $o=$font;
 165     $o =~ s/\.fnt/\.bdf/;
 166     mkdir "$rbdir/fonts";
 167     my $cmd ="$ROOT/tools/convbdf -f -o \"$rbdir/fonts/$font\" \"$ROOT/fonts/$o\" ";
 168     `$cmd`;
 169 }
 170
 171 sub copythemeicon
 172 {
 173     #copy the icon specified by the theme
 174
 175     if ($iconset ne '') {
 176         $iconset =~ s/.rockbox/$rbdir/;
 177         $iconset =~ /\/(.*icons\/(.*))/i;
 178         `cp $ROOT/icons/$2 $1`;
 179     }
 180 }
 181
 182 sub copythemeviewericon
 183 {
 184     #copy the viewer icon specified by the theme
 185
 186     if ($viewericon ne '') {
 187         $viewericon =~ s/.rockbox/$rbdir/;
 188         $viewericon =~ /\/(.*icons\/(.*))/i;
 189         `cp $ROOT/icons/$2 $1`;
 190     }
 191 }
 192
 193 sub copywps
 194 {
 195     # we assume that we copy the WPS files from the same dir the WPSLIST
 196     # file is located in
 197     my $dir;
 198     my @filelist;
 199     my $file;
 200     my $__sb;
 201
 202     if($wpslist =~ /(.*)WPSLIST/) {
 203         $dir = $1;
 204         $__sb = $sbs_prefix . "." . $req_size . ".sbs";
 205         #print "$req_t_wps $req_g_wps $sbs_prefix\n";
 206         #print "$dir/$__sb\n";
 207
 208 #        system("cp $dir/$wps .rockbox/wps/");
 209         # check for <name>.WIDTHxHEIGHTxDEPTH.sbs
 210         if (-e "$dir/$__sb") {
 211             system("cp $dir/$__sb $rbdir/wps/$sbs");
 212         }
 213         # check for <name>.WIDTHxHEIGHTxDEPTH.<model>.sbs and overwrite the
 214         # previous sb if needed
 215         $__sb = $sbs_prefix . "." . $req_size . "." . $modelname . ".sbs";
 216         if (-e "$dir/$__sb") {
 217             system("cp $dir/$__sb $rbdir/wps/$sbs");
 218         }
 219
 220         if (-e "$dir/$req_t_wps" ) {
 221           system("cp $dir/$req_t_wps $rbdir/wps/$wps");
 222
 223         } elsif (-e "$dir/$req_g_wps") {
 224            system("cp $dir/$req_g_wps $rbdir/wps/$wps");
 225
 226            open(WPSFILE, "$dir/$req_g_wps");
 227            while (<WPSFILE>) {
 228               $filelist[$#filelist + 1] = $1 if (/\|([^|]*?.bmp)\|/);
 229            }
 230            close(WPSFILE);
 231
 232            if ($#filelist >= 0) {
 233               if (-e "$dir/$wps_prefix/$req_size") {
 234                  foreach $file (@filelist) {
 235                      system("cp $dir/$wps_prefix/$req_size/$file $rbdir/wps/$wps_prefix/");
 236                  }
 237               }
 238               elsif (-e "$dir/$wps_prefix") {
 239                  foreach $file (@filelist) {
 240                      system("cp $dir/$wps_prefix/$file $rbdir/wps/$wps_prefix/");
 241                  }
 242               }
 243               else {
 244                   print STDERR "beep, no dir to copy WPS from!\n";
 245               }
 246            }
 247
 248        } else {
 249            print STDERR "Skipping $wps - no matching resolution.\n";
 250        }
 251     } else {
 252         print STDERR "No source directory!\n";
 253     }
 254 }
 255
 256 sub buildcfg {
 257     my $cfg = $wps;
 258     my @out;
 259
 260     $cfg =~ s/\.(r|)wps/.cfg/;
 261
 262     push @out, <<MOO
 263 \#
 264 \# $cfg generated by wpsbuild.pl
 265 \# $wps is made by $author
 266 \#
 267 wps: /$rbdir/wps/$wps
 268 MOO
 269 ;
 270     if(defined($sbs)) {
 271         if ($sbs eq '') {
 272             push @out, "sbs: -\n";
 273         } else {
 274             push @out, "sbs: /$rbdir/wps/$sbs\n";
 275         }
 276     }
 277     if(defined($rsbs)  && $has_remote) {
 278         if ($rsbs eq '') {
 279             push @out, "rsbs: -\n";
 280         } else {
 281             push @out, "rsbs: /$rbdir/wps/$rsbs\n";
 282         }
 283     }
 284     if($font) {
 285         if ($font eq '') {
 286             push @out, "font: -\n";
 287         } else {
 288             push @out, "font: /$rbdir/fonts/$font\n";
 289         }
 290     }
 291     if($fgcolor && $main_depth > 2) {
 292         push @out, "foreground color: $fgcolor\n";
 293     }
 294     if($bgcolor && $main_depth > 2) {
 295         push @out, "background color: $bgcolor\n";
 296     }
 297     if($statusbar) {
 298         if($rwps && $has_remote ) {
 299             push @out, "remote statusbar: $statusbar\n";
 300         }
 301         push @out, "statusbar: $statusbar\n";
 302     }
 303     if(defined($backdrop)) {
 304         if ($backdrop eq '') {
 305             push @out, "backdrop: -\n";
 306         } else {
 307             # clip resolution from filename
 308             $backdrop =~ s/(\.[0-9]*x[0-9]*x[0-9]*)//;
 309             push @out, "backdrop: /$rbdir/$backdrop\n";
 310         }
 311     }
 312     if($lineselectstart && $main_depth > 2) {
 313         push @out, "line selector start color: $lineselectstart\n";
 314     }
 315     if($lineselectend && $main_depth > 2) {
 316         push @out, "line selector end color: $lineselectend\n";
 317     }
 318     if($selecttype) {
 319         push @out, "selector type: $selecttype\n";
 320     }
 321     if(defined($iconset)) {
 322         if ($iconset eq '') {
 323             push @out, "iconset: -\n";
 324         } else {
 325             push @out, "iconset: $iconset\n";
 326         }
 327     }
 328     if(defined($viewericon)) {
 329         if ($viewericon eq '') {
 330             push @out, "viewers iconset: -\n";
 331         } else {
 332             push @out, "viewers iconset: $viewericon\n";
 333         }
 334     }
 335     if($lineselecttextcolor && $main_depth > 2 ) {
 336         push @out, "line selector text color: $lineselecttextcolor\n";
 337     }
 338     if($filetylecolor && $main_depth > 2) {
 339         if ($filetylecolor eq '') {
 340             push @out, "filetype colours: -\n";
 341         } else {
 342             push @out, "filetype colours: $filetylecolor\n";
 343         }
 344     }
 345     if($rwps && $has_remote ) {
 346         if ($rwps eq '') {
 347             push @out, "rwps: -\n";
 348         } else {
 349             push @out, "rwps: /$rbdir/wps/$rwps\n";
 350         }
 351     }
 352     if(defined($listviewport)) {
 353         if ($listviewport eq '') {
 354             push @out, "ui viewport: -\n";
 355         } else {
 356             push @out, "ui viewport: $listviewport\n";
 357         }
 358     }
 359     if(defined($remotelistviewport) && $has_remote) {
 360         if ($remotelistviewport eq '') {
 361             push @out, "remote ui viewport: -\n";
 362         } else {
 363             push @out, "remote ui viewport: $listviewport\n";
 364         }
 365     }
 366     if(-f "$rbdir/wps/$cfg") {
 367         print STDERR "wpsbuild warning: wps/$cfg already exists!\n";
 368     }
 369     else {
 370         open(CFG, ">$rbdir/themes/$cfg");
 371         print CFG @out;
 372         close(CFG);
 373     }
 374 }
 375
 376 # Get the LCD sizes first
 377 ($main_height, $main_width, $main_depth) = getlcdsizes();
 378 ($remote_height, $remote_width, $remote_depth) = getlcdsizes(1);
 379
 380 #print "LCD: ${main_width}x${main_height}x${main_depth}\n";
 381 $has_remote = 1 if ($remote_height && $remote_width && $remote_depth);
 382
 383 my $isrwps;
 384 my $within;
 385
 386 open(WPS, "<$wpslist");
 387 while(<WPS>) {
 388     my $l = $_;
 389
 390     # remove CR
 391     $l =~ s/\r//g;
 392     if($l =~ /^ *\#/) {
 393         # skip comment
 394         next;
 395     }
 396     if($l =~ /^ *<(r|)wps>/i) {
 397         $isrwps = $1;
 398         $within = 1;
 399         # undef is a unary operator (!)
 400         undef $wps;
 401         undef $wps_prefix;
 402         undef $rwps;
 403         undef $sbs;
 404         undef $rsbs;
 405         undef $width;
 406         undef $height;
 407         undef $font;
 408         undef $fgcolor;
 409         undef $bgcolor;
 410         undef $statusbar;
 411         undef $author;
 412         undef $req_g_wps;
 413         undef $req_t_wps;
 414         undef $backdrop;
 415         undef $lineselectstart;
 416         undef $lineselectend;
 417         undef $selecttype;
 418         undef $iconset;
 419         undef $viewericon;
 420         undef $lineselecttextcolor;
 421         undef $filetylecolor;
 422         undef $listviewport;
 423         undef $remotelistviewport;
 424
 425         next;
 426     }
 427     if($within) {
 428         if($l =~ /^ *<\/${isrwps}wps>/i) {
 429             # Get the required width and height
 430             my ($rheight, $rwidth, $rdepth);
 431             if($isrwps) {
 432                 ($rheight, $rwidth, $rdepth) =
 433                          ($remote_height, $remote_width, $remote_depth);
 434             }
 435             else {
 436                 ($rheight, $rwidth, $rdepth) =
 437                          ($main_height, $main_width, $main_depth);
 438             }
 439
 440             if(!$rheight || !$rwidth) {
 441                 #printf STDERR "wpsbuild notice: No %sLCD size, skipping $wps\n",
 442                 #$isrwps?"remote ":"";
 443                 $within = 0;
 444                 next;
 445             }
 446             $wpslist =~ /(.*)WPSLIST/;
 447             my $wpsdir = $1;
 448             # If this WPS installable on this platform, one of the following
 449             # two files will be present
 450             foreach my $d (@depthlist) {
 451                 next if ($d > $rdepth);
 452
 453                 $req_size = $rwidth . "x" . $rheight . "x" . $d;
 454
 455                 # check for model specific wps
 456                 $req_g_wps = $wps_prefix . "." . $req_size . "." . $modelname . ".wps";
 457                 last if (-e "$wpsdir/$req_g_wps");
 458
 459                 # check for normal wps (with WIDTHxHEIGHTxDEPTH)
 460                 $req_g_wps = $wps_prefix . "." . $req_size . ".wps";
 461                 last if (-e "$wpsdir/$req_g_wps");
 462
 463                 if ($isrwps) {
 464                     $req_size = $req_size . "." . $main_width . "x" . $main_height . "x" . "$main_depth";
 465
 466                     $req_g_wps = $wps_prefix . "." . $req_size . ".wps";
 467                     last if (-e "$wpsdir/$req_g_wps");
 468                 }
 469             }
 470             $req_t_wps = $wps_prefix . ".txt" . ".wps";
 471
 472             #print "LCD: $wps wants $width x $height\n";
 473             #print "LCD: is $rwidth x $rheight\n";
 474
 475             #print "gwps: $wpsdir/$req_g_wps" . "\n";
 476             if (-e "$wpsdir/$req_g_wps" || -e "$wpsdir/$req_t_wps" ) {
 477                 #
 478                 # The target model has an LCD that is suitable for this
 479                 # WPS
 480                 #
 481                 #print "Size requirement is fine!\n";
 482                 mkdirs() if (-e "$wpsdir/$req_g_wps");
 483                 # Do the copying before building the .cfg - buildcfg()
 484                 # mangles some filenames
 485                 if ($backdrop) {
 486                     copybackdrop();
 487                 }
 488                 if ($iconset) {
 489                     copythemeicon();
 490                 }
 491                 if ($viewericon) {
 492                     copythemeviewericon();
 493                 }
 494                 if ($font) {
 495                     copythemefont();
 496                 }
 497                 if(!$isrwps) {
 498                     # We only make .cfg files for <wps> sections:
 499                     buildcfg();
 500                 }
 501                 copywps();
 502             }
 503             else {
 504                 #print "(${wps_prefix}-${rwidth}x${rheight}x$rdepth) ";
 505                 #print "Skip $wps due to size restraints\n";
 506             }
 507             $within = 0;
 508         }
 509         elsif($l =~ /^Name: *(.*)/i) {
 510             # Note that in the case this is within <rwps>, $wps will contain the
 511             # name of the rwps. Use $isrwps to figure out what type it is.
 512             $wps = $wps_prefix = $1;
 513             $wps_prefix =~ s/\.(r|)wps//;
 514             #print $wps_prefix . "\n";
 515         }
 516         elsif($l =~ /^RWPS: *(.*)/i) {
 517             $rwps = $1;
 518         }
 519         elsif($l =~ /^RWPS\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 520             $rwps = $1;
 521         }
 522         elsif($l =~ /^SBS: *(.*)/i) {
 523             $sbs = $sbs_prefix = $1;
 524             $sbs_prefix =~ s/\.(r|)sbs//;
 525         }
 526         elsif($l =~ /^SBS\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 527             $sbs = $sbs_prefix = $1;
 528             $sbs_prefix =~ s/\.(r|)sbs//;
 529         }
 530         elsif($l =~ /^RSBS: *(.*)/i) {
 531             $rsbs = $1;
 532         }
 533         elsif($l =~ /^RSBS\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 534             $rsbs = $1;
 535         }
 536         elsif($l =~ /^Author: *(.*)/i) {
 537             $author = $1;
 538         }
 539         elsif($l =~ /^Width: *(.*)/i) {
 540             $width = $1;
 541         }
 542         elsif($l =~ /^Width\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 543             $width = $1;
 544         }
 545         elsif($l =~ /^Height: *(.*)/i) {
 546             $height = $1;
 547         }
 548         elsif($l =~ /^Height\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 549             $height = $1;
 550         }
 551         elsif($l =~ /^Font: *(.*)/i) {
 552             $font = $1;
 553         }
 554         elsif($l =~ /^Font\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 555             $font = $1;
 556         }
 557         elsif($l =~ /^Foreground Color: *(.*)/i) {
 558             $fgcolor = $1;
 559         }
 560         elsif($l =~ /^Background Color: *(.*)/i) {
 561             $bgcolor = $1;
 562         }
 563         elsif($l =~ /^Statusbar: *(.*)/i) {
 564             $statusbar = $1;
 565         }
 566         elsif($l =~ /^Statusbar\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 567             $statusbar = $1;
 568         }
 569         elsif($l =~ /^Backdrop: *(.*)/i) {
 570             $backdrop = $1;
 571         }
 572         elsif($l =~ /^Backdrop\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 573             $backdrop = $1;
 574         }
 575         elsif($l =~ /^line selector start color: *(.*)/i) {
 576             $lineselectstart = $1;
 577         }
 578         elsif($l =~ /^line selector end color: *(.*)/i) {
 579             $lineselectend = $1;
 580         }
 581         elsif($l =~ /^selector type: *(.*)/i) {
 582             $selecttype = $1;
 583         }
 584         elsif($l =~ /^selector type\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 585             $selecttype = $1;
 586         }
 587         elsif($l =~ /^iconset: *(.*)/i) {
 588             $iconset = $1;
 589         }
 590         elsif($l =~ /^iconset\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 591             $iconset = $1;
 592         }
 593         elsif($l =~ /^viewers iconset: *(.*)/i) {
 594             $viewericon = $1;
 595         }
 596         elsif($l =~ /^viewers iconset\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 597             $viewericon = $1;
 598         }
 599         elsif($l =~ /^line selector text color: *(.*)/i) {
 600             $lineselecttextcolor = $1;
 601         }
 602         elsif($l =~ /^filetype colours: *(.*)/i) {
 603             $filetylecolor = $1;
 604         }
 605         elsif($l =~ /^ui viewport: *(.*)/i) {
 606             $listviewport = $1;
 607         }
 608         elsif($l =~ /^ui viewport\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 609             $listviewport = $1;
 610         }
 611         elsif($l =~ /^remote ui viewport: *(.*)/i) {
 612             $remotelistviewport = $1;
 613         }
 614         elsif($l =~ /^remote ui viewport\.${main_width}x${main_height}x$main_depth: *(.*)/i) {
 615             $remotelistviewport = $1;
 616         }
 617         else{
 618             #print "Unknown line:  $l!\n";
 619         }
 620     }
 621 }
 622
 623 close(WPS);