steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Removed extra nulls from v1 tags

db4
Tim Wawrzynczak 2009-02-15 19:12:46 -06:00
parent 5ef7afcbb3
commit 9363ecc108
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/id3/id3-tests.factor
View File

@ -164,17 +164,17 @@ IN: id3.tests
[ [
T{ mp3v1-file T{ mp3v1-file
{ title { title
"BLAH\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" "BLAH"
} }
{ artist { artist
"ARTIST\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" "ARTIST"
} }
{ album { album
"ALBUM\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" "ALBUM"
} }
{ year "2009" } { year "2009" }
{ comment { comment
"COMMENT\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" "COMMENT"
} }
{ genre 89 } { genre 89 }
} }

10
extra/id3/id3.factor
View File

@ -127,11 +127,11 @@ TUPLE: mp3v1-file title artist album year comment genre ;
: (read-v1-tag-data) ( seq -- mp3-file ) : (read-v1-tag-data) ( seq -- mp3-file )
[ <mp3v1-file> ] dip [ <mp3v1-file> ] dip
{ {
[ read-title ascii decode >>title ] [ read-title ascii decode filter-text-data >>title ]
[ read-artist ascii decode >>artist ] [ read-artist ascii decode filter-text-data >>artist ]
[ read-album ascii decode >>album ] [ read-album ascii decode filter-text-data >>album ]
[ read-year ascii decode >>year ] [ read-year ascii decode filter-text-data >>year ]
[ read-comment ascii decode >>comment ] [ read-comment ascii decode filter-text-data >>comment ]
[ read-genre >fixnum >>genre ] [ read-genre >fixnum >>genre ]
} cleave ; } cleave ;