tools/buildzip.pl

   1 #!/usr/bin/perl
   2 #             __________               __   ___.
   3 #   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4 #   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5 #   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6 #   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7 #                     \/            \/     \/    \/            \/
   8 # $Id$
   9 #
  10
  11 $ROOT="..";
  12
  13 my $ziptool="zip";
  14 my $output="rockbox.zip";
  15 my $verbose;
  16 my $exe;
  17 my $target;
  18 my $archos;
  19 my $incfonts;
  20
  21 while(1) {
  22     if($ARGV[0] eq "-r") {
  23         $ROOT=$ARGV[1];
  24         shift @ARGV;
  25         shift @ARGV;
  26     }
  27
  28     elsif($ARGV[0] eq "-z") {
  29         $ziptool=$ARGV[1];
  30         shift @ARGV;
  31         shift @ARGV;
  32     }
  33
  34     elsif($ARGV[0] eq "-t") {
  35         # The target name as used in ARCHOS in the root makefile
  36         $archos=$ARGV[1];
  37         shift @ARGV;
  38         shift @ARGV;
  39     }
  40     elsif($ARGV[0] eq "-i") {
  41         # The target id name as used in TARGET_ID in the root makefile
  42         $target_id=$ARGV[1];
  43         shift @ARGV;
  44         shift @ARGV;
  45     }
  46     elsif($ARGV[0] eq "-o") {
  47         $output=$ARGV[1];
  48         shift @ARGV;
  49         shift @ARGV;
  50     }
  51     elsif($ARGV[0] eq "-f") {
  52         $incfonts=$ARGV[1]; # 0 - no fonts, 1 - fonts only 2 - fonts and package
  53         shift @ARGV;
  54         shift @ARGV;
  55     }
  56
  57     elsif($ARGV[0] eq "-v") {
  58         $verbose =1;
  59         shift @ARGV;
  60     }
  61     else {
  62         $target = $ARGV[0];
  63         $exe = $ARGV[1];
  64         last;
  65     }
  66 }
  67
  68
  69 my $firmdir="$ROOT/firmware";
  70 my $appsdir="$ROOT/apps";
  71 my $viewer_bmpdir="$ROOT/apps/plugins/bitmaps/viewer_defaults";
  72
  73 my $cppdef = $target;
  74
  75 sub gettargetinfo {
  76     open(GCC, ">gcctemp");
  77     # Get the LCD screen depth and graphical status
  78     print GCC <<STOP
  79 \#include "config.h"
  80 #ifdef HAVE_LCD_BITMAP
  81 Bitmap: yes
  82 Depth: LCD_DEPTH
  83 Icon Width: CONFIG_DEFAULT_ICON_WIDTH
  84 Icon Height: CONFIG_DEFAULT_ICON_HEIGHT
  85 #endif
  86 Codec: CONFIG_CODEC
  87 #ifdef HAVE_REMOTE_LCD
  88 Remote Depth: LCD_REMOTE_DEPTH
  89 Remote Icon Width: CONFIG_REMOTE_DEFAULT_ICON_WIDTH
  90 Remote Icon Height: CONFIG_REMOTE_DEFAULT_ICON_HEIGHT
  91 #else
  92 Remote Depth: 0
  93 #endif
  94 #ifdef HAVE_RECORDING
  95 Recording: yes
  96 #endif
  97 STOP
  98 ;
  99     close(GCC);
 100
 101     my $c="cat gcctemp | gcc $cppdef -I. -I$firmdir/export -E -P -";
 102
 103     # print STDERR "CMD $c\n";
 104
 105     open(TARGET, "$c|");
 106
 107     my ($bitmap, $depth, $swcodec, $icon_h, $icon_w);
 108     my ($remote_depth, $remote_icon_h, $remote_icon_w);
 109     my ($recording);
 110     $icon_count = 1;
 111     while(<TARGET>) {
 112         # print STDERR "DATA: $_";
 113         if($_ =~ /^Bitmap: (.*)/) {
 114             $bitmap = $1;
 115         }
 116         elsif($_ =~ /^Depth: (\d*)/) {
 117             $depth = $1;
 118         }
 119         elsif($_ =~ /^Icon Width: (\d*)/) {
 120             $icon_w = $1;
 121         }
 122         elsif($_ =~ /^Icon Height: (\d*)/) {
 123             $icon_h = $1;
 124         }
 125         elsif($_ =~ /^Codec: (\d*)/) {
 126             # SWCODEC is 1, the others are HWCODEC
 127             $swcodec = ($1 == 1);
 128         }
 129         elsif($_ =~ /^Remote Depth: (\d*)/) {
 130             $remote_depth = $1;
 131         }
 132         elsif($_ =~ /^Remote Icon Width: (\d*)/) {
 133             $remote_icon_w = $1;
 134         }
 135         elsif($_ =~ /^Remote Icon Height: (\d*)/) {
 136             $remote_icon_h = $1;
 137         }
 138         if($_ =~ /^Recording: (.*)/) {
 139             $recording = $1;
 140         }
 141     }
 142     close(TARGET);
 143     unlink("gcctemp");
 144
 145     return ($bitmap, $depth, $icon_w, $icon_h, $recording,
 146             $swcodec, $remote_depth, $remote_icon_w, $remote_icon_h);
 147 }
 148
 149 sub filesize {
 150     my ($filename)=@_;
 151     my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
 152         $atime,$mtime,$ctime,$blksize,$blocks)
 153         = stat($filename);
 154     return $size;
 155 }
 156
 157 sub buildlangs {
 158     my ($outputlang)=@_;
 159     my $dir = "$ROOT/apps/lang";
 160     opendir(DIR, $dir);
 161     my @files = grep { /\.lang$/ } readdir(DIR);
 162     closedir(DIR);
 163
 164     for(@files) {
 165         my $output = $_;
 166         $output =~ s/(.*)\.lang/$1.lng/;
 167         print "$ROOT/tools/genlang -e=$dir/english.lang -t=$archos -i=$target_id -b=$outputlang/$output $dir/$_\n" if($verbose);
 168         system ("$ROOT/tools/genlang -e=$dir/english.lang -t=$archos -i=$target_id -b=$outputlang/$output $dir/$_ >/dev/null 2>&1");
 169     }
 170 }
 171
 172 sub buildzip {
 173     my ($zip, $image, $fonts)=@_;
 174
 175     my ($bitmap, $depth, $icon_w, $icon_h, $recording, $swcodec,
 176         $remote_depth, $remote_icon_w, $remote_icon_h) = &gettargetinfo();
 177
 178     # print "Bitmap: $bitmap\nDepth: $depth\nSwcodec: $swcodec\n";
 179
 180     # remove old traces
 181     `rm -rf .rockbox`;
 182
 183     mkdir ".rockbox", 0777;
 184
 185     if(!$bitmap) {
 186         # always disable fonts on non-bitmap targets
 187         $fonts = 0;
 188     }
 189     # create the file so the database does not try indexing a folder
 190     `touch .rockbox/database.ignore`;
 191
 192     if($fonts) {
 193         mkdir ".rockbox/fonts", 0777;
 194
 195         opendir(DIR, "$ROOT/fonts") || die "can't open dir fonts";
 196         my @fonts = grep { /\.bdf$/ && -f "$ROOT/fonts/$_" } readdir(DIR);
 197         closedir DIR;
 198
 199         for(@fonts) {
 200             my $f = $_;
 201
 202             print "FONT: $f\n" if($verbose);
 203             my $o = $f;
 204             $o =~ s/\.bdf/\.fnt/;
 205             my $cmd ="$ROOT/tools/convbdf -f -o \".rockbox/fonts/$o\" \"$ROOT/fonts/$f\" >/dev/null 2>&1";
 206             print "CMD: $cmd\n" if($verbose);
 207             `$cmd`;
 208
 209         }
 210         if($fonts < 2) {
 211           # fonts-only package, return
 212           return;
 213         }
 214     }
 215
 216     mkdir ".rockbox/langs", 0777;
 217     mkdir ".rockbox/rocks", 0777;
 218     mkdir ".rockbox/rocks/games", 0777;
 219     mkdir ".rockbox/rocks/apps", 0777;
 220     mkdir ".rockbox/rocks/demos", 0777;
 221     mkdir ".rockbox/rocks/viewers", 0777;
 222
 223     if ($recording) {
 224         mkdir ".rockbox/recpresets", 0777;
 225     }
 226
 227     if($swcodec) {
 228         mkdir ".rockbox/eqs", 0777;
 229
 230         `cp $ROOT/apps/eqs/*.cfg .rockbox/eqs/`; # equalizer presets
 231     }
 232
 233     mkdir ".rockbox/wps", 0777;
 234     mkdir ".rockbox/themes", 0777;
 235     if ($bitmap) {
 236         open(THEME, ">.rockbox/themes/rockbox_default_icons.cfg");
 237         print THEME <<STOP
 238 # this config file was auto-generated to make it
 239 # easy to reset the icons back to default
 240 iconset: -
 241 # taken from apps/gui/icon.c
 242 viewers iconset: /.rockbox/icons/viewers.bmp
 243 remote iconset: -
 244 # taken from apps/gui/icon.c
 245 remote viewers iconset: /.rockbox/icons/remote_viewers.bmp
 246
 247 STOP
 248 ;
 249         close(THEME);
 250     }
 251
 252     mkdir ".rockbox/codepages", 0777;
 253
 254     if($bitmap) {
 255         system("$ROOT/tools/codepages");
 256     }
 257     else {
 258         system("$ROOT/tools/codepages -m");
 259     }
 260     $c = 'find . -name "*.cp" ! -empty -exec mv {} .rockbox/codepages/ \; >/dev/null 2>&1';
 261     `$c`;
 262
 263     if($bitmap) {
 264         mkdir ".rockbox/codecs", 0777;
 265         if($depth > 1) {
 266             mkdir ".rockbox/backdrops", 0777;
 267         }
 268
 269         my $c = 'find apps -name "*.codec" ! -empty -exec cp {} .rockbox/codecs/ \; 2>/dev/null';
 270         `$c`;
 271
 272         my @call = `find .rockbox/codecs -type f 2>/dev/null`;
 273         if(!$call[0]) {
 274             # no codec was copied, remove directory again
 275             rmdir(".rockbox/codecs");
 276
 277         }
 278     }
 279
 280     $c= 'find apps "(" -name "*.rock" -o -name "*.ovl" ")" ! -empty -exec cp {} .rockbox/rocks/ \;';
 281     print `$c`;
 282
 283     open VIEWERS, "$ROOT/apps/plugins/viewers.config" or
 284         die "can't open viewers.config";
 285     @viewers = <VIEWERS>;
 286     close VIEWERS;
 287
 288     open VIEWERS, ">.rockbox/viewers.config" or
 289         die "can't create .rockbox/viewers.config";
 290
 291     foreach my $line (@viewers) {
 292         if ($line =~ /([^,]*),([^,]*),/) {
 293             my ($ext, $plugin)=($1, $2);
 294             my $r = "${plugin}.rock";
 295             my $oname;
 296
 297             my $dir = $r;
 298             my $name;
 299
 300             # strip off the last slash and file name part
 301             $dir =~ s/(.*)\/(.*)/$1/;
 302             # store the file name part
 303             $name = $2;
 304
 305             # get .ovl name (file part only)
 306             $oname = $name;
 307             $oname =~ s/\.rock$/.ovl/;
 308
 309             # print STDERR "$ext $plugin $dir $name $r\n";
 310
 311             if(-e ".rockbox/rocks/$name") {
 312                 if($dir ne "rocks") {
 313                     # target is not 'rocks' but the plugins are always in that
 314                     # dir at first!
 315                     `mv .rockbox/rocks/$name .rockbox/rocks/$r`;
 316                 }
 317                 print VIEWERS $line;
 318             }
 319             elsif(-e ".rockbox/rocks/$r") {
 320                 # in case the same plugin works for multiple extensions, it
 321                 # was already moved to the viewers dir
 322                 print VIEWERS $line;
 323             }
 324
 325             if(-e ".rockbox/rocks/$oname") {
 326                 # if there's an "overlay" file for the .rock, move that as
 327                 # well
 328                 `mv .rockbox/rocks/$oname .rockbox/rocks/$dir`;
 329             }
 330         }
 331     }
 332     close VIEWERS;
 333
 334     open CATEGORIES, "$ROOT/apps/plugins/CATEGORIES" or
 335         die "can't open CATEGORIES";
 336     @rock_targetdirs = <CATEGORIES>;
 337     close CATEGORIES;
 338     foreach my $line (@rock_targetdirs) {
 339         if ($line =~ /([^,]*),(.*)/) {
 340             my ($plugin, $dir)=($1, $2);
 341             `mv .rockbox/rocks/${plugin}.rock .rockbox/rocks/$dir 2> /dev/null`;
 342         }
 343     }
 344
 345     if ($bitmap) {
 346         mkdir ".rockbox/icons", 0777;
 347         `cp $viewer_bmpdir/viewers.${icon_w}x${icon_h}x$depth.bmp .rockbox/icons/viewers.bmp`;
 348         if ($remote_depth) {
 349             `cp $viewer_bmpdir/remote_viewers.${remote_icon_w}x${remote_icon_h}x$remote_depth.bmp .rockbox/icons/remote_viewers.bmp`;
 350         }
 351     }
 352
 353     `cp $ROOT/apps/tagnavi.config .rockbox/`;
 354
 355     if($bitmap) {
 356         `cp $ROOT/apps/plugins/sokoban.levels .rockbox/rocks/games/`; # sokoban levels
 357         `cp $ROOT/apps/plugins/snake2.levels .rockbox/rocks/games/`; # snake2 levels
 358     }
 359
 360     if($image) {
 361         # image is blank when this is a simulator
 362         if( filesize("rockbox.ucl") > 1000 ) {
 363             `cp rockbox.ucl .rockbox/`;  # UCL for flashing
 364         }
 365         if( filesize("rombox.ucl") > 1000) {
 366             `cp rombox.ucl .rockbox/`;  # UCL for flashing
 367         }
 368
 369         # Check for rombox.target
 370         if ($image=~/(.*)\.(\w+)$/)
 371         {
 372             my $romfile = "rombox.$2";
 373             if (filesize($romfile) > 1000)
 374             {
 375                 `cp $romfile .rockbox/`;
 376             }
 377         }
 378     }
 379
 380     mkdir ".rockbox/docs", 0777;
 381     for(("COPYING",
 382          "LICENSES",
 383          "KNOWN_ISSUES"
 384         )) {
 385         `cp $ROOT/docs/$_ .rockbox/docs/$_.txt`;
 386     }
 387     if ($fonts) {
 388         `cp $ROOT/docs/profontdoc.txt .rockbox/docs/`;
 389     }
 390     for(("sample.colours",
 391          "sample.icons"
 392         )) {
 393         `cp $ROOT/docs/$_ .rockbox/docs/`;
 394     }
 395
 396     # Now do the WPS dance
 397     if(-d "$ROOT/wps") {
 398         system("perl $ROOT/wps/wpsbuild.pl -r $ROOT $ROOT/wps/WPSLIST $target");
 399     }
 400     else {
 401         print STDERR "No wps module present, can't do the WPS magic!\n";
 402     }
 403
 404     # and the info file
 405     system("cp rockbox-info.txt .rockbox/");
 406
 407     # now copy the file made for reading on the unit:
 408     #if($notplayer) {
 409     #    `cp $webroot/docs/Help-JBR.txt .rockbox/docs/`;
 410     #}
 411     #else {
 412     #    `cp $webroot/docs/Help-Stu.txt .rockbox/docs/`;
 413     #}
 414
 415     buildlangs(".rockbox/langs");
 416
 417 }
 418
 419 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
 420  localtime(time);
 421
 422 $mon+=1;
 423 $year+=1900;
 424
 425 #$date=sprintf("%04d%02d%02d", $year,$mon, $mday);
 426 #$shortdate=sprintf("%02d%02d%02d", $year%100,$mon, $mday);
 427
 428 # made once for all targets
 429 sub runone {
 430     my ($target, $fonts)=@_;
 431
 432     # build a full install .rockbox directory
 433     buildzip($output, $target, $fonts);
 434
 435     # create a zip file from the .rockbox dfir
 436
 437     `rm -f $output`;
 438     if($verbose) {
 439       print "find .rockbox | xargs $ziptool $output >/dev/null\n";
 440     }
 441     `find .rockbox | xargs $ziptool $output >/dev/null`;
 442
 443     if($target && ($fonts != 1)) {
 444         # On some targets, rockbox.* is inside .rockbox
 445         if($target !~ /(mod|ajz|wma)\z/i) {
 446             `cp $target .rockbox/$target`;
 447             $target = ".rockbox/".$target;
 448         }
 449
 450         if($verbose) {
 451             print "$ziptool $output $target\n";
 452         }
 453         `$ziptool $output $target`;
 454     }
 455
 456     # remove the .rockbox afterwards
 457     `rm -rf .rockbox`;
 458 };
 459
 460 if(!$exe) {
 461     # not specified, guess!
 462     if($target =~ /(recorder|ondio)/i) {
 463         $exe = "ajbrec.ajz";
 464     }
 465     elsif($target =~ /iriver/i) {
 466         $exe = "rockbox.iriver";
 467     }
 468     else {
 469         $exe = "archos.mod";
 470     }
 471 }
 472 elsif($exe =~ /rockboxui/) {
 473     # simulator, exclude the exe file
 474     $exe = "";
 475 }
 476
 477 runone($exe, $incfonts);
 478
 479