tools/buildzip.pl

   1 #!/usr/bin/perl
   2 #             __________               __   ___.
   3 #   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4 #   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5 #   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6 #   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7 #                     \/            \/     \/    \/            \/
   8 # $Id$
   9 #
  10
  11 use strict;
  12
  13 use File::Copy; # For move() and copy()
  14 use File::Find; # For find()
  15 use File::Path qw(mkpath rmtree); # For rmtree()
  16 use Cwd;
  17 use Cwd 'abs_path';
  18 use Getopt::Long qw(:config pass_through);    # pass_through so not confused by -DTYPE_STUFF
  19
  20 my $ROOT="..";
  21
  22 my $ziptool;
  23 my $output;
  24 my $verbose;
  25 my $install;
  26 my $exe;
  27 my $target;
  28 my $modelname;
  29 my $incfonts;
  30 my $target_id; # passed in, not currently used
  31 my $rbdir; # can be non-.rockbox for special builds
  32 my $app;
  33 my $mklinks;
  34
  35 sub glob_mkdir {
  36     my ($dir) = @_;
  37     mkpath ($dir, $verbose, 0777);
  38     return 1;
  39 }
  40
  41 sub glob_install {
  42     my ($_src, $dest, $opts) = @_;
  43
  44     unless ($opts) {
  45         $opts = "-m 0664";
  46     }
  47
  48     foreach my $src (glob($_src)) {
  49         unless ( -d $src || !(-e $src)) {
  50             system("install $opts \"$src\" \"$dest\"");
  51             print "install $opts \"$src\" -> \"$dest\"\n" if $verbose;
  52         }
  53     }
  54     return 1;
  55 }
  56
  57 sub glob_copy {
  58     my ($pattern, $destination) = @_;
  59     print "glob_copy: $pattern -> $destination\n" if $verbose;
  60     foreach my $path (glob($pattern)) {
  61         copy($path, $destination);
  62     }
  63 }
  64
  65 sub glob_move {
  66     my ($pattern, $destination) = @_;
  67     print "glob_move: $pattern -> $destination\n" if $verbose;
  68     foreach my $path (glob($pattern)) {
  69         move($path, $destination);
  70     }
  71 }
  72
  73 sub glob_unlink {
  74     my ($pattern) = @_;
  75     print "glob_unlink: $pattern\n" if $verbose;
  76     foreach my $path (glob($pattern)) {
  77         unlink($path);
  78     }
  79 }
  80
  81 sub find_copyfile {
  82     my ($pattern, $destination) = @_;
  83     print "find_copyfile: $pattern -> $destination\n" if $verbose;
  84     return sub {
  85         my $path = $_;
  86         my $source = getcwd();
  87         if ($path =~ $pattern && filesize($path) > 0 && !($path =~ /$rbdir/)) {
  88             if($mklinks) {
  89                 print "link $path $destination\n" if $verbose;
  90                 symlink($source.'/'.$path, $destination.'/'.$path);
  91             } else {
  92                 print "cp $path $destination\n" if $verbose;
  93                 copy($path, $destination);
  94                 chmod(0755, $destination.'/'.$path);
  95             }
  96         }
  97     }
  98 }
  99
 100 sub find_installfile {
 101     my ($pattern, $destination) = @_;
 102     print "find_installfile: $pattern -> $destination\n" if $verbose;
 103     return sub {
 104         my $path = $_;
 105         if ($path =~ $pattern) {
 106         print "FIND_INSTALLFILE: $path\n";
 107             glob_install($path, $destination);
 108         }
 109     }
 110 }
 111
 112
 113 sub make_install {
 114     my ($src, $dest) = @_;
 115
 116     my $bindir = $dest;
 117     my $libdir = $dest;
 118     my $userdir = $dest;
 119
 120     my @plugins = ( "games", "apps", "demos", "viewers" );
 121     my @userstuff = ( "backdrops", "codepages", "docs", "fonts", "langs", "themes", "wps", "eqs", "icons" );
 122     my @files = ();
 123
 124     if ($app) {
 125         $bindir .= "/bin";
 126         $libdir .= "/lib/rockbox";
 127         $userdir .= "/share/rockbox";
 128     } else {
 129         # for non-app builds we expect the prefix to be the dir above .rockbox
 130         $bindir .= "/$rbdir";
 131         $libdir = $userdir = $bindir;
 132     }
 133     if ($dest =~ /\/dev\/null/) {
 134         die "ERROR: No PREFIX given\n"
 135     }
 136
 137     if ((!$app) && -e $bindir && -e $src && (abs_path($bindir) eq abs_path($src))) {
 138         return 1;
 139     }
 140
 141     # binary
 142     unless ($exe eq "") {
 143         unless (glob_mkdir($bindir)) {
 144             return 0;
 145         }
 146         glob_install($exe, $bindir, "-m 0775");
 147     }
 148
 149     # codecs
 150     unless (glob_mkdir("$libdir/codecs")) {
 151         return 0;
 152     }
 153     # Android has codecs installed as native libraries so they are not needed
 154     # in the zip.
 155     if ($modelname !~ /android/) {
 156         glob_install("$src/codecs/*", "$libdir/codecs", "-m 0755");
 157     }
 158
 159     # plugins
 160     unless (glob_mkdir("$libdir/rocks")) {
 161         return 0;
 162     }
 163     foreach my $t (@plugins) {
 164         unless (glob_mkdir("$libdir/rocks/$t")) {
 165             return 0;
 166         }
 167         glob_install("$src/rocks/$t/*", "$libdir/rocks/$t", "-m 0755");
 168     }
 169
 170     # rocks/viewers/lua
 171     unless (glob_mkdir("$libdir/rocks/viewers/lua")) {
 172         return 0;
 173     }
 174     glob_install("$src/rocks/viewers/lua/*", "$libdir/rocks/viewers/lua");
 175
 176     # all the rest directories
 177     foreach my $t (@userstuff) {
 178         unless (glob_mkdir("$userdir/$t")) {
 179             return 0;
 180         }
 181         glob_install("$src/$t/*", "$userdir/$t");
 182     }
 183
 184     # wps/ subfolders and bitmaps
 185     opendir(DIR, $src . "/wps");
 186     @files = readdir(DIR);
 187     closedir(DIR);
 188
 189     foreach my $_dir (@files) {
 190         my $dir = "wps/" . $_dir;
 191         if ( -d "$src/$dir" && $_dir !~ /\.\.?/) {
 192             unless (glob_mkdir("$userdir/$dir")) {
 193                 return 0;
 194             }
 195             glob_install("$src/$dir/*", "$userdir/$dir");
 196         }
 197     }
 198
 199     # rest of the files, excluding the binary
 200     opendir(DIR,$src);
 201     @files = readdir(DIR);
 202     closedir(DIR);
 203
 204     foreach my $file (grep (/[a-zA-Z]+\.(txt|config|ignore|sh)/,@files)) {
 205         glob_install("$src/$file", "$userdir/");
 206     }
 207     return 1;
 208 }
 209
 210 # Get options
 211 GetOptions ( 'r|root=s'      => \$ROOT,
 212              'z|ziptool:s'   => \$ziptool,
 213              'm|modelname=s' => \$modelname,  # The model name as used in ARCHOS in the root makefile
 214              'i|id=s'        => \$target_id,  # The target id name as used in TARGET_ID in the root makefile
 215              'o|output:s'    => \$output,
 216              'f|fonts=s'     => \$incfonts,   # 0 - no fonts, 1 - fonts only 2 - fonts and package
 217              'v|verbose'     => \$verbose,
 218              'install=s'     => \$install, # install destination
 219              'rbdir:s'       => \$rbdir, # If we want to put in a different directory
 220              'l|link'        => \$mklinks, # If we want to create links instead of copying files
 221              'a|app:s'       => \$app, # Is this an Application build?
 222     );
 223
 224 # GetOptions() doesn't remove the params from @ARGV if their value was ""
 225 # Thus we use the ":" for those for which we use a default value in case of ""
 226 # and assign the default value afterwards
 227 if ($ziptool eq '') {
 228     $ziptool = "zip -r9";
 229 }
 230 if ($output eq '') {
 231     $output = "rockbox.zip"
 232 }
 233 if ($rbdir eq '') {
 234     $rbdir = ".rockbox";
 235 }
 236
 237 # Now @ARGV shuold be free of any left-overs GetOptions left
 238 ($target, $exe) = @ARGV;
 239
 240 my $firmdir="$ROOT/firmware";
 241 my $appsdir="$ROOT/apps";
 242 my $viewer_bmpdir="$ROOT/apps/plugins/bitmaps/viewer_defaults";
 243
 244 my $cppdef = $target;
 245
 246 sub gettargetinfo {
 247     open(GCC, ">gcctemp");
 248     # Get the LCD screen depth and graphical status
 249     print GCC <<STOP
 250 \#include "config.h"
 251 #ifdef HAVE_LCD_BITMAP
 252 Bitmap: yes
 253 Depth: LCD_DEPTH
 254 LCD Width: LCD_WIDTH
 255 LCD Height: LCD_HEIGHT
 256 Icon Width: CONFIG_DEFAULT_ICON_WIDTH
 257 Icon Height: CONFIG_DEFAULT_ICON_HEIGHT
 258 #endif
 259 Codec: CONFIG_CODEC
 260 #ifdef HAVE_REMOTE_LCD
 261 Remote Depth: LCD_REMOTE_DEPTH
 262 Remote Icon Width: CONFIG_REMOTE_DEFAULT_ICON_WIDTH
 263 Remote Icon Height: CONFIG_REMOTE_DEFAULT_ICON_HEIGHT
 264 #else
 265 Remote Depth: 0
 266 #endif
 267 #ifdef HAVE_RECORDING
 268 Recording: yes
 269 #endif
 270 STOP
 271 ;
 272     close(GCC);
 273
 274     my $c="cat gcctemp | gcc $cppdef -I. -I$firmdir/export -E -P -";
 275
 276     # print STDERR "CMD $c\n";
 277
 278     open(TARGET, "$c|");
 279
 280     my ($bitmap, $width, $height, $depth, $swcodec, $icon_h, $icon_w);
 281     my ($remote_depth, $remote_icon_h, $remote_icon_w);
 282     my ($recording);
 283     my $icon_count = 1;
 284     while(<TARGET>) {
 285         # print STDERR "DATA: $_";
 286         if($_ =~ /^Bitmap: (.*)/) {
 287             $bitmap = $1;
 288         }
 289         elsif($_ =~ /^Depth: (\d*)/) {
 290             $depth = $1;
 291         }
 292         elsif($_ =~ /^LCD Width: (\d*)/) {
 293             $width = $1;
 294         }
 295         elsif($_ =~ /^LCD Height: (\d*)/) {
 296             $height = $1;
 297         }
 298         elsif($_ =~ /^Icon Width: (\d*)/) {
 299             $icon_w = $1;
 300         }
 301         elsif($_ =~ /^Icon Height: (\d*)/) {
 302             $icon_h = $1;
 303         }
 304         elsif($_ =~ /^Codec: (\d*)/) {
 305             # SWCODEC is 1, the others are HWCODEC
 306             $swcodec = ($1 == 1);
 307         }
 308         elsif($_ =~ /^Remote Depth: (\d*)/) {
 309             $remote_depth = $1;
 310         }
 311         elsif($_ =~ /^Remote Icon Width: (\d*)/) {
 312             $remote_icon_w = $1;
 313         }
 314         elsif($_ =~ /^Remote Icon Height: (\d*)/) {
 315             $remote_icon_h = $1;
 316         }
 317         if($_ =~ /^Recording: (.*)/) {
 318             $recording = $1;
 319         }
 320     }
 321     close(TARGET);
 322     unlink("gcctemp");
 323
 324     return ($bitmap, $depth, $width, $height, $icon_w, $icon_h, $recording,
 325             $swcodec, $remote_depth, $remote_icon_w, $remote_icon_h);
 326 }
 327
 328 sub filesize {
 329     my ($filename)=@_;
 330     my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
 331         $atime,$mtime,$ctime,$blksize,$blocks)
 332         = stat($filename);
 333     return $size;
 334 }
 335
 336 sub create_failsafefiles {
 337     my ($dir, $remote_depth) = @_;
 338     my $text = "# Dummy file to allow Rockbox to reset to the default skin config.
 339 # Do not edit this file.  It's never actually loaded by Rockbox.";
 340     open (FOO, ">$dir/wps/rockbox_failsafe.wps");
 341     print FOO $text;
 342     close(FOO);
 343     open (FOO, ">$dir/wps/rockbox_failsafe.sbs");
 344     print FOO $text;
 345     close(FOO);
 346     open (FOO, ">$dir/wps/rockbox_failsafe.fms");
 347     print FOO $text;
 348     close(FOO);
 349     if ($remote_depth) {
 350         open (FOO, ">$dir/wps/rockbox_failsafe.rwps");
 351         print FOO $text;
 352         close(FOO);
 353         open (FOO, ">$dir/wps/rockbox_failsafe.rsbs");
 354         print FOO $text;
 355         close(FOO);
 356         open (FOO, ">$dir/wps/rockbox_failsafe.rfms");
 357         print FOO $text;
 358         close(FOO);
 359     }
 360     open (FOO, ">$dir/themes/rockbox_failsafe.cfg");
 361     print FOO <<STOP
 362 # This config has been autogenerated to reload the failsafe setup
 363 wps: $dir/wps/rockbox_failsafe.wps
 364 sbs: $dir/wps/rockbox_failsafe.sbs
 365 fms: $dir/wps/rockbox_failsafe.fms
 366 STOP
 367 ;
 368     if ($remote_depth) {
 369     print FOO <<STOP
 370 rwps: $dir/wps/rockbox_failsafe.rwps
 371 rsbs: $dir/wps/rockbox_failsafe.rsbs
 372 rfms: $dir/wps/rockbox_failsafe.rfms
 373 STOP
 374 ;
 375     }
 376     print FOO <<STOP
 377 statusbar: top
 378 font: 08-Schumacher-Clean.fnt
 379 foreground color: 000000
 380 background color: B6C6E5
 381 selector type: bar (inverse)
 382 backdrop: -
 383 STOP
 384 ;
 385     close(FOO);
 386 }
 387
 388 sub buildzip {
 389     my ($image, $fonts)=@_;
 390     my $libdir = $install;
 391     my $temp_dir = ".rockbox";
 392
 393     print "buildzip: image=$image fonts=$fonts\n" if $verbose;
 394
 395     my ($bitmap, $depth, $width, $height, $icon_w, $icon_h, $recording,
 396         $swcodec, $remote_depth, $remote_icon_w, $remote_icon_h) =
 397       &gettargetinfo();
 398
 399     # print "Bitmap: $bitmap\nDepth: $depth\nSwcodec: $swcodec\n";
 400
 401     # remove old traces
 402     rmtree($temp_dir);
 403
 404     glob_mkdir($temp_dir);
 405
 406     if(!$bitmap) {
 407         # always disable fonts on non-bitmap targets
 408         $fonts = 0;
 409     }
 410     if($fonts) {
 411         glob_mkdir("$temp_dir/fonts");
 412         chdir "$temp_dir/fonts";
 413         my $cmd = "$ROOT/tools/convbdf -f $ROOT/fonts/*bdf >/dev/null 2>&1";
 414         print($cmd."\n") if $verbose;
 415         system($cmd);
 416         chdir("../../");
 417
 418         if($fonts < 2) {
 419           # fonts-only package, return
 420           return;
 421         }
 422     }
 423
 424     # create the file so the database does not try indexing a folder
 425     open(IGNORE, ">$temp_dir/database.ignore")  || die "can't open database.ignore";
 426     close(IGNORE);
 427
 428     # the samsung ypr0 has a loader script that's needed in the zip
 429     if ($modelname =~ /samsungypr0/) {
 430         glob_copy("$ROOT/utils/ypr0tools/rockbox.sh", "$temp_dir/");
 431     }
 432
 433     glob_mkdir("$temp_dir/langs");
 434     glob_mkdir("$temp_dir/rocks");
 435     glob_mkdir("$temp_dir/rocks/games");
 436     glob_mkdir("$temp_dir/rocks/apps");
 437     glob_mkdir("$temp_dir/rocks/demos");
 438     glob_mkdir("$temp_dir/rocks/viewers");
 439
 440     if ($recording) {
 441         glob_mkdir("$temp_dir/recpresets");
 442     }
 443
 444     if($swcodec) {
 445         glob_mkdir("$temp_dir/eqs");
 446
 447         glob_copy("$ROOT/apps/eqs/*.cfg", "$temp_dir/eqs/"); # equalizer presets
 448     }
 449
 450     glob_mkdir("$temp_dir/wps");
 451     glob_mkdir("$temp_dir/themes");
 452     if ($bitmap) {
 453         open(THEME, ">$temp_dir/themes/rockbox_default_icons.cfg");
 454         print THEME <<STOP
 455 # this config file was auto-generated to make it
 456 # easy to reset the icons back to default
 457 iconset: -
 458 # taken from apps/gui/icon.c
 459 viewers iconset: /$rbdir/icons/viewers.bmp
 460 remote iconset: -
 461 # taken from apps/gui/icon.c
 462 remote viewers iconset: /$rbdir/icons/remote_viewers.bmp
 463
 464 STOP
 465 ;
 466         close(THEME);
 467     }
 468
 469     glob_mkdir("$temp_dir/codepages");
 470
 471     if($bitmap) {
 472         system("$ROOT/tools/codepages");
 473     }
 474     else {
 475         system("$ROOT/tools/codepages -m");
 476     }
 477
 478     glob_move('*.cp', "$temp_dir/codepages/");
 479
 480     if($bitmap && $depth > 1) {
 481         glob_mkdir("$temp_dir/backdrops");
 482     }
 483
 484     glob_mkdir("$temp_dir/codecs");
 485
 486     # Android has codecs installed as native libraries so they are not needed
 487     # in the zip.
 488     if ($modelname !~ /android/) {
 489         find(find_copyfile(qr/.*\.codec/, abs_path("$temp_dir/codecs/")), 'apps/codecs');
 490     }
 491
 492     # remove directory again if no codec was copied
 493     rmdir("$temp_dir/codecs");
 494
 495     find(find_copyfile(qr/\.(rock|ovl|lua)/, abs_path("$temp_dir/rocks/")), 'apps/plugins');
 496
 497     # exclude entries for the image file types not supported by the imageviewer for the target.
 498     my $viewers = "$ROOT/apps/plugins/viewers.config";
 499     my $c="cat $viewers | gcc $cppdef -I. -I$firmdir/export -E -P -include config.h -";
 500
 501     open VIEWERS, "$c|" or die "can't open viewers.config";
 502     my @viewers = <VIEWERS>;
 503     close VIEWERS;
 504
 505     open VIEWERS, ">$temp_dir/viewers.config" or
 506         die "can't create $temp_dir/viewers.config";
 507
 508     foreach my $line (@viewers) {
 509         if ($line =~ /([^,]*),([^,]*),/) {
 510             my ($ext, $plugin)=($1, $2);
 511             my $r = "${plugin}.rock";
 512             my $oname;
 513
 514             my $dir = $r;
 515             my $name;
 516
 517             # strip off the last slash and file name part
 518             $dir =~ s/(.*)\/(.*)/$1/;
 519             # store the file name part
 520             $name = $2;
 521
 522             # get .ovl name (file part only)
 523             $oname = $name;
 524             $oname =~ s/\.rock$/.ovl/;
 525
 526             # print STDERR "$ext $plugin $dir $name $r\n";
 527
 528             if(-e "$temp_dir/rocks/$name") {
 529                 if($dir ne "rocks") {
 530                     # target is not 'rocks' but the plugins are always in that
 531                     # dir at first!
 532                     move("$temp_dir/rocks/$name", "$temp_dir/rocks/$r");
 533                 }
 534                 print VIEWERS $line;
 535             }
 536             elsif(-e "$temp_dir/rocks/$r") {
 537                 # in case the same plugin works for multiple extensions, it
 538                 # was already moved to the viewers dir
 539                 print VIEWERS $line;
 540             }
 541
 542             if(-e "$temp_dir/rocks/$oname") {
 543                 # if there's an "overlay" file for the .rock, move that as
 544                 # well
 545                 move("$temp_dir/rocks/$oname", "$temp_dir/rocks/$dir");
 546             }
 547         }
 548     }
 549     close VIEWERS;
 550
 551     open CATEGORIES, "$ROOT/apps/plugins/CATEGORIES" or
 552         die "can't open CATEGORIES";
 553     my @rock_targetdirs = <CATEGORIES>;
 554     close CATEGORIES;
 555     foreach my $line (@rock_targetdirs) {
 556         if ($line =~ /([^,]*),(.*)/) {
 557             my ($plugin, $dir)=($1, $2);
 558             move("$temp_dir/rocks/${plugin}.rock", "$temp_dir/rocks/$dir/${plugin}.rock");
 559             if(-e "$temp_dir/rocks/${plugin}.ovl") {
 560                 # if there's an "overlay" file for the .rock, move that as
 561                 # well
 562                 move("$temp_dir/rocks/${plugin}.ovl", "$temp_dir/rocks/$dir");
 563             }
 564             if(-e "$temp_dir/rocks/${plugin}.lua") {
 565                 # if this is a lua script, move it to the appropriate dir
 566                 move("$temp_dir/rocks/${plugin}.lua", "$temp_dir/rocks/$dir/");
 567             }
 568         }
 569     }
 570
 571     glob_unlink("$temp_dir/rocks/*.lua"); # Clean up unwanted *.lua files (e.g. actions.lua, buttons.lua)
 572
 573     if ($bitmap) {
 574         glob_mkdir("$temp_dir/icons");
 575         copy("$viewer_bmpdir/viewers.${icon_w}x${icon_h}x$depth.bmp", "$temp_dir/icons/viewers.bmp");
 576         if ($remote_depth) {
 577             copy("$viewer_bmpdir/remote_viewers.${remote_icon_w}x${remote_icon_h}x$remote_depth.bmp", "$temp_dir/icons/remote_viewers.bmp");
 578         }
 579     }
 580
 581     copy("$ROOT/apps/tagnavi.config", "$temp_dir/");
 582     copy("$ROOT/apps/plugins/disktidy.config", "$temp_dir/rocks/apps/");
 583
 584     if($bitmap) {
 585         copy("$ROOT/apps/plugins/sokoban.levels", "$temp_dir/rocks/games/sokoban.levels"); # sokoban levels
 586         copy("$ROOT/apps/plugins/snake2.levels", "$temp_dir/rocks/games/snake2.levels"); # snake2 levels
 587         copy("$ROOT/apps/plugins/rockbox-fonts.config", "$temp_dir/rocks/viewers/");
 588     }
 589
 590     if(-e "$temp_dir/rocks/demos/pictureflow.rock") {
 591         copy("$ROOT/apps/plugins/bitmaps/native/pictureflow_emptyslide.100x100x16.bmp",
 592              "$temp_dir/rocks/demos/pictureflow_emptyslide.bmp");
 593         my ($pf_logo);
 594         if ($width < 200) {
 595             $pf_logo = "pictureflow_logo.100x18x16.bmp";
 596         } else {
 597             $pf_logo = "pictureflow_logo.193x34x16.bmp";
 598         }
 599         copy("$ROOT/apps/plugins/bitmaps/native/$pf_logo",
 600              "$temp_dir/rocks/demos/pictureflow_splash.bmp");
 601
 602     }
 603     create_failsafefiles($temp_dir, $remote_depth);
 604
 605     if($image) {
 606         # image is blank when this is a simulator
 607         if( filesize("rockbox.ucl") > 1000 ) {
 608             copy("rockbox.ucl", "$temp_dir/rockbox.ucl");  # UCL for flashing
 609         }
 610         if( filesize("rombox.ucl") > 1000) {
 611             copy("rombox.ucl", "$temp_dir/rombox.ucl");  # UCL for flashing
 612         }
 613
 614         # Check for rombox.target
 615         if ($image=~/(.*)\.(\w+)$/)
 616         {
 617             my $romfile = "rombox.$2";
 618             if (filesize($romfile) > 1000)
 619             {
 620                 copy($romfile, "$temp_dir/$romfile");
 621             }
 622         }
 623     }
 624
 625     glob_mkdir("$temp_dir/docs");
 626     for(("COPYING",
 627          "LICENSES",
 628          "KNOWN_ISSUES"
 629         )) {
 630         copy("$ROOT/docs/$_", "$temp_dir/docs/$_.txt");
 631     }
 632     if ($fonts) {
 633         copy("$ROOT/docs/profontdoc.txt", "$temp_dir/docs/profontdoc.txt");
 634     }
 635     for(("sample.colours",
 636          "sample.icons"
 637         )) {
 638         copy("$ROOT/docs/$_", "$temp_dir/docs/$_");
 639     }
 640
 641     # Now do the WPS dance
 642     if(-d "$ROOT/wps") {
 643         my $wps_build_cmd="perl $ROOT/wps/wpsbuild.pl ";
 644         $wps_build_cmd=$wps_build_cmd."-v " if $verbose;
 645         $wps_build_cmd=$wps_build_cmd." --tempdir=$temp_dir --rbdir=$rbdir -r $ROOT -m $modelname $ROOT/wps/WPSLIST $target";
 646         print "wpsbuild: $wps_build_cmd\n" if $verbose;
 647         system("$wps_build_cmd");
 648         print "wps_build_cmd: done\n" if $verbose;
 649     }
 650     else {
 651         print STDERR "No wps module present, can't do the WPS magic!\n";
 652     }
 653
 654     # until buildwps.pl is fixed, manually copy the classic_statusbar theme across
 655     mkdir "$temp_dir/wps/classic_statusbar", 0777;
 656     glob_copy("$ROOT/wps/classic_statusbar/*.bmp", "$temp_dir/wps/classic_statusbar");
 657     if ($swcodec) {
 658         if ($depth == 16) {
 659             copy("$ROOT/wps/classic_statusbar.sbs", "$temp_dir/wps");
 660         } elsif ($depth > 1) {
 661             copy("$ROOT/wps/classic_statusbar.grey.sbs", "$temp_dir/wps/classic_statusbar.sbs");
 662         } else {
 663             copy("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.sbs");
 664         }
 665     } else {
 666         copy("$ROOT/wps/classic_statusbar.112x64x1.sbs", "$temp_dir/wps/classic_statusbar.sbs");
 667     }
 668     if ($remote_depth != $depth) {
 669         copy("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.rsbs");
 670     } else {
 671         copy("$temp_dir/wps/classic_statusbar.sbs", "$temp_dir/wps/classic_statusbar.rsbs");
 672     }
 673     copy("$temp_dir/wps/rockbox_none.sbs", "$temp_dir/wps/rockbox_none.rsbs");
 674
 675     # and the info file
 676     copy("rockbox-info.txt", "$temp_dir/rockbox-info.txt");
 677
 678     # copy the already built lng files
 679     glob_copy('apps/lang/*lng', "$temp_dir/langs/");
 680
 681     # copy the .lua files
 682     glob_mkdir("$temp_dir/rocks/viewers/lua/");
 683     glob_copy('apps/plugins/lua/*.lua', "$temp_dir/rocks/viewers/lua/");
 684 }
 685
 686 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
 687  localtime(time);
 688
 689 $mon+=1;
 690 $year+=1900;
 691
 692 #$date=sprintf("%04d%02d%02d", $year,$mon, $mday);
 693 #$shortdate=sprintf("%02d%02d%02d", $year%100,$mon, $mday);
 694
 695 # made once for all targets
 696 sub runone {
 697     my ($target, $fonts)=@_;
 698
 699     # Strip the leading / from $rbdir unless we are installing an application
 700     # build - the layout is different (no .rockbox, but bin/lib/share)
 701     unless ($app && $install) {
 702         $rbdir = substr($rbdir, 1);
 703     }
 704
 705     # build a full install .rockbox ($rbdir) directory
 706     buildzip($target, $fonts);
 707
 708     unlink($output);
 709
 710     if($fonts == 1) {
 711         # Don't include image file in fonts-only package
 712         undef $target;
 713     }
 714     if($target && ($target !~ /(mod|ajz|wma)\z/i)) {
 715         # On some targets, the image goes into .rockbox.
 716         copy("$target", ".rockbox/$target");
 717         undef $target;
 718     }
 719
 720     if($install) {
 721         if($mklinks) {
 722             my $cwd = getcwd();
 723             symlink("$cwd/.rockbox", "$install/.rockbox");
 724             print "link .rockbox $install\n" if $verbose;
 725         } else {
 726             make_install(".rockbox", $install) or die "MKDIRFAILED\n";
 727             rmtree(".rockbox");
 728             print "rm .rockbox\n" if $verbose;
 729         }
 730     }
 731     else {
 732         unless (".rockbox" eq $rbdir) {
 733             mkpath($rbdir);
 734             rmtree($rbdir);
 735             move(".rockbox", $rbdir);
 736             print "mv .rockbox $rbdir\n" if $verbose;
 737         }
 738         system("$ziptool $output $rbdir $target >/dev/null");
 739         print "$ziptool $output $rbdir $target >/dev/null\n" if $verbose;
 740         rmtree("$rbdir");
 741         print "rm $rbdir\n" if $verbose;
 742     }
 743 };
 744
 745 if(!$exe) {
 746     # not specified, guess!
 747     if($target =~ /(recorder|ondio)/i) {
 748         $exe = "ajbrec.ajz";
 749     }
 750     elsif($target =~ /iriver/i) {
 751         $exe = "rockbox.iriver";
 752     }
 753     else {
 754         $exe = "archos.mod";
 755     }
 756 }
 757 elsif(($exe =~ /rockboxui/)) {
 758     # simulator, exclude the exe file
 759     $exe = "";
 760 }
 761 elsif($exe eq "librockbox.so") {
 762     # android, exclude the binary
 763     $exe="";
 764 }
 765
 766 runone($exe, $incfonts);
 767