3 # Open \______ \ ____ ____ | | _\_ |__ _______ ___
4 # Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
5 # Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
6 # Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
13 use File
::Copy
; # For move() and copy()
14 use File
::Find
; # For find()
15 use File
::Path
qw(mkpath rmtree); # For rmtree()
18 use Getopt
::Long
qw(:config pass_through); # pass_through so not confused by -DTYPE_STUFF
30 my $target_id; # passed in, not currently used
31 my $rbdir; # can be non-.rockbox for special builds
37 mkpath
($dir, $verbose, 0777);
42 my ($_src, $dest, $opts) = @_;
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;
58 my ($pattern, $destination) = @_;
59 print "glob_copy: $pattern -> $destination\n" if $verbose;
60 foreach my $path (glob($pattern)) {
61 copy
($path, $destination);
66 my ($pattern, $destination) = @_;
67 print "glob_move: $pattern -> $destination\n" if $verbose;
68 foreach my $path (glob($pattern)) {
69 move
($path, $destination);
75 print "glob_unlink: $pattern\n" if $verbose;
76 foreach my $path (glob($pattern)) {
82 my ($pattern, $destination) = @_;
83 print "find_copyfile: $pattern -> $destination\n" if $verbose;
86 my $source = getcwd
();
87 if ($path =~ $pattern && filesize
($path) > 0 && !($path =~ /$rbdir/)) {
89 print "link $path $destination\n" if $verbose;
90 symlink($source.'/'.$path, $destination.'/'.$path);
92 print "cp $path $destination\n" if $verbose;
93 copy
($path, $destination);
94 chmod(0755, $destination.'/'.$path);
100 sub find_installfile
{
101 my ($pattern, $destination) = @_;
102 print "find_installfile: $pattern -> $destination\n" if $verbose;
105 if ($path =~ $pattern) {
106 print "FIND_INSTALLFILE: $path\n";
107 glob_install
($path, $destination);
114 my ($src, $dest) = @_;
120 my @plugins = ( "games", "apps", "demos", "viewers" );
121 my @userstuff = ( "backdrops", "codepages", "docs", "fonts", "langs", "themes", "wps", "eqs", "icons" );
126 $libdir .= "/lib/rockbox";
127 $userdir .= "/share/rockbox";
129 # for non-app builds we expect the prefix to be the dir above .rockbox
130 $bindir .= "/$rbdir";
131 $libdir = $userdir = $bindir;
133 if ($dest =~ /\/dev\
/null/) {
134 die "ERROR: No PREFIX given\n"
137 if ((!$app) && -e
$bindir && -e
$src && (abs_path
($bindir) eq abs_path
($src))) {
142 unless ($exe eq "") {
143 unless (glob_mkdir
($bindir)) {
146 glob_install
($exe, $bindir, "-m 0775");
150 unless (glob_mkdir
("$libdir/codecs")) {
153 # Android has codecs installed as native libraries so they are not needed
155 if ($modelname !~ /android/) {
156 glob_install
("$src/codecs/*", "$libdir/codecs", "-m 0755");
160 unless (glob_mkdir
("$libdir/rocks")) {
163 foreach my $t (@plugins) {
164 unless (glob_mkdir
("$libdir/rocks/$t")) {
167 glob_install
("$src/rocks/$t/*", "$libdir/rocks/$t", "-m 0755");
171 unless (glob_mkdir
("$libdir/rocks/viewers/lua")) {
174 glob_install
("$src/rocks/viewers/lua/*", "$libdir/rocks/viewers/lua");
176 # all the rest directories
177 foreach my $t (@userstuff) {
178 unless (glob_mkdir
("$userdir/$t")) {
181 glob_install
("$src/$t/*", "$userdir/$t");
184 # wps/ subfolders and bitmaps
185 opendir(DIR
, $src . "/wps");
186 @files = readdir(DIR
);
189 foreach my $_dir (@files) {
190 my $dir = "wps/" . $_dir;
191 if ( -d
"$src/$dir" && $_dir !~ /\
.\
.?
/) {
192 unless (glob_mkdir
("$userdir/$dir")) {
195 glob_install
("$src/$dir/*", "$userdir/$dir");
199 # rest of the files, excluding the binary
201 @files = readdir(DIR
);
204 foreach my $file (grep (/[a-zA-Z]+\.(txt|config|ignore|sh)/,@files)) {
205 glob_install
("$src/$file", "$userdir/");
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?
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";
231 $output = "rockbox.zip"
237 # Now @ARGV shuold be free of any left-overs GetOptions left
238 ($target, $exe) = @ARGV;
240 my $firmdir="$ROOT/firmware";
241 my $appsdir="$ROOT/apps";
242 my $viewer_bmpdir="$ROOT/apps/plugins/bitmaps/viewer_defaults";
244 my $cppdef = $target;
247 open(GCC
, ">gcctemp");
248 # Get the LCD screen depth and graphical status
251 #ifdef HAVE_LCD_BITMAP
255 LCD Height: LCD_HEIGHT
256 Icon Width: CONFIG_DEFAULT_ICON_WIDTH
257 Icon Height: CONFIG_DEFAULT_ICON_HEIGHT
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
267 #ifdef HAVE_RECORDING
274 my $c="cat gcctemp | gcc $cppdef -I. -I$firmdir/export -E -P -";
276 # print STDERR "CMD $c\n";
280 my ($bitmap, $width, $height, $depth, $swcodec, $icon_h, $icon_w);
281 my ($remote_depth, $remote_icon_h, $remote_icon_w);
285 # print STDERR "DATA: $_";
286 if($_ =~ /^Bitmap: (.*)/) {
289 elsif($_ =~ /^Depth: (\d*)/) {
292 elsif($_ =~ /^LCD Width: (\d*)/) {
295 elsif($_ =~ /^LCD Height: (\d*)/) {
298 elsif($_ =~ /^Icon Width: (\d*)/) {
301 elsif($_ =~ /^Icon Height: (\d*)/) {
304 elsif($_ =~ /^Codec: (\d*)/) {
305 # SWCODEC is 1, the others are HWCODEC
306 $swcodec = ($1 == 1);
308 elsif($_ =~ /^Remote Depth: (\d*)/) {
311 elsif($_ =~ /^Remote Icon Width: (\d*)/) {
314 elsif($_ =~ /^Remote Icon Height: (\d*)/) {
317 if($_ =~ /^Recording: (.*)/) {
324 return ($bitmap, $depth, $width, $height, $icon_w, $icon_h, $recording,
325 $swcodec, $remote_depth, $remote_icon_w, $remote_icon_h);
330 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
331 $atime,$mtime,$ctime,$blksize,$blocks)
338 my ($image, $fonts)=@_;
339 my $libdir = $install;
340 my $temp_dir = ".rockbox";
342 print "buildzip: image=$image fonts=$fonts\n" if $verbose;
344 my ($bitmap, $depth, $width, $height, $icon_w, $icon_h, $recording,
345 $swcodec, $remote_depth, $remote_icon_w, $remote_icon_h) =
348 # print "Bitmap: $bitmap\nDepth: $depth\nSwcodec: $swcodec\n";
353 glob_mkdir
($temp_dir);
356 # always disable fonts on non-bitmap targets
360 glob_mkdir
("$temp_dir/fonts");
361 chdir "$temp_dir/fonts";
362 my $cmd = "$ROOT/tools/convbdf -f $ROOT/fonts/*bdf >/dev/null 2>&1";
363 print($cmd."\n") if $verbose;
368 # fonts-only package, return
373 # create the file so the database does not try indexing a folder
374 open(IGNORE
, ">$temp_dir/database.ignore") || die "can't open database.ignore";
377 # the samsung ypr0 has a loader script that's needed in the zip
378 if ($modelname =~ /samsungypr0/) {
379 glob_copy
("$ROOT/utils/ypr0tools/rockbox.sh", "$temp_dir/");
381 # add .nomedia on Android
383 if ($modelname =~ /android/) {
384 open(NOMEDIA
, ">$temp_dir/.nomedia") || die "can't open .nomedia";
388 glob_mkdir
("$temp_dir/langs");
389 glob_mkdir
("$temp_dir/rocks");
390 glob_mkdir
("$temp_dir/rocks/games");
391 glob_mkdir
("$temp_dir/rocks/apps");
392 glob_mkdir
("$temp_dir/rocks/demos");
393 glob_mkdir
("$temp_dir/rocks/viewers");
396 glob_mkdir
("$temp_dir/recpresets");
400 glob_mkdir
("$temp_dir/eqs");
402 glob_copy
("$ROOT/lib/rbcodec/dsp/eqs/*.cfg", "$temp_dir/eqs/"); # equalizer presets
405 glob_mkdir
("$temp_dir/wps");
406 glob_mkdir
("$temp_dir/icons");
407 glob_mkdir
("$temp_dir/themes");
408 glob_mkdir
("$temp_dir/codepages");
411 system("$ROOT/tools/codepages");
414 system("$ROOT/tools/codepages -m");
417 glob_move
('*.cp', "$temp_dir/codepages/");
419 if($bitmap && $depth > 1) {
420 glob_mkdir
("$temp_dir/backdrops");
423 glob_mkdir
("$temp_dir/codecs");
425 # Android has codecs installed as native libraries so they are not needed
427 if ($modelname !~ /android/) {
428 find
(find_copyfile
(qr/.*\.codec/, abs_path
("$temp_dir/codecs/")), 'lib/rbcodec/codecs');
431 # remove directory again if no codec was copied
432 rmdir("$temp_dir/codecs");
434 find
(find_copyfile
(qr/\.(rock|ovl|lua)/, abs_path
("$temp_dir/rocks/")), 'apps/plugins');
436 # exclude entries for the image file types not supported by the imageviewer for the target.
437 my $viewers = "$ROOT/apps/plugins/viewers.config";
438 my $c="cat $viewers | gcc $cppdef -I. -I$firmdir/export -E -P -include config.h -";
440 open VIEWERS
, "$c|" or die "can't open viewers.config";
441 my @viewers = <VIEWERS
>;
444 open VIEWERS
, ">$temp_dir/viewers.config" or
445 die "can't create $temp_dir/viewers.config";
447 foreach my $line (@viewers) {
448 if ($line =~ /([^,]*),([^,]*),/) {
449 my ($ext, $plugin)=($1, $2);
450 my $r = "${plugin}.rock";
456 # strip off the last slash and file name part
457 $dir =~ s/(.*)\/(.*)/$1/;
458 # store the file name part
461 # get .ovl name (file part only)
463 $oname =~ s/\.rock$/.ovl/;
465 # print STDERR "$ext $plugin $dir $name $r\n";
467 if(-e
"$temp_dir/rocks/$name") {
468 if($dir ne "rocks") {
469 # target is not 'rocks' but the plugins are always in that
471 move
("$temp_dir/rocks/$name", "$temp_dir/rocks/$r");
475 elsif(-e
"$temp_dir/rocks/$r") {
476 # in case the same plugin works for multiple extensions, it
477 # was already moved to the viewers dir
481 if(-e
"$temp_dir/rocks/$oname") {
482 # if there's an "overlay" file for the .rock, move that as
484 move
("$temp_dir/rocks/$oname", "$temp_dir/rocks/$dir");
490 open CATEGORIES
, "$ROOT/apps/plugins/CATEGORIES" or
491 die "can't open CATEGORIES";
492 my @rock_targetdirs = <CATEGORIES
>;
494 foreach my $line (@rock_targetdirs) {
495 if ($line =~ /([^,]*),(.*)/) {
496 my ($plugin, $dir)=($1, $2);
497 move
("$temp_dir/rocks/${plugin}.rock", "$temp_dir/rocks/$dir/${plugin}.rock");
498 if(-e
"$temp_dir/rocks/${plugin}.ovl") {
499 # if there's an "overlay" file for the .rock, move that as
501 move
("$temp_dir/rocks/${plugin}.ovl", "$temp_dir/rocks/$dir");
503 if(-e
"$temp_dir/rocks/${plugin}.lua") {
504 # if this is a lua script, move it to the appropriate dir
505 move
("$temp_dir/rocks/${plugin}.lua", "$temp_dir/rocks/$dir/");
510 glob_unlink
("$temp_dir/rocks/*.lua"); # Clean up unwanted *.lua files (e.g. actions.lua, buttons.lua)
512 copy
("$ROOT/apps/tagnavi.config", "$temp_dir/");
513 copy
("$ROOT/apps/plugins/disktidy.config", "$temp_dir/rocks/apps/");
516 copy
("$ROOT/apps/plugins/sokoban.levels", "$temp_dir/rocks/games/sokoban.levels"); # sokoban levels
517 copy
("$ROOT/apps/plugins/snake2.levels", "$temp_dir/rocks/games/snake2.levels"); # snake2 levels
518 copy
("$ROOT/apps/plugins/rockbox-fonts.config", "$temp_dir/rocks/viewers/");
521 if(-e
"$temp_dir/rocks/demos/pictureflow.rock") {
522 copy
("$ROOT/apps/plugins/bitmaps/native/pictureflow_emptyslide.100x100x16.bmp",
523 "$temp_dir/rocks/demos/pictureflow_emptyslide.bmp");
526 $pf_logo = "pictureflow_logo.100x18x16.bmp";
528 $pf_logo = "pictureflow_logo.193x34x16.bmp";
530 copy
("$ROOT/apps/plugins/bitmaps/native/$pf_logo",
531 "$temp_dir/rocks/demos/pictureflow_splash.bmp");
536 # image is blank when this is a simulator
537 if( filesize
("rockbox.ucl") > 1000 ) {
538 copy
("rockbox.ucl", "$temp_dir/rockbox.ucl"); # UCL for flashing
540 if( filesize
("rombox.ucl") > 1000) {
541 copy
("rombox.ucl", "$temp_dir/rombox.ucl"); # UCL for flashing
544 # Check for rombox.target
545 if ($image=~/(.*)\.(\w+)$/)
547 my $romfile = "rombox.$2";
548 if (filesize
($romfile) > 1000)
550 copy
($romfile, "$temp_dir/$romfile");
555 glob_mkdir
("$temp_dir/docs");
560 copy
("$ROOT/docs/$_", "$temp_dir/docs/$_.txt");
563 copy
("$ROOT/docs/profontdoc.txt", "$temp_dir/docs/profontdoc.txt");
565 for(("sample.colours",
568 copy
("$ROOT/docs/$_", "$temp_dir/docs/$_");
571 # Now do the WPS dance
573 my $wps_build_cmd="perl $ROOT/wps/wpsbuild.pl ";
574 $wps_build_cmd=$wps_build_cmd."-v " if $verbose;
575 $wps_build_cmd=$wps_build_cmd." --tempdir=$temp_dir --rbdir=$rbdir -r $ROOT -m $modelname $ROOT/wps/WPSLIST $target";
576 print "wpsbuild: $wps_build_cmd\n" if $verbose;
577 system("$wps_build_cmd");
578 print "wps_build_cmd: done\n" if $verbose;
581 print STDERR
"No wps module present, can't do the WPS magic!\n";
584 # until buildwps.pl is fixed, manually copy the classic_statusbar theme across
585 mkdir "$temp_dir/wps/classic_statusbar", 0777;
586 glob_copy
("$ROOT/wps/classic_statusbar/*.bmp", "$temp_dir/wps/classic_statusbar");
589 copy
("$ROOT/wps/classic_statusbar.sbs", "$temp_dir/wps");
590 } elsif ($depth > 1) {
591 copy
("$ROOT/wps/classic_statusbar.grey.sbs", "$temp_dir/wps/classic_statusbar.sbs");
593 copy
("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.sbs");
596 copy
("$ROOT/wps/classic_statusbar.112x64x1.sbs", "$temp_dir/wps/classic_statusbar.sbs");
598 if ($remote_depth != $depth) {
599 copy
("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.rsbs");
601 copy
("$temp_dir/wps/classic_statusbar.sbs", "$temp_dir/wps/classic_statusbar.rsbs");
603 copy
("$temp_dir/wps/rockbox_none.sbs", "$temp_dir/wps/rockbox_none.rsbs");
606 copy
("rockbox-info.txt", "$temp_dir/rockbox-info.txt");
608 # copy the already built lng files
609 glob_copy
('apps/lang/*lng', "$temp_dir/langs/");
610 glob_copy
('apps/lang/*.zip', "$temp_dir/langs/");
612 # copy the .lua files
613 glob_mkdir
("$temp_dir/rocks/viewers/lua/");
614 glob_copy
('apps/plugins/lua/*.lua', "$temp_dir/rocks/viewers/lua/");
617 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
623 #$date=sprintf("%04d%02d%02d", $year,$mon, $mday);
624 #$shortdate=sprintf("%02d%02d%02d", $year%100,$mon, $mday);
626 # made once for all targets
628 my ($target, $fonts)=@_;
630 # Strip the leading / from $rbdir unless we are installing an application
631 # build - the layout is different (no .rockbox, but bin/lib/share)
632 unless ($app && $install) {
633 $rbdir = substr($rbdir, 1);
636 # build a full install .rockbox ($rbdir) directory
637 buildzip
($target, $fonts);
642 # Don't include image file in fonts-only package
645 if($target && ($target !~ /(mod|ajz|wma)\z/i)) {
646 # On some targets, the image goes into .rockbox.
647 copy
("$target", ".rockbox/$target");
654 symlink("$cwd/.rockbox", "$install/.rockbox");
655 print "link .rockbox $install\n" if $verbose;
657 make_install
(".rockbox", $install) or die "MKDIRFAILED\n";
659 print "rm .rockbox\n" if $verbose;
663 unless (".rockbox" eq $rbdir) {
666 move
(".rockbox", $rbdir);
667 print "mv .rockbox $rbdir\n" if $verbose;
669 system("$ziptool $output $rbdir $target >/dev/null");
670 print "$ziptool $output $rbdir $target >/dev/null\n" if $verbose;
672 print "rm $rbdir\n" if $verbose;
677 # not specified, guess!
678 if($target =~ /(recorder|ondio)/i) {
681 elsif($target =~ /iriver/i) {
682 $exe = "rockbox.iriver";
688 elsif(($exe =~ /rockboxui/)) {
689 # simulator, exclude the exe file
692 elsif($exe eq "librockbox.so") {
693 # android, exclude the binary
697 runone
($exe, $incfonts);