package mpg123

  1. Overview
  2. Docs
package mpg123
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file mpg123_c_type_descriptions.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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
module Types (F : Ctypes.TYPE) = struct
  open Ctypes
  open F
  let mpg123_api_version = constant "MPG123_API_VERSION" int
  let mpg123_ok = constant "MPG123_OK" int
  let mpg123_done = constant "MPG123_DONE" int

  let mpg123_id3 = constant "MPG123_ID3" int
  let mpg123_new_id3 = constant "MPG123_NEW_ID3" int
  let mpg123_icy = constant "MPG123_ICY" int
  let mpg123_new_icy = constant "MPG123_NEW_ICY" int

  (* these come from fmt123.h, included by mpg123.h *)
  let mpg123_enc_signed16 = constant "MPG123_ENC_SIGNED_16" int
  let mpg123_enc_float32 = constant "MPG123_ENC_FLOAT_32" int

  module Handle = struct
    type t = [`Handle] structure
    let t : t typ = typedef (structure "`Handle") "mpg123_handle"
  end

  module Mpg123_string = struct
    type t = [`Mpg123_string] structure
    let t : t typ = typedef (structure "`Mpg123_string") "mpg123_string"
    let p    = field t "p" (ptr char)
    let size = field t "size" int
    let fill = field t "fill" int
    let () = seal t
  end
  module Mpg123_text = struct
    type t = [`Mpg123_text] structure
    let t : t typ   = typedef (structure "`Mpg123_text") "mpg123_text"
    let lang        = field t "lang" (array 3 char)
    let id          = field t "id" (array 4 char)
    let description = field t "description" Mpg123_string.t
    let text        = field t "text" Mpg123_string.t
    let () = seal t
  end
  module Mpg123_picture = struct
    type t = [`Mpg123_picture] structure
    let t : t typ   = typedef (structure "`Mpg123_picture") "mpg123_picture"
    let type_       = field t "type" char
    let description = field t "description" Mpg123_string.t
    let mime_type   = field t "mime_type" Mpg123_string.t
    let size        = field t "size" int
    let data        = field t "data" (ptr char)
    let () = seal t
  end
  module Id3v1 = struct
    type t = [`Id3v1] structure
    let t : t typ = typedef (structure "`Id3v1") "mpg123_id3v1"
    let tag     = field t "tag" (array 3 char)
    let title   = field t "title" (array 30 char)
    let artist  = field t "artist" (array 30 char)
    let album   = field t "album" (array 30 char)
    let year    = field t "year" (array 4 char)
    let comment = field t "comment" (array 30 char)
    let genre   = field t "genre" char
    let () = seal t
  end
  module Id3v2 = struct
    type t = [`Id3v2] structure
    let t : t typ = typedef (structure "`Id3v2") "mpg123_id3v2"
    let version  = field t "version" char
    let title    = field t "title" (ptr Mpg123_string.t)
    let artist   = field t "artist" (ptr Mpg123_string.t)
    let album    = field t "album" (ptr Mpg123_string.t)
    let year     = field t "year" (ptr Mpg123_string.t)
    let genre    = field t "genre" (ptr Mpg123_string.t)
    let comment  = field t "comment" (ptr Mpg123_string.t)
    let comment_list = field t "comment_list" (ptr Mpg123_text.t)
    let comments = field t "comments" int
    let text     = field t "text" (ptr Mpg123_text.t)
    let texts    = field t "texts" int
    let extra    = field t "extra" (ptr Mpg123_text.t)
    let extras   = field t "extras" int
    let picture  = field t "picture" (ptr Mpg123_picture.t)
    let pictures = field t "pictures" int
    let () = seal t
  end
end