Nyaaori/rockbox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
rockbox/tools/buildzip.pl
Jonathan Gordon 5b861933fd FS#8637 - new UI for disktidy. 
Usage changes:
- disktidy.config is loaded with a list of file/directory names (included in the .zip)
- disktidy_custom.config is then loaded which is the same list but marks the files/dirs to be deleted. Also used to add custom files
- the default config is to not remove any files so the first time you run it you need to go into the "files to clean" option and select the files to remove. they will be then saved for next time.

The "Files To Clean" screen:
use the usual select option to toggle an item (if it has the cursor icon it will be removed)
selecting < ALL > will remove all, < NONE > will deselect all.
selecting a < > group will toggle all items in that group

to exit that screen use the standard cancel action (usually left arrow)

Directories are marked with a trailing / and * can be used at the end of the name (e.g .Trash-*/)


git-svn-id: svn://svn.rockbox.org/rockbox/trunk@17565 a1c6a512-1295-4272-9138-f99709370657
2008-05-18 07:27:10 +00:00

458 lines
12 KiB
Perl
Executable file
Raw Blame History

#!/usr/bin/perl
# __________ __ ___.
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
# \/ \/ \/ \/ \/
# $Id$
#
$ROOT="..";
my $ziptool="zip";
my $output="rockbox.zip";
my $verbose;
my $exe;
my $target;
my $archos;
my $incfonts;
while(1) {
if($ARGV[0] eq "-r") {
$ROOT=$ARGV[1];
shift @ARGV;
shift @ARGV;
}
elsif($ARGV[0] eq "-z") {
$ziptool=$ARGV[1];
shift @ARGV;
shift @ARGV;
}
elsif($ARGV[0] eq "-t") {
# The target name as used in ARCHOS in the root makefile
$archos=$ARGV[1];
shift @ARGV;
shift @ARGV;
}
elsif($ARGV[0] eq "-i") {
# The target id name as used in TARGET_ID in the root makefile
$target_id=$ARGV[1];
shift @ARGV;
shift @ARGV;
}
elsif($ARGV[0] eq "-o") {
$output=$ARGV[1];
shift @ARGV;
shift @ARGV;
}
elsif($ARGV[0] eq "-f") {
$incfonts=$ARGV[1]; # 0 - no fonts, 1 - fonts only 2 - fonts and package
shift @ARGV;
shift @ARGV;
}
elsif($ARGV[0] eq "-v") {
$verbose =1;
shift @ARGV;
}
else {
$target = $ARGV[0];
$exe = $ARGV[1];
last;
}
}
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"
#ifdef HAVE_LCD_BITMAP
Bitmap: yes
Depth: LCD_DEPTH
Icon Width: CONFIG_DEFAULT_ICON_WIDTH
Icon Height: CONFIG_DEFAULT_ICON_HEIGHT
#endif
Codec: CONFIG_CODEC
#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, $depth, $swcodec, $icon_h, $icon_w);
my ($remote_depth, $remote_icon_h, $remote_icon_w);
my ($recording);
$icon_count = 1;
while(<TARGET>) {
# print STDERR "DATA: $_";
if($_ =~ /^Bitmap: (.*)/) {
$bitmap = $1;
}
elsif($_ =~ /^Depth: (\d*)/) {
$depth = $1;
}
elsif($_ =~ /^Icon Width: (\d*)/) {
$icon_w = $1;
}
elsif($_ =~ /^Icon Height: (\d*)/) {
$icon_h = $1;
}
elsif($_ =~ /^Codec: (\d*)/) {
# SWCODEC is 1, the others are HWCODEC
$swcodec = ($1 == 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, $icon_w, $icon_h, $recording,
$swcodec, $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 ($zip, $image, $fonts)=@_;
my ($bitmap, $depth, $icon_w, $icon_h, $recording, $swcodec,
$remote_depth, $remote_icon_w, $remote_icon_h) = &gettargetinfo();
# print "Bitmap: $bitmap\nDepth: $depth\nSwcodec: $swcodec\n";
# remove old traces
`rm -rf .rockbox`;
mkdir ".rockbox", 0777;
if(!$bitmap) {
# always disable fonts on non-bitmap targets
$fonts = 0;
}
# create the file so the database does not try indexing a folder
`touch .rockbox/database.ignore`;
if($fonts) {
mkdir ".rockbox/fonts", 0777;
opendir(DIR, "$ROOT/fonts") || die "can't open dir fonts";
my @fonts = grep { /\.bdf$/ && -f "$ROOT/fonts/$_" } readdir(DIR);
closedir DIR;
for(@fonts) {
my $f = $_;
print "FONT: $f\n" if($verbose);
my $o = $f;
$o =~ s/\.bdf/\.fnt/;
my $cmd ="$ROOT/tools/convbdf -f -o \".rockbox/fonts/$o\" \"$ROOT/fonts/$f\" >/dev/null 2>&1";
print "CMD: $cmd\n" if($verbose);
`$cmd`;
}
if($fonts < 2) {
# fonts-only package, return
return;
}
}
mkdir ".rockbox/langs", 0777;
mkdir ".rockbox/rocks", 0777;
mkdir ".rockbox/rocks/games", 0777;
mkdir ".rockbox/rocks/apps", 0777;
mkdir ".rockbox/rocks/demos", 0777;
mkdir ".rockbox/rocks/viewers", 0777;
if ($recording) {
mkdir ".rockbox/recpresets", 0777;
}
if($swcodec) {
mkdir ".rockbox/eqs", 0777;
`cp $ROOT/apps/eqs/*.cfg .rockbox/eqs/`; # equalizer presets
}
mkdir ".rockbox/wps", 0777;
mkdir ".rockbox/themes", 0777;
if ($bitmap) {
open(THEME, ">.rockbox/themes/rockbox_default_icons.cfg");
print THEME <<STOP
# this config file was auto-generated to make it
# easy to reset the icons back to default
iconset: -
# taken from apps/gui/icon.c
viewers iconset: /.rockbox/icons/viewers.bmp
remote iconset: -
# taken from apps/gui/icon.c
remote viewers iconset: /.rockbox/icons/remote_viewers.bmp
STOP
;
close(THEME);
}
mkdir ".rockbox/codepages", 0777;
if($bitmap) {
system("$ROOT/tools/codepages");
}
else {
system("$ROOT/tools/codepages -m");
}
$c = 'find . -name "*.cp" ! -empty -exec mv {} .rockbox/codepages/ \; >/dev/null 2>&1';
`$c`;
if($bitmap) {
mkdir ".rockbox/codecs", 0777;
if($depth > 1) {
mkdir ".rockbox/backdrops", 0777;
}
my $c = 'find apps -name "*.codec" ! -empty -exec cp {} .rockbox/codecs/ \; 2>/dev/null';
`$c`;
my @call = `find .rockbox/codecs -type f 2>/dev/null`;
if(!$call[0]) {
# no codec was copied, remove directory again
rmdir(".rockbox/codecs");
}
}
$c= 'find apps "(" -name "*.rock" -o -name "*.ovl" ")" ! -empty -exec cp {} .rockbox/rocks/ \;';
print `$c`;
open VIEWERS, "$ROOT/apps/plugins/viewers.config" or
die "can't open viewers.config";
@viewers = <VIEWERS>;
close VIEWERS;
open VIEWERS, ">.rockbox/viewers.config" or
die "can't create .rockbox/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 ".rockbox/rocks/$name") {
if($dir ne "rocks") {
# target is not 'rocks' but the plugins are always in that
# dir at first!
`mv .rockbox/rocks/$name .rockbox/rocks/$r`;
}
print VIEWERS $line;
}
elsif(-e ".rockbox/rocks/$r") {
# in case the same plugin works for multiple extensions, it
# was already moved to the viewers dir
print VIEWERS $line;
}
if(-e ".rockbox/rocks/$oname") {
# if there's an "overlay" file for the .rock, move that as
# well
`mv .rockbox/rocks/$oname .rockbox/rocks/$dir`;
}
}
}
close VIEWERS;
open CATEGORIES, "$ROOT/apps/plugins/CATEGORIES" or
die "can't open CATEGORIES";
@rock_targetdirs = <CATEGORIES>;
close CATEGORIES;
foreach my $line (@rock_targetdirs) {
if ($line =~ /([^,]*),(.*)/) {
my ($plugin, $dir)=($1, $2);
`mv .rockbox/rocks/${plugin}.rock .rockbox/rocks/$dir 2> /dev/null`;
}
}
if ($bitmap) {
mkdir ".rockbox/icons", 0777;
`cp $viewer_bmpdir/viewers.${icon_w}x${icon_h}x$depth.bmp .rockbox/icons/viewers.bmp`;
if ($remote_depth) {
`cp $viewer_bmpdir/remote_viewers.${remote_icon_w}x${remote_icon_h}x$remote_depth.bmp .rockbox/icons/remote_viewers.bmp`;
}
}
`cp $ROOT/apps/tagnavi.config .rockbox/`;
`cp $ROOT/apps/plugins/disktidy.config .rockbox/rocks/apps/`;
if($bitmap) {
`cp $ROOT/apps/plugins/sokoban.levels .rockbox/rocks/games/`; # sokoban levels
`cp $ROOT/apps/plugins/snake2.levels .rockbox/rocks/games/`; # snake2 levels
}
if($image) {
# image is blank when this is a simulator
if( filesize("rockbox.ucl") > 1000 ) {
`cp rockbox.ucl .rockbox/`; # UCL for flashing
}
if( filesize("rombox.ucl") > 1000) {
`cp rombox.ucl .rockbox/`; # UCL for flashing
}
# Check for rombox.target
if ($image=~/(.*)\.(\w+)$/)
{
my $romfile = "rombox.$2";
if (filesize($romfile) > 1000)
{
`cp $romfile .rockbox/`;
}
}
}
mkdir ".rockbox/docs", 0777;
for(("COPYING",
"LICENSES",
"KNOWN_ISSUES"
)) {
`cp $ROOT/docs/$_ .rockbox/docs/$_.txt`;
}
if ($fonts) {
`cp $ROOT/docs/profontdoc.txt .rockbox/docs/`;
}
for(("sample.colours",
"sample.icons"
)) {
`cp $ROOT/docs/$_ .rockbox/docs/`;
}
# Now do the WPS dance
if(-d "$ROOT/wps") {
system("perl $ROOT/wps/wpsbuild.pl -r $ROOT $ROOT/wps/WPSLIST $target");
}
else {
print STDERR "No wps module present, can't do the WPS magic!\n";
}
# and the info file
system("cp rockbox-info.txt .rockbox/");
# copy the already built lng files
`cp apps/lang/*lng .rockbox/langs/`
}
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)=@_;
# build a full install .rockbox directory
buildzip($output, $target, $fonts);
# create a zip file from the .rockbox dfir
`rm -f $output`;
if($verbose) {
print "find .rockbox | xargs $ziptool $output >/dev/null\n";
}
`find .rockbox | xargs $ziptool $output >/dev/null`;
if($target && ($fonts != 1)) {
# On some targets, rockbox.* is inside .rockbox
if($target !~ /(mod|ajz|wma)\z/i) {
`cp $target .rockbox/$target`;
$target = ".rockbox/".$target;
}
if($verbose) {
print "$ziptool $output $target\n";
}
`$ziptool $output $target`;
}
# remove the .rockbox afterwards
`rm -rf .rockbox`;
};
if(!$exe) {
# not specified, guess!
if($target =~ /(recorder|ondio)/i) {
$exe = "ajbrec.ajz";
}
elsif($target =~ /iriver/i) {
$exe = "rockbox.iriver";
}
else {
$exe = "archos.mod";
}
}
elsif($exe =~ /rockboxui/) {
# simulator, exclude the exe file
$exe = "";
}
runone($exe, $incfonts);
Reference in a new issue View git blame Copy permalink