/* libFLAC - Free Lossless Audio Codec library * Copyright (C) 2000,2001 Josh Coalson * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Library General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Library General Public License for more details. * * You should have received a copy of the GNU Library General Public * License along with this library; if not, write to the * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ #include #include #include /* for malloc() */ #include /* for memcpy() */ #include "FLAC/config.h" #include "FLAC/encoder.h" #include "FLAC/seek_table.h" #include "private/bitbuffer.h" #include "private/bitmath.h" #include "private/crc.h" #include "private/cpu.h" #include "private/encoder_framing.h" #include "private/fixed.h" #include "private/lpc.h" #include "private/md5.h" #include "private/memory.h" #ifdef min #undef min #endif #define min(x,y) ((x)<(y)?(x):(y)) #ifdef max #undef max #endif #define max(x,y) ((x)>(y)?(x):(y)) typedef struct FLAC__EncoderPrivate { unsigned input_capacity; /* current size (in samples) of the signal and residual buffers */ int32 *integer_signal[FLAC__MAX_CHANNELS]; /* the integer version of the input signal */ int32 *integer_signal_mid_side[2]; /* the integer version of the mid-side input signal (stereo only) */ real *real_signal[FLAC__MAX_CHANNELS]; /* the floating-point version of the input signal */ real *real_signal_mid_side[2]; /* the floating-point version of the mid-side input signal (stereo only) */ unsigned subframe_bps[FLAC__MAX_CHANNELS]; /* the effective bits per sample of the input signal (stream bps - wasted bits) */ unsigned subframe_bps_mid_side[2]; /* the effective bits per sample of the mid-side input signal (stream bps - wasted bits + 0/1) */ int32 *residual_workspace[FLAC__MAX_CHANNELS][2]; /* each channel has a candidate and best workspace where the subframe residual signals will be stored */ int32 *residual_workspace_mid_side[2][2]; FLAC__Subframe subframe_workspace[FLAC__MAX_CHANNELS][2]; FLAC__Subframe subframe_workspace_mid_side[2][2]; FLAC__Subframe *subframe_workspace_ptr[FLAC__MAX_CHANNELS][2]; FLAC__Subframe *subframe_workspace_ptr_mid_side[2][2]; unsigned best_subframe[FLAC__MAX_CHANNELS]; /* index into the above workspaces */ unsigned best_subframe_mid_side[2]; unsigned best_subframe_bits[FLAC__MAX_CHANNELS]; /* size in bits of the best subframe for each channel */ unsigned best_subframe_bits_mid_side[2]; uint32 *abs_residual; /* workspace where abs(candidate residual) is stored */ uint32 *abs_residual_partition_sums; /* workspace where the sum of abs(candidate residual) for each partition is stored */ unsigned *raw_bits_per_partition; /* workspace where the sum of silog2(candidate residual) for each partition is stored */ FLAC__BitBuffer frame; /* the current frame being worked on */ bool current_frame_can_do_mid_side; /* encoder sets this false when any given sample of a frame's side channel exceeds 16 bits */ double loose_mid_side_stereo_frames_exact; /* exact number of frames the encoder will use before trying both independent and mid/side frames again */ unsigned loose_mid_side_stereo_frames; /* rounded number of frames the encoder will use before trying both independent and mid/side frames again */ unsigned loose_mid_side_stereo_frame_count; /* number of frames using the current channel assignment */ FLAC__ChannelAssignment last_channel_assignment; FLAC__StreamMetaData metadata; unsigned current_sample_number; unsigned current_frame_number; struct MD5Context md5context; FLAC__CPUInfo cpuinfo; unsigned (*local_fixed_compute_best_predictor)(const int32 data[], unsigned data_len, real residual_bits_per_sample[FLAC__MAX_FIXED_ORDER+1]); void (*local_lpc_compute_autocorrelation)(const real data[], unsigned data_len, unsigned lag, real autoc[]); bool use_slow; /* use slow 64-bit versions of some functions */ FLAC__EncoderWriteStatus (*write_callback)(const FLAC__Encoder *encoder, const byte buffer[], unsigned bytes, unsigned samples, unsigned current_frame, void *client_data); void (*metadata_callback)(const FLAC__Encoder *encoder, const FLAC__StreamMetaData *metadata, void *client_data); void *client_data; /* unaligned (original) pointers to allocated data */ int32 *integer_signal_unaligned[FLAC__MAX_CHANNELS]; int32 *integer_signal_mid_side_unaligned[2]; real *real_signal_unaligned[FLAC__MAX_CHANNELS]; real *real_signal_mid_side_unaligned[2]; int32 *residual_workspace_unaligned[FLAC__MAX_CHANNELS][2]; int32 *residual_workspace_mid_side_unaligned[2][2]; uint32 *abs_residual_unaligned; uint32 *abs_residual_partition_sums_unaligned; unsigned *raw_bits_per_partition_unaligned; } FLAC__EncoderPrivate; static bool encoder_resize_buffers_(FLAC__Encoder *encoder, unsigned new_size); static bool encoder_process_frame_(FLAC__Encoder *encoder, bool is_last_frame); static bool encoder_process_subframes_(FLAC__Encoder *encoder, bool is_last_frame); static bool encoder_process_subframe_(FLAC__Encoder *encoder, unsigned min_partition_order, unsigned max_partition_order, bool verbatim_only, const FLAC__FrameHeader *frame_header, unsigned subframe_bps, const int32 integer_signal[], const real real_signal[], FLAC__Subframe *subframe[2], int32 *residual[2], unsigned *best_subframe, unsigned *best_bits); static bool encoder_add_subframe_(FLAC__Encoder *encoder, const FLAC__FrameHeader *frame_header, unsigned subframe_bps, const FLAC__Subframe *subframe, FLAC__BitBuffer *frame); static unsigned encoder_evaluate_constant_subframe_(const int32 signal, unsigned subframe_bps, FLAC__Subframe *subframe); static unsigned encoder_evaluate_fixed_subframe_(const int32 signal[], int32 residual[], uint32 abs_residual[], uint32 abs_residual_partition_sums[], unsigned raw_bits_per_partition[], unsigned blocksize, unsigned subframe_bps, unsigned order, unsigned rice_parameter, unsigned min_partition_order, unsigned max_partition_order, unsigned rice_parameter_search_dist, FLAC__Subframe *subframe); static unsigned encoder_evaluate_lpc_subframe_(const int32 signal[], int32 residual[], uint32 abs_residual[], uint32 abs_residual_partition_sums[], unsigned raw_bits_per_partition[], const real lp_coeff[], unsigned blocksize, unsigned subframe_bps, unsigned order, unsigned qlp_coeff_precision, unsigned rice_parameter, unsigned min_partition_order, unsigned max_partition_order, unsigned rice_parameter_search_dist, FLAC__Subframe *subframe); static unsigned encoder_evaluate_verbatim_subframe_(const int32 signal[], unsigned blocksize, unsigned subframe_bps, FLAC__Subframe *subframe); static unsigned encoder_find_best_partition_order_(const int32 residual[], uint32 abs_residual[], uint32 abs_residual_partition_sums[], unsigned raw_bits_per_partition[], unsigned residual_samples, unsigned predictor_order, unsigned rice_parameter, unsigned min_partition_order, unsigned max_partition_order, unsigned rice_parameter_search_dist, unsigned *best_partition_order, unsigned best_parameters[], unsigned best_raw_bits[]); #if (defined FLAC__PRECOMPUTE_PARTITION_SUMS) || (defined FLAC__SEARCH_FOR_ESCAPES) static unsigned encoder_precompute_partition_info_(const int32 residual[], uint32 abs_residual[], uint32 abs_residual_partition_sums[], unsigned raw_bits_per_partition[], unsigned residual_samples, unsigned predictor_order, unsigned min_partition_order, unsigned max_partition_order); #endif static bool encoder_set_partitioned_rice_(const uint32 abs_residual[], const uint32 abs_residual_partition_sums[], const unsigned raw_bits_per_partition[], const unsigned residual_samples, const unsigned predictor_order, const unsigned suggested_rice_parameter, const unsigned rice_parameter_search_dist, const unsigned partition_order, unsigned parameters[], unsigned raw_bits[], unsigned *bits); static unsigned encoder_get_wasted_bits_(int32 signal[], unsigned samples); const char *FLAC__EncoderWriteStatusString[] = { "FLAC__ENCODER_WRITE_OK", "FLAC__ENCODER_WRITE_FATAL_ERROR" }; const char *FLAC__EncoderStateString[] = { "FLAC__ENCODER_OK", "FLAC__ENCODER_UNINITIALIZED", "FLAC__ENCODER_INVALID_NUMBER_OF_CHANNELS", "FLAC__ENCODER_INVALID_BITS_PER_SAMPLE", "FLAC__ENCODER_INVALID_SAMPLE_RATE", "FLAC__ENCODER_INVALID_BLOCK_SIZE", "FLAC__ENCODER_INVALID_QLP_COEFF_PRECISION", "FLAC__ENCODER_MID_SIDE_CHANNELS_MISMATCH", "FLAC__ENCODER_MID_SIDE_SAMPLE_SIZE_MISMATCH", "FLAC__ENCODER_ILLEGAL_MID_SIDE_FORCE", "FLAC__ENCODER_BLOCK_SIZE_TOO_SMALL_FOR_LPC_ORDER", "FLAC__ENCODER_NOT_STREAMABLE", "FLAC__ENCODER_FRAMING_ERROR", "FLAC__ENCODER_FATAL_ERROR_WHILE_ENCODING", "FLAC__ENCODER_FATAL_ERROR_WHILE_WRITING", "FLAC__ENCODER_MEMORY_ALLOCATION_ERROR" }; bool encoder_resize_buffers_(FLAC__Encoder *encoder, unsigned new_size) { bool ok; unsigned i, channel; assert(new_size > 0); assert(encoder->state == FLAC__ENCODER_OK); assert(encoder->guts->current_sample_number == 0); /* To avoid excessive malloc'ing, we only grow the buffer; no shrinking. */ if(new_size <= encoder->guts->input_capacity) return true; ok = true; for(i = 0; ok && i < encoder->channels; i++) { ok = ok && FLAC__memory_alloc_aligned_int32_array(new_size, &encoder->guts->integer_signal_unaligned[i], &encoder->guts->integer_signal[i]); ok = ok && FLAC__memory_alloc_aligned_real_array(new_size, &encoder->guts->real_signal_unaligned[i], &encoder->guts->real_signal[i]); } for(i = 0; ok && i < 2; i++) { ok = ok && FLAC__memory_alloc_aligned_int32_array(new_size, &encoder->guts->integer_signal_mid_side_unaligned[i], &encoder->guts->integer_signal_mid_side[i]); ok = ok && FLAC__memory_alloc_aligned_real_array(new_size, &encoder->guts->real_signal_mid_side_unaligned[i], &encoder->guts->real_signal_mid_side[i]); } for(channel = 0; ok && channel < encoder->channels; channel++) { for(i = 0; ok && i < 2; i++) { ok = ok && FLAC__memory_alloc_aligned_int32_array(new_size, &encoder->guts->residual_workspace_unaligned[channel][i], &encoder->guts->residual_workspace[channel][i]); } } for(channel = 0; ok && channel < 2; channel++) { for(i = 0; ok && i < 2; i++) { ok = ok && FLAC__memory_alloc_aligned_int32_array(new_size, &encoder->guts->residual_workspace_mid_side_unaligned[channel][i], &encoder->guts->residual_workspace_mid_side[channel][i]); } } ok = ok && FLAC__memory_alloc_aligned_uint32_array(new_size, &encoder->guts->abs_residual_unaligned, &encoder->guts->abs_residual); #ifdef FLAC__PRECOMPUTE_PARTITION_SUMS ok = ok && FLAC__memory_alloc_aligned_uint32_array(new_size * 2, &encoder->guts->abs_residual_partition_sums_unaligned, &encoder->guts->abs_residual_partition_sums); #endif #ifdef FLAC__SEARCH_FOR_ESCAPES ok = ok && FLAC__memory_alloc_aligned_unsigned_array(new_size * 2, &encoder->guts->raw_bits_per_partition_unaligned, &encoder->guts->raw_bits_per_partition); #endif if(ok) encoder->guts->input_capacity = new_size; else encoder->state = FLAC__ENCODER_MEMORY_ALLOCATION_ERROR; return ok; } FLAC__Encoder *FLAC__encoder_get_new_instance() { FLAC__Encoder *encoder = (FLAC__Encoder*)malloc(sizeof(FLAC__Encoder)); if(encoder != 0) { encoder->state = FLAC__ENCODER_UNINITIALIZED; encoder->guts = 0; } return encoder; } void FLAC__encoder_free_instance(FLAC__Encoder *encoder) { assert(encoder != 0); free(encoder); } FLAC__EncoderState FLAC__encoder_init(FLAC__Encoder *encoder, FLAC__EncoderWriteStatus (*write_callback)(const FLAC__Encoder *encoder, const byte buffer[], unsigned bytes, unsigned samples, unsigned current_frame, void *client_data), void (*metadata_callback)(const FLAC__Encoder *encoder, const FLAC__StreamMetaData *metadata, void *client_data), void *client_data) { unsigned i; FLAC__StreamMetaData padding; FLAC__StreamMetaData seek_table; assert(sizeof(int) >= 4); /* we want to die right away if this is not true */ assert(encoder != 0); assert(write_callback != 0); assert(metadata_callback != 0); assert(encoder->state == FLAC__ENCODER_UNINITIALIZED); assert(encoder->guts == 0); encoder->state = FLAC__ENCODER_OK; if(encoder->channels == 0 || encoder->channels > FLAC__MAX_CHANNELS) return encoder->state = FLAC__ENCODER_INVALID_NUMBER_OF_CHANNELS; if(encoder->do_mid_side_stereo && encoder->channels != 2) return encoder->state = FLAC__ENCODER_MID_SIDE_CHANNELS_MISMATCH; if(encoder->loose_mid_side_stereo && !encoder->do_mid_side_stereo) return encoder->state = FLAC__ENCODER_ILLEGAL_MID_SIDE_FORCE; if(encoder->bits_per_sample < FLAC__MIN_BITS_PER_SAMPLE || encoder->bits_per_sample > FLAC__MAX_BITS_PER_SAMPLE) return encoder->state = FLAC__ENCODER_INVALID_BITS_PER_SAMPLE; if(encoder->sample_rate == 0 || encoder->sample_rate > FLAC__MAX_SAMPLE_RATE) return encoder->state = FLAC__ENCODER_INVALID_SAMPLE_RATE; if(encoder->blocksize < FLAC__MIN_BLOCK_SIZE || encoder->blocksize > FLAC__MAX_BLOCK_SIZE) return encoder->state = FLAC__ENCODER_INVALID_BLOCK_SIZE; if(encoder->blocksize < encoder->max_lpc_order) return encoder->state = FLAC__ENCODER_BLOCK_SIZE_TOO_SMALL_FOR_LPC_ORDER; if(encoder->qlp_coeff_precision == 0) { if(encoder->bits_per_sample < 16) { /* @@@ need some data about how to set this here w.r.t. blocksize and sample rate */ /* @@@ until then we'll make a guess */ encoder->qlp_coeff_precision = max(5, 2 + encoder->bits_per_sample / 2); } else if(encoder->bits_per_sample == 16) { if(encoder->blocksize <= 192) encoder->qlp_coeff_precision = 7; else if(encoder->blocksize <= 384) encoder->qlp_coeff_precision = 8; else if(encoder->blocksize <= 576) encoder->qlp_coeff_precision = 9; else if(encoder->blocksize <= 1152) encoder->qlp_coeff_precision = 10; else if(encoder->blocksize <= 2304) encoder->qlp_coeff_precision = 11; else if(encoder->blocksize <= 4608) encoder->qlp_coeff_precision = 12; else encoder->qlp_coeff_precision = 13; } else { encoder->qlp_coeff_precision = min(13, 8*sizeof(int32) - encoder->bits_per_sample - 1); } } else if(encoder->qlp_coeff_precision < FLAC__MIN_QLP_COEFF_PRECISION || encoder->qlp_coeff_precision + encoder->bits_per_sample >= 8*sizeof(uint32) || encoder->qlp_coeff_precision >= (1u<state = FLAC__ENCODER_INVALID_QLP_COEFF_PRECISION; if(encoder->streamable_subset) { //@@@ add check for blocksize here if(encoder->bits_per_sample != 8 && encoder->bits_per_sample != 12 && encoder->bits_per_sample != 16 && encoder->bits_per_sample != 20 && encoder->bits_per_sample != 24) return encoder->state = FLAC__ENCODER_NOT_STREAMABLE; if(encoder->sample_rate > 655350) return encoder->state = FLAC__ENCODER_NOT_STREAMABLE; } if(encoder->max_residual_partition_order >= (1u << FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ORDER_LEN)) encoder->max_residual_partition_order = (1u << FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ORDER_LEN) - 1; if(encoder->min_residual_partition_order >= encoder->max_residual_partition_order) encoder->min_residual_partition_order = encoder->max_residual_partition_order; encoder->guts = (FLAC__EncoderPrivate*)malloc(sizeof(FLAC__EncoderPrivate)); if(encoder->guts == 0) return encoder->state = FLAC__ENCODER_MEMORY_ALLOCATION_ERROR; encoder->guts->input_capacity = 0; for(i = 0; i < encoder->channels; i++) { encoder->guts->integer_signal[i] = 0; encoder->guts->real_signal[i] = 0; } for(i = 0; i < 2; i++) { encoder->guts->integer_signal_mid_side[i] = 0; encoder->guts->real_signal_mid_side[i] = 0; } for(i = 0; i < encoder->channels; i++) { encoder->guts->residual_workspace[i][0] = encoder->guts->residual_workspace[i][1] = 0; encoder->guts->best_subframe[i] = 0; } for(i = 0; i < 2; i++) { encoder->guts->residual_workspace_mid_side[i][0] = encoder->guts->residual_workspace_mid_side[i][1] = 0; encoder->guts->best_subframe_mid_side[i] = 0; } for(i = 0; i < encoder->channels; i++) { encoder->guts->subframe_workspace_ptr[i][0] = &encoder->guts->subframe_workspace[i][0]; encoder->guts->subframe_workspace_ptr[i][1] = &encoder->guts->subframe_workspace[i][1]; } for(i = 0; i < 2; i++) { encoder->guts->subframe_workspace_ptr_mid_side[i][0] = &encoder->guts->subframe_workspace_mid_side[i][0]; encoder->guts->subframe_workspace_ptr_mid_side[i][1] = &encoder->guts->subframe_workspace_mid_side[i][1]; } encoder->guts->abs_residual = 0; encoder->guts->abs_residual_partition_sums = 0; encoder->guts->raw_bits_per_partition = 0; encoder->guts->current_frame_can_do_mid_side = true; encoder->guts->loose_mid_side_stereo_frames_exact = (double)encoder->sample_rate * 0.4 / (double)encoder->blocksize; encoder->guts->loose_mid_side_stereo_frames = (unsigned)(encoder->guts->loose_mid_side_stereo_frames_exact + 0.5); if(encoder->guts->loose_mid_side_stereo_frames == 0) encoder->guts->loose_mid_side_stereo_frames = 1; encoder->guts->loose_mid_side_stereo_frame_count = 0; encoder->guts->current_sample_number = 0; encoder->guts->current_frame_number = 0; /* * get the CPU info and set the function pointers */ FLAC__cpu_info(&encoder->guts->cpuinfo); /* first default to the non-asm routines */ encoder->guts->local_lpc_compute_autocorrelation = FLAC__lpc_compute_autocorrelation; encoder->guts->local_fixed_compute_best_predictor = FLAC__fixed_compute_best_predictor; /* now override with asm where appropriate */ if(encoder->guts->cpuinfo.use_asm) { #ifdef FLAC__CPU_IA32 assert(encoder->guts->cpuinfo.type == FLAC__CPUINFO_TYPE_IA32); #ifdef FLAC__HAS_NASM #if 0 /* @@@ SSE version not working yet */ if(encoder->guts->cpuinfo.data.ia32.sse) encoder->guts->local_lpc_compute_autocorrelation = FLAC__lpc_compute_autocorrelation_asm_i386_sse; else #endif fprintf(stderr,"@@@ got _asm_i386 of lpc_compute_autocorrelation()\n"); encoder->guts->local_lpc_compute_autocorrelation = FLAC__lpc_compute_autocorrelation_asm_i386; if(encoder->guts->cpuinfo.data.ia32.mmx && encoder->guts->cpuinfo.data.ia32.cmov) { encoder->guts->local_fixed_compute_best_predictor = FLAC__fixed_compute_best_predictor_asm_i386_mmx_cmov; fprintf(stderr,"@@@ got _asm_i386_mmx_cmov of fixed_compute_best_predictor()\n");} #endif #endif } if(encoder->bits_per_sample + FLAC__bitmath_ilog2(encoder->blocksize)+1 > 30) encoder->guts->use_slow = true; else encoder->guts->use_slow = false; if(!encoder_resize_buffers_(encoder, encoder->blocksize)) { /* the above function sets the state for us in case of an error */ return encoder->state; } FLAC__bitbuffer_init(&encoder->guts->frame); encoder->guts->write_callback = write_callback; encoder->guts->metadata_callback = metadata_callback; encoder->guts->client_data = client_data; /* * write the stream header */ if(!FLAC__bitbuffer_clear(&encoder->guts->frame)) return encoder->state = FLAC__ENCODER_MEMORY_ALLOCATION_ERROR; if(!FLAC__bitbuffer_write_raw_uint32(&encoder->guts->frame, FLAC__STREAM_SYNC, FLAC__STREAM_SYNC_LEN)) return encoder->state = FLAC__ENCODER_FRAMING_ERROR; encoder->guts->metadata.type = FLAC__METADATA_TYPE_STREAMINFO; encoder->guts->metadata.is_last = (encoder->seek_table == 0 && encoder->padding == 0); encoder->guts->metadata.length = FLAC__STREAM_METADATA_STREAMINFO_LENGTH; encoder->guts->metadata.data.stream_info.min_blocksize = encoder->blocksize; /* this encoder uses the same blocksize for the whole stream */ encoder->guts->metadata.data.stream_info.max_blocksize = encoder->blocksize; encoder->guts->metadata.data.stream_info.min_framesize = 0; /* we don't know this yet; have to fill it in later */ encoder->guts->metadata.data.stream_info.max_framesize = 0; /* we don't know this yet; have to fill it in later */ encoder->guts->metadata.data.stream_info.sample_rate = encoder->sample_rate; encoder->guts->metadata.data.stream_info.channels = encoder->channels; encoder->guts->metadata.data.stream_info.bits_per_sample = encoder->bits_per_sample; encoder->guts->metadata.data.stream_info.total_samples = encoder->total_samples_estimate; /* we will replace this later with the real total */ memset(encoder->guts->metadata.data.stream_info.md5sum, 0, 16); /* we don't know this yet; have to fill it in later */ MD5Init(&encoder->guts->md5context); if(!FLAC__add_metadata_block(&encoder->guts->metadata, &encoder->guts->frame)) return encoder->state = FLAC__ENCODER_FRAMING_ERROR; if(0 != encoder->seek_table) { if(!FLAC__seek_table_is_valid(encoder->seek_table)) return encoder->state = FLAC__ENCODER_INVALID_SEEK_TABLE; seek_table.type = FLAC__METADATA_TYPE_SEEKTABLE; seek_table.is_last = (encoder->padding == 0); seek_table.length = encoder->seek_table->num_points * FLAC__STREAM_METADATA_SEEKPOINT_LEN; seek_table.data.seek_table = *encoder->seek_table; if(!FLAC__add_metadata_block(&seek_table, &encoder->guts->frame)) return encoder->state = FLAC__ENCODER_FRAMING_ERROR; } /* add a PADDING block if requested */ if(encoder->padding > 0) { padding.type = FLAC__METADATA_TYPE_PADDING; padding.is_last = true; padding.length = encoder->padding; if(!FLAC__add_metadata_block(&padding, &encoder->guts->frame)) return encoder->state = FLAC__ENCODER_FRAMING_ERROR; } assert(encoder->guts->frame.bits == 0); /* assert that we're byte-aligned before writing */ assert(encoder->guts->frame.total_consumed_bits == 0); /* assert that no reading of the buffer was done */ if(encoder->guts->write_callback(encoder, encoder->guts->frame.buffer, encoder->guts->frame.bytes, 0, encoder->guts->current_frame_number, encoder->guts->client_data) != FLAC__ENCODER_WRITE_OK) return encoder->state = FLAC__ENCODER_FATAL_ERROR_WHILE_WRITING; /* now that the metadata block is written, we can init this to an absurdly-high value... */ encoder->guts->metadata.data.stream_info.min_framesize = (1u << FLAC__STREAM_METADATA_STREAMINFO_MIN_FRAME_SIZE_LEN) - 1; /* ... and clear this to 0 */ encoder->guts->metadata.data.stream_info.total_samples = 0; return encoder->state; } void FLAC__encoder_finish(FLAC__Encoder *encoder) { unsigned i, channel; assert(encoder != 0); if(encoder->state == FLAC__ENCODER_UNINITIALIZED) return; if(encoder->guts->current_sample_number != 0) { encoder->blocksize = encoder->guts->current_sample_number; encoder_process_frame_(encoder, true); /* true => is last frame */ } MD5Final(encoder->guts->metadata.data.stream_info.md5sum, &encoder->guts->md5context); encoder->guts->metadata_callback(encoder, &encoder->guts->metadata, encoder->guts->client_data); if(encoder->guts != 0) { for(i = 0; i < encoder->channels; i++) { if(encoder->guts->integer_signal_unaligned[i] != 0) { free(encoder->guts->integer_signal_unaligned[i]); encoder->guts->integer_signal_unaligned[i] = 0; } if(encoder->guts->real_signal_unaligned[i] != 0) { free(encoder->guts->real_signal_unaligned[i]); encoder->guts->real_signal_unaligned[i] = 0; } } for(i = 0; i < 2; i++) { if(encoder->guts->integer_signal_mid_side_unaligned[i] != 0) { free(encoder->guts->integer_signal_mid_side_unaligned[i]); encoder->guts->integer_signal_mid_side_unaligned[i] = 0; } if(encoder->guts->real_signal_mid_side_unaligned[i] != 0) { free(encoder->guts->real_signal_mid_side_unaligned[i]); encoder->guts->real_signal_mid_side_unaligned[i] = 0; } } for(channel = 0; channel < encoder->channels; channel++) { for(i = 0; i < 2; i++) { if(encoder->guts->residual_workspace_unaligned[channel][i] != 0) { free(encoder->guts->residual_workspace_unaligned[channel][i]); encoder->guts->residual_workspace_unaligned[channel][i] = 0; } } } for(channel = 0; channel < 2; channel++) { for(i = 0; i < 2; i++) { if(encoder->guts->residual_workspace_mid_side_unaligned[channel][i] != 0) { free(encoder->guts->residual_workspace_mid_side_unaligned[channel][i]); encoder->guts->residual_workspace_mid_side_unaligned[channel][i] = 0; } } } if(encoder->guts->abs_residual_unaligned != 0) { free(encoder->guts->abs_residual_unaligned); encoder->guts->abs_residual_unaligned = 0; } if(encoder->guts->abs_residual_partition_sums_unaligned != 0) { free(encoder->guts->abs_residual_partition_sums_unaligned); encoder->guts->abs_residual_partition_sums_unaligned = 0; } if(encoder->guts->raw_bits_per_partition_unaligned != 0) { free(encoder->guts->raw_bits_per_partition_unaligned); encoder->guts->raw_bits_per_partition_unaligned = 0; } FLAC__bitbuffer_free(&encoder->guts->frame); free(encoder->guts); encoder->guts = 0; } encoder->state = FLAC__ENCODER_UNINITIALIZED; } bool FLAC__encoder_process(FLAC__Encoder *encoder, const int32 *buf[], unsigned samples) { unsigned i, j, channel; int32 x, mid, side; const bool ms = encoder->do_mid_side_stereo && encoder->channels == 2; const int32 min_side = -((int64)1 << (encoder->bits_per_sample-1)); const int32 max_side = ((int64)1 << (encoder->bits_per_sample-1)) - 1; assert(encoder != 0); assert(encoder->state == FLAC__ENCODER_OK); j = 0; do { for(i = encoder->guts->current_sample_number; i < encoder->blocksize && j < samples; i++, j++) { for(channel = 0; channel < encoder->channels; channel++) { x = buf[channel][j]; encoder->guts->integer_signal[channel][i] = x; encoder->guts->real_signal[channel][i] = (real)x; } if(ms && encoder->guts->current_frame_can_do_mid_side) { side = buf[0][j] - buf[1][j]; if(side < min_side || side > max_side) { encoder->guts->current_frame_can_do_mid_side = false; } else { mid = (buf[0][j] + buf[1][j]) >> 1; /* NOTE: not the same as 'mid = (buf[0][j] + buf[1][j]) / 2' ! */ encoder->guts->integer_signal_mid_side[0][i] = mid; encoder->guts->integer_signal_mid_side[1][i] = side; encoder->guts->real_signal_mid_side[0][i] = (real)mid; encoder->guts->real_signal_mid_side[1][i] = (real)side; } } encoder->guts->current_sample_number++; } if(i == encoder->blocksize) { if(!encoder_process_frame_(encoder, false)) /* false => not last frame */ return false; } } while(j < samples); return true; } /* 'samples' is channel-wide samples, e.g. for 1 second at 44100Hz, 'samples' = 44100 regardless of the number of channels */ bool FLAC__encoder_process_interleaved(FLAC__Encoder *encoder, const int32 buf[], unsigned samples) { unsigned i, j, k, channel; int32 x, left = 0, mid, side; const bool ms = encoder->do_mid_side_stereo && encoder->channels == 2; const int32 min_side = -((int64)1 << (encoder->bits_per_sample-1)); const int32 max_side = ((int64)1 << (encoder->bits_per_sample-1)) - 1; assert(encoder != 0); assert(encoder->state == FLAC__ENCODER_OK); j = k = 0; do { for(i = encoder->guts->current_sample_number; i < encoder->blocksize && j < samples; i++, j++, k++) { for(channel = 0; channel < encoder->channels; channel++, k++) { x = buf[k]; encoder->guts->integer_signal[channel][i] = x; encoder->guts->real_signal[channel][i] = (real)x; if(ms && encoder->guts->current_frame_can_do_mid_side) { if(channel == 0) { left = x; } else { side = left - x; if(side < min_side || side > max_side) { encoder->guts->current_frame_can_do_mid_side = false; } else { mid = (left + x) >> 1; /* NOTE: not the same as 'mid = (left + x) / 2' ! */ encoder->guts->integer_signal_mid_side[0][i] = mid; encoder->guts->integer_signal_mid_side[1][i] = side; encoder->guts->real_signal_mid_side[0][i] = (real)mid; encoder->guts->real_signal_mid_side[1][i] = (real)side; } } } } encoder->guts->current_sample_number++; } if(i == encoder->blocksize) { if(!encoder_process_frame_(encoder, false)) /* false => not last frame */ return false; } } while(j < samples); return true; } bool encoder_process_frame_(FLAC__Encoder *encoder, bool is_last_frame) { assert(encoder->state == FLAC__ENCODER_OK); /* * Accumulate raw signal to the MD5 signature */ /* NOTE: some versions of GCC can't figure out const-ness right and will give you an 'incompatible pointer type' warning on arg 2 here: */ if(!FLAC__MD5Accumulate(&encoder->guts->md5context, encoder->guts->integer_signal, encoder->channels, encoder->blocksize, (encoder->bits_per_sample+7) / 8)) { encoder->state = FLAC__ENCODER_MEMORY_ALLOCATION_ERROR; return false; } /* * Process the frame header and subframes into the frame bitbuffer */ if(!encoder_process_subframes_(encoder, is_last_frame)) { /* the above function sets the state for us in case of an error */ return false; } /* * Zero-pad the frame to a byte_boundary */ if(!FLAC__bitbuffer_zero_pad_to_byte_boundary(&encoder->guts->frame)) { encoder->state = FLAC__ENCODER_MEMORY_ALLOCATION_ERROR; return false; } /* * CRC-16 the whole thing */ assert(encoder->guts->frame.bits == 0); /* assert that we're byte-aligned */ assert(encoder->guts->frame.total_consumed_bits == 0); /* assert that no reading of the buffer was done */ FLAC__bitbuffer_write_raw_uint32(&encoder->guts->frame, FLAC__crc16(encoder->guts->frame.buffer, encoder->guts->frame.bytes), FLAC__FRAME_FOOTER_CRC_LEN); /* * Write it */ if(encoder->guts->write_callback(encoder, encoder->guts->frame.buffer, encoder->guts->frame.bytes, encoder->blocksize, encoder->guts->current_frame_number, encoder->guts->client_data) != FLAC__ENCODER_WRITE_OK) { encoder->state = FLAC__ENCODER_FATAL_ERROR_WHILE_WRITING; return false; } /* * Get ready for the next frame */ encoder->guts->current_frame_can_do_mid_side = true; encoder->guts->current_sample_number = 0; encoder->guts->current_frame_number++; encoder->guts->metadata.data.stream_info.total_samples += (uint64)encoder->blocksize; encoder->guts->metadata.data.stream_info.min_framesize = min(encoder->guts->frame.bytes, encoder->guts->metadata.data.stream_info.min_framesize); encoder->guts->metadata.data.stream_info.max_framesize = max(encoder->guts->frame.bytes, encoder->guts->metadata.data.stream_info.max_framesize); return true; } bool encoder_process_subframes_(FLAC__Encoder *encoder, bool is_last_frame) { FLAC__FrameHeader frame_header; unsigned channel, min_partition_order = encoder->min_residual_partition_order, max_partition_order; bool do_independent, do_mid_side; /* * Calculate the min,max Rice partition orders */ if(is_last_frame) { max_partition_order = 0; } else { unsigned limit = 0, b = encoder->blocksize; while(!(b & 1)) { limit++; b >>= 1; } max_partition_order = min(encoder->max_residual_partition_order, limit); } min_partition_order = min(min_partition_order, max_partition_order); /* * Setup the frame */ if(!FLAC__bitbuffer_clear(&encoder->guts->frame)) { encoder->state = FLAC__ENCODER_MEMORY_ALLOCATION_ERROR; return false; } frame_header.blocksize = encoder->blocksize; frame_header.sample_rate = encoder->sample_rate; frame_header.channels = encoder->channels; frame_header.channel_assignment = FLAC__CHANNEL_ASSIGNMENT_INDEPENDENT; /* the default unless the encoder determines otherwise */ frame_header.bits_per_sample = encoder->bits_per_sample; frame_header.number.frame_number = encoder->guts->current_frame_number; /* * Figure out what channel assignments to try */ if(encoder->do_mid_side_stereo) { if(encoder->loose_mid_side_stereo) { if(encoder->guts->loose_mid_side_stereo_frame_count == 0) { do_independent = true; do_mid_side = true; } else { do_independent = (encoder->guts->last_channel_assignment == FLAC__CHANNEL_ASSIGNMENT_INDEPENDENT); do_mid_side = !do_independent; } } else { do_independent = true; do_mid_side = true; } } else { do_independent = true; do_mid_side = false; } if(do_mid_side && !encoder->guts->current_frame_can_do_mid_side) { do_independent = true; do_mid_side = false; } assert(do_independent || do_mid_side); /* * Check for wasted bits; set effective bps for each subframe */ if(do_independent) { unsigned w; for(channel = 0; channel < encoder->channels; channel++) { w = encoder_get_wasted_bits_(encoder->guts->integer_signal[channel], encoder->blocksize); encoder->guts->subframe_workspace[channel][0].wasted_bits = encoder->guts->subframe_workspace[channel][1].wasted_bits = w; encoder->guts->subframe_bps[channel] = encoder->bits_per_sample - w; } } if(do_mid_side) { unsigned w; assert(encoder->channels == 2); for(channel = 0; channel < 2; channel++) { w = encoder_get_wasted_bits_(encoder->guts->integer_signal_mid_side[channel], encoder->blocksize); encoder->guts->subframe_workspace_mid_side[channel][0].wasted_bits = encoder->guts->subframe_workspace_mid_side[channel][1].wasted_bits = w; encoder->guts->subframe_bps_mid_side[channel] = encoder->bits_per_sample - w + (channel==0? 0:1); } } /* * First do a normal encoding pass of each independent channel */ if(do_independent) { for(channel = 0; channel < encoder->channels; channel++) { if(!encoder_process_subframe_(encoder, min_partition_order, max_partition_order, false, &frame_header, encoder->guts->subframe_bps[channel], encoder->guts->integer_signal[channel], encoder->guts->real_signal[channel], encoder->guts->subframe_workspace_ptr[channel], encoder->guts->residual_workspace[channel], encoder->guts->best_subframe+channel, encoder->guts->best_subframe_bits+channel)) return false; } } /* * Now do mid and side channels if requested */ if(do_mid_side) { assert(encoder->channels == 2); for(channel = 0; channel < 2; channel++) { if(!encoder_process_subframe_(encoder, min_partition_order, max_partition_order, false, &frame_header, encoder->guts->subframe_bps_mid_side[channel], encoder->guts->integer_signal_mid_side[channel], encoder->guts->real_signal_mid_side[channel], encoder->guts->subframe_workspace_ptr_mid_side[channel], encoder->guts->residual_workspace_mid_side[channel], encoder->guts->best_subframe_mid_side+channel, encoder->guts->best_subframe_bits_mid_side+channel)) return false; } } /* * Compose the frame bitbuffer */ if(do_mid_side) { unsigned left_bps = 0, right_bps = 0; /* initialized only to prevent superfluous compiler warning */ FLAC__Subframe *left_subframe = 0, *right_subframe = 0; /* initialized only to prevent superfluous compiler warning */ FLAC__ChannelAssignment channel_assignment; assert(encoder->channels == 2); if(encoder->loose_mid_side_stereo && encoder->guts->loose_mid_side_stereo_frame_count > 0) { channel_assignment = (encoder->guts->last_channel_assignment == FLAC__CHANNEL_ASSIGNMENT_INDEPENDENT? FLAC__CHANNEL_ASSIGNMENT_INDEPENDENT : FLAC__CHANNEL_ASSIGNMENT_MID_SIDE); } else { unsigned bits[4]; /* WATCHOUT - indexed by FLAC__ChannelAssignment */ unsigned min_bits; FLAC__ChannelAssignment ca; assert(do_independent && do_mid_side); /* We have to figure out which channel assignent results in the smallest frame */ bits[FLAC__CHANNEL_ASSIGNMENT_INDEPENDENT] = encoder->guts->best_subframe_bits [0] + encoder->guts->best_subframe_bits [1]; bits[FLAC__CHANNEL_ASSIGNMENT_LEFT_SIDE ] = encoder->guts->best_subframe_bits [0] + encoder->guts->best_subframe_bits_mid_side[1]; bits[FLAC__CHANNEL_ASSIGNMENT_RIGHT_SIDE ] = encoder->guts->best_subframe_bits [1] + encoder->guts->best_subframe_bits_mid_side[1]; bits[FLAC__CHANNEL_ASSIGNMENT_MID_SIDE ] = encoder->guts->best_subframe_bits_mid_side[0] + encoder->guts->best_subframe_bits_mid_side[1]; for(channel_assignment = 0, min_bits = bits[0], ca = 1; ca <= 3; ca++) { if(bits[ca] < min_bits) { min_bits = bits[ca]; channel_assignment = ca; } } } frame_header.channel_assignment = channel_assignment; if(!FLAC__frame_add_header(&frame_header, encoder->streamable_subset, is_last_frame, &encoder->guts->frame)) { encoder->state = FLAC__ENCODER_FRAMING_ERROR; return false; } switch(channel_assignment) { case FLAC__CHANNEL_ASSIGNMENT_INDEPENDENT: left_subframe = &encoder->guts->subframe_workspace [0][encoder->guts->best_subframe [0]]; right_subframe = &encoder->guts->subframe_workspace [1][encoder->guts->best_subframe [1]]; break; case FLAC__CHANNEL_ASSIGNMENT_LEFT_SIDE: left_subframe = &encoder->guts->subframe_workspace [0][encoder->guts->best_subframe [0]]; right_subframe = &encoder->guts->subframe_workspace_mid_side[1][encoder->guts->best_subframe_mid_side[1]]; break; case FLAC__CHANNEL_ASSIGNMENT_RIGHT_SIDE: left_subframe = &encoder->guts->subframe_workspace_mid_side[1][encoder->guts->best_subframe_mid_side[1]]; right_subframe = &encoder->guts->subframe_workspace [1][encoder->guts->best_subframe [1]]; break; case FLAC__CHANNEL_ASSIGNMENT_MID_SIDE: left_subframe = &encoder->guts->subframe_workspace_mid_side[0][encoder->guts->best_subframe_mid_side[0]]; right_subframe = &encoder->guts->subframe_workspace_mid_side[1][encoder->guts->best_subframe_mid_side[1]]; break; default: assert(0); } switch(channel_assignment) { case FLAC__CHANNEL_ASSIGNMENT_INDEPENDENT: left_bps = encoder->guts->subframe_bps [0]; right_bps = encoder->guts->subframe_bps [1]; break; case FLAC__CHANNEL_ASSIGNMENT_LEFT_SIDE: left_bps = encoder->guts->subframe_bps [0]; right_bps = encoder->guts->subframe_bps_mid_side[1]; break; case FLAC__CHANNEL_ASSIGNMENT_RIGHT_SIDE: left_bps = encoder->guts->subframe_bps_mid_side[1]; right_bps = encoder->guts->subframe_bps [1]; break; case FLAC__CHANNEL_ASSIGNMENT_MID_SIDE: left_bps = encoder->guts->subframe_bps_mid_side[0]; right_bps = encoder->guts->subframe_bps_mid_side[1]; break; default: assert(0); } /* note that encoder_add_subframe_ sets the state for us in case of an error */ if(!encoder_add_subframe_(encoder, &frame_header, left_bps , left_subframe , &encoder->guts->frame)) return false; if(!encoder_add_subframe_(encoder, &frame_header, right_bps, right_subframe, &encoder->guts->frame)) return false; } else { if(!FLAC__frame_add_header(&frame_header, encoder->streamable_subset, is_last_frame, &encoder->guts->frame)) { encoder->state = FLAC__ENCODER_FRAMING_ERROR; return false; } for(channel = 0; channel < encoder->channels; channel++) { if(!encoder_add_subframe_(encoder, &frame_header, encoder->guts->subframe_bps[channel], &encoder->guts->subframe_workspace[channel][encoder->guts->best_subframe[channel]], &encoder->guts->frame)) { /* the above function sets the state for us in case of an error */ return false; } } } if(encoder->loose_mid_side_stereo) { encoder->guts->loose_mid_side_stereo_frame_count++; if(encoder->guts->loose_mid_side_stereo_frame_count >= encoder->guts->loose_mid_side_stereo_frames) encoder->guts->loose_mid_side_stereo_frame_count = 0; } encoder->guts->last_channel_assignment = frame_header.channel_assignment; return true; } bool encoder_process_subframe_(FLAC__Encoder *encoder, unsigned min_partition_order, unsigned max_partition_order, bool verbatim_only, const FLAC__FrameHeader *frame_header, unsigned subframe_bps, const int32 integer_signal[], const real real_signal[], FLAC__Subframe *subframe[2], int32 *residual[2], unsigned *best_subframe, unsigned *best_bits) { real fixed_residual_bits_per_sample[FLAC__MAX_FIXED_ORDER+1]; real lpc_residual_bits_per_sample; real autoc[FLAC__MAX_LPC_ORDER+1]; real lp_coeff[FLAC__MAX_LPC_ORDER][FLAC__MAX_LPC_ORDER]; real lpc_error[FLAC__MAX_LPC_ORDER]; unsigned min_lpc_order, max_lpc_order, lpc_order; unsigned min_fixed_order, max_fixed_order, guess_fixed_order, fixed_order; unsigned min_qlp_coeff_precision, max_qlp_coeff_precision, qlp_coeff_precision; unsigned rice_parameter; unsigned _candidate_bits, _best_bits; unsigned _best_subframe; /* verbatim subframe is the baseline against which we measure other compressed subframes */ _best_subframe = 0; _best_bits = encoder_evaluate_verbatim_subframe_(integer_signal, frame_header->blocksize, subframe_bps, subframe[_best_subframe]); if(!verbatim_only && frame_header->blocksize >= FLAC__MAX_FIXED_ORDER) { /* check for constant subframe */ if(encoder->guts->use_slow) guess_fixed_order = FLAC__fixed_compute_best_predictor_slow(integer_signal+FLAC__MAX_FIXED_ORDER, frame_header->blocksize-FLAC__MAX_FIXED_ORDER, fixed_residual_bits_per_sample); else guess_fixed_order = encoder->guts->local_fixed_compute_best_predictor(integer_signal+FLAC__MAX_FIXED_ORDER, frame_header->blocksize-FLAC__MAX_FIXED_ORDER, fixed_residual_bits_per_sample); if(fixed_residual_bits_per_sample[1] == 0.0) { /* the above means integer_signal+FLAC__MAX_FIXED_ORDER is constant, now we just have to check the warmup samples */ unsigned i, signal_is_constant = true; for(i = 1; i <= FLAC__MAX_FIXED_ORDER; i++) { if(integer_signal[0] != integer_signal[i]) { signal_is_constant = false; break; } } if(signal_is_constant) { _candidate_bits = encoder_evaluate_constant_subframe_(integer_signal[0], subframe_bps, subframe[!_best_subframe]); if(_candidate_bits < _best_bits) { _best_subframe = !_best_subframe; _best_bits = _candidate_bits; } } } else { /* encode fixed */ if(encoder->do_exhaustive_model_search) { min_fixed_order = 0; max_fixed_order = FLAC__MAX_FIXED_ORDER; } else { min_fixed_order = max_fixed_order = guess_fixed_order; } for(fixed_order = min_fixed_order; fixed_order <= max_fixed_order; fixed_order++) { if(fixed_residual_bits_per_sample[fixed_order] >= (real)subframe_bps) continue; /* don't even try */ rice_parameter = (fixed_residual_bits_per_sample[fixed_order] > 0.0)? (unsigned)(fixed_residual_bits_per_sample[fixed_order]+0.5) : 0; /* 0.5 is for rounding */ #ifndef FLAC__SYMMETRIC_RICE rice_parameter++; /* to account for the signed->unsigned conversion during rice coding */ #endif if(rice_parameter >= FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER) rice_parameter = FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER - 1; _candidate_bits = encoder_evaluate_fixed_subframe_(integer_signal, residual[!_best_subframe], encoder->guts->abs_residual, encoder->guts->abs_residual_partition_sums, encoder->guts->raw_bits_per_partition, frame_header->blocksize, subframe_bps, fixed_order, rice_parameter, min_partition_order, max_partition_order, encoder->rice_parameter_search_dist, subframe[!_best_subframe]); if(_candidate_bits < _best_bits) { _best_subframe = !_best_subframe; _best_bits = _candidate_bits; } } /* encode lpc */ if(encoder->max_lpc_order > 0) { if(encoder->max_lpc_order >= frame_header->blocksize) max_lpc_order = frame_header->blocksize-1; else max_lpc_order = encoder->max_lpc_order; if(max_lpc_order > 0) { encoder->guts->local_lpc_compute_autocorrelation(real_signal, frame_header->blocksize, max_lpc_order+1, autoc); /* if autoc[0] == 0.0, the signal is constant and we usually won't get here, but it can happen */ if(autoc[0] != 0.0) { FLAC__lpc_compute_lp_coefficients(autoc, max_lpc_order, lp_coeff, lpc_error); if(encoder->do_exhaustive_model_search) { min_lpc_order = 1; } else { unsigned guess_lpc_order = FLAC__lpc_compute_best_order(lpc_error, max_lpc_order, frame_header->blocksize, subframe_bps); min_lpc_order = max_lpc_order = guess_lpc_order; } if(encoder->do_qlp_coeff_prec_search) { min_qlp_coeff_precision = FLAC__MIN_QLP_COEFF_PRECISION; max_qlp_coeff_precision = min(32 - subframe_bps - 1, (1u<qlp_coeff_precision; } for(lpc_order = min_lpc_order; lpc_order <= max_lpc_order; lpc_order++) { lpc_residual_bits_per_sample = FLAC__lpc_compute_expected_bits_per_residual_sample(lpc_error[lpc_order-1], frame_header->blocksize-lpc_order); if(lpc_residual_bits_per_sample >= (real)subframe_bps) continue; /* don't even try */ rice_parameter = (lpc_residual_bits_per_sample > 0.0)? (unsigned)(lpc_residual_bits_per_sample+0.5) : 0; /* 0.5 is for rounding */ #ifndef FLAC__SYMMETRIC_RICE rice_parameter++; /* to account for the signed->unsigned conversion during rice coding */ #endif if(rice_parameter >= FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER) rice_parameter = FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER - 1; for(qlp_coeff_precision = min_qlp_coeff_precision; qlp_coeff_precision <= max_qlp_coeff_precision; qlp_coeff_precision++) { _candidate_bits = encoder_evaluate_lpc_subframe_(integer_signal, residual[!_best_subframe], encoder->guts->abs_residual, encoder->guts->abs_residual_partition_sums, encoder->guts->raw_bits_per_partition, lp_coeff[lpc_order-1], frame_header->blocksize, subframe_bps, lpc_order, qlp_coeff_precision, rice_parameter, min_partition_order, max_partition_order, encoder->rice_parameter_search_dist, subframe[!_best_subframe]); if(_candidate_bits > 0) { /* if == 0, there was a problem quantizing the lpcoeffs */ if(_candidate_bits < _best_bits) { _best_subframe = !_best_subframe; _best_bits = _candidate_bits; } } } } } } } } } *best_subframe = _best_subframe; *best_bits = _best_bits; return true; } bool encoder_add_subframe_(FLAC__Encoder *encoder, const FLAC__FrameHeader *frame_header, unsigned subframe_bps, const FLAC__Subframe *subframe, FLAC__BitBuffer *frame) { switch(subframe->type) { case FLAC__SUBFRAME_TYPE_CONSTANT: if(!FLAC__subframe_add_constant(&(subframe->data.constant), subframe_bps, subframe->wasted_bits, frame)) { encoder->state = FLAC__ENCODER_FATAL_ERROR_WHILE_ENCODING; return false; } break; case FLAC__SUBFRAME_TYPE_FIXED: if(!FLAC__subframe_add_fixed(&(subframe->data.fixed), frame_header->blocksize - subframe->data.fixed.order, subframe_bps, subframe->wasted_bits, frame)) { encoder->state = FLAC__ENCODER_FATAL_ERROR_WHILE_ENCODING; return false; } break; case FLAC__SUBFRAME_TYPE_LPC: if(!FLAC__subframe_add_lpc(&(subframe->data.lpc), frame_header->blocksize - subframe->data.lpc.order, subframe_bps, subframe->wasted_bits, frame)) { encoder->state = FLAC__ENCODER_FATAL_ERROR_WHILE_ENCODING; return false; } break; case FLAC__SUBFRAME_TYPE_VERBATIM: if(!FLAC__subframe_add_verbatim(&(subframe->data.verbatim), frame_header->blocksize, subframe_bps, subframe->wasted_bits, frame)) { encoder->state = FLAC__ENCODER_FATAL_ERROR_WHILE_ENCODING; return false; } break; default: assert(0); } return true; } unsigned encoder_evaluate_constant_subframe_(const int32 signal, unsigned subframe_bps, FLAC__Subframe *subframe) { subframe->type = FLAC__SUBFRAME_TYPE_CONSTANT; subframe->data.constant.value = signal; return FLAC__SUBFRAME_ZERO_PAD_LEN + FLAC__SUBFRAME_TYPE_LEN + FLAC__SUBFRAME_WASTED_BITS_FLAG_LEN + subframe_bps; } unsigned encoder_evaluate_fixed_subframe_(const int32 signal[], int32 residual[], uint32 abs_residual[], uint32 abs_residual_partition_sums[], unsigned raw_bits_per_partition[], unsigned blocksize, unsigned subframe_bps, unsigned order, unsigned rice_parameter, unsigned min_partition_order, unsigned max_partition_order, unsigned rice_parameter_search_dist, FLAC__Subframe *subframe) { unsigned i, residual_bits; const unsigned residual_samples = blocksize - order; FLAC__fixed_compute_residual(signal+order, residual_samples, order, residual); subframe->type = FLAC__SUBFRAME_TYPE_FIXED; subframe->data.fixed.entropy_coding_method.type = FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE; subframe->data.fixed.residual = residual; residual_bits = encoder_find_best_partition_order_(residual, abs_residual, abs_residual_partition_sums, raw_bits_per_partition, residual_samples, order, rice_parameter, min_partition_order, max_partition_order, rice_parameter_search_dist, &subframe->data.fixed.entropy_coding_method.data.partitioned_rice.order, subframe->data.fixed.entropy_coding_method.data.partitioned_rice.parameters, subframe->data.fixed.entropy_coding_method.data.partitioned_rice.raw_bits); subframe->data.fixed.order = order; for(i = 0; i < order; i++) subframe->data.fixed.warmup[i] = signal[i]; return FLAC__SUBFRAME_ZERO_PAD_LEN + FLAC__SUBFRAME_TYPE_LEN + FLAC__SUBFRAME_WASTED_BITS_FLAG_LEN + (order * subframe_bps) + residual_bits; } unsigned encoder_evaluate_lpc_subframe_(const int32 signal[], int32 residual[], uint32 abs_residual[], uint32 abs_residual_partition_sums[], unsigned raw_bits_per_partition[], const real lp_coeff[], unsigned blocksize, unsigned subframe_bps, unsigned order, unsigned qlp_coeff_precision, unsigned rice_parameter, unsigned min_partition_order, unsigned max_partition_order, unsigned rice_parameter_search_dist, FLAC__Subframe *subframe) { int32 qlp_coeff[FLAC__MAX_LPC_ORDER]; unsigned i, residual_bits; int quantization, ret; const unsigned residual_samples = blocksize - order; ret = FLAC__lpc_quantize_coefficients(lp_coeff, order, qlp_coeff_precision, subframe_bps, qlp_coeff, &quantization); if(ret != 0) return 0; /* this is a hack to indicate to the caller that we can't do lp at this order on this subframe */ FLAC__lpc_compute_residual_from_qlp_coefficients(signal+order, residual_samples, qlp_coeff, order, quantization, residual); subframe->type = FLAC__SUBFRAME_TYPE_LPC; subframe->data.lpc.entropy_coding_method.type = FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE; subframe->data.lpc.residual = residual; residual_bits = encoder_find_best_partition_order_(residual, abs_residual, abs_residual_partition_sums, raw_bits_per_partition, residual_samples, order, rice_parameter, min_partition_order, max_partition_order, rice_parameter_search_dist, &subframe->data.lpc.entropy_coding_method.data.partitioned_rice.order, subframe->data.lpc.entropy_coding_method.data.partitioned_rice.parameters, subframe->data.lpc.entropy_coding_method.data.partitioned_rice.raw_bits); subframe->data.lpc.order = order; subframe->data.lpc.qlp_coeff_precision = qlp_coeff_precision; subframe->data.lpc.quantization_level = quantization; memcpy(subframe->data.lpc.qlp_coeff, qlp_coeff, sizeof(int32)*FLAC__MAX_LPC_ORDER); for(i = 0; i < order; i++) subframe->data.lpc.warmup[i] = signal[i]; return FLAC__SUBFRAME_ZERO_PAD_LEN + FLAC__SUBFRAME_TYPE_LEN + FLAC__SUBFRAME_WASTED_BITS_FLAG_LEN + FLAC__SUBFRAME_LPC_QLP_COEFF_PRECISION_LEN + FLAC__SUBFRAME_LPC_QLP_SHIFT_LEN + (order * (qlp_coeff_precision + subframe_bps)) + residual_bits; } unsigned encoder_evaluate_verbatim_subframe_(const int32 signal[], unsigned blocksize, unsigned subframe_bps, FLAC__Subframe *subframe) { subframe->type = FLAC__SUBFRAME_TYPE_VERBATIM; subframe->data.verbatim.data = signal; return FLAC__SUBFRAME_ZERO_PAD_LEN + FLAC__SUBFRAME_TYPE_LEN + FLAC__SUBFRAME_WASTED_BITS_FLAG_LEN + (blocksize * subframe_bps); } unsigned encoder_find_best_partition_order_(const int32 residual[], uint32 abs_residual[], uint32 abs_residual_partition_sums[], unsigned raw_bits_per_partition[], unsigned residual_samples, unsigned predictor_order, unsigned rice_parameter, unsigned min_partition_order, unsigned max_partition_order, unsigned rice_parameter_search_dist, unsigned *best_partition_order, unsigned best_parameters[], unsigned best_raw_bits[]) { int32 r; #if (defined FLAC__PRECOMPUTE_PARTITION_SUMS) || (defined FLAC__SEARCH_FOR_ESCAPES) unsigned sum; int partition_order; #else unsigned partition_order; #endif unsigned residual_bits, best_residual_bits = 0; unsigned residual_sample; unsigned best_parameters_index = 0, parameters[2][1 << FLAC__MAX_RICE_PARTITION_ORDER], raw_bits[2][1 << FLAC__MAX_RICE_PARTITION_ORDER]; /* compute abs(residual) for use later */ for(residual_sample = 0; residual_sample < residual_samples; residual_sample++) { r = residual[residual_sample]; abs_residual[residual_sample] = (uint32)(r<0? -r : r); } #if (defined FLAC__PRECOMPUTE_PARTITION_SUMS) || (defined FLAC__SEARCH_FOR_ESCAPES) max_partition_order = encoder_precompute_partition_info_(residual, abs_residual, abs_residual_partition_sums, raw_bits_per_partition, residual_samples, predictor_order, min_partition_order, max_partition_order); min_partition_order = min(min_partition_order, max_partition_order); for(partition_order = (int)max_partition_order, sum = 0; partition_order >= (int)min_partition_order; partition_order--) { if(!encoder_set_partitioned_rice_(abs_residual, abs_residual_partition_sums+sum, raw_bits_per_partition+sum, residual_samples, predictor_order, rice_parameter, rice_parameter_search_dist, (unsigned)partition_order, parameters[!best_parameters_index], raw_bits[!best_parameters_index], &residual_bits)) { assert(0); /* encoder_precompute_partition_info_ should keep this from ever happening */ } sum += 1u << partition_order; if(best_residual_bits == 0 || residual_bits < best_residual_bits) { best_residual_bits = residual_bits; *best_partition_order = partition_order; best_parameters_index = !best_parameters_index; } } #else for(partition_order = min_partition_order; partition_order <= max_partition_order; partition_order++) { if(!encoder_set_partitioned_rice_(abs_residual, 0, 0, residual_samples, predictor_order, rice_parameter, rice_parameter_search_dist, partition_order, parameters[!best_parameters_index], raw_bits[!best_parameters_index], &residual_bits)) { assert(best_residual_bits != 0); break; } if(best_residual_bits == 0 || residual_bits < best_residual_bits) { best_residual_bits = residual_bits; *best_partition_order = partition_order; best_parameters_index = !best_parameters_index; } } #endif memcpy(best_parameters, parameters[best_parameters_index], sizeof(unsigned)*(1<<(*best_partition_order))); memcpy(best_raw_bits, raw_bits[best_parameters_index], sizeof(unsigned)*(1<<(*best_partition_order))); return best_residual_bits; } #if (defined FLAC__PRECOMPUTE_PARTITION_SUMS) || (defined FLAC__SEARCH_FOR_ESCAPES) unsigned encoder_precompute_partition_info_(const int32 residual[], uint32 abs_residual[], uint32 abs_residual_partition_sums[], unsigned raw_bits_per_partition[], unsigned residual_samples, unsigned predictor_order, unsigned min_partition_order, unsigned max_partition_order) { int partition_order; unsigned from_partition, to_partition = 0; const unsigned blocksize = residual_samples + predictor_order; /* first do max_partition_order */ for(partition_order = (int)max_partition_order; partition_order >= 0; partition_order--) { #ifdef FLAC__PRECOMPUTE_PARTITION_SUMS uint32 abs_residual_partition_sum; #endif #ifdef FLAC__SEARCH_FOR_ESCAPES uint32 abs_residual_partition_max; unsigned abs_residual_partition_max_index = 0; /* initialized to silence superfluous compiler warning */ #endif uint32 abs_r; unsigned partition, partition_sample, partition_samples, residual_sample; const unsigned partitions = 1u << partition_order; const unsigned default_partition_samples = blocksize >> partition_order; if(default_partition_samples <= predictor_order) { assert(max_partition_order > 0); max_partition_order--; } else { for(partition = residual_sample = 0; partition < partitions; partition++) { partition_samples = default_partition_samples; if(partition == 0) partition_samples -= predictor_order; #ifdef FLAC__PRECOMPUTE_PARTITION_SUMS abs_residual_partition_sum = 0; #endif #ifdef FLAC__SEARCH_FOR_ESCAPES abs_residual_partition_max = 0; #endif for(partition_sample = 0; partition_sample < partition_samples; partition_sample++) { abs_r = abs_residual[residual_sample]; #ifdef FLAC__PRECOMPUTE_PARTITION_SUMS abs_residual_partition_sum += abs_r; /* @@@ this can overflow with small max_partition_order and (large blocksizes or bits-per-sample), FIX! */ #endif #ifdef FLAC__SEARCH_FOR_ESCAPES if(abs_r > abs_residual_partition_max) { abs_residual_partition_max = abs_r; abs_residual_partition_max_index = residual_sample; } #endif residual_sample++; } #ifdef FLAC__PRECOMPUTE_PARTITION_SUMS abs_residual_partition_sums[partition] = abs_residual_partition_sum; #endif #ifdef FLAC__SEARCH_FOR_ESCAPES if(abs_residual_partition_max > 0) raw_bits_per_partition[partition] = FLAC__bitmath_silog2(residual[abs_residual_partition_max_index]); else raw_bits_per_partition[partition] = FLAC__bitmath_silog2(0); #endif } to_partition = partitions; break; } } /* now merge for lower orders */ for(from_partition = 0; partition_order >= (int)min_partition_order; partition_order--) { #ifdef FLAC__PRECOMPUTE_PARTITION_SUMS uint32 s; #endif #ifdef FLAC__SEARCH_FOR_ESCAPES unsigned m; #endif unsigned i; const unsigned partitions = 1u << partition_order; for(i = 0; i < partitions; i++) { #ifdef FLAC__PRECOMPUTE_PARTITION_SUMS s = abs_residual_partition_sums[from_partition]; #endif #ifdef FLAC__SEARCH_FOR_ESCAPES m = raw_bits_per_partition[from_partition]; #endif from_partition++; #ifdef FLAC__PRECOMPUTE_PARTITION_SUMS abs_residual_partition_sums[to_partition] = s + abs_residual_partition_sums[from_partition]; #endif #ifdef FLAC__SEARCH_FOR_ESCAPES raw_bits_per_partition[to_partition] = max(m, raw_bits_per_partition[from_partition]); #endif from_partition++; to_partition++; } } return max_partition_order; } #endif #ifdef VARIABLE_RICE_BITS #undef VARIABLE_RICE_BITS #endif #define VARIABLE_RICE_BITS(value, parameter) ((value) >> (parameter)) bool encoder_set_partitioned_rice_(const uint32 abs_residual[], const uint32 abs_residual_partition_sums[], const unsigned raw_bits_per_partition[], const unsigned residual_samples, const unsigned predictor_order, const unsigned suggested_rice_parameter, const unsigned rice_parameter_search_dist, const unsigned partition_order, unsigned parameters[], unsigned raw_bits[], unsigned *bits) { unsigned rice_parameter, partition_bits; #ifndef NO_RICE_SEARCH unsigned best_partition_bits; unsigned min_rice_parameter, max_rice_parameter, best_rice_parameter = 0; #endif #ifdef FLAC__SEARCH_FOR_ESCAPES unsigned flat_bits; #endif unsigned bits_ = FLAC__ENTROPY_CODING_METHOD_TYPE_LEN + FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ORDER_LEN; assert(suggested_rice_parameter < FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER); if(partition_order == 0) { unsigned i; #ifndef NO_RICE_SEARCH if(rice_parameter_search_dist) { if(suggested_rice_parameter < rice_parameter_search_dist) min_rice_parameter = 0; else min_rice_parameter = suggested_rice_parameter - rice_parameter_search_dist; max_rice_parameter = suggested_rice_parameter + rice_parameter_search_dist; if(max_rice_parameter >= FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER) max_rice_parameter = FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER - 1; } else min_rice_parameter = max_rice_parameter = suggested_rice_parameter; best_partition_bits = 0xffffffff; for(rice_parameter = min_rice_parameter; rice_parameter <= max_rice_parameter; rice_parameter++) { #endif #ifdef VARIABLE_RICE_BITS #ifdef FLAC__SYMMETRIC_RICE partition_bits = (2+rice_parameter) * residual_samples; #else const unsigned rice_parameter_estimate = rice_parameter-1; partition_bits = (1+rice_parameter) * residual_samples; #endif #else partition_bits = 0; #endif partition_bits += FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_PARAMETER_LEN; for(i = 0; i < residual_samples; i++) { #ifdef VARIABLE_RICE_BITS #ifdef FLAC__SYMMETRIC_RICE partition_bits += VARIABLE_RICE_BITS(abs_residual[i], rice_parameter); #else partition_bits += VARIABLE_RICE_BITS(abs_residual[i], rice_parameter_estimate); #endif #else partition_bits += FLAC__bitbuffer_rice_bits(residual[i], rice_parameter); /* NOTE: we will need to pass in residual[] instead of abs_residual[] */ #endif } #ifndef NO_RICE_SEARCH if(partition_bits < best_partition_bits) { best_rice_parameter = rice_parameter; best_partition_bits = partition_bits; } } #endif #ifdef FLAC__SEARCH_FOR_ESCAPES flat_bits = raw_bits_per_partition[0] * residual_samples; if(flat_bits <= best_partition_bits) { raw_bits[0] = raw_bits_per_partition[0]; best_rice_parameter = FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER; best_partition_bits = flat_bits; } #endif parameters[0] = best_rice_parameter; bits_ += best_partition_bits; } else { unsigned partition, j, save_j, k; unsigned mean, partition_samples; const unsigned partitions = 1u << partition_order; for(partition = j = 0; partition < partitions; partition++) { partition_samples = (residual_samples+predictor_order) >> partition_order; if(partition == 0) { if(partition_samples <= predictor_order) return false; else partition_samples -= predictor_order; } mean = partition_samples >> 1; #ifdef FLAC__PRECOMPUTE_PARTITION_SUMS mean += abs_residual_partition_sums[partition]; #else save_j = j; for(k = 0; k < partition_samples; j++, k++) mean += abs_residual[j]; j = save_j; #endif mean /= partition_samples; #ifdef FLAC__SYMMETRIC_RICE /* calc rice_parameter = floor(log2(mean)) */ rice_parameter = 0; mean>>=1; while(mean) { rice_parameter++; mean >>= 1; } #else /* calc rice_parameter = floor(log2(mean)) + 1 */ rice_parameter = 0; while(mean) { rice_parameter++; mean >>= 1; } #endif if(rice_parameter >= FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER) rice_parameter = FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER - 1; #ifndef NO_RICE_SEARCH if(rice_parameter_search_dist) { if(rice_parameter < rice_parameter_search_dist) min_rice_parameter = 0; else min_rice_parameter = rice_parameter - rice_parameter_search_dist; max_rice_parameter = rice_parameter + rice_parameter_search_dist; if(max_rice_parameter >= FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER) max_rice_parameter = FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER - 1; } else min_rice_parameter = max_rice_parameter = rice_parameter; best_partition_bits = 0xffffffff; for(rice_parameter = min_rice_parameter; rice_parameter <= max_rice_parameter; rice_parameter++) { #endif #ifdef VARIABLE_RICE_BITS #ifdef FLAC__SYMMETRIC_RICE partition_bits = (2+rice_parameter) * partition_samples; #else const unsigned rice_parameter_estimate = rice_parameter-1; partition_bits = (1+rice_parameter) * partition_samples; #endif #else partition_bits = 0; #endif partition_bits += FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_PARAMETER_LEN; save_j = j; for(k = 0; k < partition_samples; j++, k++) { #ifdef VARIABLE_RICE_BITS #ifdef FLAC__SYMMETRIC_RICE partition_bits += VARIABLE_RICE_BITS(abs_residual[j], rice_parameter); #else partition_bits += VARIABLE_RICE_BITS(abs_residual[j], rice_parameter_estimate); #endif #else partition_bits += FLAC__bitbuffer_rice_bits(residual[j], rice_parameter); /* NOTE: we will need to pass in residual[] instead of abs_residual[] */ #endif } if(rice_parameter != max_rice_parameter) j = save_j; #ifndef NO_RICE_SEARCH if(partition_bits < best_partition_bits) { best_rice_parameter = rice_parameter; best_partition_bits = partition_bits; } } #endif #ifdef FLAC__SEARCH_FOR_ESCAPES flat_bits = raw_bits_per_partition[partition] * partition_samples; if(flat_bits <= best_partition_bits) { raw_bits[partition] = raw_bits_per_partition[partition]; best_rice_parameter = FLAC__ENTROPY_CODING_METHOD_PARTITIONED_RICE_ESCAPE_PARAMETER; best_partition_bits = flat_bits; } #endif parameters[partition] = best_rice_parameter; bits_ += best_partition_bits; } } *bits = bits_; return true; } unsigned encoder_get_wasted_bits_(int32 signal[], unsigned samples) { unsigned i, shift; int32 x = 0; for(i = 0; i < samples && !(x&1); i++) x |= signal[i]; if(x == 0) { shift = 0; } else { for(shift = 0; !(x&1); shift++) x >>= 1; } if(shift > 0) { for(i = 0; i < samples; i++) signal[i] >>= shift; } return shift; }