381 lines
12 KiB
C
381 lines
12 KiB
C
/***************************************************************************
|
|
* __________ __ ___.
|
|
* Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
|
* Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
|
* Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
|
* Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
|
* \/ \/ \/ \/ \/
|
|
* $Id$
|
|
*
|
|
* Copyright (C) 2006 Antonius Hellmann
|
|
*
|
|
* This program is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU General Public License
|
|
* as published by the Free Software Foundation; either version 2
|
|
* of the License, or (at your option) any later version.
|
|
*
|
|
* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
|
* KIND, either express or implied.
|
|
*
|
|
****************************************************************************/
|
|
|
|
#ifndef SIMULATOR
|
|
|
|
#include <inttypes.h>
|
|
#include "codeclib.h"
|
|
|
|
CODEC_ENC_HEADER
|
|
|
|
struct aiff_header
|
|
{
|
|
uint8_t form_id[4]; /* 00h - 'FORM' */
|
|
uint32_t form_size; /* 04h - size of file - 8 */
|
|
uint8_t aiff_id[4]; /* 08h - 'AIFF' */
|
|
uint8_t comm_id[4]; /* 0Ch - 'COMM' */
|
|
int32_t comm_size; /* 10h - num_channels through sample_rate
|
|
(18) */
|
|
int16_t num_channels; /* 14h - 1=M, 2=S, etc. */
|
|
uint32_t num_sample_frames; /* 16h - num samples for each channel */
|
|
int16_t sample_size; /* 1ah - 1-32 bits per sample */
|
|
uint8_t sample_rate[10]; /* 1ch - IEEE 754 80-bit floating point */
|
|
uint8_t ssnd_id[4]; /* 26h - "SSND" */
|
|
int32_t ssnd_size; /* 2ah - size of chunk from offset to
|
|
end of pcm data */
|
|
uint32_t offset; /* 2eh - data offset from end of header */
|
|
uint32_t block_size; /* 32h - pcm data alignment */
|
|
/* 36h */
|
|
} __attribute__((packed));
|
|
|
|
#define PCM_DEPTH_BYTES 2
|
|
#define PCM_DEPTH_BITS 16
|
|
#define PCM_SAMP_PER_CHUNK 2048
|
|
#define PCM_CHUNK_SIZE (PCM_SAMP_PER_CHUNK*4)
|
|
|
|
/* Template headers */
|
|
struct aiff_header aiff_header =
|
|
{
|
|
{ 'F', 'O', 'R', 'M' }, /* form_id */
|
|
0, /* form_size (*) */
|
|
{ 'A', 'I', 'F', 'F' }, /* aiff_id */
|
|
{ 'C', 'O', 'M', 'M' }, /* comm_id */
|
|
H_TO_BE32(18), /* comm_size */
|
|
0, /* num_channels (*) */
|
|
0, /* num_sample_frames (*) */
|
|
H_TO_BE16(PCM_DEPTH_BITS), /* sample_size */
|
|
{ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, /* sample_rate (*) */
|
|
{ 'S', 'S', 'N', 'D' }, /* ssnd_id */
|
|
0, /* ssnd_size (*) */
|
|
H_TO_BE32(0), /* offset */
|
|
H_TO_BE32(0), /* block_size */
|
|
};
|
|
|
|
/* (*) updated when finalizing file */
|
|
|
|
static int num_channels IBSS_ATTR;
|
|
static uint32_t sample_rate;
|
|
static uint32_t enc_size;
|
|
static int32_t err IBSS_ATTR;
|
|
|
|
/* convert unsigned 32 bit value to 80-bit floating point number */
|
|
STATICIRAM void uint32_h_to_ieee754_extended_be(uint8_t f[10], uint32_t l)
|
|
ICODE_ATTR;
|
|
STATICIRAM void uint32_h_to_ieee754_extended_be(uint8_t f[10], uint32_t l)
|
|
{
|
|
int32_t exp;
|
|
|
|
ci->memset(f, 0, 10);
|
|
|
|
if (l == 0)
|
|
return;
|
|
|
|
for (exp = 30; (l & (1ul << 31)) == 0; exp--)
|
|
l <<= 1;
|
|
|
|
/* sign always zero - bit 79 */
|
|
/* exponent is 0-31 (normalized: 31 - shift + 16383) - bits 64-78 */
|
|
f[0] = 0x40;
|
|
f[1] = (uint8_t)exp;
|
|
/* mantissa is value left justified with most significant non-zero
|
|
bit stored in bit 63 - bits 0-63 */
|
|
*(uint32_t *)&f[2] = htobe32(l);
|
|
} /* uint32_h_to_ieee754_extended_be */
|
|
|
|
/* called version often - inline */
|
|
static inline bool is_file_data_ok(struct enc_file_event_data *data) ICODE_ATTR;
|
|
static inline bool is_file_data_ok(struct enc_file_event_data *data)
|
|
{
|
|
return data->rec_file >= 0 && (long)data->chunk->flags >= 0;
|
|
} /* is_file_data_ok */
|
|
|
|
/* called version often - inline */
|
|
static inline bool on_write_chunk(struct enc_file_event_data *data) ICODE_ATTR;
|
|
static inline bool on_write_chunk(struct enc_file_event_data *data)
|
|
{
|
|
if (!is_file_data_ok(data))
|
|
return false;
|
|
|
|
if (data->chunk->enc_data == NULL)
|
|
{
|
|
#ifdef ROCKBOX_HAS_LOGF
|
|
ci->logf("aiff enc: NULL data");
|
|
#endif
|
|
return true;
|
|
}
|
|
|
|
if (ci->write(data->rec_file, data->chunk->enc_data,
|
|
data->chunk->enc_size) != (ssize_t)data->chunk->enc_size)
|
|
return false;
|
|
|
|
data->num_pcm_samples += data->chunk->num_pcm;
|
|
return true;
|
|
} /* on_write_chunk */
|
|
|
|
static bool on_start_file(struct enc_file_event_data *data)
|
|
{
|
|
if ((data->chunk->flags & CHUNKF_ERROR) || *data->filename == '\0')
|
|
return false;
|
|
|
|
data->rec_file = ci->open(data->filename, O_RDWR|O_CREAT|O_TRUNC);
|
|
|
|
if (data->rec_file < 0)
|
|
return false;
|
|
|
|
/* reset sample count */
|
|
data->num_pcm_samples = 0;
|
|
|
|
/* write template headers */
|
|
if (ci->write(data->rec_file, &aiff_header, sizeof (aiff_header))
|
|
!= sizeof (aiff_header))
|
|
{
|
|
return false;
|
|
}
|
|
|
|
data->new_enc_size += sizeof(aiff_header);
|
|
return true;
|
|
} /* on_start_file */
|
|
|
|
static bool on_end_file(struct enc_file_event_data *data)
|
|
{
|
|
/* update template headers */
|
|
struct aiff_header hdr;
|
|
uint32_t data_size;
|
|
|
|
if (!is_file_data_ok(data))
|
|
return false;
|
|
|
|
if (ci->lseek(data->rec_file, 0, SEEK_SET) != 0 ||
|
|
ci->read(data->rec_file, &hdr, sizeof (hdr)) != sizeof (hdr))
|
|
{
|
|
return false;
|
|
}
|
|
|
|
data_size = data->num_pcm_samples*num_channels*PCM_DEPTH_BYTES;
|
|
|
|
/* 'FORM' chunk */
|
|
hdr.form_size = htobe32(data_size + sizeof (hdr) - 8);
|
|
|
|
/* 'COMM' chunk */
|
|
hdr.num_channels = htobe16(num_channels);
|
|
hdr.num_sample_frames = htobe32(data->num_pcm_samples);
|
|
uint32_h_to_ieee754_extended_be(hdr.sample_rate, sample_rate);
|
|
|
|
/* 'SSND' chunk */
|
|
hdr.ssnd_size = htobe32(data_size + 8);
|
|
|
|
if (ci->lseek(data->rec_file, 0, SEEK_SET) != 0 ||
|
|
ci->write(data->rec_file, &hdr, sizeof (hdr)) != sizeof (hdr) ||
|
|
ci->close(data->rec_file) != 0)
|
|
{
|
|
return false;
|
|
}
|
|
|
|
data->rec_file = -1;
|
|
|
|
return true;
|
|
} /* on_end_file */
|
|
|
|
STATICIRAM void enc_events_callback(enum enc_events event, void *data)
|
|
ICODE_ATTR;
|
|
STATICIRAM void enc_events_callback(enum enc_events event, void *data)
|
|
{
|
|
if (event == ENC_WRITE_CHUNK)
|
|
{
|
|
if (on_write_chunk((struct enc_file_event_data *)data))
|
|
return;
|
|
}
|
|
else if (event == ENC_START_FILE)
|
|
{
|
|
if (on_start_file((struct enc_file_event_data *)data))
|
|
return;
|
|
}
|
|
else if (event == ENC_END_FILE)
|
|
{
|
|
if (on_end_file((struct enc_file_event_data *)data))
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
return;
|
|
}
|
|
|
|
((struct enc_file_event_data *)data)->chunk->flags |= CHUNKF_ERROR;
|
|
} /* enc_events_callback */
|
|
|
|
/* convert native pcm samples to aiff format samples */
|
|
static inline void sample_to_mono(uint32_t **src, uint32_t **dst)
|
|
{
|
|
int32_t lr1, lr2;
|
|
|
|
lr1 = *(*src)++;
|
|
lr1 = (int16_t)lr1 + (lr1 >> 16) + err;
|
|
err = lr1 & 1;
|
|
lr1 >>= 1;
|
|
|
|
lr2 = *(*src)++;
|
|
lr2 = (int16_t)lr2 + (lr2 >> 16) + err;
|
|
err = lr2 & 1;
|
|
lr2 >>= 1;
|
|
*(*dst)++ = swap_odd_even_le32((lr1 << 16) | (uint16_t)lr2);
|
|
} /* sample_to_mono */
|
|
|
|
STATICIRAM void chunk_to_aiff_format(uint32_t *src, uint32_t *dst) ICODE_ATTR;
|
|
STATICIRAM void chunk_to_aiff_format(uint32_t *src, uint32_t *dst)
|
|
{
|
|
if (num_channels == 1)
|
|
{
|
|
/* On big endian:
|
|
* |LLLLLLLLllllllll|RRRRRRRRrrrrrrrr|
|
|
* |LLLLLLLLllllllll|RRRRRRRRrrrrrrrr| =>
|
|
* |MMMMMMMMmmmmmmmm|MMMMMMMMmmmmmmmm|
|
|
*
|
|
* On little endian:
|
|
* |llllllllLLLLLLLL|rrrrrrrrRRRRRRRR|
|
|
* |llllllllLLLLLLLL|rrrrrrrrRRRRRRRR| =>
|
|
* |MMMMMMMMmmmmmmmm|MMMMMMMMmmmmmmmm|
|
|
*/
|
|
uint32_t *src_end = src + PCM_SAMP_PER_CHUNK;
|
|
|
|
do
|
|
{
|
|
sample_to_mono(&src, &dst);
|
|
sample_to_mono(&src, &dst);
|
|
sample_to_mono(&src, &dst);
|
|
sample_to_mono(&src, &dst);
|
|
sample_to_mono(&src, &dst);
|
|
sample_to_mono(&src, &dst);
|
|
sample_to_mono(&src, &dst);
|
|
sample_to_mono(&src, &dst);
|
|
}
|
|
while (src < src_end);
|
|
}
|
|
else
|
|
{
|
|
#ifdef ROCKBOX_BIG_ENDIAN
|
|
/* |LLLLLLLLllllllll|RRRRRRRRrrrrrrrr| =>
|
|
* |LLLLLLLLllllllll|RRRRRRRRrrrrrrrr|
|
|
*/
|
|
ci->memcpy(dst, src, PCM_CHUNK_SIZE);
|
|
#else
|
|
/* |llllllllLLLLLLLL|rrrrrrrrRRRRRRRR| =>
|
|
* |LLLLLLLLllllllll|RRRRRRRRrrrrrrrr|
|
|
*/
|
|
uint32_t *src_end = src + PCM_SAMP_PER_CHUNK;
|
|
|
|
do
|
|
{
|
|
*dst++ = swap_odd_even32(*src++);
|
|
*dst++ = swap_odd_even32(*src++);
|
|
*dst++ = swap_odd_even32(*src++);
|
|
*dst++ = swap_odd_even32(*src++);
|
|
*dst++ = swap_odd_even32(*src++);
|
|
*dst++ = swap_odd_even32(*src++);
|
|
*dst++ = swap_odd_even32(*src++);
|
|
*dst++ = swap_odd_even32(*src++);
|
|
}
|
|
while (src < src_end);
|
|
#endif
|
|
}
|
|
} /* chunk_to_aiff_format */
|
|
|
|
static bool init_encoder(void)
|
|
{
|
|
struct enc_inputs inputs;
|
|
struct enc_parameters params;
|
|
|
|
if (ci->enc_get_inputs == NULL ||
|
|
ci->enc_set_parameters == NULL ||
|
|
ci->enc_get_chunk == NULL ||
|
|
ci->enc_finish_chunk == NULL ||
|
|
ci->enc_get_pcm_data == NULL )
|
|
return false;
|
|
|
|
ci->enc_get_inputs(&inputs);
|
|
|
|
if (inputs.config->afmt != AFMT_AIFF)
|
|
return false;
|
|
|
|
sample_rate = inputs.sample_rate;
|
|
num_channels = inputs.num_channels;
|
|
err = 0;
|
|
|
|
/* configure the buffer system */
|
|
params.afmt = AFMT_AIFF;
|
|
enc_size = PCM_CHUNK_SIZE*inputs.num_channels / 2;
|
|
params.chunk_size = enc_size;
|
|
params.enc_sample_rate = sample_rate;
|
|
params.reserve_bytes = 0;
|
|
params.events_callback = enc_events_callback;
|
|
ci->enc_set_parameters(¶ms);
|
|
|
|
return true;
|
|
} /* init_encoder */
|
|
|
|
/* main codec entry point */
|
|
enum codec_status codec_main(void)
|
|
{
|
|
if (!init_encoder())
|
|
{
|
|
ci->enc_codec_loaded = -1;
|
|
return CODEC_ERROR;
|
|
}
|
|
|
|
/* main application waits for this flag during encoder loading */
|
|
ci->enc_codec_loaded = 1;
|
|
|
|
/* main encoding loop */
|
|
while(!ci->stop_encoder)
|
|
{
|
|
uint32_t *src;
|
|
|
|
while ((src = (uint32_t *)ci->enc_get_pcm_data(PCM_CHUNK_SIZE)) != NULL)
|
|
{
|
|
struct enc_chunk_hdr *chunk;
|
|
|
|
if (ci->stop_encoder)
|
|
break;
|
|
|
|
chunk = ci->enc_get_chunk();
|
|
chunk->enc_size = enc_size;
|
|
chunk->num_pcm = PCM_SAMP_PER_CHUNK;
|
|
chunk->enc_data = ENC_CHUNK_SKIP_HDR(chunk->enc_data, chunk);
|
|
|
|
chunk_to_aiff_format(src, (uint32_t *)chunk->enc_data);
|
|
|
|
ci->enc_finish_chunk();
|
|
ci->yield();
|
|
}
|
|
|
|
ci->yield();
|
|
}
|
|
|
|
/* reset parameters to initial state */
|
|
ci->enc_set_parameters(NULL);
|
|
|
|
/* main application waits for this flag during encoder removing */
|
|
ci->enc_codec_loaded = 0;
|
|
|
|
return CODEC_OK;
|
|
} /* codec_start */
|
|
|
|
#endif /* ndef SIMULATOR */
|