204 |
when tag_name = v -> tag_value |
when tag_name = v -> tag_value |
205 |
| _ :: tags -> find_tag v tags |
| _ :: tags -> find_tag v tags |
206 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
207 |
let file_common_tags = [ |
let file_common_tags = [ |
208 |
"\001", Field_Filename; |
"\001", Field_Filename; |
209 |
"\002", Field_Size; |
"\002", Field_Size; |
210 |
"\003", Field_Type; |
"\003", Field_Type; |
211 |
"\004", Field_Format; |
"\004", Field_Format; |
212 |
|
"\005", Field_Lastseencomplete; |
213 |
"\021", Field_Availability; |
"\021", Field_Availability; |
214 |
"\048", Field_Completesources; |
"\048", Field_Completesources; |
215 |
|
"\208", Field_Artist; |
216 |
|
"\209", Field_Album; |
217 |
|
"\210", Field_Title; |
218 |
|
"\211", Field_Medialength; |
219 |
|
"\212", Field_Bitrate; |
220 |
|
"\213", Field_Mediacodec; |
221 |
|
"\247", Field_Filerating; |
222 |
|
|
223 |
"Artist", Field_Artist; |
"Artist", Field_Artist; |
224 |
"Album", Field_Album; |
"Album", Field_Album; |
225 |
"Title", Field_Title; |
"Title", Field_Title; |