package mpg123

  1. Overview
  2. Docs
MP3 decoding library

Install

Dune Dependency

Authors

Maintainers

Sources

0.1.tar.gz
md5=8c5a96f8769597a4f077fec5224dbce9
sha512=2f79d1f5e1e62a5d19f095de2fb80b61d1803b4c917bf937a7d889f0871e8d563324e1cdffb0633f8cfdd67293e39e7f6b5336f9a786955ae10c71666b582518

doc/src/mpg123.c_function_descriptions/mpg123_c_function_descriptions.ml.html

Source file mpg123_c_function_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
open Ctypes

module Types = Mpg123_c_types

module Functions (F : Ctypes.FOREIGN) = struct
  open F

  let mpg123_init = foreign "mpg123_init" (void @-> returning int)
  let mpg123_exit = foreign "mpg123_exit" (void @-> returning void)

  let mpg123_new =
    foreign "mpg123_new" (string_opt @-> ptr int @-> returning (ptr Types.Handle.t))
  let mpg123_delete =
    foreign "mpg123_delete" (ptr Types.Handle.t @-> returning void)

  let mpg123_plain_strerror =
    foreign "mpg123_plain_strerror" (int @-> returning string)
  let mpg123_strerror =
    foreign "mpg123_strerror" (ptr Types.Handle.t @-> returning string)
  let mpg123_errcode =
    foreign "mpg123_errcode" (ptr Types.Handle.t @-> returning int)

  let mpg123_decoders =
    foreign "mpg123_decoders" (void @-> returning (ptr string_opt))
  let mpg123_supported_decoders =
    foreign "mpg123_supported_decoders" (void @-> returning (ptr string_opt))
  let mpg123_decoder =
    foreign "mpg123_decoder" (ptr Types.Handle.t @-> string @-> returning int)
  let mpg123_current_decoder =
    foreign "mpg123_current_decoder" (ptr Types.Handle.t @-> returning string)

  let mpg123_open =
    foreign "mpg123_open" (ptr Types.Handle.t @-> string @-> returning int)
  let mpg123_close =
    foreign "mpg123_close" (ptr Types.Handle.t @-> returning int)
  let mpg123_read =
    foreign "mpg123_read"
      (ptr Types.Handle.t @-> ptr char @-> int @-> ptr int @-> returning int)

  let mpg123_scan =
    foreign "mpg123_scan" (ptr Types.Handle.t @-> returning int)

  let mpg123_meta_check =
    foreign "mpg123_meta_check" (ptr Types.Handle.t @-> returning int)

  let mpg123_length =
    foreign "mpg123_length" (ptr Types.Handle.t @-> returning int)

  let mpg123_meta_free =
    foreign "mpg123_meta_free" (ptr Types.Handle.t @-> returning void)

  let mpg123_id3 =
    foreign "mpg123_id3" (ptr Types.Handle.t @-> (ptr (ptr Types.Id3v1.t))
      @-> (ptr (ptr Types.Id3v2.t)) @-> returning int)

  let mpg123_getformat =
    foreign "mpg123_getformat" (ptr Types.Handle.t @-> ptr int
      @-> ptr int @-> ptr int @-> returning int)
  let mpg123_format_none =
    foreign "mpg123_format_none" (ptr Types.Handle.t @-> returning int)
  let mpg123_format =
    foreign "mpg123_format" (ptr Types.Handle.t @-> int @-> int @-> int @-> returning int)
end
OCaml

Innovation. Community. Security.