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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
exception Buffer_too_small
exception Internal_error
exception Invalid_packet
exception Unimplemented
exception Invalid_state
exception Alloc_fail
(** Recommended size of a frame in sample. Buffers for decoding are typically of
this size. *)
val recommended_frame_size : int
val version_string : string
type max_bandwidth =
[ `Narrow_band | `Medium_band | `Wide_band | `Super_wide_band | `Full_band ]
type bandwidth = [ `Auto | max_bandwidth ]
type generic_control =
[ `Reset_state
| `Get_final_range of int ref
| `Get_pitch of int ref
| `Get_bandwidth of bandwidth ref
| `Set_lsb_depth of int
| `Get_lsb_depth of int ref
| `Set_phase_inversion_disabled of bool ]
module Decoder : sig
type control = [ generic_control | `Set_gain of int | `Get_gain of int ref ]
type t
val check_packet : Ogg.Stream.packet -> bool
(** Create a decoder with given samplerate an number of channels. *)
val create : ?samplerate:int -> Ogg.Stream.packet -> Ogg.Stream.packet -> t
val comments : t -> string * (string * string) list
val channels : t -> int
val apply_control : control -> t -> unit
val decode_float :
?decode_fec:bool ->
t ->
Ogg.Stream.stream ->
float array array ->
int ->
int ->
int
val decode_float_ba :
?decode_fec:bool ->
t ->
Ogg.Stream.stream ->
(float, Bigarray.float32_elt, Bigarray.c_layout) Bigarray.Array1.t array ->
int ->
int ->
int
end
module Encoder : sig
type application = [ `Voip | `Audio | `Restricted_lowdelay ]
type signal = [ `Auto | `Voice | `Music ]
type bitrate = [ `Auto | `Bitrate_max | `Bitrate of int ]
type control =
[ generic_control
| `Set_complexity of int
| `Get_complexity of int ref
| `Set_bitrate of bitrate
| `Get_bitrate of bitrate ref
| `Set_vbr of bool
| `Get_vbr of bool ref
| `Set_vbr_constraint of bool
| `Get_vbr_constraint of bool ref
| `Set_force_channels of bool
| `Get_force_channels of bool ref
| `Set_max_bandwidth of max_bandwidth
| `Get_max_bandwidth of max_bandwidth
| `Set_bandwidth of bandwidth
| `Set_signal of signal
| `Get_signal of signal ref
| `Set_application of application
| `Get_application of application
| `Get_samplerate of int
| `Get_lookhead of int
| `Set_inband_fec of bool
| `Get_inband_fec of bool ref
| `Set_packet_loss_perc of int
| `Get_packet_loss_perc of int ref
| `Set_dtx of bool
| `Get_dtx of bool ref ]
type t
val create :
?pre_skip:int ->
?comments:(string * string) list ->
?gain:int ->
samplerate:int ->
channels:int ->
application:application ->
Ogg.Stream.stream ->
t
val header : t -> Ogg.Stream.packet
val comments : t -> Ogg.Stream.packet
val apply_control : control -> t -> unit
val encode_float :
?frame_size:float -> t -> float array array -> int -> int -> int
val encode_float_ba :
?frame_size:float ->
t ->
(float, Bigarray.float32_elt, Bigarray.c_layout) Bigarray.Array1.t array ->
int ->
int ->
int
val eos : t -> unit
[@@alert
deprecated
"This function generates invalid bitstream. Please use \
Ogg.Stream.terminate instead!"]
end
|
