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