Merge branch 't/remove_sb_compat'
[paraslash.git] / opusdec_filter.c
1 /*
2 * Copyright (c) 2002-2007 Jean-Marc Valin
3 * Copyright (c) 2008 CSIRO
4 * Copyright (c) 2007-2012 Xiph.Org Foundation
5 * Copyright (C) 2012-2013 Andre Noll <maan@systemlinux.org>
6 *
7 * Licensed under the GPL v2. For licencing details see COPYING.
8 */
9
10 /** \file opusdec_filter.c The ogg/opus decoder. */
11
12 /* This file is based on opusdec.c, by Jean-Marc Valin, see below. */
13
14 /*
15 * Redistribution and use in source and binary forms, with or without
16 * modification, are permitted provided that the following conditions are met:
17 *
18 * - Redistributions of source code must retain the above copyright notice,
19 * this list of conditions and the following disclaimer.
20 *
21 * - Redistributions in binary form must reproduce the above copyright notice,
22 * this list of conditions and the following disclaimer in the documentation
23 * and/or other materials provided with the distribution.
24 *
25 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
26 * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
27 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS BE
29 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
30 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
31 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
32 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
33 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
34 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
35 * POSSIBILITY OF SUCH DAMAGE.
36 */
37
38
39 /* Silence gcc warning caused by including opus.h */
40 #if !defined(__STDC_VERSION__)
41 #define __STDC_VERSION__ 0
42 #endif
43
44 #include <regex.h>
45 #include <opus/opus.h>
46 #include <opus/opus_multistream.h>
47 #include <ogg/ogg.h>
48 #include <math.h>
49
50 #include "para.h"
51 #include "list.h"
52 #include "sched.h"
53 #include "ggo.h"
54 #include "buffer_tree.h"
55 #include "filter.h"
56 #include "error.h"
57 #include "string.h"
58 #include "opus_common.h"
59
60 /** 120ms at 48000 */
61 #define MAX_FRAME_SIZE (960*6)
62
63 struct opusdec_context {
64 OpusMSDecoder *st;
65 opus_int64 packet_count;
66 int total_links;
67 bool stream_init;
68 ogg_sync_state oy;
69 ogg_stream_state os;
70 ogg_page ogg_page;
71 bool eos;
72 int channels;
73 int preskip;
74 bool have_opus_stream;
75 ogg_int32_t opus_serialno;
76 };
77
78 static int opusdec_execute(struct btr_node *btrn, const char *cmd,
79 char **result)
80 {
81 struct filter_node *fn = btr_context(btrn);
82 struct opusdec_context *ctx = fn->private_data;
83
84 return decoder_execute(cmd, 48000, ctx->channels, result);
85 }
86
87 static void opusdec_open(struct filter_node *fn)
88 {
89 struct opusdec_context *ctx = para_calloc(sizeof(*ctx));
90
91 ogg_sync_init(&ctx->oy);
92 fn->private_data = ctx;
93 }
94
95 static void opusdec_close(struct filter_node *fn)
96 {
97 struct opusdec_context *ctx = fn->private_data;
98
99 if (ctx->st) {
100 opus_multistream_decoder_destroy(ctx->st);
101 if (ctx->stream_init)
102 ogg_stream_clear(&ctx->os);
103 ogg_sync_clear(&ctx->oy);
104 }
105 free(ctx);
106 fn->private_data = NULL;
107 }
108
109 /* Process an Opus header and setup the opus decoder based on it. */
110 static int opusdec_init(ogg_packet *op, struct opusdec_context *ctx)
111 {
112 int ret;
113 struct opus_header header;
114
115 ctx->st = NULL;
116 ret = opus_parse_header((char *)op->packet, op->bytes, &header);
117 if (ret < 0)
118 return ret;
119 PARA_INFO_LOG("detected header v%d\n", header.version);
120 ctx->channels = header.channels;
121 ctx->preskip = header.preskip;
122 ctx->st = opus_multistream_decoder_create(48000, header.channels,
123 header.nb_streams, header.nb_coupled, header.stream_map, &ret);
124 if (ret != OPUS_OK || !ctx->st) {
125 PARA_ERROR_LOG("%s\n", opus_strerror(ret));
126 return -E_CREATE_OPUS_DECODER;
127 }
128 if (header.gain != 0) {
129 ret = opus_multistream_decoder_ctl(ctx->st,
130 OPUS_SET_GAIN(header.gain));
131 if (ret != OPUS_OK) {
132 PARA_ERROR_LOG("%s\n", opus_strerror(ret));
133 return -E_OPUS_SET_GAIN;
134 }
135 PARA_INFO_LOG("playback gain: %fdB\n", header.gain / 256.);
136 }
137 PARA_INFO_LOG("%d channel(s), 48KHz\n", ctx->channels);
138 return 1;
139 }
140
141 static void opusdec_add_output(short *pcm, int frames_available,
142 struct btr_node *btrn, struct opusdec_context *ctx)
143 {
144 int tmp_skip, num_frames, bytes;
145
146 tmp_skip = PARA_MIN(ctx->preskip, frames_available);
147 ctx->preskip -= tmp_skip;
148 num_frames = frames_available - tmp_skip;
149 if (num_frames <= 0)
150 return;
151 bytes = sizeof(short) * num_frames * ctx->channels;
152
153 if (tmp_skip > 0) {
154 short *in = pcm + ctx->channels * tmp_skip;
155 short *out = para_malloc(bytes);
156 memcpy(out, in, bytes);
157 free(pcm);
158 pcm = out;
159 }
160 btr_add_output((char *)pcm, bytes, btrn);
161 }
162
163 /* returns > 1 if packet was decoded, 0 if it was ignored, negative on errors. */
164 static int decode_packet(struct opusdec_context *ctx, ogg_packet *op,
165 struct btr_node *btrn)
166 {
167 int ret;
168 short *output;
169
170 /*
171 * OggOpus streams are identified by a magic string in the initial
172 * stream header.
173 */
174 if (op->b_o_s && op->bytes >= 8 && !memcmp(op->packet, "OpusHead", 8)) {
175 if (!ctx->have_opus_stream) {
176 ctx->opus_serialno = ctx->os.serialno;
177 ctx->have_opus_stream = true;
178 ctx->packet_count = 0;
179 ctx->eos = false;
180 ctx->total_links++;
181 } else
182 PARA_NOTICE_LOG("ignoring opus stream %llu\n",
183 (long long unsigned)ctx->os.serialno);
184 }
185 if (!ctx->have_opus_stream || ctx->os.serialno != ctx->opus_serialno)
186 return 0;
187 /* If first packet in a logical stream, process the Opus header. */
188 if (ctx->packet_count == 0)
189 return opusdec_init(op, ctx);
190 if (ctx->packet_count == 1)
191 return 1;
192 /* don't care for anything except opus eos */
193 if (op->e_o_s && ctx->os.serialno == ctx->opus_serialno)
194 ctx->eos = true;
195 output = para_malloc(sizeof(short) * MAX_FRAME_SIZE * ctx->channels);
196 ret = opus_multistream_decode(ctx->st, (unsigned char *)op->packet,
197 op->bytes, output, MAX_FRAME_SIZE, 0);
198 if (ret < 0) {
199 PARA_ERROR_LOG("%s\n", opus_strerror(ret));
200 free(output);
201 return -E_OPUS_DECODE;
202 }
203 opusdec_add_output(output, ret, btrn, ctx);
204 return 1;
205 }
206
207 static int opusdec_post_select(__a_unused struct sched *s, struct task *t)
208 {
209 struct filter_node *fn = container_of(t, struct filter_node, task);
210 struct opusdec_context *ctx = fn->private_data;
211 struct btr_node *btrn = fn->btrn;
212 int ret;
213 char *btr_buf, *data;
214 size_t nbytes;
215 ogg_packet op;
216
217 ret = btr_node_status(btrn, fn->min_iqs, BTR_NT_INTERNAL);
218 if (ret <= 0)
219 goto out;
220 btr_merge(btrn, fn->min_iqs);
221 nbytes = btr_next_buffer(btrn, &btr_buf);
222 nbytes = PARA_MIN(nbytes, (size_t)32768);
223 ret = 0;
224 if (nbytes == 0)
225 goto out;
226 data = ogg_sync_buffer(&ctx->oy, nbytes);
227 memcpy(data, btr_buf, nbytes);
228 btr_consume(btrn, nbytes);
229 ogg_sync_wrote(&ctx->oy, nbytes);
230 for (;;) { /* loop over all ogg pages we got */
231 ret = 0;
232 if (ogg_sync_pageout(&ctx->oy, &ctx->ogg_page) != 1)
233 goto out;
234 if (!ctx->stream_init) {
235 ogg_stream_init(&ctx->os, ogg_page_serialno(&ctx->ogg_page));
236 ctx->stream_init = true;
237 }
238 if (ogg_page_serialno(&ctx->ogg_page) != ctx->os.serialno)
239 ogg_stream_reset_serialno(&ctx->os,
240 ogg_page_serialno(&ctx->ogg_page));
241 /* Add page to the bitstream */
242 ogg_stream_pagein(&ctx->os, &ctx->ogg_page);
243 for (;;) { /* loop over all opus packets */
244 ret = ogg_stream_packetout(&ctx->os, &op);
245 if (ret != 1)
246 break;
247 ret = decode_packet(ctx, &op, btrn);
248 if (ret < 0)
249 goto out;
250 ctx->packet_count++;
251 if (ctx->eos)
252 ctx->have_opus_stream = false;
253 }
254 }
255 out:
256 if (ret < 0)
257 btr_remove_node(&fn->btrn);
258 return ret;
259 }
260
261 /**
262 * The init function of the opusdec filter.
263 *
264 * \param f Pointer to the filter struct to initialize.
265 *
266 * \sa filter::init.
267 */
268 void opusdec_filter_init(struct filter *f)
269 {
270 f->open = opusdec_open;
271 f->close = opusdec_close;
272 f->pre_select = generic_filter_pre_select;
273 f->post_select = opusdec_post_select;
274 f->execute = opusdec_execute;
275 }