devs/foxbox
1
0
Fork 0
forked from len0rd/rockbox
Code Pull requests Activity

Now fully v1 spec compliant

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5319 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Björn Stenberg 2004-10-21 21:58:15 +00:00
parent 687793ca67
commit d92ee70088
1 changed files with 64 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

85
tools/songdb.pl
View file

@ -131,11 +131,14 @@ sub dodir {
# prepend Artist name to handle duplicate album names from other # prepend Artist name to handle duplicate album names from other
# artists # artists
my $albumid = $id3->{'ALBUM'}."___".$id3->{'ARTIST'};
if($id3->{'ALBUM'}) { if($id3->{'ALBUM'}) {
my $num = $albums{$id3->{'ARTIST'}."___".$id3->{'ALBUM'}}++; my $num = ++$albums{$albumid};
if($num > $maxsongperalbum) { if($num > $maxsongperalbum) {
$maxsongperalbum = $num; $maxsongperalbum = $num;
} }
$album2songs{$albumid}{$$id3{TITLE}} = $id3;
$artist2albums{$$id3{ARTIST}}{$$id3{ALBUM}} = $id3;
} }
} }
@ -169,11 +172,12 @@ for(sort {$entries{$a}->{'TITLE'} cmp $entries{$b}->{'TITLE'}} keys %entries) {
$maxsonglen = $l; $maxsonglen = $l;
} }
} }
$maxsonglen++; # include zero termination byte
while($maxsonglen&3) { while($maxsonglen&3) {
$maxsonglen++; $maxsonglen++;
} }
my $maxaristlen; my $maxartistlen;
print "\nArtist table\n"; print "\nArtist table\n";
my $i=0; my $i=0;
my %artistcount; my %artistcount;
@ -181,12 +185,18 @@ for(sort keys %artists) {
printf(" %s\n", $_); printf(" %s\n", $_);
$artistcount{$_}=$i++; $artistcount{$_}=$i++;
my $l = length($_); my $l = length($_);
if($l > $maxaristlen) { if($l > $maxartistlen) {
$maxaristlen = $l; $maxartistlen = $l;
}
$l = scalar keys %{$artist2albums{$_}};
if ($l > $maxalbumsperartist) {
$maxalbumsperartist = $l;
} }
} }
while($maxaristlen&3) { $maxartistlen++; # include zero termination byte
$maxaristlen++; while($maxartistlen&3) {
$maxartistlen++;
} }
print "\nGenre table\n"; print "\nGenre table\n";
@ -205,18 +215,20 @@ my %albumcount;
$i=0; $i=0;
for(sort keys %albums) { for(sort keys %albums) {
my @moo=split(/___/, $_); my @moo=split(/___/, $_);
printf(" %s\n", $moo[1]); printf(" %s\n", $moo[0]);
$albumcount{$moo[1]} = $i++; $albumcount{$_} = $i++;
my $l = length($moo[1]); my $l = length($moo[0]);
if($l > $maxalbumlen) { if($l > $maxalbumlen) {
$maxalbumlen = $l; $maxalbumlen = $l;
} }
} }
$maxalbumlen++; # include zero termination byte
while($maxalbumlen&3) { while($maxalbumlen&3) {
$maxalbumlen++; $maxalbumlen++;
} }
sub dumpint { sub dumpint {
my ($num)=@_; my ($num)=@_;
@ -232,8 +244,13 @@ sub dumpint {
if($db) { if($db) {
print STDERR "\nCreating db $db\n"; print STDERR "\nCreating db $db\n";
my $songentrysize = $maxsonglen + 12;
my $albumentrysize = $maxalbumlen + 4 + $maxsongperalbum*4;
my $artistentrysize = $maxartistlen + $maxalbumsperartist*4;
print STDERR "Max song length: $maxsonglen\n"; print STDERR "Max song length: $maxsonglen\n";
print STDERR "Max album length: $maxalbumlen\n"; print STDERR "Max album length: $maxalbumlen\n";
print STDERR "Max artist length: $maxartistlen\n";
print STDERR "Database version: $dbver\n"; print STDERR "Database version: $dbver\n";
open(DB, ">$db") || die "couldn't make $db"; open(DB, ">$db") || die "couldn't make $db";
@ -247,7 +264,7 @@ if($db) {
dumpint($maxsonglen); # length of song name field dumpint($maxsonglen); # length of song name field
# set total size of song title table # set total size of song title table
$sc = scalar(keys %entries) * $maxsonglen; $sc = scalar(keys %entries) * $songentrysize;
$albumindex = $songindex + $sc; # sc is size of all songs $albumindex = $songindex + $sc; # sc is size of all songs
dumpint($albumindex); # file position index of album table dumpint($albumindex); # file position index of album table
@ -255,12 +272,12 @@ if($db) {
dumpint($maxalbumlen); # length of album name field dumpint($maxalbumlen); # length of album name field
dumpint($maxsongperalbum); # number of entries in songs-per-album array dumpint($maxsongperalbum); # number of entries in songs-per-album array
my $ac = ($maxalbumlen + 8 ) * scalar(keys %albums); my $ac = scalar(keys %albums) * $albumentrysize;
$artistindex = $albumindex + $ac; # ac is size of all albums $artistindex = $albumindex + $ac; # ac is size of all albums
dumpint($artistindex); # file position index of artist table dumpint($artistindex); # file position index of artist table
dumpint(scalar(keys %artists)); # number of artists dumpint(scalar(keys %artists)); # number of artists
dumpint($maxaristlen); # length of artist name field dumpint($maxartistlen); # length of artist name field
dumpint($maxalbumsperartist); # number of entries in albums-per-artist array dumpint($maxalbumsperartist); # number of entries in albums-per-artist array
my $l=0; my $l=0;
@ -281,21 +298,26 @@ if($db) {
# pointer to album of song1 # pointer to album of song1
# pointer to filename of song1 # pointer to filename of song1
my $offset = $songindex;
for(sort {$entries{$a}->{'TITLE'} cmp $entries{$b}->{'TITLE'}} keys %entries) { for(sort {$entries{$a}->{'TITLE'} cmp $entries{$b}->{'TITLE'}} keys %entries) {
my $f = $_; my $f = $_;
my $id3 = $entries{$f}; my $id3 = $entries{$f};
my $t = $id3->{'TITLE'}; my $t = $id3->{'TITLE'};
my $str = $t."\x00" x ($maxsonglen- length($t)); my $str = $t."\x00" x ($maxsonglen- length($t));
printf DB ("%s\x00", $str); # title
my $a = $artistcount{$id3->{'ARTIST'}} * $maxaristlen; print DB $str; # title
my $a = $artistcount{$id3->{'ARTIST'}} * $artistentrysize;
dumpint($a + $artistindex); # pointer to artist of this song dumpint($a + $artistindex); # pointer to artist of this song
$a = $albumcount{$id3->{'ALBUM'}} * $maxalbumlen; $a = $albumcount{"$$id3{ALBUM}___$$id3{ARTIST}"} * $albumentrysize;
dumpint($a + $albumindex); # pointer to album of this song dumpint($a + $albumindex); # pointer to album of this song
# pointer to filename of this song # pointer to filename of this song
dumpint($filenamepos{$id3->{'FILE'}} + $pathindex); dumpint($filenamepos{$id3->{'FILE'}} + $pathindex);
$$id3{'songoffset'} = $offset;
$offset += $songentrysize;
} }
#### TABLE of albums ### #### TABLE of albums ###
@ -304,17 +326,23 @@ if($db) {
# pointers to songs on album1 # pointers to songs on album1
for(sort keys %albums) { for(sort keys %albums) {
my $albumid = $_;
my @moo=split(/___/, $_); my @moo=split(/___/, $_);
my $t = $moo[1]; my $t = $moo[0];
my $str = $t."\x00" x ($maxalbumlen - length($t)); my $str = $t."\x00" x ($maxalbumlen - length($t));
printf DB ("%s\x00", $str); print DB $str;
my $a = $artistcount{$moo[0]} * $maxaristlen; my $a = $artistcount{$moo[0]} * $artistentrysize;
dumpint($a + $artistindex); # pointer to artist of this album dumpint($a + $artistindex); # pointer to artist of this album
# $maxsongperalbum for (sort keys %{$album2songs{$albumid}}) {
dumpint(15); # pointers to songs on album1 my $id3 = $album2songs{$albumid}{$_};
dumpint($$id3{'songoffset'});
}
for (scalar keys %{$album2songs{$albumid}} .. $maxsongperalbum-1) {
print DB "\x00\x00\x00\x00";
}
} }
#### TABLE of artists ### #### TABLE of artists ###
@ -322,7 +350,20 @@ if($db) {
# pointers to albums of artist1 # pointers to albums of artist1
for (sort keys %artists) { for (sort keys %artists) {
printf DB ("%s\x00", $_); my $artist = $_;
my $str = $_."\x00" x ($maxartistlen - length($_));
print DB $str;
for (sort keys %{$artist2albums{$artist}}) {
my $id3 = $artist2albums{$artist}{$_};
my $a = $albumcount{"$$id3{'ALBUM'}___$$id3{'ARTIST'}"} * albumentrysize;
dumpint($a + $albumindex);
}
for (scalar keys %{$artist2albums{$artist}} .. $maxalbumsperartist-1) {
print DB "\x00\x00\x00\x00";
}
} }
close(DB); close(DB);