tools/buildzip.pl

   1 #!/usr/bin/perl
   2
   3 $ROOT="..";
   4
   5 if($ARGV[0] eq "-r") {
   6     $ROOT=$ARGV[1];
   7     shift @ARGV;
   8     shift @ARGV;
   9 }
  10
  11 my $verbose;
  12 if($ARGV[0] eq "-v") {
  13     $verbose =1;
  14     shift @ARGV;
  15 }
  16
  17
  18 sub filesize {
  19     my ($filename)=@_;
  20     my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  21         $atime,$mtime,$ctime,$blksize,$blocks)
  22         = stat($filename);
  23     return $size;
  24 }
  25
  26 sub buildlangs {
  27     my ($outputlang)=@_;
  28     my $dir = "$ROOT/apps/lang";
  29     opendir(DIR, $dir);
  30     my @files = grep { /\.lang$/ } readdir(DIR);
  31     closedir(DIR);
  32
  33     for(@files) {
  34         my $output = $_;
  35         $output =~ s/(.*)\.lang/$1.lng/;
  36         print "lang $_\n" if($verbose);
  37         system ("$ROOT/tools/binlang $dir/english.lang $dir/$_ $outputlang/$output >/dev/null 2>&1");
  38     }
  39 }
  40
  41 sub buildzip {
  42     my ($zip, $image, $notplayer)=@_;
  43
  44     # remove old traces
  45     `rm -rf .rockbox`;
  46
  47     mkdir ".rockbox", 0777;
  48     mkdir ".rockbox/langs", 0777;
  49     mkdir ".rockbox/rocks", 0777;
  50     `find . -name "*.rock" ! -empty | xargs --replace=foo cp foo .rockbox/rocks/`;
  51
  52     open VIEWERS, "$ROOT/apps/plugins/viewers.config" or
  53         die "can't open viewers.config";
  54     @viewers = <VIEWERS>;
  55     close VIEWERS;
  56
  57     open VIEWERS, ">.rockbox/viewers.config" or
  58         die "can't create .rockbox/viewers.config";
  59     mkdir ".rockbox/viewers", 0777;
  60     for (@viewers) {
  61         if (/,(.+),/) {
  62             if(-e ".rockbox/rocks/$1") {
  63                 `mv .rockbox/rocks/$1 .rockbox/viewers`;
  64                 print VIEWERS $_;
  65             }
  66         }
  67     }
  68     close VIEWERS;
  69
  70     if($notplayer) {
  71         `cp $ROOT/apps/plugins/sokoban.levels .rockbox/`; # sokoban levels
  72         `cp $ROOT/apps/plugins/snake2.levels .rockbox/`; # snake2 levels
  73
  74         mkdir ".rockbox/fonts", 0777;
  75
  76         opendir(DIR, "$ROOT/fonts") || die "can't open dir fonts";
  77         my @fonts = grep { /\.bdf$/ && -f "$ROOT/fonts/$_" } readdir(DIR);
  78         closedir DIR;
  79
  80         my $maxfont;
  81         open(HEADER, "<$ROOT/firmware/export/font.h");
  82         while(<HEADER>) {
  83             if(/^\#define MAX_FONT_SIZE[ \t]*(\d+)/) {
  84                 $maxfont = $1;
  85             }
  86         }
  87         close(HEADER);
  88         die "no decent max font size" if ($maxfont < 2000);
  89
  90         for(@fonts) {
  91             my $f = $_;
  92
  93             print "FONT: $f\n" if($verbose);
  94             my $o = $f;
  95             $o =~ s/\.bdf/\.fnt/;
  96             my $cmd ="$ROOT/tools/convbdf -s 32 -l 255 -f -o \".rockbox/fonts/$o\" \"$ROOT/fonts/$f\" >/dev/null 2>&1";
  97             print "CMD: $cmd\n" if($verbose);
  98             `$cmd`;
  99
 100             # no need to add fonts we cannot load anyway
 101             my $fontsize = filesize(".rockbox/fonts/$o");
 102             if($fontsize > $maxfont) {
 103                 unlink(".rockbox/fonts/$o");
 104             }
 105         }
 106
 107     }
 108
 109     if($image) {
 110         # image is blank when this is a simulator
 111         if( filesize("rockbox.ucl") > 1000 ) {
 112             `cp rockbox.ucl .rockbox/`;  # UCL for flashing
 113         }
 114         if( filesize("rombox.ucl") > 1000) {
 115             `cp rombox.ucl .rockbox/`;  # UCL for flashing
 116         }
 117     }
 118
 119     mkdir ".rockbox/docs", 0777;
 120     for(("BATTERY-FAQ",
 121          "CUSTOM_CFG_FORMAT",
 122          "CUSTOM_WPS_FORMAT",
 123          "FAQ",
 124          "NODO",
 125          "TECH")) {
 126         `cp $ROOT/docs/$_ .rockbox/docs/$_.txt`;
 127     }
 128
 129     # now copy the file made for reading on the unit:
 130     #if($notplayer) {
 131     #    `cp $webroot/docs/Help-JBR.txt .rockbox/docs/`;
 132     #}
 133     #else {
 134     #    `cp $webroot/docs/Help-Stu.txt .rockbox/docs/`;
 135     #}
 136
 137     buildlangs(".rockbox/langs");
 138
 139     `find .rockbox | zip $zip -@ >/dev/null`;
 140
 141     if($image) {
 142         `zip $zip $image`;
 143     }
 144
 145     # remove the .rockbox afterwards
 146     `rm -rf .rockbox`;
 147 }
 148
 149 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
 150  localtime(time);
 151
 152 $mon+=1;
 153 $year+=1900;
 154
 155 $date=sprintf("%04d%02d%02d", $year,$mon, $mday);
 156 $shortdate=sprintf("%02d%02d%02d", $year%100,$mon, $mday);
 157
 158 # made once for all targets
 159 sub runone {
 160     my ($type, $target)=@_;
 161
 162     # build a full install zip file
 163     buildzip("rockbox.zip", $target,
 164              ($type eq "player")?0:1);
 165 };
 166
 167 my $target = $ARGV[0];
 168
 169 my $exe = "";
 170
 171 if($target !~ /sim/i) {
 172     # not a simulator
 173     if($target =~ /(recorder|ondio)/i) {
 174         $exe = "ajbrec.ajz";
 175     }
 176     else {
 177         $exe = "archos.mod";
 178     }
 179 }
 180
 181 if($target =~ /player/i) {
 182     runone("player", $exe);
 183 }
 184 else {
 185     runone("recorder", $exe);
 186 }
 187