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

Merge branch 'master' of git://github.com/inforichland/factor-id3

db4
Doug Coleman 2009-02-15 20:33:58 -06:00
parent e8c3fe2afc 9363ecc108
commit 89f3920291
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
{ 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\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\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" }
{ 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 }
}

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 )
[ <mp3v1-file> ] dip
{
[ read-title ascii decode >>title ]
[ read-artist ascii decode >>artist ]
[ read-album ascii decode >>album ]
[ read-year ascii decode >>year ]
[ read-comment ascii decode >>comment ]
[ read-title ascii decode filter-text-data >>title ]
[ read-artist ascii decode filter-text-data >>artist ]
[ read-album ascii decode filter-text-data >>album ]
[ read-year ascii decode filter-text-data >>year ]
[ read-comment ascii decode filter-text-data >>comment ]
[ read-genre >fixnum >>genre ]
} cleave ;