707 lines
21 KiB
Perl
Executable File
707 lines
21 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# __________ __ ___.
|
|
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
|
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
|
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
|
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
|
# \/ \/ \/ \/ \/
|
|
# $Id$
|
|
#
|
|
|
|
use strict;
|
|
|
|
use File::Copy; # For move() and copy()
|
|
use File::Find; # For find()
|
|
use File::Path qw(mkpath rmtree); # For rmtree()
|
|
use Cwd;
|
|
use Cwd 'abs_path';
|
|
use Getopt::Long qw(:config pass_through); # pass_through so not confused by -DTYPE_STUFF
|
|
|
|
my $ROOT="..";
|
|
|
|
my $ziptool;
|
|
my $output;
|
|
my $verbose;
|
|
my $install;
|
|
my $exe;
|
|
my $target;
|
|
my $modelname;
|
|
my $incfonts;
|
|
my $target_id; # passed in, not currently used
|
|
my $rbdir; # can be non-.rockbox for special builds
|
|
my $app;
|
|
my $mklinks;
|
|
|
|
sub glob_mkdir {
|
|
my ($dir) = @_;
|
|
mkpath ($dir, $verbose, 0777);
|
|
return 1;
|
|
}
|
|
|
|
sub glob_install {
|
|
my ($_src, $dest, $opts) = @_;
|
|
|
|
unless ($opts) {
|
|
$opts = "-m 0664";
|
|
}
|
|
|
|
foreach my $src (glob($_src)) {
|
|
unless ( -d $src || !(-e $src)) {
|
|
system("install $opts \"$src\" \"$dest\"");
|
|
print "install $opts \"$src\" -> \"$dest\"\n" if $verbose;
|
|
}
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
sub glob_copy {
|
|
my ($pattern, $destination) = @_;
|
|
print "glob_copy: $pattern -> $destination\n" if $verbose;
|
|
foreach my $path (glob($pattern)) {
|
|
copy($path, $destination);
|
|
}
|
|
}
|
|
|
|
sub glob_move {
|
|
my ($pattern, $destination) = @_;
|
|
print "glob_move: $pattern -> $destination\n" if $verbose;
|
|
foreach my $path (glob($pattern)) {
|
|
move($path, $destination);
|
|
}
|
|
}
|
|
|
|
sub glob_unlink {
|
|
my ($pattern) = @_;
|
|
print "glob_unlink: $pattern\n" if $verbose;
|
|
foreach my $path (glob($pattern)) {
|
|
unlink($path);
|
|
}
|
|
}
|
|
|
|
sub find_copyfile {
|
|
my ($pattern, $destination) = @_;
|
|
print "find_copyfile: $pattern -> $destination\n" if $verbose;
|
|
return sub {
|
|
my $path = $_;
|
|
my $source = getcwd();
|
|
if ($path =~ $pattern && filesize($path) > 0 && !($path =~ /$rbdir/)) {
|
|
if($mklinks) {
|
|
print "link $path $destination\n" if $verbose;
|
|
symlink($source.'/'.$path, $destination.'/'.$path);
|
|
} else {
|
|
print "cp $path $destination\n" if $verbose;
|
|
copy($path, $destination);
|
|
chmod(0755, $destination.'/'.$path);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
sub find_installfile {
|
|
my ($pattern, $destination) = @_;
|
|
print "find_installfile: $pattern -> $destination\n" if $verbose;
|
|
return sub {
|
|
my $path = $_;
|
|
if ($path =~ $pattern) {
|
|
print "FIND_INSTALLFILE: $path\n";
|
|
glob_install($path, $destination);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
sub make_install {
|
|
my ($src, $dest) = @_;
|
|
|
|
my $bindir = $dest;
|
|
my $libdir = $dest;
|
|
my $userdir = $dest;
|
|
|
|
my @plugins = ( "games", "apps", "demos", "viewers" );
|
|
my @userstuff = ( "backdrops", "codepages", "docs", "fonts", "langs", "themes", "wps", "eqs", "icons" );
|
|
my @files = ();
|
|
|
|
if ($app) {
|
|
$bindir .= "/bin";
|
|
$libdir .= "/lib/rockbox";
|
|
$userdir .= "/share/rockbox";
|
|
} else {
|
|
# for non-app builds we expect the prefix to be the dir above .rockbox
|
|
$bindir .= "/$rbdir";
|
|
$libdir = $userdir = $bindir;
|
|
}
|
|
if ($dest =~ /\/dev\/null/) {
|
|
die "ERROR: No PREFIX given\n"
|
|
}
|
|
|
|
if ((!$app) && -e $bindir && -e $src && (abs_path($bindir) eq abs_path($src))) {
|
|
return 1;
|
|
}
|
|
|
|
# binary
|
|
unless ($exe eq "") {
|
|
unless (glob_mkdir($bindir)) {
|
|
return 0;
|
|
}
|
|
glob_install($exe, $bindir, "-m 0775");
|
|
}
|
|
|
|
# codecs
|
|
unless (glob_mkdir("$libdir/codecs")) {
|
|
return 0;
|
|
}
|
|
# Android has codecs installed as native libraries so they are not needed
|
|
# in the zip.
|
|
if ($modelname !~ /android/) {
|
|
glob_install("$src/codecs/*", "$libdir/codecs", "-m 0755");
|
|
}
|
|
|
|
# plugins
|
|
unless (glob_mkdir("$libdir/rocks")) {
|
|
return 0;
|
|
}
|
|
foreach my $t (@plugins) {
|
|
unless (glob_mkdir("$libdir/rocks/$t")) {
|
|
return 0;
|
|
}
|
|
glob_install("$src/rocks/$t/*", "$libdir/rocks/$t", "-m 0755");
|
|
}
|
|
|
|
# rocks/viewers/lua
|
|
unless (glob_mkdir("$libdir/rocks/viewers/lua")) {
|
|
return 0;
|
|
}
|
|
glob_install("$src/rocks/viewers/lua/*", "$libdir/rocks/viewers/lua");
|
|
|
|
#lua example scripts
|
|
if(-e "$ROOT/apps/plugins/lua_scripts") {
|
|
unless (glob_mkdir("$libdir/rocks/demos/lua_scripts")) {
|
|
return 0;
|
|
}
|
|
glob_install("$ROOT/apps/plugins/lua_scripts/*.lua", "$libdir/rocks/demos/lua_scripts");
|
|
#glob_mkdir("$temp_dir/rocks/demos/lua_scripts");
|
|
#glob_copy("$ROOT/apps/plugins/lua_scripts/*.lua", "$temp_dir/rocks/demos/lua_scripts/");
|
|
}
|
|
|
|
# all the rest directories
|
|
foreach my $t (@userstuff) {
|
|
unless (glob_mkdir("$userdir/$t")) {
|
|
return 0;
|
|
}
|
|
glob_install("$src/$t/*", "$userdir/$t");
|
|
}
|
|
|
|
# wps/ subfolders and bitmaps
|
|
opendir(DIR, $src . "/wps");
|
|
@files = readdir(DIR);
|
|
closedir(DIR);
|
|
|
|
foreach my $_dir (@files) {
|
|
my $dir = "wps/" . $_dir;
|
|
if ( -d "$src/$dir" && $_dir !~ /\.\.?/) {
|
|
unless (glob_mkdir("$userdir/$dir")) {
|
|
return 0;
|
|
}
|
|
glob_install("$src/$dir/*", "$userdir/$dir");
|
|
}
|
|
}
|
|
|
|
# rest of the files, excluding the binary
|
|
opendir(DIR,$src);
|
|
@files = readdir(DIR);
|
|
closedir(DIR);
|
|
|
|
foreach my $file (grep (/[a-zA-Z]+\.(txt|config|ignore|sh)/,@files)) {
|
|
glob_install("$src/$file", "$userdir/");
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
# Get options
|
|
GetOptions ( 'r|root=s' => \$ROOT,
|
|
'z|ziptool:s' => \$ziptool,
|
|
'm|modelname=s' => \$modelname, # The model name as used in ARCHOS in the root makefile
|
|
'i|id=s' => \$target_id, # The target id name as used in TARGET_ID in the root makefile
|
|
'o|output:s' => \$output,
|
|
'f|fonts=s' => \$incfonts, # 0 - no fonts, 1 - fonts only 2 - fonts and package
|
|
'v|verbose' => \$verbose,
|
|
'install=s' => \$install, # install destination
|
|
'rbdir:s' => \$rbdir, # If we want to put in a different directory
|
|
'l|link' => \$mklinks, # If we want to create links instead of copying files
|
|
'a|app:s' => \$app, # Is this an Application build?
|
|
);
|
|
|
|
# GetOptions() doesn't remove the params from @ARGV if their value was ""
|
|
# Thus we use the ":" for those for which we use a default value in case of ""
|
|
# and assign the default value afterwards
|
|
if ($ziptool eq '') {
|
|
$ziptool = "zip -r9";
|
|
}
|
|
if ($output eq '') {
|
|
$output = "rockbox.zip"
|
|
}
|
|
if ($rbdir eq '') {
|
|
$rbdir = ".rockbox";
|
|
}
|
|
|
|
# Now @ARGV shuold be free of any left-overs GetOptions left
|
|
($target, $exe) = @ARGV;
|
|
|
|
my $firmdir="$ROOT/firmware";
|
|
my $appsdir="$ROOT/apps";
|
|
my $viewer_bmpdir="$ROOT/apps/plugins/bitmaps/viewer_defaults";
|
|
|
|
my $cppdef = $target;
|
|
|
|
sub gettargetinfo {
|
|
open(GCC, ">gcctemp");
|
|
# Get the LCD screen depth and graphical status
|
|
print GCC <<STOP
|
|
\#include "config.h"
|
|
Bitmap: yes
|
|
Depth: LCD_DEPTH
|
|
LCD Width: LCD_WIDTH
|
|
LCD Height: LCD_HEIGHT
|
|
Icon Width: CONFIG_DEFAULT_ICON_WIDTH
|
|
Icon Height: CONFIG_DEFAULT_ICON_HEIGHT
|
|
#ifdef HAVE_REMOTE_LCD
|
|
Remote Depth: LCD_REMOTE_DEPTH
|
|
Remote Icon Width: CONFIG_REMOTE_DEFAULT_ICON_WIDTH
|
|
Remote Icon Height: CONFIG_REMOTE_DEFAULT_ICON_HEIGHT
|
|
#else
|
|
Remote Depth: 0
|
|
#endif
|
|
#ifdef HAVE_RECORDING
|
|
Recording: yes
|
|
#endif
|
|
STOP
|
|
;
|
|
close(GCC);
|
|
|
|
my $c="cat gcctemp | gcc $cppdef -I. -I$firmdir/export -E -P -";
|
|
|
|
# print STDERR "CMD $c\n";
|
|
|
|
open(TARGET, "$c|");
|
|
|
|
my ($bitmap, $width, $height, $depth, $icon_h, $icon_w);
|
|
my ($remote_depth, $remote_icon_h, $remote_icon_w);
|
|
my ($recording);
|
|
my $icon_count = 1;
|
|
while(<TARGET>) {
|
|
# print STDERR "DATA: $_";
|
|
if($_ =~ /^Bitmap: (.*)/) {
|
|
$bitmap = $1;
|
|
}
|
|
elsif($_ =~ /^Depth: (\d*)/) {
|
|
$depth = $1;
|
|
}
|
|
elsif($_ =~ /^LCD Width: (\d*)/) {
|
|
$width = $1;
|
|
}
|
|
elsif($_ =~ /^LCD Height: (\d*)/) {
|
|
$height = $1;
|
|
}
|
|
elsif($_ =~ /^Icon Width: (\d*)/) {
|
|
$icon_w = $1;
|
|
}
|
|
elsif($_ =~ /^Icon Height: (\d*)/) {
|
|
$icon_h = $1;
|
|
}
|
|
elsif($_ =~ /^Remote Depth: (\d*)/) {
|
|
$remote_depth = $1;
|
|
}
|
|
elsif($_ =~ /^Remote Icon Width: (\d*)/) {
|
|
$remote_icon_w = $1;
|
|
}
|
|
elsif($_ =~ /^Remote Icon Height: (\d*)/) {
|
|
$remote_icon_h = $1;
|
|
}
|
|
if($_ =~ /^Recording: (.*)/) {
|
|
$recording = $1;
|
|
}
|
|
}
|
|
close(TARGET);
|
|
unlink("gcctemp");
|
|
|
|
return ($bitmap, $depth, $width, $height, $icon_w, $icon_h, $recording,
|
|
$remote_depth, $remote_icon_w, $remote_icon_h);
|
|
}
|
|
|
|
sub filesize {
|
|
my ($filename)=@_;
|
|
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
|
|
$atime,$mtime,$ctime,$blksize,$blocks)
|
|
= stat($filename);
|
|
return $size;
|
|
}
|
|
|
|
|
|
sub buildzip {
|
|
my ($image, $fonts)=@_;
|
|
my $libdir = $install;
|
|
my $temp_dir = ".rockbox";
|
|
|
|
print "buildzip: image=$image fonts=$fonts\n" if $verbose;
|
|
|
|
my ($bitmap, $depth, $width, $height, $icon_w, $icon_h, $recording,
|
|
$remote_depth, $remote_icon_w, $remote_icon_h) =
|
|
&gettargetinfo();
|
|
|
|
# print "Bitmap: $bitmap\nDepth: $depth\n";
|
|
|
|
# remove old traces
|
|
rmtree($temp_dir);
|
|
|
|
glob_mkdir($temp_dir);
|
|
|
|
if(!$bitmap) {
|
|
# always disable fonts on non-bitmap targets
|
|
$fonts = 0;
|
|
}
|
|
if($fonts) {
|
|
glob_mkdir("$temp_dir/fonts");
|
|
chdir "$temp_dir/fonts";
|
|
my $cmd = "$ROOT/tools/convbdf -f $ROOT/fonts/*bdf >/dev/null 2>&1";
|
|
print($cmd."\n") if $verbose;
|
|
system($cmd);
|
|
chdir("../../");
|
|
|
|
if($fonts < 2) {
|
|
# fonts-only package, return
|
|
return;
|
|
}
|
|
}
|
|
|
|
# create the file so the database does not try indexing a folder
|
|
open(IGNORE, ">$temp_dir/database.ignore") || die "can't open database.ignore";
|
|
close(IGNORE);
|
|
|
|
# the samsung ypr0 has a loader script that's needed in the zip
|
|
if ($modelname =~ /samsungypr[01]/) {
|
|
glob_copy("$ROOT/utils/ypr0tools/rockbox.sh", "$temp_dir/");
|
|
}
|
|
# add .nomedia on Android
|
|
# in the zip.
|
|
if ($modelname =~ /android/) {
|
|
open(NOMEDIA, ">$temp_dir/.nomedia") || die "can't open .nomedia";
|
|
close(NOMEDIA);
|
|
}
|
|
# copy wifi firmware
|
|
if ($modelname =~ /sansaconnect/) {
|
|
glob_mkdir("$temp_dir/libertas");
|
|
glob_copy("$ROOT/firmware/drivers/libertas/firmware/*", "$temp_dir/libertas/");
|
|
}
|
|
|
|
glob_mkdir("$temp_dir/langs");
|
|
glob_mkdir("$temp_dir/rocks");
|
|
glob_mkdir("$temp_dir/rocks/games");
|
|
glob_mkdir("$temp_dir/rocks/apps");
|
|
glob_mkdir("$temp_dir/rocks/demos");
|
|
glob_mkdir("$temp_dir/rocks/viewers");
|
|
|
|
if ($recording) {
|
|
glob_mkdir("$temp_dir/recpresets");
|
|
}
|
|
|
|
glob_mkdir("$temp_dir/eqs");
|
|
glob_copy("$ROOT/lib/rbcodec/dsp/eqs/*.cfg", "$temp_dir/eqs/"); # equalizer presets
|
|
|
|
glob_mkdir("$temp_dir/wps");
|
|
glob_mkdir("$temp_dir/icons");
|
|
glob_mkdir("$temp_dir/themes");
|
|
glob_mkdir("$temp_dir/codepages");
|
|
|
|
if($bitmap) {
|
|
system("$ROOT/tools/codepages");
|
|
}
|
|
else {
|
|
system("$ROOT/tools/codepages -m");
|
|
}
|
|
|
|
glob_move('*.cp', "$temp_dir/codepages/");
|
|
|
|
if($bitmap && $depth > 1) {
|
|
glob_mkdir("$temp_dir/backdrops");
|
|
}
|
|
|
|
glob_mkdir("$temp_dir/codecs");
|
|
|
|
# Android has codecs installed as native libraries so they are not needed
|
|
# in the zip.
|
|
if ($modelname !~ /android/) {
|
|
find(find_copyfile(qr/.*\.codec/, abs_path("$temp_dir/codecs/")), 'lib/rbcodec/codecs');
|
|
}
|
|
|
|
# remove directory again if no codec was copied
|
|
rmdir("$temp_dir/codecs");
|
|
|
|
find(find_copyfile(qr/\.(rock|ovl|lua)/, abs_path("$temp_dir/rocks/")), 'apps/plugins');
|
|
|
|
#lua example scripts
|
|
if(-e "$ROOT/apps/plugins/lua_scripts") {
|
|
glob_mkdir("$temp_dir/rocks/demos/lua_scripts");
|
|
glob_copy("$ROOT/apps/plugins/lua_scripts/*.lua", "$temp_dir/rocks/demos/lua_scripts/");
|
|
}
|
|
|
|
# exclude entries for the image file types not supported by the imageviewer for the target.
|
|
my $viewers = "$ROOT/apps/plugins/viewers.config";
|
|
my $c="cat $viewers | gcc $cppdef -I. -I$firmdir/export -E -P -include config.h -";
|
|
|
|
open VIEWERS, "$c|" or die "can't open viewers.config";
|
|
my @viewers = <VIEWERS>;
|
|
close VIEWERS;
|
|
|
|
open VIEWERS, ">$temp_dir/viewers.config" or
|
|
die "can't create $temp_dir/viewers.config";
|
|
|
|
foreach my $line (@viewers) {
|
|
if ($line =~ /([^,]*),([^,]*),/) {
|
|
my ($ext, $plugin)=($1, $2);
|
|
my $r = "${plugin}.rock";
|
|
my $oname;
|
|
|
|
my $dir = $r;
|
|
my $name;
|
|
|
|
# strip off the last slash and file name part
|
|
$dir =~ s/(.*)\/(.*)/$1/;
|
|
# store the file name part
|
|
$name = $2;
|
|
|
|
# get .ovl name (file part only)
|
|
$oname = $name;
|
|
$oname =~ s/\.rock$/.ovl/;
|
|
|
|
# print STDERR "$ext $plugin $dir $name $r\n";
|
|
|
|
if(-e "$temp_dir/rocks/$name") {
|
|
if($dir ne "rocks") {
|
|
# target is not 'rocks' but the plugins are always in that
|
|
# dir at first!
|
|
move("$temp_dir/rocks/$name", "$temp_dir/rocks/$r");
|
|
}
|
|
print VIEWERS $line;
|
|
}
|
|
elsif(-e "$temp_dir/rocks/$r") {
|
|
# in case the same plugin works for multiple extensions, it
|
|
# was already moved to the viewers dir
|
|
print VIEWERS $line;
|
|
}
|
|
|
|
if(-e "$temp_dir/rocks/$oname") {
|
|
# if there's an "overlay" file for the .rock, move that as
|
|
# well
|
|
move("$temp_dir/rocks/$oname", "$temp_dir/rocks/$dir");
|
|
}
|
|
}
|
|
}
|
|
close VIEWERS;
|
|
|
|
open CATEGORIES, "$ROOT/apps/plugins/CATEGORIES" or
|
|
die "can't open CATEGORIES";
|
|
my @rock_targetdirs = <CATEGORIES>;
|
|
close CATEGORIES;
|
|
foreach my $line (@rock_targetdirs) {
|
|
if ($line =~ /([^,]*),(.*)/) {
|
|
my ($plugin, $dir)=($1, $2);
|
|
move("$temp_dir/rocks/${plugin}.rock", "$temp_dir/rocks/$dir/${plugin}.rock");
|
|
if(-e "$temp_dir/rocks/${plugin}.ovl") {
|
|
# if there's an "overlay" file for the .rock, move that as
|
|
# well
|
|
move("$temp_dir/rocks/${plugin}.ovl", "$temp_dir/rocks/$dir");
|
|
}
|
|
if(-e "$temp_dir/rocks/${plugin}.lua") {
|
|
# if this is a lua script, move it to the appropriate dir
|
|
move("$temp_dir/rocks/${plugin}.lua", "$temp_dir/rocks/$dir/");
|
|
}
|
|
}
|
|
}
|
|
|
|
glob_unlink("$temp_dir/rocks/*.lua"); # Clean up unwanted *.lua files (e.g. actions.lua, buttons.lua)
|
|
|
|
copy("$ROOT/apps/tagnavi.config", "$temp_dir/");
|
|
copy("$ROOT/apps/plugins/disktidy.config", "$temp_dir/rocks/apps/");
|
|
|
|
if(-e "$temp_dir/rocks/viewers/open_plugins.rock") {
|
|
my $cwd = getcwd();
|
|
copy("$cwd/apps/plugins/open_plugins.opx", "$temp_dir/rocks/apps/open_plugins.opx") or
|
|
print STDERR "Copy failed: $cwd/apps/plugins/open_plugins.opx $!\n";
|
|
}
|
|
|
|
if($bitmap) {
|
|
copy("$ROOT/apps/plugins/sokoban.levels", "$temp_dir/rocks/games/sokoban.levels"); # sokoban levels
|
|
copy("$ROOT/apps/plugins/snake2.levels", "$temp_dir/rocks/games/snake2.levels"); # snake2 levels
|
|
copy("$ROOT/apps/plugins/rockbox-fonts.config", "$temp_dir/rocks/viewers/");
|
|
}
|
|
|
|
if(-e "$temp_dir/rocks/demos/pictureflow.rock") {
|
|
copy("$ROOT/apps/plugins/bitmaps/native/pictureflow_emptyslide.100x100x16.bmp",
|
|
"$temp_dir/rocks/demos/pictureflow_emptyslide.bmp");
|
|
my ($pf_logo);
|
|
if ($width < 200) {
|
|
$pf_logo = "pictureflow_logo.100x18x16.bmp";
|
|
} else {
|
|
$pf_logo = "pictureflow_logo.193x34x16.bmp";
|
|
}
|
|
copy("$ROOT/apps/plugins/bitmaps/native/$pf_logo",
|
|
"$temp_dir/rocks/demos/pictureflow_splash.bmp");
|
|
|
|
}
|
|
|
|
if($image) {
|
|
# image is blank when this is a simulator
|
|
if( filesize("rockbox.ucl") > 1000 ) {
|
|
copy("rockbox.ucl", "$temp_dir/rockbox.ucl"); # UCL for flashing
|
|
}
|
|
if( filesize("rombox.ucl") > 1000) {
|
|
copy("rombox.ucl", "$temp_dir/rombox.ucl"); # UCL for flashing
|
|
}
|
|
|
|
# Check for rombox.target
|
|
if ($image=~/(.*)\.(\w+)$/)
|
|
{
|
|
my $romfile = "rombox.$2";
|
|
if (filesize($romfile) > 1000)
|
|
{
|
|
copy($romfile, "$temp_dir/$romfile");
|
|
}
|
|
}
|
|
}
|
|
|
|
glob_mkdir("$temp_dir/docs");
|
|
for(("COPYING",
|
|
"LICENSES",
|
|
"KNOWN_ISSUES"
|
|
)) {
|
|
copy("$ROOT/docs/$_", "$temp_dir/docs/$_.txt");
|
|
}
|
|
if ($fonts) {
|
|
copy("$ROOT/docs/profontdoc.txt", "$temp_dir/docs/profontdoc.txt");
|
|
}
|
|
for(("sample.colours",
|
|
"sample.icons"
|
|
)) {
|
|
copy("$ROOT/docs/$_", "$temp_dir/docs/$_");
|
|
}
|
|
|
|
# Now do the WPS dance
|
|
if(-d "$ROOT/wps") {
|
|
my $wps_build_cmd="perl $ROOT/wps/wpsbuild.pl ";
|
|
$wps_build_cmd=$wps_build_cmd."-v " if $verbose;
|
|
$wps_build_cmd=$wps_build_cmd." --tempdir=$temp_dir --rbdir=$rbdir -r $ROOT -m $modelname $ROOT/wps/WPSLIST $target";
|
|
print "wpsbuild: $wps_build_cmd\n" if $verbose;
|
|
system("$wps_build_cmd");
|
|
print "wps_build_cmd: done\n" if $verbose;
|
|
}
|
|
else {
|
|
print STDERR "No wps module present, can't do the WPS magic!\n";
|
|
}
|
|
|
|
# until buildwps.pl is fixed, manually copy the classic_statusbar theme across
|
|
mkdir "$temp_dir/wps/classic_statusbar", 0777;
|
|
glob_copy("$ROOT/wps/classic_statusbar/*.bmp", "$temp_dir/wps/classic_statusbar");
|
|
if ($depth == 16) {
|
|
copy("$ROOT/wps/classic_statusbar.sbs", "$temp_dir/wps");
|
|
} elsif ($depth > 1) {
|
|
copy("$ROOT/wps/classic_statusbar.grey.sbs", "$temp_dir/wps/classic_statusbar.sbs");
|
|
} else {
|
|
copy("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.sbs");
|
|
}
|
|
if ($remote_depth != $depth) {
|
|
copy("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.rsbs");
|
|
} else {
|
|
copy("$temp_dir/wps/classic_statusbar.sbs", "$temp_dir/wps/classic_statusbar.rsbs");
|
|
}
|
|
copy("$temp_dir/wps/rockbox_none.sbs", "$temp_dir/wps/rockbox_none.rsbs");
|
|
|
|
# and the info file
|
|
copy("rockbox-info.txt", "$temp_dir/rockbox-info.txt");
|
|
|
|
# copy the already built lng files
|
|
glob_copy('apps/lang/*.lng', "$temp_dir/langs/");
|
|
glob_copy('apps/lang/*.zip', "$temp_dir/langs/");
|
|
# Copy over the Invalid Language fallback stuff
|
|
glob_copy("$ROOT/apps/lang/Invalid*.talk", "$temp_dir/langs/");
|
|
|
|
# copy the .lua files
|
|
glob_mkdir("$temp_dir/rocks/viewers/lua/");
|
|
glob_copy('apps/plugins/lua/*.lua', "$temp_dir/rocks/viewers/lua/");
|
|
}
|
|
|
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
|
|
localtime(time);
|
|
|
|
$mon+=1;
|
|
$year+=1900;
|
|
|
|
#$date=sprintf("%04d%02d%02d", $year,$mon, $mday);
|
|
#$shortdate=sprintf("%02d%02d%02d", $year%100,$mon, $mday);
|
|
|
|
# made once for all targets
|
|
sub runone {
|
|
my ($target, $fonts)=@_;
|
|
|
|
# Strip the leading / from $rbdir unless we are installing an application
|
|
# build - the layout is different (no .rockbox, but bin/lib/share)
|
|
unless ($app && $install) {
|
|
$rbdir = substr($rbdir, 1);
|
|
}
|
|
|
|
# build a full install .rockbox ($rbdir) directory
|
|
buildzip($target, $fonts);
|
|
|
|
unlink($output);
|
|
|
|
if($fonts == 1) {
|
|
# Don't include image file in fonts-only package
|
|
undef $target;
|
|
}
|
|
if($target && ($target !~ /(mod|ajz|wma)\z/i)) {
|
|
# On some targets, the image goes into .rockbox.
|
|
copy("$target", ".rockbox/$target");
|
|
undef $target;
|
|
}
|
|
|
|
if($install) {
|
|
if($mklinks) {
|
|
my $cwd = getcwd();
|
|
symlink("$cwd/.rockbox", "$install/.rockbox");
|
|
print "link .rockbox $install\n" if $verbose;
|
|
} else {
|
|
make_install(".rockbox", $install) or die "MKDIRFAILED\n";
|
|
rmtree(".rockbox");
|
|
print "rm .rockbox\n" if $verbose;
|
|
}
|
|
}
|
|
else {
|
|
unless (".rockbox" eq $rbdir) {
|
|
mkpath($rbdir);
|
|
rmtree($rbdir);
|
|
move(".rockbox", $rbdir);
|
|
print "mv .rockbox $rbdir\n" if $verbose;
|
|
}
|
|
system("$ziptool $output $rbdir $target >/dev/null");
|
|
print "$ziptool $output $rbdir $target >/dev/null\n" if $verbose;
|
|
rmtree("$rbdir");
|
|
print "rm $rbdir\n" if $verbose;
|
|
}
|
|
};
|
|
|
|
if(!$exe) {
|
|
# not specified, guess!
|
|
if($target =~ /iriver/i) {
|
|
$exe = "rockbox.iriver";
|
|
}
|
|
}
|
|
elsif(($exe =~ /rockboxui/)) {
|
|
# simulator, exclude the exe file
|
|
$exe = "";
|
|
}
|
|
elsif($exe eq "librockbox.so") {
|
|
# android, exclude the binary
|
|
$exe="";
|
|
}
|
|
|
|
runone($exe, $incfonts);
|