server: Convert com_mvatt() to lopsub.
[paraslash.git] / aac_afh.c
1 /*
2 * Copyright (C) 2006 Andre Noll <maan@tuebingen.mpg.de>
3 *
4 * Licensed under the GPL v2. For licencing details see COPYING.
5 */
6 /*
7 * based in parts on libfaad, Copyright (C) 2003-2005 M. Bakker,
8 * Ahead Software AG
9 */
10
11 /** \file aac_afh.c para_server's aac audio format handler. */
12
13 #include <regex.h>
14 #include <mp4v2/mp4v2.h>
15
16 #include "para.h"
17 #include "error.h"
18 #include "portable_io.h"
19 #include "afh.h"
20 #include "string.h"
21 #include "aac.h"
22 #include "fd.h"
23
24 static int aac_find_stsz(char *buf, size_t buflen, off_t *skip)
25 {
26 int i;
27
28 for (i = 0; i + 16 < buflen; i++) {
29 char *p = buf + i;
30 unsigned sample_count, sample_size;
31
32 if (p[0] != 's' || p[1] != 't' || p[2] != 's' || p[3] != 'z')
33 continue;
34 PARA_DEBUG_LOG("found stsz@%d\n", i);
35 i += 8;
36 sample_size = read_u32_be(buf + i);
37 PARA_DEBUG_LOG("sample size: %u\n", sample_size);
38 i += 4;
39 sample_count = read_u32_be(buf + i);
40 i += 4;
41 PARA_DEBUG_LOG("sample count: %u\n", sample_count);
42 *skip = i;
43 return sample_count;
44 }
45 return -E_STSZ;
46 }
47
48 static int atom_cmp(const char *buf1, const char *buf2)
49 {
50 return memcmp(buf1, buf2, 4)? 1 : 0;
51 }
52
53 static int read_atom_header(char *buf, uint64_t *subsize, char type[5])
54 {
55 uint64_t size = read_u32_be(buf);
56
57 memcpy(type, buf + 4, 4);
58 type[4] = '\0';
59
60 PARA_DEBUG_LOG("size: %llu, type: %s\n", (long long unsigned)size, type);
61 if (size != 1) {
62 *subsize = size;
63 return 8;
64 }
65 buf += 4;
66 size = 0;
67 size = read_u64_be(buf);
68 *subsize = size;
69 return 16;
70 }
71
72 static char *get_tag(char *p, int size)
73 {
74 char *buf;
75
76 assert(size > 0);
77 buf = para_malloc(size + 1);
78
79 memcpy(buf, p, size);
80 buf[size] = '\0';
81 PARA_DEBUG_LOG("size: %d: %s\n", size, buf);
82 return buf;
83 }
84
85 static void read_tags(char *buf, size_t buflen, struct afh_info *afhi)
86 {
87 char *p = buf;
88
89 while (p + 32 < buf + buflen) {
90 char *q, type1[5], type2[5];
91 uint64_t size1, size2;
92 int ret, ret2;
93
94 ret = read_atom_header(p, &size1, type1);
95 ret2 = read_atom_header(p + ret, &size2, type2);
96
97 if (size2 <= 16 || atom_cmp(type2, "data")) {
98 p += size1;
99 continue;
100 }
101 size2 -= 16;
102 q = p + ret + ret2 + 8;
103 if (q + size2 > buf + buflen)
104 break;
105 if (!atom_cmp(type1, "\xa9" "ART"))
106 afhi->tags.artist = get_tag(q, size2);
107 else if (!atom_cmp(type1, "\xa9" "alb"))
108 afhi->tags.album = get_tag(q, size2);
109 else if (!atom_cmp(type1, "\xa9" "nam"))
110 afhi->tags.title = get_tag(q, size2);
111 else if (!atom_cmp(type1, "\xa9" "cmt"))
112 afhi->tags.comment = get_tag(q, size2);
113 else if (!atom_cmp(type1, "\xa9" "day"))
114 afhi->tags.year = get_tag(q, size2);
115 p += size1;
116 }
117 }
118
119 static void read_meta(char *buf, size_t buflen, struct afh_info *afhi)
120 {
121 char *p = buf;
122
123 while (p + 4 < buf + buflen) {
124
125 if (p[0] != 'i' || p[1] != 'l' || p[2] != 's' || p[3] != 't') {
126 p++;
127 continue;
128 }
129 p += 4;
130 return read_tags(p, buflen - (p - buf), afhi);
131 }
132 }
133
134 static void aac_get_taginfo(char *buf, size_t buflen, struct afh_info *afhi)
135 {
136 int i;
137 uint64_t subsize;
138 char type[5];
139
140 for (i = 0; i + 24 < buflen; i++) {
141 char *p = buf + i;
142 if (p[0] != 'm' || p[1] != 'e' || p[2] != 't' || p[3] != 'a')
143 continue;
144 PARA_INFO_LOG("found metadata at offset %d\n", i);
145 i += 8;
146 p = buf + i;
147 i += read_atom_header(p, &subsize, type);
148 p = buf + i;
149 return read_meta(p, buflen - i, afhi);
150 }
151 PARA_INFO_LOG("no meta data\n");
152 }
153
154 static ssize_t aac_compute_chunk_table(struct afh_info *afhi,
155 char *map, size_t numbytes)
156 {
157 int ret, i;
158 size_t sum = 0;
159 off_t skip;
160
161 ret = aac_find_stsz(map, numbytes, &skip);
162 if (ret < 0)
163 return ret;
164 afhi->chunks_total = ret;
165 PARA_DEBUG_LOG("sz table has %" PRIu32 " entries\n", afhi->chunks_total);
166 afhi->chunk_table = para_malloc((afhi->chunks_total + 1) * sizeof(size_t));
167 for (i = 1; i <= afhi->chunks_total; i++) {
168 if (skip + 4 > numbytes)
169 break;
170 sum += read_u32_be(map + skip);
171 afhi->chunk_table[i] = sum;
172 skip += 4;
173 // if (i < 10 || i + 10 > afhi->chunks_total)
174 // PARA_DEBUG_LOG("offset #%d: %zu\n", i, afhi->chunk_table[i]);
175 }
176 return skip;
177 }
178
179 static int aac_set_chunk_tv(struct afh_info *afhi,
180 mp4AudioSpecificConfig *mp4ASC, uint32_t *seconds)
181 {
182 float tmp = mp4ASC->sbr_present_flag == 1? 2047 : 1023;
183 struct timeval total;
184 long unsigned ms;
185
186 if (!mp4ASC->samplingFrequency)
187 return -E_MP4ASC;
188 ms = 1000.0 * afhi->chunks_total * tmp / mp4ASC->samplingFrequency;
189 ms2tv(ms, &total);
190 tv_divide(afhi->chunks_total, &total, &afhi->chunk_tv);
191 PARA_INFO_LOG("%luHz, %lus (%" PRIu32 " x %lums)\n",
192 mp4ASC->samplingFrequency, ms / 1000,
193 afhi->chunks_total, tv2ms(&afhi->chunk_tv));
194 if (ms < 1000)
195 return -E_MP4ASC;
196 *seconds = ms / 1000;
197 return 1;
198 }
199
200 /*
201 * Init m4a file and write some tech data to given pointers.
202 */
203 static int aac_get_file_info(char *map, size_t numbytes, __a_unused int fd,
204 struct afh_info *afhi)
205 {
206 int i;
207 size_t skip;
208 ssize_t ret;
209 unsigned long rate = 0, decoder_len;
210 unsigned char channels = 0;
211 mp4AudioSpecificConfig mp4ASC;
212 NeAACDecHandle handle = NULL;
213
214 ret = aac_find_esds(map, numbytes, &skip, &decoder_len);
215 if (ret < 0)
216 goto out;
217 aac_get_taginfo(map, numbytes, afhi);
218 handle = aac_open();
219 ret = -E_AAC_AFH_INIT;
220 if (NeAACDecInit(handle, (unsigned char *)map + skip, decoder_len,
221 &rate, &channels))
222 goto out;
223 if (!channels)
224 goto out;
225 PARA_DEBUG_LOG("rate: %lu, channels: %d\n", rate, channels);
226 ret = -E_MP4ASC;
227 if (NeAACDecAudioSpecificConfig((unsigned char *)map + skip,
228 numbytes - skip, &mp4ASC))
229 goto out;
230 if (!mp4ASC.samplingFrequency)
231 goto out;
232 ret = aac_compute_chunk_table(afhi, map, numbytes);
233 if (ret < 0)
234 goto out;
235 skip = ret;
236 ret = aac_set_chunk_tv(afhi, &mp4ASC, &afhi->seconds_total);
237 if (ret < 0)
238 goto out;
239 ret = aac_find_entry_point(map + skip, numbytes - skip, &skip);
240 if (ret < 0)
241 goto out;
242 afhi->chunk_table[0] = ret;
243 for (i = 1; i<= afhi->chunks_total; i++)
244 afhi->chunk_table[i] += ret;
245 afhi->channels = channels;
246 afhi->frequency = rate;
247 ret = (afhi->chunk_table[afhi->chunks_total] - afhi->chunk_table[0]) * 8; /* bits */
248 ret += (channels * afhi->seconds_total * 500); /* avoid rounding error */
249 afhi->bitrate = ret / (channels * afhi->seconds_total * 1000);
250 ret = 1;
251 out:
252 if (handle)
253 NeAACDecClose(handle);
254 return ret;
255 }
256
257 static int aac_rewrite_tags(const char *map, size_t mapsize,
258 struct taginfo *tags, int fd, const char *filename)
259 {
260 MP4FileHandle h;
261 const MP4Tags *mdata;
262 int ret = write_all(fd, map, mapsize);
263
264 if (ret < 0)
265 return ret;
266 lseek(fd, 0, SEEK_SET);
267 h = MP4Modify(filename, 0);
268 if (!h) {
269 PARA_ERROR_LOG("MP4Modify() failed, fd = %d\n", fd);
270 return -E_MP4V2;
271 }
272 mdata = MP4TagsAlloc();
273 assert(mdata);
274 if (!MP4TagsFetch(mdata, h)) {
275 PARA_ERROR_LOG("MP4Tags_Fetch() failed\n");
276 ret = -E_MP4V2;
277 goto close;
278 }
279
280 if (!MP4TagsSetAlbum(mdata, tags->album)) {
281 PARA_ERROR_LOG("Could not set album\n");
282 ret = -E_MP4V2;
283 goto tags_free;
284 }
285 if (!MP4TagsSetArtist(mdata, tags->artist)) {
286 PARA_ERROR_LOG("Could not set album\n");
287 ret = -E_MP4V2;
288 goto tags_free;
289 }
290 if (!MP4TagsSetComments(mdata, tags->comment)) {
291 PARA_ERROR_LOG("Could not set comment\n");
292 ret = -E_MP4V2;
293 goto tags_free;
294 }
295 if (!MP4TagsSetName(mdata, tags->title)) {
296 PARA_ERROR_LOG("Could not set title\n");
297 ret = -E_MP4V2;
298 goto tags_free;
299 }
300 if (!MP4TagsSetReleaseDate(mdata, tags->year)) {
301 PARA_ERROR_LOG("Could not set release date\n");
302 ret = -E_MP4V2;
303 goto tags_free;
304 }
305
306 if (!MP4TagsStore(mdata, h)) {
307 PARA_ERROR_LOG("Could not store tags\n");
308 ret = -E_MP4V2;
309 goto tags_free;
310 }
311 ret = 1;
312 tags_free:
313 MP4TagsFree(mdata);
314 close:
315 MP4Close(h, 0);
316 return ret;
317 }
318
319 static const char * const aac_suffixes[] = {"m4a", "mp4", NULL};
320 /**
321 * the init function of the aac audio format handler
322 *
323 * \param afh pointer to the struct to initialize
324 */
325 void aac_afh_init(struct audio_format_handler *afh)
326 {
327 afh->get_file_info = aac_get_file_info,
328 afh->suffixes = aac_suffixes;
329 afh->rewrite_tags = aac_rewrite_tags;
330 }