TorqueGameEngines/Torque3D
1
0
Fork 0
mirror of https://github.com/TorqueGameEngines/Torque3D.git synced 2026-04-21 20:35:35 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 3
Torque3D/Engine/lib/libsndfile/src/wavlike.c
marauder2k7 700bf32a2a Update minimum requirements and libs 
This updates the minimum required cmake version and the libs that have updates for this.
Ogg updated to master as of 20052025
Libsndfile updated to master as of 20052025
Opus minimum cmake version changed
vorbis minimum cmake version changed
2025-05-20 10:09:42 +01:00

1371 lines
49 KiB
C
Raw Blame History

/*
** Copyright (C) 1999-2020 Erik de Castro Lopo <erikd@mega-nerd.com>
** Copyright (C) 2004-2005 David Viens <davidv@plogue.com>
**
** This program is free software; you can redistribute it and/or modify
** it under the terms of the GNU Lesser General Public License as published by
** the Free Software Foundation; either version 2.1 of the License, or
** (at your option) any later version.
**
** This program 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 Lesser General Public License for more details.
**
** You should have received a copy of the GNU Lesser General Public License
** along with this program; if not, write to the Free Software
** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#include "sfconfig.h"
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <time.h>
#include "sndfile.h"
#include "sfendian.h"
#include "common.h"
#include "wavlike.h"
#define WAV_BEXT_MIN_CHUNK_SIZE 602
#define WAV_BEXT_MAX_CHUNK_SIZE (10 * 1024)
#define WAV_CART_MIN_CHUNK_SIZE 2048
#define WAV_CART_MAX_CHUNK_SIZE 0xffffffff
static int exif_subchunk_parse (SF_PRIVATE *psf, uint32_t length) ;
/* Known WAVEFORMATEXTENSIBLE GUIDS. */
static const EXT_SUBFORMAT MSGUID_SUBTYPE_PCM =
{ 0x00000001, 0x0000, 0x0010, { 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71 }
} ;
static const EXT_SUBFORMAT MSGUID_SUBTYPE_MS_ADPCM =
{ 0x00000002, 0x0000, 0x0010, { 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71 }
} ;
static const EXT_SUBFORMAT MSGUID_SUBTYPE_IEEE_FLOAT =
{ 0x00000003, 0x0000, 0x0010, { 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71 }
} ;
static const EXT_SUBFORMAT MSGUID_SUBTYPE_ALAW =
{ 0x00000006, 0x0000, 0x0010, { 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71 }
} ;
static const EXT_SUBFORMAT MSGUID_SUBTYPE_MULAW =
{ 0x00000007, 0x0000, 0x0010, { 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71 }
} ;
/*
** the next two are from
** http://dream.cs.bath.ac.uk/researchdev/wave-ex/bformat.html
*/
static const EXT_SUBFORMAT MSGUID_SUBTYPE_AMBISONIC_B_FORMAT_PCM =
{ 0x00000001, 0x0721, 0x11d3, { 0x86, 0x44, 0xc8, 0xc1, 0xca, 0x00, 0x00, 0x00 }
} ;
static const EXT_SUBFORMAT MSGUID_SUBTYPE_AMBISONIC_B_FORMAT_IEEE_FLOAT =
{ 0x00000003, 0x0721, 0x11d3, { 0x86, 0x44, 0xc8, 0xc1, 0xca, 0x00, 0x00, 0x00 }
} ;
#if 0
/* maybe interesting one day to read the following through sf_read_raw */
/* http://www.bath.ac.uk/~masrwd/pvocex/pvocex.html */
static const EXT_SUBFORMAT MSGUID_SUBTYPE_PVOCEX =
{ 0x8312b9c2, 0x2e6e, 0x11d4, { 0xa8, 0x24, 0xde, 0x5b, 0x96, 0xc3, 0xab, 0x21 }
} ;
#endif
/* This stores which bit in dwChannelMask maps to which channel */
static const struct chanmap_s
{ int id ;
const char * name ;
} channel_mask_bits [] =
{ /* WAVEFORMATEXTENSIBLE doesn't distinguish FRONT_LEFT from LEFT */
{ SF_CHANNEL_MAP_LEFT, "L" },
{ SF_CHANNEL_MAP_RIGHT, "R" },
{ SF_CHANNEL_MAP_CENTER, "C" },
{ SF_CHANNEL_MAP_LFE, "LFE" },
{ SF_CHANNEL_MAP_REAR_LEFT, "Ls" },
{ SF_CHANNEL_MAP_REAR_RIGHT, "Rs" },
{ SF_CHANNEL_MAP_FRONT_LEFT_OF_CENTER, "Lc" },
{ SF_CHANNEL_MAP_FRONT_RIGHT_OF_CENTER, "Rc" },
{ SF_CHANNEL_MAP_REAR_CENTER, "Cs" },
{ SF_CHANNEL_MAP_SIDE_LEFT, "Sl" },
{ SF_CHANNEL_MAP_SIDE_RIGHT, "Sr" },
{ SF_CHANNEL_MAP_TOP_CENTER, "Tc" },
{ SF_CHANNEL_MAP_TOP_FRONT_LEFT, "Tfl" },
{ SF_CHANNEL_MAP_TOP_FRONT_CENTER, "Tfc" },
{ SF_CHANNEL_MAP_TOP_FRONT_RIGHT, "Tfr" },
{ SF_CHANNEL_MAP_TOP_REAR_LEFT, "Trl" },
{ SF_CHANNEL_MAP_TOP_REAR_CENTER, "Trc" },
{ SF_CHANNEL_MAP_TOP_REAR_RIGHT, "Trr" },
} ;
/*------------------------------------------------------------------------------
* Private static functions.
*/
static int
wavex_guid_equal (const EXT_SUBFORMAT * first, const EXT_SUBFORMAT * second)
{ return !memcmp (first, second, sizeof (EXT_SUBFORMAT)) ;
} /* wavex_guid_equal */
int
wavlike_read_fmt_chunk (SF_PRIVATE *psf, int fmtsize)
{ WAVLIKE_PRIVATE * wpriv ;
WAV_FMT *wav_fmt ;
int bytesread, k, bytespersec = 0 ;
if ((wpriv = psf->container_data) == NULL)
return SFE_INTERNAL ;
wav_fmt = &wpriv->wav_fmt ;
memset (wav_fmt, 0, sizeof (WAV_FMT)) ;
if (fmtsize < 16)
return SFE_WAV_FMT_SHORT ;
/* assume psf->rwf_endian is already properly set */
/* Read the minimal WAV file header here. */
bytesread = psf_binheader_readf (psf, "224422",
&(wav_fmt->format), &(wav_fmt->min.channels),
&(wav_fmt->min.samplerate), &(wav_fmt->min.bytespersec),
&(wav_fmt->min.blockalign), &(wav_fmt->min.bitwidth)) ;
psf_log_printf (psf, " Format : 0x%X => %s\n", wav_fmt->format, wavlike_format_str (wav_fmt->format)) ;
psf_log_printf (psf, " Channels : %d\n", wav_fmt->min.channels) ;
psf_log_printf (psf, " Sample Rate : %d\n", wav_fmt->min.samplerate) ;
if (wav_fmt->format == WAVE_FORMAT_PCM && wav_fmt->min.blockalign == 0
&& wav_fmt->min.bitwidth > 0 && wav_fmt->min.channels > 0)
{ wav_fmt->min.blockalign = wav_fmt->min.bitwidth / 8 + (wav_fmt->min.bitwidth % 8 > 0 ? 1 : 0) ;
wav_fmt->min.blockalign *= wav_fmt->min.channels ;
psf_log_printf (psf, " Block Align : 0 (should be %d)\n", wav_fmt->min.blockalign) ;
}
else
psf_log_printf (psf, " Block Align : %d\n", wav_fmt->min.blockalign) ;
if (wav_fmt->format == WAVE_FORMAT_PCM && wav_fmt->min.bitwidth == 24 &&
wav_fmt->min.blockalign == 4 * wav_fmt->min.channels)
{ psf_log_printf (psf, " Bit Width : 24\n") ;
psf_log_printf (psf, "\n"
" Ambiguous information in 'fmt ' chunk. Possible file types:\n"
" 0) Invalid IEEE float file generated by Syntrillium's Cooledit!\n"
" 1) File generated by ALSA's arecord containing 24 bit samples in 32 bit containers.\n"
" 2) 24 bit file with incorrect Block Align value.\n"
"\n") ;
wpriv->fmt_is_broken = 1 ;
}
else if (wav_fmt->min.bitwidth == 0)
{ switch (wav_fmt->format)
{ case WAVE_FORMAT_GSM610 :
case WAVE_FORMAT_IPP_ITU_G_723_1 :
case WAVE_FORMAT_MPEGLAYER3 :
psf_log_printf (psf, " Bit Width : %d\n", wav_fmt->min.bitwidth) ;
break ;
default :
psf_log_printf (psf, " Bit Width : %d (should not be 0)\n", wav_fmt->min.bitwidth) ;
}
}
else
{ switch (wav_fmt->format)
{ case WAVE_FORMAT_GSM610 :
case WAVE_FORMAT_IPP_ITU_G_723_1 :
case WAVE_FORMAT_MPEGLAYER3 :
psf_log_printf (psf, " Bit Width : %d (should be 0)\n", wav_fmt->min.bitwidth) ;
break ;
default :
psf_log_printf (psf, " Bit Width : %d\n", wav_fmt->min.bitwidth) ;
}
} ;
psf->sf.samplerate = wav_fmt->min.samplerate ;
psf->sf.frames = 0 ; /* Correct this when reading data chunk. */
psf->sf.channels = wav_fmt->min.channels ;
switch (wav_fmt->format)
{ case WAVE_FORMAT_PCM :
case WAVE_FORMAT_IEEE_FLOAT :
bytespersec = wav_fmt->min.samplerate * wav_fmt->min.blockalign ;
if (wav_fmt->min.bytespersec != (unsigned) bytespersec)
psf_log_printf (psf, " Bytes/sec : %d (should be %d)\n", wav_fmt->min.bytespersec, bytespersec) ;
else
psf_log_printf (psf, " Bytes/sec : %d\n", wav_fmt->min.bytespersec) ;
psf->bytewidth = BITWIDTH2BYTES (wav_fmt->min.bitwidth) ;
break ;
case WAVE_FORMAT_ALAW :
case WAVE_FORMAT_MULAW :
if (wav_fmt->min.bytespersec != wav_fmt->min.samplerate * wav_fmt->min.blockalign)
psf_log_printf (psf, " Bytes/sec : %d (should be %d)\n", wav_fmt->min.bytespersec, wav_fmt->min.samplerate * wav_fmt->min.blockalign) ;
else
psf_log_printf (psf, " Bytes/sec : %d\n", wav_fmt->min.bytespersec) ;
psf->bytewidth = 1 ;
if (fmtsize >= 18)
{ bytesread += psf_binheader_readf (psf, "2", &(wav_fmt->size20.extrabytes)) ;
psf_log_printf (psf, " Extra Bytes : %d\n", wav_fmt->size20.extrabytes) ;
} ;
break ;
case WAVE_FORMAT_IMA_ADPCM :
if (wav_fmt->min.bitwidth != 4)
return SFE_WAV_ADPCM_NOT4BIT ;
if (wav_fmt->min.channels < 1 || wav_fmt->min.channels > 2)
return SFE_WAV_ADPCM_CHANNELS ;
bytesread += psf_binheader_readf (psf, "22", &(wav_fmt->ima.extrabytes), &(wav_fmt->ima.samplesperblock)) ;
psf_log_printf (psf, " Extra Bytes : %d\n", wav_fmt->ima.extrabytes) ;
if (wav_fmt->ima.samplesperblock < 1)
{ psf_log_printf (psf, " Samples/Block : %d (should be > 0)\n", wav_fmt->ima.samplesperblock) ;
return SFE_WAV_ADPCM_SAMPLES ;
}
else
psf_log_printf (psf, " Samples/Block : %d\n", wav_fmt->ima.samplesperblock) ;
bytespersec = (wav_fmt->ima.samplerate * wav_fmt->ima.blockalign) / wav_fmt->ima.samplesperblock ;
if (wav_fmt->ima.bytespersec != (unsigned) bytespersec)
psf_log_printf (psf, " Bytes/sec : %d (should be %d)\n", wav_fmt->ima.bytespersec, bytespersec) ;
else
psf_log_printf (psf, " Bytes/sec : %d\n", wav_fmt->ima.bytespersec) ;
break ;
case WAVE_FORMAT_MS_ADPCM :
if (wav_fmt->msadpcm.bitwidth != 4)
return SFE_WAV_ADPCM_NOT4BIT ;
if (wav_fmt->msadpcm.channels < 1 || wav_fmt->msadpcm.channels > 2)
return SFE_WAV_ADPCM_CHANNELS ;
bytesread += psf_binheader_readf (psf, "222", &(wav_fmt->msadpcm.extrabytes),
&(wav_fmt->msadpcm.samplesperblock), &(wav_fmt->msadpcm.numcoeffs)) ;
psf_log_printf (psf, " Extra Bytes : %d\n", wav_fmt->msadpcm.extrabytes) ;
if (wav_fmt->ima.samplesperblock < 1)
{ psf_log_printf (psf, " Samples/Block : %d (should be > 0)\n", wav_fmt->ima.samplesperblock) ;
return SFE_WAV_ADPCM_SAMPLES ;
}
else
psf_log_printf (psf, " Samples/Block : %d\n", wav_fmt->ima.samplesperblock) ;
bytespersec = (wav_fmt->min.samplerate * wav_fmt->min.blockalign) / wav_fmt->msadpcm.samplesperblock ;
if (wav_fmt->min.bytespersec == (unsigned) bytespersec)
psf_log_printf (psf, " Bytes/sec : %d\n", wav_fmt->min.bytespersec) ;
else if (wav_fmt->min.bytespersec == (wav_fmt->min.samplerate / wav_fmt->msadpcm.samplesperblock) * wav_fmt->min.blockalign)
psf_log_printf (psf, " Bytes/sec : %d (should be %d (MS BUG!))\n", wav_fmt->min.bytespersec, bytespersec) ;
else
psf_log_printf (psf, " Bytes/sec : %d (should be %d)\n", wav_fmt->min.bytespersec, bytespersec) ;
if (wav_fmt->msadpcm.numcoeffs > ARRAY_LEN (wav_fmt->msadpcm.coeffs))
{ psf_log_printf (psf, " No. of Coeffs : %d (should be <= %d)\n", wav_fmt->msadpcm.numcoeffs, ARRAY_LEN (wav_fmt->msadpcm.coeffs)) ;
wav_fmt->msadpcm.numcoeffs = ARRAY_LEN (wav_fmt->msadpcm.coeffs) ;
}
else
psf_log_printf (psf, " No. of Coeffs : %d\n", wav_fmt->msadpcm.numcoeffs) ;
psf_log_printf (psf, " Index Coeffs1 Coeffs2\n") ;
for (k = 0 ; k < wav_fmt->msadpcm.numcoeffs ; k++)
{ char buffer [128] ;
bytesread +=
psf_binheader_readf (psf, "22", &(wav_fmt->msadpcm.coeffs [k].coeff1), &(wav_fmt->msadpcm.coeffs [k].coeff2)) ;
snprintf (buffer, sizeof (buffer), " %2d %7d %7d\n", k, wav_fmt->msadpcm.coeffs [k].coeff1, wav_fmt->msadpcm.coeffs [k].coeff2) ;
psf_log_printf (psf, buffer) ;
} ;
break ;
case WAVE_FORMAT_GSM610 :
if (wav_fmt->gsm610.channels != 1 || wav_fmt->gsm610.blockalign != 65)
return SFE_WAV_GSM610_FORMAT ;
bytesread +=
psf_binheader_readf (psf, "22", &(wav_fmt->gsm610.extrabytes), &(wav_fmt->gsm610.samplesperblock)) ;
if (wav_fmt->gsm610.samplesperblock != 320)
return SFE_WAV_GSM610_FORMAT ;
bytespersec = (wav_fmt->gsm610.samplerate * wav_fmt->gsm610.blockalign) / wav_fmt->gsm610.samplesperblock ;
if (wav_fmt->gsm610.bytespersec != (unsigned) bytespersec)
psf_log_printf (psf, " Bytes/sec : %d (should be %d)\n", wav_fmt->gsm610.bytespersec, bytespersec) ;
else
psf_log_printf (psf, " Bytes/sec : %d\n", wav_fmt->gsm610.bytespersec) ;
psf_log_printf (psf, " Extra Bytes : %d\n", wav_fmt->gsm610.extrabytes) ;
psf_log_printf (psf, " Samples/Block : %d\n", wav_fmt->gsm610.samplesperblock) ;
break ;
case WAVE_FORMAT_MPEGLAYER3 :
bytesread += psf_binheader_readf (psf, "24222", &(wav_fmt->mpeg3.extrabytes),
&(wav_fmt->mpeg3.id), &(wav_fmt->mpeg3.flags), &(wav_fmt->mpeg3.blocksize),
&(wav_fmt->mpeg3.samplesperblock), &(wav_fmt->mpeg3.codecdelay)) ;
psf_log_printf (psf, " Bytes/sec : %d\n", wav_fmt->mpeg3.bytespersec) ;
psf_log_printf (psf, " Extra Bytes : %d\n", wav_fmt->mpeg3.extrabytes) ;
if (wav_fmt->mpeg3.id != 1)
psf_log_printf (psf, " ID : %d (unknown, should be 1)\n", wav_fmt->mpeg3.id) ;
else
psf_log_printf (psf, " ID : MPEGLAYER3_ID_MPEG\n") ;
psf_log_printf (psf, " Flags : 0x%08x\n", wav_fmt->mpeg3.flags) ;
psf_log_printf (psf, " Block Size : %d\n", wav_fmt->mpeg3.blocksize) ;
psf_log_printf (psf, " Samples/Block : %d\n", wav_fmt->mpeg3.samplesperblock) ;
psf_log_printf (psf, " Codec Delay : %d samples\n", wav_fmt->mpeg3.codecdelay) ;
break ;
case WAVE_FORMAT_EXTENSIBLE :
if (wav_fmt->ext.bytespersec != wav_fmt->ext.samplerate * wav_fmt->ext.blockalign)
psf_log_printf (psf, " Bytes/sec : %d (should be %d)\n", wav_fmt->ext.bytespersec, wav_fmt->ext.samplerate * wav_fmt->ext.blockalign) ;
else
psf_log_printf (psf, " Bytes/sec : %d\n", wav_fmt->ext.bytespersec) ;
bytesread +=
psf_binheader_readf (psf, "224", &(wav_fmt->ext.extrabytes), &(wav_fmt->ext.validbits),
&(wav_fmt->ext.channelmask)) ;
psf_log_printf (psf, " Valid Bits : %d\n", wav_fmt->ext.validbits) ;
if (wav_fmt->ext.channelmask == 0)
psf_log_printf (psf, " Channel Mask : 0x0 (should not be zero)\n") ;
else
{ char buffer [512] ;
unsigned bit ;
wpriv->wavex_channelmask = wav_fmt->ext.channelmask ;
/* It's probably wise to ignore the channel mask if it is all zero */
free (psf->channel_map) ;
if ((psf->channel_map = calloc (psf->sf.channels, sizeof (psf->channel_map [0]))) == NULL)
return SFE_MALLOC_FAILED ;
/* Terminate the buffer we're going to append_snprintf into. */
buffer [0] = 0 ;
for (bit = k = 0 ; bit < ARRAY_LEN (channel_mask_bits) && k < psf->sf.channels ; bit++)
{
if (wav_fmt->ext.channelmask & (1 << bit))
{ if (k > psf->sf.channels)
{ psf_log_printf (psf, "*** More channel map bits than there are channels.\n") ;
break ;
} ;
psf->channel_map [k++] = channel_mask_bits [bit].id ;
append_snprintf (buffer, sizeof (buffer), "%s, ", channel_mask_bits [bit].name) ;
} ;
} ;
/* Remove trailing ", ". */
bit = strlen (buffer) ;
if (bit >= 2)
{ buffer [--bit] = 0 ;
buffer [--bit] = 0 ;
} ;
if (k != psf->sf.channels)
{ psf_log_printf (psf, " Channel Mask : 0x%X\n", wav_fmt->ext.channelmask) ;
psf_log_printf (psf, "*** Less channel map bits than there are channels.\n") ;
}
else
psf_log_printf (psf, " Channel Mask : 0x%X (%s)\n", wav_fmt->ext.channelmask, buffer) ;
} ;
bytesread += psf_binheader_readf (psf, "422", &(wav_fmt->ext.esf.esf_field1), &(wav_fmt->ext.esf.esf_field2), &(wav_fmt->ext.esf.esf_field3)) ;
/* compare the esf_fields with each known GUID? and print? */
psf_log_printf (psf, " Subformat\n") ;
psf_log_printf (psf, " esf_field1 : 0x%X\n", wav_fmt->ext.esf.esf_field1) ;
psf_log_printf (psf, " esf_field2 : 0x%X\n", wav_fmt->ext.esf.esf_field2) ;
psf_log_printf (psf, " esf_field3 : 0x%X\n", wav_fmt->ext.esf.esf_field3) ;
psf_log_printf (psf, " esf_field4 : ") ;
for (k = 0 ; k < 8 ; k++)
{ bytesread += psf_binheader_readf (psf, "1", &(wav_fmt->ext.esf.esf_field4 [k])) ;
psf_log_printf (psf, "0x%X ", wav_fmt->ext.esf.esf_field4 [k] & 0xFF) ;
} ;
psf_log_printf (psf, "\n") ;
psf->bytewidth = BITWIDTH2BYTES (wav_fmt->ext.bitwidth) ;
/* Compare GUIDs for known ones. */
if (wavex_guid_equal (&wav_fmt->ext.esf, &MSGUID_SUBTYPE_PCM))
{ psf->sf.format = SF_FORMAT_WAVEX | u_bitwidth_to_subformat (psf->bytewidth * 8) ;
psf_log_printf (psf, " format : pcm\n") ;
}
else if (wavex_guid_equal (&wav_fmt->ext.esf, &MSGUID_SUBTYPE_MS_ADPCM))
{ psf->sf.format = (SF_FORMAT_WAVEX | SF_FORMAT_MS_ADPCM) ;
psf_log_printf (psf, " format : ms adpcm\n") ;
}
else if (wavex_guid_equal (&wav_fmt->ext.esf, &MSGUID_SUBTYPE_IEEE_FLOAT))
{ psf->sf.format = SF_FORMAT_WAVEX | ((psf->bytewidth == 8) ? SF_FORMAT_DOUBLE : SF_FORMAT_FLOAT) ;
psf_log_printf (psf, " format : IEEE float\n") ;
}
else if (wavex_guid_equal (&wav_fmt->ext.esf, &MSGUID_SUBTYPE_ALAW))
{ psf->sf.format = (SF_FORMAT_WAVEX | SF_FORMAT_ALAW) ;
psf_log_printf (psf, " format : A-law\n") ;
}
else if (wavex_guid_equal (&wav_fmt->ext.esf, &MSGUID_SUBTYPE_MULAW))
{ psf->sf.format = (SF_FORMAT_WAVEX | SF_FORMAT_ULAW) ;
psf_log_printf (psf, " format : u-law\n") ;
}
else if (wavex_guid_equal (&wav_fmt->ext.esf, &MSGUID_SUBTYPE_AMBISONIC_B_FORMAT_PCM))
{ psf->sf.format = SF_FORMAT_WAVEX | u_bitwidth_to_subformat (psf->bytewidth * 8) ;
psf_log_printf (psf, " format : pcm (Ambisonic B)\n") ;
wpriv->wavex_ambisonic = SF_AMBISONIC_B_FORMAT ;
}
else if (wavex_guid_equal (&wav_fmt->ext.esf, &MSGUID_SUBTYPE_AMBISONIC_B_FORMAT_IEEE_FLOAT))
{ psf->sf.format = SF_FORMAT_WAVEX | ((psf->bytewidth == 8) ? SF_FORMAT_DOUBLE : SF_FORMAT_FLOAT) ;
psf_log_printf (psf, " format : IEEE float (Ambisonic B)\n") ;
wpriv->wavex_ambisonic = SF_AMBISONIC_B_FORMAT ;
}
else
return SFE_UNIMPLEMENTED ;
break ;
case WAVE_FORMAT_G721_ADPCM :
psf_log_printf (psf, " Bytes/sec : %d\n", wav_fmt->g72x.bytespersec) ;
if (fmtsize >= 20)
{ bytesread += psf_binheader_readf (psf, "22", &(wav_fmt->g72x.extrabytes), &(wav_fmt->g72x.auxblocksize)) ;
if (wav_fmt->g72x.extrabytes == 0)
psf_log_printf (psf, " Extra Bytes : %d (should be 2)\n", wav_fmt->g72x.extrabytes) ;
else
psf_log_printf (psf, " Extra Bytes : %d\n", wav_fmt->g72x.extrabytes) ;
psf_log_printf (psf, " Aux Blk Size : %d\n", wav_fmt->g72x.auxblocksize) ;
}
else if (fmtsize == 18)
{ bytesread += psf_binheader_readf (psf, "2", &(wav_fmt->g72x.extrabytes)) ;
psf_log_printf (psf, " Extra Bytes : %d%s\n", wav_fmt->g72x.extrabytes, wav_fmt->g72x.extrabytes != 0 ? " (should be 0)" : "") ;
}
else
psf_log_printf (psf, "*** 'fmt ' chunk should be bigger than this!\n") ;
break ;
case WAVE_FORMAT_NMS_VBXADPCM :
if (wav_fmt->min.channels != 1 || wav_fmt->min.bitwidth < 2 || wav_fmt->min.bitwidth * 20 + 2 != wav_fmt->min.blockalign)
return SFE_WAV_NMS_FORMAT ;
bytespersec = (wav_fmt->min.samplerate * wav_fmt->min.blockalign) / 160 ;
if (wav_fmt->min.bytespersec == (unsigned) bytespersec)
psf_log_printf (psf, " Bytes/sec : %d\n", wav_fmt->min.bytespersec) ;
else
psf_log_printf (psf, " Bytes/sec : %d (should be %d)\n", wav_fmt->min.bytespersec, bytespersec) ;
if (fmtsize >= 18)
{ bytesread += psf_binheader_readf (psf, "2", &(wav_fmt->size20.extrabytes)) ;
psf_log_printf (psf, " Extra Bytes : %d\n", wav_fmt->size20.extrabytes) ;
} ;
break ;
default :
psf_log_printf (psf, "*** No 'fmt ' chunk dumper for this format!\n") ;
return SFE_WAV_BAD_FMT ;
} ;
if (bytesread > fmtsize)
{ psf_log_printf (psf, "*** wavlike_read_fmt_chunk (bytesread > fmtsize)\n") ;
return SFE_WAV_BAD_FMT ;
}
else
psf_binheader_readf (psf, "j", fmtsize - bytesread) ;
psf->blockwidth = wav_fmt->min.channels * psf->bytewidth ;
return 0 ;
} /* wavlike_read_fmt_chunk */
void
wavlike_write_guid (SF_PRIVATE *psf, const EXT_SUBFORMAT * subformat)
{
psf_binheader_writef (psf, "422b", BHW4 (subformat->esf_field1),
BHW2 (subformat->esf_field2), BHW2 (subformat->esf_field3),
BHWv (subformat->esf_field4), BHWz (8)) ;
} /* wavlike_write_guid */
int
wavlike_gen_channel_mask (const int *chan_map, int channels)
{ int chan, mask = 0, bit = -1, last_bit = -1 ;
if (chan_map == NULL)
return 0 ;
for (chan = 0 ; chan < channels ; chan ++)
{ int k ;
for (k = bit + 1 ; k < ARRAY_LEN (channel_mask_bits) ; k++)
if (chan_map [chan] == channel_mask_bits [k].id)
{ bit = k ;
break ;
} ;
/* Check for bad sequence. */
if (bit <= last_bit)
return 0 ;
mask += 1 << bit ;
last_bit = bit ;
} ;
return mask ;
} /* wavlike_gen_channel_mask */
void
wavlike_analyze (SF_PRIVATE *psf)
{ unsigned char buffer [4096] ;
AUDIO_DETECT ad ;
int format = 0 ;
if (psf->is_pipe)
{ psf_log_printf (psf, "*** Error : Reading from a pipe. Can't analyze data section to figure out real data format.\n\n") ;
return ;
} ;
psf_log_printf (psf, "---------------------------------------------------\n"
"Format is known to be broken. Using detection code.\n") ;
/* Code goes here. */
ad.endianness = SF_ENDIAN_LITTLE ;
ad.channels = psf->sf.channels ;
psf_fseek (psf, 3 * 4 * 50, SEEK_SET) ;
while (psf_fread (buffer, 1, sizeof (buffer), psf) == sizeof (buffer))
{ format = audio_detect (psf, &ad, buffer, sizeof (buffer)) ;
if (format != 0)
break ;
} ;
/* Seek to start of DATA section. */
psf_fseek (psf, psf->dataoffset, SEEK_SET) ;
if (format == 0)
{ psf_log_printf (psf, "wavlike_analyze : detection failed.\n") ;
return ;
} ;
switch (format)
{ case SF_FORMAT_PCM_32 :
case SF_FORMAT_FLOAT :
psf_log_printf (psf, "wavlike_analyze : found format : 0x%X\n", format) ;
psf->sf.format = (psf->sf.format & ~SF_FORMAT_SUBMASK) + format ;
psf->bytewidth = 4 ;
psf->blockwidth = psf->sf.channels * psf->bytewidth ;
break ;
case SF_FORMAT_PCM_24 :
psf_log_printf (psf, "wavlike_analyze : found format : 0x%X\n", format) ;
psf->sf.format = (psf->sf.format & ~SF_FORMAT_SUBMASK) + format ;
psf->bytewidth = 3 ;
psf->blockwidth = psf->sf.channels * psf->bytewidth ;
break ;
default :
psf_log_printf (psf, "wavlike_analyze : unhandled format : 0x%X\n", format) ;
break ;
} ;
return ;
} /* wavlike_analyze */
/*==============================================================================
*/
typedef struct
{ int ID ;
const char *name ;
} WAV_FORMAT_DESC ;
#define STR(x) #x
#define FORMAT_TYPE(x) { x, STR (x) }
static WAV_FORMAT_DESC wave_descs [] =
{ FORMAT_TYPE (WAVE_FORMAT_PCM),
FORMAT_TYPE (WAVE_FORMAT_MS_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_IEEE_FLOAT),
FORMAT_TYPE (WAVE_FORMAT_VSELP),
FORMAT_TYPE (WAVE_FORMAT_IBM_CVSD),
FORMAT_TYPE (WAVE_FORMAT_ALAW),
FORMAT_TYPE (WAVE_FORMAT_MULAW),
FORMAT_TYPE (WAVE_FORMAT_OKI_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_IMA_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_MEDIASPACE_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_SIERRA_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_G723_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_DIGISTD),
FORMAT_TYPE (WAVE_FORMAT_DIGIFIX),
FORMAT_TYPE (WAVE_FORMAT_DIALOGIC_OKI_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_MEDIAVISION_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_CU_CODEC),
FORMAT_TYPE (WAVE_FORMAT_YAMAHA_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_SONARC),
FORMAT_TYPE (WAVE_FORMAT_DSPGROUP_TRUESPEECH),
FORMAT_TYPE (WAVE_FORMAT_ECHOSC1),
FORMAT_TYPE (WAVE_FORMAT_AUDIOFILE_AF36),
FORMAT_TYPE (WAVE_FORMAT_APTX),
FORMAT_TYPE (WAVE_FORMAT_AUDIOFILE_AF10),
FORMAT_TYPE (WAVE_FORMAT_PROSODY_1612),
FORMAT_TYPE (WAVE_FORMAT_LRC),
FORMAT_TYPE (WAVE_FORMAT_DOLBY_AC2),
FORMAT_TYPE (WAVE_FORMAT_GSM610),
FORMAT_TYPE (WAVE_FORMAT_MSNAUDIO),
FORMAT_TYPE (WAVE_FORMAT_ANTEX_ADPCME),
FORMAT_TYPE (WAVE_FORMAT_CONTROL_RES_VQLPC),
FORMAT_TYPE (WAVE_FORMAT_DIGIREAL),
FORMAT_TYPE (WAVE_FORMAT_DIGIADPCM),
FORMAT_TYPE (WAVE_FORMAT_CONTROL_RES_CR10),
FORMAT_TYPE (WAVE_FORMAT_NMS_VBXADPCM),
FORMAT_TYPE (WAVE_FORMAT_ROLAND_RDAC),
FORMAT_TYPE (WAVE_FORMAT_ECHOSC3),
FORMAT_TYPE (WAVE_FORMAT_ROCKWELL_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_ROCKWELL_DIGITALK),
FORMAT_TYPE (WAVE_FORMAT_XEBEC),
FORMAT_TYPE (WAVE_FORMAT_G721_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_G728_CELP),
FORMAT_TYPE (WAVE_FORMAT_MSG723),
FORMAT_TYPE (WAVE_FORMAT_MPEG),
FORMAT_TYPE (WAVE_FORMAT_RT24),
FORMAT_TYPE (WAVE_FORMAT_PAC),
FORMAT_TYPE (WAVE_FORMAT_MPEGLAYER3),
FORMAT_TYPE (WAVE_FORMAT_LUCENT_G723),
FORMAT_TYPE (WAVE_FORMAT_CIRRUS),
FORMAT_TYPE (WAVE_FORMAT_ESPCM),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE),
FORMAT_TYPE (WAVE_FORMAT_CANOPUS_ATRAC),
FORMAT_TYPE (WAVE_FORMAT_G726_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_G722_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_DSAT),
FORMAT_TYPE (WAVE_FORMAT_DSAT_DISPLAY),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_BYTE_ALIGNED),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_AC8),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_AC10),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_AC16),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_AC20),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_RT24),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_RT29),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_RT29HW),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_VR12),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_VR18),
FORMAT_TYPE (WAVE_FORMAT_VOXWARE_TQ40),
FORMAT_TYPE (WAVE_FORMAT_SOFTSOUND),
FORMAT_TYPE (WAVE_FORMAT_VOXARE_TQ60),
FORMAT_TYPE (WAVE_FORMAT_MSRT24),
FORMAT_TYPE (WAVE_FORMAT_G729A),
FORMAT_TYPE (WAVE_FORMAT_MVI_MV12),
FORMAT_TYPE (WAVE_FORMAT_DF_G726),
FORMAT_TYPE (WAVE_FORMAT_DF_GSM610),
FORMAT_TYPE (WAVE_FORMAT_ONLIVE),
FORMAT_TYPE (WAVE_FORMAT_SBC24),
FORMAT_TYPE (WAVE_FORMAT_DOLBY_AC3_SPDIF),
FORMAT_TYPE (WAVE_FORMAT_ZYXEL_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_PHILIPS_LPCBB),
FORMAT_TYPE (WAVE_FORMAT_PACKED),
FORMAT_TYPE (WAVE_FORMAT_RHETOREX_ADPCM),
FORMAT_TYPE (IBM_FORMAT_MULAW),
FORMAT_TYPE (IBM_FORMAT_ALAW),
FORMAT_TYPE (IBM_FORMAT_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_VIVO_G723),
FORMAT_TYPE (WAVE_FORMAT_VIVO_SIREN),
FORMAT_TYPE (WAVE_FORMAT_DIGITAL_G723),
FORMAT_TYPE (WAVE_FORMAT_CREATIVE_ADPCM),
FORMAT_TYPE (WAVE_FORMAT_CREATIVE_FASTSPEECH8),
FORMAT_TYPE (WAVE_FORMAT_CREATIVE_FASTSPEECH10),
FORMAT_TYPE (WAVE_FORMAT_QUARTERDECK),
FORMAT_TYPE (WAVE_FORMAT_FM_TOWNS_SND),
FORMAT_TYPE (WAVE_FORMAT_BZV_DIGITAL),
FORMAT_TYPE (WAVE_FORMAT_VME_VMPCM),
FORMAT_TYPE (WAVE_FORMAT_OLIGSM),
FORMAT_TYPE (WAVE_FORMAT_OLIADPCM),
FORMAT_TYPE (WAVE_FORMAT_OLICELP),
FORMAT_TYPE (WAVE_FORMAT_OLISBC),
FORMAT_TYPE (WAVE_FORMAT_OLIOPR),
FORMAT_TYPE (WAVE_FORMAT_LH_CODEC),
FORMAT_TYPE (WAVE_FORMAT_NORRIS),
FORMAT_TYPE (WAVE_FORMAT_SOUNDSPACE_MUSICOMPRESS),
FORMAT_TYPE (WAVE_FORMAT_DVM),
FORMAT_TYPE (WAVE_FORMAT_INTERWAV_VSC112),
FORMAT_TYPE (WAVE_FORMAT_IPP_ITU_G_723_1),
FORMAT_TYPE (WAVE_FORMAT_EXTENSIBLE),
} ;
char const*
wavlike_format_str (int k)
{ int lower, upper, mid ;
lower = -1 ;
upper = sizeof (wave_descs) / sizeof (WAV_FORMAT_DESC) ;
/* binary search */
if ((wave_descs [0].ID <= k) && (k <= wave_descs [upper - 1].ID))
{
while (lower + 1 < upper)
{ mid = (upper + lower) / 2 ;
if (k == wave_descs [mid].ID)
return wave_descs [mid].name ;
if (k < wave_descs [mid].ID)
upper = mid ;
else
lower = mid ;
} ;
} ;
return "Unknown format" ;
} /* wavlike_format_str */
int
wavlike_srate2blocksize (int srate_chan_product)
{ if (srate_chan_product < 12000)
return 256 ;
if (srate_chan_product < 23000)
return 512 ;
if (srate_chan_product < 44000)
return 1024 ;
return 2048 ;
} /* srate2blocksize */
int
wavlike_read_bext_chunk (SF_PRIVATE *psf, uint32_t chunksize)
{
SF_BROADCAST_INFO_16K * b ;
uint32_t bytes = 0 ;
if (chunksize < WAV_BEXT_MIN_CHUNK_SIZE)
{ psf_log_printf (psf, "bext : %u (should be >= %d)\n", chunksize, WAV_BEXT_MIN_CHUNK_SIZE) ;
psf_binheader_readf (psf, "j", chunksize) ;
return 0 ;
} ;
if (chunksize > WAV_BEXT_MAX_CHUNK_SIZE)
{ psf_log_printf (psf, "bext : %u (should be < %d)\n", chunksize, WAV_BEXT_MAX_CHUNK_SIZE) ;
psf_binheader_readf (psf, "j", chunksize) ;
return 0 ;
} ;
if (chunksize >= sizeof (SF_BROADCAST_INFO_16K))
{ psf_log_printf (psf, "bext : %u too big to be handled\n", chunksize) ;
psf_binheader_readf (psf, "j", chunksize) ;
return 0 ;
} ;
psf_log_printf (psf, "bext : %u\n", chunksize) ;
if (!psf->broadcast_16k)
{ psf->broadcast_16k = broadcast_var_alloc () ;
if (!psf->broadcast_16k)
{ psf->error = SFE_MALLOC_FAILED ;
return psf->error ;
}
}
else
{ psf_log_printf (psf, "bext : found more than one bext chunk, using last one.\n") ;
memset (psf->broadcast_16k, 0, sizeof (SF_BROADCAST_INFO_16K)) ;
}
b = psf->broadcast_16k ;
bytes += psf_binheader_readf (psf, "b", b->description, sizeof (b->description)) ;
bytes += psf_binheader_readf (psf, "b", b->originator, sizeof (b->originator)) ;
bytes += psf_binheader_readf (psf, "b", b->originator_reference, sizeof (b->originator_reference)) ;
bytes += psf_binheader_readf (psf, "b", b->origination_date, sizeof (b->origination_date)) ;
bytes += psf_binheader_readf (psf, "b", b->origination_time, sizeof (b->origination_time)) ;
bytes += psf_binheader_readf (psf, "442", &b->time_reference_low, &b->time_reference_high, &b->version) ;
bytes += psf_binheader_readf (psf, "b", &b->umid, sizeof (b->umid)) ;
bytes += psf_binheader_readf (psf, "22", &b->loudness_value, &b->loudness_range) ;
bytes += psf_binheader_readf (psf, "222", &b->max_true_peak_level, &b->max_momentary_loudness, &b->max_shortterm_loudness) ;
bytes += psf_binheader_readf (psf, "j", 180) ;
if (chunksize > WAV_BEXT_MIN_CHUNK_SIZE)
{ /* File has coding history data. */
b->coding_history_size = chunksize - WAV_BEXT_MIN_CHUNK_SIZE ;
/* We do not parse the coding history */
bytes += psf_binheader_readf (psf, "b", BHWv (b->coding_history), BHWz (b->coding_history_size)) ;
} ;
if (bytes < chunksize)
psf_binheader_readf (psf, "j", BHWj (chunksize - bytes)) ;
return 0 ;
} /* wavlike_read_bext_chunk */
int
wavlike_write_bext_chunk (SF_PRIVATE *psf)
{ SF_BROADCAST_INFO_16K *b ;
if (psf->broadcast_16k == NULL)
return -1 ;
b = psf->broadcast_16k ;
psf_binheader_writef (psf, "m4", BHWm (bext_MARKER), BHW4 (WAV_BEXT_MIN_CHUNK_SIZE + b->coding_history_size)) ;
/*
** Note that it is very important that the field widths of the SF_BROADCAST_INFO
** struct match those of the bext chunk fields.
*/
psf_binheader_writef (psf, "b", BHWv (b->description), BHWz (sizeof (b->description))) ;
psf_binheader_writef (psf, "b", BHWv (b->originator), BHWz (sizeof (b->originator))) ;
psf_binheader_writef (psf, "b", BHWv (b->originator_reference), BHWz (sizeof (b->originator_reference))) ;
psf_binheader_writef (psf, "b", BHWv (b->origination_date), BHWz (sizeof (b->origination_date))) ;
psf_binheader_writef (psf, "b", BHWv (b->origination_time), BHWz (sizeof (b->origination_time))) ;
psf_binheader_writef (psf, "442", BHW4 (b->time_reference_low), BHW4 (b->time_reference_high), BHW2 (b->version)) ;
psf_binheader_writef (psf, "b", BHWv (b->umid), BHWz (sizeof (b->umid))) ;
psf_binheader_writef (psf, "22", BHW2 (b->loudness_value), BHW2 (b->loudness_range)) ;
psf_binheader_writef (psf, "222", BHW2 (b->max_true_peak_level), BHW2 (b->max_momentary_loudness), BHW2 (b->max_shortterm_loudness)) ;
psf_binheader_writef (psf, "z", BHWz (180)) ;
if (b->coding_history_size > 0)
psf_binheader_writef (psf, "b", BHWv (b->coding_history), BHWz (b->coding_history_size)) ;
return 0 ;
} /* wavlike_write_bext_chunk */
int
wavlike_read_cart_chunk (SF_PRIVATE *psf, uint32_t chunksize)
{ SF_CART_INFO_16K *c ;
uint32_t bytes = 0 ;
int k ;
if (chunksize < WAV_CART_MIN_CHUNK_SIZE)
{ psf_log_printf (psf, "cart : %u (should be >= %d)\n", chunksize, WAV_CART_MIN_CHUNK_SIZE) ;
psf_binheader_readf (psf, "j", chunksize) ;
return 0 ;
} ;
if (chunksize > WAV_CART_MAX_CHUNK_SIZE)
{ psf_log_printf (psf, "cart : %u (should be < %d)\n", chunksize, WAV_CART_MAX_CHUNK_SIZE) ;
psf_binheader_readf (psf, "j", chunksize) ;
return 0 ;
} ;
/*
** SF_CART_INFO_16K has an extra field 'tag_text_size' that isn't part
** of the chunk, so don't include it in the size check.
*/
if (chunksize >= sizeof (SF_CART_INFO_16K) - 4)
{ psf_log_printf (psf, "cart : %u too big to be handled\n", chunksize) ;
psf_binheader_readf (psf, "j", chunksize) ;
return 0 ;
} ;
psf_log_printf (psf, "cart : %u\n", chunksize) ;
if (psf->cart_16k)
{ psf_log_printf (psf, " Found more than one cart chunk, using last one.\n") ;
free (psf->cart_16k) ;
psf->cart_16k = NULL ;
} ;
if ((psf->cart_16k = cart_var_alloc ()) == NULL)
{ psf->error = SFE_MALLOC_FAILED ;
return psf->error ;
} ;
c = psf->cart_16k ;
bytes += psf_binheader_readf (psf, "b", c->version, sizeof (c->version)) ;
bytes += psf_binheader_readf (psf, "b", c->title, sizeof (c->title)) ;
bytes += psf_binheader_readf (psf, "b", c->artist, sizeof (c->artist)) ;
bytes += psf_binheader_readf (psf, "b", c->cut_id, sizeof (c->cut_id)) ;
bytes += psf_binheader_readf (psf, "b", c->client_id, sizeof (c->client_id)) ;
bytes += psf_binheader_readf (psf, "b", c->category, sizeof (c->category)) ;
bytes += psf_binheader_readf (psf, "b", c->classification, sizeof (c->classification)) ;
bytes += psf_binheader_readf (psf, "b", c->out_cue, sizeof (c->out_cue)) ;
bytes += psf_binheader_readf (psf, "b", c->start_date, sizeof (c->start_date)) ;
bytes += psf_binheader_readf (psf, "b", c->start_time, sizeof (c->start_time)) ;
bytes += psf_binheader_readf (psf, "b", c->end_date, sizeof (c->end_date)) ;
bytes += psf_binheader_readf (psf, "b", c->end_time, sizeof (c->end_time)) ;
bytes += psf_binheader_readf (psf, "b", c->producer_app_id, sizeof (c->producer_app_id)) ;
bytes += psf_binheader_readf (psf, "b", c->producer_app_version, sizeof (c->producer_app_version)) ;
bytes += psf_binheader_readf (psf, "b", c->user_def, sizeof (c->user_def)) ;
bytes += psf_binheader_readf (psf, "e4", &c->level_reference, sizeof (c->level_reference)) ;
for (k = 0 ; k < ARRAY_LEN (c->post_timers) ; k++)
bytes += psf_binheader_readf (psf, "b4", &c->post_timers [k].usage, make_size_t (4), &c->post_timers [k].value) ;
bytes += psf_binheader_readf (psf, "b", c->reserved, sizeof (c->reserved)) ;
bytes += psf_binheader_readf (psf, "b", c->url, sizeof (c->url)) ;
if (chunksize > WAV_CART_MIN_CHUNK_SIZE)
{ /* File has tag text. */
c->tag_text_size = chunksize - WAV_CART_MIN_CHUNK_SIZE ;
bytes += psf_binheader_readf (psf, "b", c->tag_text, make_size_t (c->tag_text_size)) ;
} ;
if (bytes < chunksize)
psf_log_printf (psf, " %d trailing bytes in cart chunk.\n", chunksize - bytes) ;
return 0 ;
} /* wavlike_read_cart_chunk */
int
wavlike_write_cart_chunk (SF_PRIVATE *psf)
{ SF_CART_INFO_16K *c ;
int k ;
if (psf->cart_16k == NULL)
return -1 ;
c = psf->cart_16k ;
psf_binheader_writef (psf, "m4", BHWm (cart_MARKER), BHW4 (WAV_CART_MIN_CHUNK_SIZE + c->tag_text_size)) ;
/*
** Note that it is very important that the field widths of the SF_CART_INFO
** struct match those of the cart chunk fields.
*/
psf_binheader_writef (psf, "b", BHWv (c->version), BHWz (sizeof (c->version))) ;
psf_binheader_writef (psf, "b", BHWv (c->title), BHWz (sizeof (c->title))) ;
psf_binheader_writef (psf, "b", BHWv (c->artist), BHWz (sizeof (c->artist))) ;
psf_binheader_writef (psf, "b", BHWv (c->cut_id), BHWz (sizeof (c->cut_id))) ;
psf_binheader_writef (psf, "b", BHWv (c->client_id), BHWz (sizeof (c->client_id))) ;
psf_binheader_writef (psf, "b", BHWv (c->category), BHWz (sizeof (c->category))) ;
psf_binheader_writef (psf, "b", BHWv (c->classification), BHWz (sizeof (c->classification))) ;
psf_binheader_writef (psf, "b", BHWv (c->out_cue), BHWz (sizeof (c->out_cue))) ;
psf_binheader_writef (psf, "b", BHWv (c->start_date), BHWz (sizeof (c->start_date))) ;
psf_binheader_writef (psf, "b", BHWv (c->start_time), BHWz (sizeof (c->start_time))) ;
psf_binheader_writef (psf, "b", BHWv (c->end_date), BHWz (sizeof (c->end_date))) ;
psf_binheader_writef (psf, "b", BHWv (c->end_time), BHWz (sizeof (c->end_time))) ;
psf_binheader_writef (psf, "b", BHWv (c->producer_app_id), BHWz (sizeof (c->producer_app_id))) ;
psf_binheader_writef (psf, "b", BHWv (c->producer_app_version), BHWz (sizeof (c->producer_app_version))) ;
psf_binheader_writef (psf, "b", BHWv (c->user_def), BHWz (sizeof (c->user_def))) ;
psf_binheader_writef (psf, "e4", BHW4 (c->level_reference)) ;
for (k = 0 ; k < ARRAY_LEN (c->post_timers) ; k++)
psf_binheader_writef (psf, "b4", BHWv (c->post_timers [k].usage), BHWz (4), BHW4 (c->post_timers [k].value)) ;
psf_binheader_writef (psf, "z", BHWz (sizeof (c->reserved))) ; // just write zeros, we don't have any other use for it
psf_binheader_writef (psf, "b", BHWv (c->url), BHWz (sizeof (c->url))) ;
if (c->tag_text_size > 0)
psf_binheader_writef (psf, "b", BHWv (c->tag_text), BHWz (c->tag_text_size)) ;
return 0 ;
} /* wavlike_write_cart_chunk */
int
wavlike_subchunk_parse (SF_PRIVATE *psf, int chunk, uint32_t chunk_length)
{ sf_count_t current_pos ;
char buffer [2048] ;
uint32_t chunk_size, bytesread = 0 ;
current_pos = psf_fseek (psf, 0, SEEK_CUR) ;
if (chunk_length <= 8)
{ /* This case is for broken files generated by PEAK. */
psf_log_printf (psf, "%M : %u (weird length)\n", chunk, chunk_length) ;
psf_binheader_readf (psf, "mj", &chunk, chunk_length - 4) ;
psf_log_printf (psf, " %M\n", chunk) ;
return 0 ;
} ;
if (current_pos + chunk_length > psf->filelength)
{ psf_log_printf (psf, "%M : %u (should be %d)\n", chunk, chunk_length, (int) (psf->filelength - current_pos)) ;
chunk_length = psf->filelength - current_pos ;
}
else
psf_log_printf (psf, "%M : %u\n", chunk, chunk_length) ;
while (bytesread < chunk_length)
{ uint32_t thisread ;
if ((thisread = psf_binheader_readf (psf, "m", &chunk)) == 0)
break ;
bytesread += thisread ;
switch (chunk)
{ case adtl_MARKER :
case INFO_MARKER :
/* These markers don't contain anything, not even a chunk length. */
psf_log_printf (psf, " %M\n", chunk) ;
continue ;
case exif_MARKER :
psf_log_printf (psf, " %M\n", chunk) ;
if (chunk_length > bytesread)
bytesread += exif_subchunk_parse (psf, chunk_length - bytesread) ;
continue ;
case data_MARKER :
psf_log_printf (psf, " %M inside a LIST block??? Backing out.\n", chunk) ;
/* Jump back four bytes and return to caller. */
psf_binheader_readf (psf, "j", -4) ;
return 0 ;
case 0 :
/*
** Four zero bytes where a marker was expected. Assume this means
** the rest of the chunk is garbage.
*/
psf_log_printf (psf, " *** Found weird-ass zero marker. Jumping to end of chunk.\n") ;
goto cleanup_subchunk_parse ;
default :
break ;
} ;
switch (chunk)
{ case ISFT_MARKER :
case ICOP_MARKER :
case IARL_MARKER :
case IART_MARKER :
case ICMT_MARKER :
case ICRD_MARKER :
case IENG_MARKER :
case IGNR_MARKER :
case INAM_MARKER :
case IPRD_MARKER :
case ISBJ_MARKER :
case ISRC_MARKER :
case IAUT_MARKER :
case ITRK_MARKER :
bytesread += psf_binheader_readf (psf, "4", &chunk_size) ;
chunk_size += (chunk_size & 1) ;
if (chunk_size >= SIGNED_SIZEOF (buffer) || bytesread + chunk_size > chunk_length)
{ psf_log_printf (psf, " *** %M : %u (too big)\n", chunk, chunk_size) ;
goto cleanup_subchunk_parse ;
} ;
bytesread += psf_binheader_readf (psf, "b", buffer, chunk_size) ;
buffer [chunk_size] = 0 ;
psf_log_printf (psf, " %M : %s\n", chunk, buffer) ;
break ;
case labl_MARKER :
{ int mark_id ;
bytesread += psf_binheader_readf (psf, "44", &chunk_size, &mark_id) ;
chunk_size -= 4 ;
chunk_size += (chunk_size & 1) ;
if (chunk_size < 1 || chunk_size >= SIGNED_SIZEOF (buffer) || bytesread + chunk_size > chunk_length)
{ psf_log_printf (psf, " *** %M : %u (too big)\n", chunk, chunk_size) ;
goto cleanup_subchunk_parse ;
} ;
bytesread += psf_binheader_readf (psf, "b", buffer, chunk_size) ;
buffer [chunk_size] = 0 ;
if (mark_id < 10) /* avoid swamping log buffer with labels */
psf_log_printf (psf, " %M : %u : %s\n", chunk, mark_id, buffer) ;
else if (mark_id == 10)
psf_log_printf (psf, " (Skipping)\n") ;
if (psf->cues)
{ unsigned int i = 0 ;
/* find id to store label */
while (i < psf->cues->cue_count && psf->cues->cue_points [i].indx != mark_id)
i++ ;
if (i < psf->cues->cue_count)
memcpy (psf->cues->cue_points [i].name, buffer, sizeof (psf->cues->cue_points [i].name)) ;
} ;
} ;
break ;
case DISP_MARKER :
case ltxt_MARKER :
case note_MARKER :
bytesread += psf_binheader_readf (psf, "4", &chunk_size) ;
chunk_size += (chunk_size & 1) ;
if (chunk_size >= SIGNED_SIZEOF (buffer) || bytesread + chunk_size > chunk_length)
{ psf_log_printf (psf, " *** %M : %u (too big)\n", chunk, chunk_size) ;
goto cleanup_subchunk_parse ;
} ;
psf_log_printf (psf, " %M : %u\n", chunk, chunk_size) ;
goto cleanup_subchunk_parse ;
default :
bytesread += psf_binheader_readf (psf, "4", &chunk_size) ;
chunk_size += (chunk_size & 1) ;
if (bytesread + chunk_size > chunk_length)
{ psf_log_printf (psf, " *** %M : %u (too big)\n", chunk, chunk_size) ;
goto cleanup_subchunk_parse ;
}
else
{ psf_log_printf (psf, " %M : %u\n", chunk, chunk_size) ;
bytesread += psf_binheader_readf (psf, "j", chunk_size) ;
} ;
break ;
} ;
switch (chunk)
{ case ISFT_MARKER :
psf_store_string (psf, SF_STR_SOFTWARE, buffer) ;
break ;
case ICOP_MARKER :
psf_store_string (psf, SF_STR_COPYRIGHT, buffer) ;
break ;
case INAM_MARKER :
psf_store_string (psf, SF_STR_TITLE, buffer) ;
break ;
case IART_MARKER :
psf_store_string (psf, SF_STR_ARTIST, buffer) ;
break ;
case ICMT_MARKER :
psf_store_string (psf, SF_STR_COMMENT, buffer) ;
break ;
case ICRD_MARKER :
psf_store_string (psf, SF_STR_DATE, buffer) ;
break ;
case IGNR_MARKER :
psf_store_string (psf, SF_STR_GENRE, buffer) ;
break ;
case IPRD_MARKER :
psf_store_string (psf, SF_STR_ALBUM, buffer) ;
break ;
case ITRK_MARKER :
psf_store_string (psf, SF_STR_TRACKNUMBER, buffer) ;
break ;
} ;
} ;
cleanup_subchunk_parse :
if (chunk_length > bytesread)
bytesread += psf_binheader_readf (psf, "j", chunk_length - bytesread) ;
return 0 ;
} /* wavlike_subchunk_parse */
void
wavlike_write_strings (SF_PRIVATE *psf, int location)
{ int k, prev_head_index, saved_head_index ;
if (psf_location_string_count (psf, location) == 0)
return ;
prev_head_index = psf->header.indx + 4 ;
psf_binheader_writef (psf, "m4m", BHWm (LIST_MARKER), BHW4 (0xBADBAD), BHWm (INFO_MARKER)) ;
for (k = 0 ; k < SF_MAX_STRINGS ; k++)
{ if (psf->strings.data [k].type == 0)
break ;
if (psf->strings.data [k].type < 0 || psf->strings.data [k].flags != location)
continue ;
switch (psf->strings.data [k].type)
{ case SF_STR_SOFTWARE :
psf_binheader_writef (psf, "ms", BHWm (ISFT_MARKER), BHWs (psf->strings.storage + psf->strings.data [k].offset)) ;
break ;
case SF_STR_TITLE :
psf_binheader_writef (psf, "ms", BHWm (INAM_MARKER), BHWs (psf->strings.storage + psf->strings.data [k].offset)) ;
break ;
case SF_STR_COPYRIGHT :
psf_binheader_writef (psf, "ms", BHWm (ICOP_MARKER), BHWs (psf->strings.storage + psf->strings.data [k].offset)) ;
break ;
case SF_STR_ARTIST :
psf_binheader_writef (psf, "ms", BHWm (IART_MARKER), BHWs (psf->strings.storage + psf->strings.data [k].offset)) ;
break ;
case SF_STR_COMMENT :
psf_binheader_writef (psf, "ms", BHWm (ICMT_MARKER), BHWs (psf->strings.storage + psf->strings.data [k].offset)) ;
break ;
case SF_STR_DATE :
psf_binheader_writef (psf, "ms", BHWm (ICRD_MARKER), BHWs (psf->strings.storage + psf->strings.data [k].offset)) ;
break ;
case SF_STR_GENRE :
psf_binheader_writef (psf, "ms", BHWm (IGNR_MARKER), BHWs (psf->strings.storage + psf->strings.data [k].offset)) ;
break ;
case SF_STR_ALBUM :
psf_binheader_writef (psf, "ms", BHWm (IPRD_MARKER), BHWs (psf->strings.storage + psf->strings.data [k].offset)) ;
break ;
case SF_STR_TRACKNUMBER :
psf_binheader_writef (psf, "ms", BHWm (ITRK_MARKER), BHWs (psf->strings.storage + psf->strings.data [k].offset)) ;
break ;
default :
break ;
} ;
} ;
saved_head_index = psf->header.indx ;
psf->header.indx = prev_head_index ;
psf_binheader_writef (psf, "4", BHW4 (saved_head_index - prev_head_index - 4)) ;
psf->header.indx = saved_head_index ;
} /* wavlike_write_strings */
int
wavlike_read_peak_chunk (SF_PRIVATE * psf, size_t chunk_size)
{ char buffer [256] ;
uint32_t uk ;
if (chunk_size != WAVLIKE_PEAK_CHUNK_SIZE (psf->sf.channels))
{ psf_binheader_readf (psf, "j", chunk_size) ;
psf_log_printf (psf, "*** File PEAK chunk size doesn't fit with number of channels (%d).\n", psf->sf.channels) ;
return SFE_WAV_BAD_PEAK ;
} ;
if (psf->peak_info)
{ psf_log_printf (psf, "*** Found existing peak info, using last one.\n") ;
free (psf->peak_info) ;
psf->peak_info = NULL ;
} ;
if ((psf->peak_info = peak_info_calloc (psf->sf.channels)) == NULL)
return SFE_MALLOC_FAILED ;
/* read in rest of PEAK chunk. */
psf_binheader_readf (psf, "44", & (psf->peak_info->version), & (psf->peak_info->timestamp)) ;
if (psf->peak_info->version != 1)
psf_log_printf (psf, " version : %d *** (should be version 1)\n", psf->peak_info->version) ;
else
psf_log_printf (psf, " version : %d\n", psf->peak_info->version) ;
psf_log_printf (psf, " time stamp : %d\n", psf->peak_info->timestamp) ;
psf_log_printf (psf, " Ch Position Value\n") ;
for (uk = 0 ; uk < (uint32_t) psf->sf.channels ; uk++)
{ float value ;
uint32_t position ;
psf_binheader_readf (psf, "f4", &value, &position) ;
psf->peak_info->peaks [uk].value = value ;
psf->peak_info->peaks [uk].position = position ;
snprintf (buffer, sizeof (buffer), " %2d %-12" PRId64 " %g\n",
uk, psf->peak_info->peaks [uk].position, psf->peak_info->peaks [uk].value) ;
buffer [sizeof (buffer) - 1] = 0 ;
psf_log_printf (psf, "%s", buffer) ;
} ;
return 0 ;
} /* wavlike_read_peak_chunk */
void
wavlike_write_peak_chunk (SF_PRIVATE * psf)
{ int k ;
if (psf->peak_info == NULL)
return ;
psf_binheader_writef (psf, "m4", BHWm (PEAK_MARKER), BHW4 (WAVLIKE_PEAK_CHUNK_SIZE (psf->sf.channels))) ;
psf_binheader_writef (psf, "44", BHW4 (1), BHW4 (time (NULL))) ;
for (k = 0 ; k < psf->sf.channels ; k++)
psf_binheader_writef (psf, "ft8", BHWf (psf->peak_info->peaks [k].value), BHW8 (psf->peak_info->peaks [k].position)) ;
} /* wavlike_write_peak_chunk */
/*==============================================================================
*/
static int
exif_fill_and_sink (SF_PRIVATE *psf, char* buf, size_t bufsz, size_t toread)
{
size_t bytesread = 0 ;
buf [0] = 0 ;
bufsz -= 1 ;
if (toread < bufsz)
bufsz = toread ;
bytesread = psf_binheader_readf (psf, "b", buf, bufsz) ;
buf [bufsz] = 0 ;
if (bytesread == bufsz && toread > bufsz)
bytesread += psf_binheader_readf (psf, "j", toread - bufsz) ;
return bytesread ;
} /* exif_fill_and_sink */
/*
** Exif specification for audio files, at JEITA CP-3451 Exif 2.2 section 5
** (Exif Audio File Specification) http://www.exif.org/Exif2-2.PDF
*/
static int
exif_subchunk_parse (SF_PRIVATE *psf, uint32_t length)
{ uint32_t marker, dword = 0, vmajor = -1, vminor = -1, bytesread = 0 ;
char buf [4096] ;
int thisread ;
while (bytesread < length)
{
if ((thisread = psf_binheader_readf (psf, "m", &marker)) == 0)
break ;
bytesread += thisread ;
switch (marker)
{
case 0 : /* camera padding? */
break ;
case ever_MARKER :
bytesread += psf_binheader_readf (psf, "j4", 4, &dword) ;
vmajor = 10 * (((dword >> 24) & 0xff) - '0') + (((dword >> 16) & 0xff) - '0') ;
vminor = 10 * (((dword >> 8) & 0xff) - '0') + ((dword & 0xff) - '0') ;
psf_log_printf (psf, " EXIF Version : %u.%02u\n", vmajor, vminor) ;
break ;
case olym_MARKER :
bytesread += psf_binheader_readf (psf, "4", &dword) ;
psf_log_printf (psf, "%M : %u\n", marker, dword) ;
if (dword > length || bytesread + dword > length)
break ;
dword += (dword & 1) ;
bytesread += psf_binheader_readf (psf, "j", dword) ;
break ;
case emnt_MARKER : /* design information: null-terminated string */
case emdl_MARKER : /* model name ; null-terminated string */
case ecor_MARKER : /* manufacturer: null-terminated string */
case etim_MARKER : /* creation time: null-terminated string in the format "hour:minute:second.subsecond" */
case erel_MARKER : /* relation info: null-terminated string (filename) */
case eucm_MARKER : /* user comment: 4-byte size follows, then possibly unicode data */
bytesread += psf_binheader_readf (psf, "4", &dword) ;
bytesread += sizeof (dword) ;
dword += (dword & 1) ;
if (dword >= sizeof (buf))
{ psf_log_printf (psf, "*** Marker '%M' is too big %u\n\n", marker, dword) ;
return bytesread ;
} ;
bytesread += exif_fill_and_sink (psf, buf, sizeof (buf), dword) ;
/* BAD - don't know what's going on here -- maybe a bug in the camera */
/* field should be NULL-terminated but there's no room for it with the reported number */
/* example output: emdl : 8 (EX-Z1050) */
if (marker == emdl_MARKER && dword == strlen (buf) /* should be >= strlen+1*/)
{ psf_log_printf (psf, " *** field size too small for string (sinking 2 bytes)\n") ;
bytesread += psf_binheader_readf (psf, "j", 2) ;
} ;
psf_log_printf (psf, " %M : %u (%s)\n", marker, dword, buf) ;
if (dword > length)
return bytesread ;
break ;
default :
psf_log_printf (psf, " *** %M (%u): -- ignored --\n", marker, marker) ;
break ;
} ;
} ;
return bytesread ;
} /* exif_subchunk_parse */
void
wavlike_write_custom_chunks (SF_PRIVATE * psf)
{ uint32_t k ;
for (k = 0 ; k < psf->wchunks.used ; k++)
psf_binheader_writef (psf, "m4b", BHWm (psf->wchunks.chunks [k].mark32), BHW4 (psf->wchunks.chunks [k].len),
BHWv (psf->wchunks.chunks [k].data), BHWz (psf->wchunks.chunks [k].len)) ;
} /* wavlike_write_custom_chunks */
Reference in a new issue View git blame Copy permalink