package metadata

  1. Overview
  2. Docs

Source file metadataMP4.ml

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
open MetadataBase
module R = Reader

let tagn =
  [
    ("\xa9nam", "title");
    ("\xa9ART", "artist");
    ("\xa9too", "encoder");
    ("\xa9day", "date");
    ("\xa9cpy", "copyright");
    ("\xa9alb", "album");
    ("\xa9des", "description");
    ("\xa9cmt", "comment");
  ]

let parse f : metadata =
  let len = R.int32_be f in
  if R.read f 4 <> "ftyp" then raise Invalid;
  R.drop f (len - 8);
  let ans = ref [] in
  let rec chunk l =
    let len = R.int32_be f in
    let tag = R.read f 4 in
    let tags = tag :: l in
    (match tags with
      | ["moov"]
      | ["udta"; "moov"]
      | ["meta"; "udta"; "moov"]
      | ["ilst"; "meta"; "udta"; "moov"]
      | [_; "ilst"; "meta"; "udta"; "moov"] ->
          let remaining = ref (len - 8) in
          if List.hd tags = "meta" then (
            R.drop f 4;
            remaining := !remaining - 4);
          (* version and flags for metadata *)
          while !remaining > 0 do
            remaining := !remaining - chunk (tag :: l)
          done
      | ["data"; tag; "ilst"; "meta"; "udta"; "moov"] -> (
          let value = R.read f (len - 8) in
          match List.assoc_opt tag tagn with
            | Some tag -> ans := (tag, value) :: !ans
            | None -> ())
      | _ -> R.drop f (len - 8));
    len
  in
  try
    while true do
      ignore (chunk [])
    done;
    assert false
  with _ -> List.rev !ans

let parse_file = R.with_file parse