1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
let () =
let binary = ref false in
let fname = ref [] in
let format = ref "" in
Arg.parse
(Arg.align
[
("-b", Arg.Set binary, " Show binary contents of tags.");
("--format", Arg.Set_string format, " File format.");
("-f", Arg.Set_string format, " File format.");
]
)
(fun f -> fname := f :: !fname)
"meta [options] file";
let parser =
match !format with
| "id3" | "mp3" -> Metadata.ID3.parse_file
| "id3v1" -> Metadata.ID3v1.parse_file
| "id3v2" -> fun ?custom_parser f -> Metadata.ID3v2.parse_file ?custom_parser f
| "ogg" -> Metadata.OGG.parse_file
| "mp4" -> Metadata.MP4.parse_file
| "" -> Metadata.Any.parse_file
| _ -> failwith "Unknown format."
in
let fname = !fname in
if fname = [] then (
Printf.eprintf "Please enter a filename.\n%!";
exit 1);
let fname =
List.map
(fun f ->
if String.contains f '*' then (
let d = Filename.dirname f in
let f =
Filename.basename f
|> Str.global_replace (Str.regexp "\\*") ".*"
|> Str.regexp
in
let files =
Sys.readdir d |> Array.to_list
|> List.filter (fun s -> Str.string_match f s 0)
in
List.map (fun f -> d ^ "/" ^ f) files)
else [f])
fname
|> List.flatten
in
List.iter
(fun fname ->
Printf.printf "\n# Metadata for %s\n\n%!" fname;
(* Store "APIC" as custom tag. *)
let apic_tag = ref None in
let custom_parser { Metadata.read_ba; label; _ } =
match (label, read_ba) with
| "APIC", Some r -> apic_tag := Some (r ())
| _ -> ()
in
let m = parser ~custom_parser fname in
List.iter
(fun (k, v) ->
let v =
match k with
| "APIC" -> assert false
| "PIC" | "metadata_block_picture" | "RVA2" -> "<redacted>"
| _ -> v
in
Printf.printf "- %s: %s\n%!" k v;
if !binary then Printf.printf " %s: %S\n%!" k v)
m;
match !apic_tag with
| None -> ()
| Some tag ->
Printf.printf "- APIC: <custom tag of length %d>\n"
(Bigarray.Array1.dim tag))
fname
|
