+++ /dev/null
-/*
-** Copyright (C) 1999-2011 Erik de Castro Lopo <erikd@mega-nerd.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 "wav_w64.h"
-
-/*------------------------------------------------------------------------------
-** W64 files use 16 byte markers as opposed to the four byte marker of
-** WAV files.
-** For comparison purposes, an integer is required, so make an integer
-** hash for the 16 bytes using MAKE_HASH16 macro, but also create a 16
-** byte array containing the complete 16 bytes required when writing the
-** header.
-*/
-
-#define MAKE_HASH16(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,xa,xb,xc,xd,xe,xf) \
- ( (x0) ^ ((x1) << 1) ^ ((x2) << 2) ^ ((x3) << 3) ^ \
- ((x4) << 4) ^ ((x5) << 5) ^ ((x6) << 6) ^ ((x7) << 7) ^ \
- ((x8) << 8) ^ ((x9) << 9) ^ ((xa) << 10) ^ ((xb) << 11) ^ \
- ((xc) << 12) ^ ((xd) << 13) ^ ((xe) << 14) ^ ((xf) << 15) )
-
-#define MAKE_MARKER16(name,x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,xa,xb,xc,xd,xe,xf) \
- static unsigned char name [16] = { (x0), (x1), (x2), (x3), (x4), (x5), \
- (x6), (x7), (x8), (x9), (xa), (xb), (xc), (xd), (xe), (xf) }
-
-#define riff_HASH16 MAKE_HASH16 ('r', 'i', 'f', 'f', 0x2E, 0x91, 0xCF, 0x11, \
- 0xA5, 0xD6, 0x28, 0xDB, 0x04, 0xC1, 0x00, 0x00)
-
-#define wave_HASH16 MAKE_HASH16 ('w', 'a', 'v', 'e', 0xF3, 0xAC, 0xD3, 0x11, \
- 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A)
-
-#define fmt_HASH16 MAKE_HASH16 ('f', 'm', 't', ' ', 0xF3, 0xAC, 0xD3, 0x11, \
- 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A)
-
-#define fact_HASH16 MAKE_HASH16 ('f', 'a', 'c', 't', 0xF3, 0xAC, 0xD3, 0x11, \
- 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A)
-
-#define data_HASH16 MAKE_HASH16 ('d', 'a', 't', 'a', 0xF3, 0xAC, 0xD3, 0x11, \
- 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A)
-
-#define ACID_HASH16 MAKE_HASH16 (0x6D, 0x07, 0x1C, 0xEA, 0xA3, 0xEF, 0x78, 0x4C, \
- 0x90, 0x57, 0x7F, 0x79, 0xEE, 0x25, 0x2A, 0xAE)
-
-#define levl_HASH16 MAKE_HASH16 (0x6c, 0x65, 0x76, 0x6c, 0xf3, 0xac, 0xd3, 0x11, \
- 0xd1, 0x8c, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A)
-
-#define list_HASH16 MAKE_HASH16 (0x6C, 0x69, 0x73, 0x74, 0x2F, 0x91, 0xCF, 0x11, \
- 0xA5, 0xD6, 0x28, 0xDB, 0x04, 0xC1, 0x00, 0x00)
-
-#define junk_HASH16 MAKE_HASH16 (0x6A, 0x75, 0x6E, 0x6b, 0xF3, 0xAC, 0xD3, 0x11, \
- 0x8C, 0xD1, 0x00, 0xC0, 0x4f, 0x8E, 0xDB, 0x8A)
-
-#define bext_MARKER MAKE_HASH16 (0x62, 0x65, 0x78, 0x74, 0xf3, 0xac, 0xd3, 0xaa, \
- 0xd1, 0x8c, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A)
-
-#define MARKER_HASH16 MAKE_HASH16 (0x56, 0x62, 0xf7, 0xab, 0x2d, 0x39, 0xd2, 0x11, \
- 0x86, 0xc7, 0x00, 0xc0, 0x4f, 0x8e, 0xdb, 0x8a)
-
-#define SUMLIST_HASH16 MAKE_HASH16 (0xBC, 0x94, 0x5F, 0x92, 0x5A, 0x52, 0xD2, 0x11, \
- 0x86, 0xDC, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A)
-
-
-MAKE_MARKER16 (riff_MARKER16, 'r', 'i', 'f', 'f', 0x2E, 0x91, 0xCF, 0x11,
- 0xA5, 0xD6, 0x28, 0xDB, 0x04, 0xC1, 0x00, 0x00) ;
-
-
-MAKE_MARKER16 (wave_MARKER16, 'w', 'a', 'v', 'e', 0xF3, 0xAC, 0xD3, 0x11,
- 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ;
-
-MAKE_MARKER16 (fmt_MARKER16, 'f', 'm', 't', ' ', 0xF3, 0xAC, 0xD3, 0x11,
- 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ;
-
-MAKE_MARKER16 (fact_MARKER16, 'f', 'a', 'c', 't', 0xF3, 0xAC, 0xD3, 0x11,
- 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ;
-
-MAKE_MARKER16 (data_MARKER16, 'd', 'a', 't', 'a', 0xF3, 0xAC, 0xD3, 0x11,
- 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ;
-
-enum
-{ HAVE_riff = 0x01,
- HAVE_wave = 0x02,
- HAVE_fmt = 0x04,
- HAVE_fact = 0x08,
- HAVE_data = 0x20
-} ;
-
-/*------------------------------------------------------------------------------
- * Private static functions.
- */
-
-static int w64_read_header (SF_PRIVATE *psf, int *blockalign, int *framesperblock) ;
-static int w64_write_header (SF_PRIVATE *psf, int calc_length) ;
-static int w64_close (SF_PRIVATE *psf) ;
-
-/*------------------------------------------------------------------------------
-** Public function.
-*/
-
-int
-w64_open (SF_PRIVATE *psf)
-{ WAV_PRIVATE * wpriv ;
- int subformat, error, blockalign = 0, framesperblock = 0 ;
-
- if ((wpriv = calloc (1, sizeof (WAV_PRIVATE))) == NULL)
- return SFE_MALLOC_FAILED ;
- psf->container_data = wpriv ;
-
- if (psf->file.mode == SFM_READ || (psf->file.mode == SFM_RDWR &&psf->filelength > 0))
- { if ((error = w64_read_header (psf, &blockalign, &framesperblock)))
- return error ;
- } ;
-
- if ((SF_CONTAINER (psf->sf.format)) != SF_FORMAT_W64)
- return SFE_BAD_OPEN_FORMAT ;
-
- subformat = SF_CODEC (psf->sf.format) ;
-
- if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
- { if (psf->is_pipe)
- return SFE_NO_PIPE_WRITE ;
-
- psf->endian = SF_ENDIAN_LITTLE ; /* All W64 files are little endian. */
-
- psf->blockwidth = psf->bytewidth * psf->sf.channels ;
-
- if (subformat == SF_FORMAT_IMA_ADPCM || subformat == SF_FORMAT_MS_ADPCM)
- { blockalign = wav_w64_srate2blocksize (psf->sf.samplerate * psf->sf.channels) ;
- framesperblock = -1 ;
-
- /* FIXME : This block must go */
- psf->filelength = SF_COUNT_MAX ;
- psf->datalength = psf->filelength ;
- if (psf->sf.frames <= 0)
- psf->sf.frames = (psf->blockwidth) ? psf->filelength / psf->blockwidth : psf->filelength ;
- /* EMXIF : This block must go */
- } ;
-
- if ((error = w64_write_header (psf, SF_FALSE)))
- return error ;
-
- psf->write_header = w64_write_header ;
- } ;
-
- psf->container_close = w64_close ;
-
- switch (subformat)
- { case SF_FORMAT_PCM_U8 :
- error = pcm_init (psf) ;
- break ;
-
- case SF_FORMAT_PCM_16 :
- case SF_FORMAT_PCM_24 :
- case SF_FORMAT_PCM_32 :
- error = pcm_init (psf) ;
- break ;
-
- case SF_FORMAT_ULAW :
- error = ulaw_init (psf) ;
- break ;
-
- case SF_FORMAT_ALAW :
- error = alaw_init (psf) ;
- break ;
-
- /* Lite remove start */
- case SF_FORMAT_FLOAT :
- error = float32_init (psf) ;
- break ;
-
- case SF_FORMAT_DOUBLE :
- error = double64_init (psf) ;
- break ;
-
- case SF_FORMAT_IMA_ADPCM :
- error = wav_w64_ima_init (psf, blockalign, framesperblock) ;
- break ;
-
- case SF_FORMAT_MS_ADPCM :
- error = wav_w64_msadpcm_init (psf, blockalign, framesperblock) ;
- break ;
- /* Lite remove end */
-
- case SF_FORMAT_GSM610 :
- error = gsm610_init (psf) ;
- break ;
-
- default : return SFE_UNIMPLEMENTED ;
- } ;
-
- return error ;
-} /* w64_open */
-
-/*=========================================================================
-** Private functions.
-*/
-
-static int
-w64_read_header (SF_PRIVATE *psf, int *blockalign, int *framesperblock)
-{ WAV_PRIVATE *wpriv ;
- WAV_FMT *wav_fmt ;
- int dword = 0, marker, format = 0 ;
- sf_count_t chunk_size, bytesread = 0 ;
- int parsestage = 0, error, done = 0 ;
-
- if ((wpriv = psf->container_data) == NULL)
- return SFE_INTERNAL ;
- wav_fmt = &wpriv->wav_fmt ;
-
- /* Set position to start of file to begin reading header. */
- psf_binheader_readf (psf, "p", 0) ;
-
- while (! done)
- { /* Each new chunk must start on an 8 byte boundary, so jump if needed. */
- if (psf->headindex & 0x7)
- psf_binheader_readf (psf, "j", 8 - (psf->headindex & 0x7)) ;
-
- /* Generate hash of 16 byte marker. */
- bytesread += psf_binheader_readf (psf, "h", &marker) ;
- chunk_size = 0 ;
-
- switch (marker)
- { case riff_HASH16 :
- if (parsestage)
- return SFE_W64_NO_RIFF ;
-
- bytesread += psf_binheader_readf (psf, "e8", &chunk_size) ;
-
- if (psf->filelength != chunk_size)
- psf_log_printf (psf, "riff : %D (should be %D)\n", chunk_size, psf->filelength) ;
- else
- psf_log_printf (psf, "riff : %D\n", chunk_size) ;
-
- parsestage |= HAVE_riff ;
- break ;
-
- case ACID_HASH16:
- psf_log_printf (psf, "Looks like an ACID file. Exiting.\n") ;
- return SFE_UNIMPLEMENTED ;
-
- case wave_HASH16 :
- if ((parsestage & HAVE_riff) != HAVE_riff)
- return SFE_W64_NO_WAVE ;
- psf_log_printf (psf, "wave\n") ;
- parsestage |= HAVE_wave ;
- break ;
-
- case fmt_HASH16 :
- if ((parsestage & (HAVE_riff | HAVE_wave)) != (HAVE_riff | HAVE_wave))
- return SFE_WAV_NO_FMT ;
-
- bytesread += psf_binheader_readf (psf, "e8", &chunk_size) ;
- psf_log_printf (psf, " fmt : %D\n", chunk_size) ;
-
- /* size of 16 byte marker and 8 byte chunk_size value. */
- chunk_size -= 24 ;
-
- if ((error = wav_w64_read_fmt_chunk (psf, (int) chunk_size)))
- return error ;
-
- if (chunk_size % 8)
- psf_binheader_readf (psf, "j", 8 - (chunk_size % 8)) ;
-
- format = wav_fmt->format ;
- parsestage |= HAVE_fmt ;
- break ;
-
- case fact_HASH16:
- { sf_count_t frames ;
-
- psf_binheader_readf (psf, "e88", &chunk_size, &frames) ;
- psf_log_printf (psf, " fact : %D\n frames : %D\n",
- chunk_size, frames) ;
- } ;
- break ;
-
-
- case data_HASH16 :
- if ((parsestage & (HAVE_riff | HAVE_wave | HAVE_fmt)) != (HAVE_riff | HAVE_wave | HAVE_fmt))
- return SFE_W64_NO_DATA ;
-
- psf_binheader_readf (psf, "e8", &chunk_size) ;
-
- psf->dataoffset = psf_ftell (psf) ;
-
- psf->datalength = chunk_size - 24 ;
-
- if (chunk_size % 8)
- chunk_size += 8 - (chunk_size % 8) ;
-
- psf_log_printf (psf, "data : %D\n", chunk_size) ;
-
- parsestage |= HAVE_data ;
-
- if (! psf->sf.seekable)
- break ;
-
- /* Seek past data and continue reading header. */
- psf_fseek (psf, chunk_size, SEEK_CUR) ;
- break ;
-
- case levl_HASH16 :
- psf_binheader_readf (psf, "e8", &chunk_size) ;
- psf_log_printf (psf, "levl : %D\n", chunk_size) ;
- dword = chunk_size ;
- psf_binheader_readf (psf, "j", dword - 24) ;
- break ;
-
- case list_HASH16 :
- psf_binheader_readf (psf, "e8", &chunk_size) ;
- psf_log_printf (psf, "list : %D\n", chunk_size) ;
- dword = chunk_size ;
- psf_binheader_readf (psf, "j", dword - 24) ;
- break ;
-
- case junk_HASH16 :
- psf_binheader_readf (psf, "e8", &chunk_size) ;
- psf_log_printf (psf, "junk : %D\n", chunk_size) ;
- dword = chunk_size ;
- psf_binheader_readf (psf, "j", dword - 24) ;
- break ;
-
- case bext_MARKER :
- psf_binheader_readf (psf, "e8", &chunk_size) ;
- psf_log_printf (psf, "bext : %D\n", chunk_size) ;
- dword = chunk_size ;
- psf_binheader_readf (psf, "j", dword - 24) ;
- break ;
-
- case MARKER_HASH16 :
- psf_binheader_readf (psf, "e8", &chunk_size) ;
- psf_log_printf (psf, "marker : %D\n", chunk_size) ;
- dword = chunk_size ;
- psf_binheader_readf (psf, "j", dword - 24) ;
- break ;
-
- case SUMLIST_HASH16 :
- psf_binheader_readf (psf, "e8", &chunk_size) ;
- psf_log_printf (psf, "summary list : %D\n", chunk_size) ;
- dword = chunk_size ;
- psf_binheader_readf (psf, "j", dword - 24) ;
- break ;
-
- default :
- psf_log_printf (psf, "*** Unknown chunk marker : %X. Exiting parser.\n", marker) ;
- done = SF_TRUE ;
- break ;
- } ; /* switch (dword) */
-
- if (psf->sf.seekable == 0 && (parsestage & HAVE_data))
- break ;
-
- if (psf_ftell (psf) >= (psf->filelength - (2 * SIGNED_SIZEOF (dword))))
- break ;
- } ; /* while (1) */
-
- if (psf->dataoffset <= 0)
- return SFE_W64_NO_DATA ;
-
- psf->endian = SF_ENDIAN_LITTLE ; /* All W64 files are little endian. */
-
- if (psf_ftell (psf) != psf->dataoffset)
- psf_fseek (psf, psf->dataoffset, SEEK_SET) ;
-
- if (psf->blockwidth)
- { if (psf->filelength - psf->dataoffset < psf->datalength)
- psf->sf.frames = (psf->filelength - psf->dataoffset) / psf->blockwidth ;
- else
- psf->sf.frames = psf->datalength / psf->blockwidth ;
- } ;
-
- switch (format)
- { case WAVE_FORMAT_PCM :
- case WAVE_FORMAT_EXTENSIBLE :
- /* extensible might be FLOAT, MULAW, etc as well! */
- psf->sf.format = SF_FORMAT_W64 | u_bitwidth_to_subformat (psf->bytewidth * 8) ;
- break ;
-
- case WAVE_FORMAT_MULAW :
- psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_ULAW) ;
- break ;
-
- case WAVE_FORMAT_ALAW :
- psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_ALAW) ;
- break ;
-
- case WAVE_FORMAT_MS_ADPCM :
- psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_MS_ADPCM) ;
- *blockalign = wav_fmt->msadpcm.blockalign ;
- *framesperblock = wav_fmt->msadpcm.samplesperblock ;
- break ;
-
- case WAVE_FORMAT_IMA_ADPCM :
- psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_IMA_ADPCM) ;
- *blockalign = wav_fmt->ima.blockalign ;
- *framesperblock = wav_fmt->ima.samplesperblock ;
- break ;
-
- case WAVE_FORMAT_GSM610 :
- psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_GSM610) ;
- break ;
-
- case WAVE_FORMAT_IEEE_FLOAT :
- psf->sf.format = SF_FORMAT_W64 ;
- psf->sf.format |= (psf->bytewidth == 8) ? SF_FORMAT_DOUBLE : SF_FORMAT_FLOAT ;
- break ;
-
- default : return SFE_UNIMPLEMENTED ;
- } ;
-
- return 0 ;
-} /* w64_read_header */
-
-static int
-w64_write_header (SF_PRIVATE *psf, int calc_length)
-{ sf_count_t fmt_size, current ;
- size_t fmt_pad = 0 ;
- int subformat, add_fact_chunk = SF_FALSE ;
-
- current = psf_ftell (psf) ;
-
- if (calc_length)
- { psf->filelength = psf_get_filelen (psf) ;
-
- psf->datalength = psf->filelength - psf->dataoffset ;
- if (psf->dataend)
- psf->datalength -= psf->filelength - psf->dataend ;
-
- if (psf->bytewidth)
- psf->sf.frames = psf->datalength / (psf->bytewidth * psf->sf.channels) ;
- } ;
-
- /* Reset the current header length to zero. */
- psf->header [0] = 0 ;
- psf->headindex = 0 ;
- psf_fseek (psf, 0, SEEK_SET) ;
-
- /* riff marker, length, wave and 'fmt ' markers. */
- psf_binheader_writef (psf, "eh8hh", riff_MARKER16, psf->filelength, wave_MARKER16, fmt_MARKER16) ;
-
- subformat = SF_CODEC (psf->sf.format) ;
-
- switch (subformat)
- { case SF_FORMAT_PCM_U8 :
- case SF_FORMAT_PCM_16 :
- case SF_FORMAT_PCM_24 :
- case SF_FORMAT_PCM_32 :
- fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 ;
- fmt_pad = (size_t) (8 - (fmt_size & 0x7)) ;
- fmt_size += fmt_pad ;
-
- /* fmt : format, channels, samplerate */
- psf_binheader_writef (psf, "e8224", fmt_size, WAVE_FORMAT_PCM, psf->sf.channels, psf->sf.samplerate) ;
- /* fmt : bytespersec */
- psf_binheader_writef (psf, "e4", psf->sf.samplerate * psf->bytewidth * psf->sf.channels) ;
- /* fmt : blockalign, bitwidth */
- psf_binheader_writef (psf, "e22", psf->bytewidth * psf->sf.channels, psf->bytewidth * 8) ;
- break ;
-
- case SF_FORMAT_FLOAT :
- case SF_FORMAT_DOUBLE :
- fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 ;
- fmt_pad = (size_t) (8 - (fmt_size & 0x7)) ;
- fmt_size += fmt_pad ;
-
- /* fmt : format, channels, samplerate */
- psf_binheader_writef (psf, "e8224", fmt_size, WAVE_FORMAT_IEEE_FLOAT, psf->sf.channels, psf->sf.samplerate) ;
- /* fmt : bytespersec */
- psf_binheader_writef (psf, "e4", psf->sf.samplerate * psf->bytewidth * psf->sf.channels) ;
- /* fmt : blockalign, bitwidth */
- psf_binheader_writef (psf, "e22", psf->bytewidth * psf->sf.channels, psf->bytewidth * 8) ;
-
- add_fact_chunk = SF_TRUE ;
- break ;
-
- case SF_FORMAT_ULAW :
- fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 ;
- fmt_pad = (size_t) (8 - (fmt_size & 0x7)) ;
- fmt_size += fmt_pad ;
-
- /* fmt : format, channels, samplerate */
- psf_binheader_writef (psf, "e8224", fmt_size, WAVE_FORMAT_MULAW, psf->sf.channels, psf->sf.samplerate) ;
- /* fmt : bytespersec */
- psf_binheader_writef (psf, "e4", psf->sf.samplerate * psf->bytewidth * psf->sf.channels) ;
- /* fmt : blockalign, bitwidth */
- psf_binheader_writef (psf, "e22", psf->bytewidth * psf->sf.channels, 8) ;
-
- add_fact_chunk = SF_TRUE ;
- break ;
-
- case SF_FORMAT_ALAW :
- fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 ;
- fmt_pad = (size_t) (8 - (fmt_size & 0x7)) ;
- fmt_size += fmt_pad ;
-
- /* fmt : format, channels, samplerate */
- psf_binheader_writef (psf, "e8224", fmt_size, WAVE_FORMAT_ALAW, psf->sf.channels, psf->sf.samplerate) ;
- /* fmt : bytespersec */
- psf_binheader_writef (psf, "e4", psf->sf.samplerate * psf->bytewidth * psf->sf.channels) ;
- /* fmt : blockalign, bitwidth */
- psf_binheader_writef (psf, "e22", psf->bytewidth * psf->sf.channels, 8) ;
-
- add_fact_chunk = SF_TRUE ;
- break ;
-
- /* Lite remove start */
- case SF_FORMAT_IMA_ADPCM :
- { int blockalign, framesperblock, bytespersec ;
-
- blockalign = wav_w64_srate2blocksize (psf->sf.samplerate * psf->sf.channels) ;
- framesperblock = 2 * (blockalign - 4 * psf->sf.channels) / psf->sf.channels + 1 ;
- bytespersec = (psf->sf.samplerate * blockalign) / framesperblock ;
-
- /* fmt chunk. */
- fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 + 2 + 2 ;
- fmt_pad = (size_t) (8 - (fmt_size & 0x7)) ;
- fmt_size += fmt_pad ;
-
- /* fmt : size, WAV format type, channels. */
- psf_binheader_writef (psf, "e822", fmt_size, WAVE_FORMAT_IMA_ADPCM, psf->sf.channels) ;
-
- /* fmt : samplerate, bytespersec. */
- psf_binheader_writef (psf, "e44", psf->sf.samplerate, bytespersec) ;
-
- /* fmt : blockalign, bitwidth, extrabytes, framesperblock. */
- psf_binheader_writef (psf, "e2222", blockalign, 4, 2, framesperblock) ;
- } ;
-
- add_fact_chunk = SF_TRUE ;
- break ;
-
- case SF_FORMAT_MS_ADPCM :
- { int blockalign, framesperblock, bytespersec, extrabytes ;
-
- blockalign = wav_w64_srate2blocksize (psf->sf.samplerate * psf->sf.channels) ;
- framesperblock = 2 + 2 * (blockalign - 7 * psf->sf.channels) / psf->sf.channels ;
- bytespersec = (psf->sf.samplerate * blockalign) / framesperblock ;
-
- /* fmt chunk. */
- extrabytes = 2 + 2 + MSADPCM_ADAPT_COEFF_COUNT * (2 + 2) ;
- fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 + 2 + extrabytes ;
- fmt_pad = (size_t) (8 - (fmt_size & 0x7)) ;
- fmt_size += fmt_pad ;
-
- /* fmt : size, W64 format type, channels. */
- psf_binheader_writef (psf, "e822", fmt_size, WAVE_FORMAT_MS_ADPCM, psf->sf.channels) ;
-
- /* fmt : samplerate, bytespersec. */
- psf_binheader_writef (psf, "e44", psf->sf.samplerate, bytespersec) ;
-
- /* fmt : blockalign, bitwidth, extrabytes, framesperblock. */
- psf_binheader_writef (psf, "e22222", blockalign, 4, extrabytes, framesperblock, 7) ;
-
- msadpcm_write_adapt_coeffs (psf) ;
- } ;
-
- add_fact_chunk = SF_TRUE ;
- break ;
- /* Lite remove end */
-
- case SF_FORMAT_GSM610 :
- { int bytespersec ;
-
- bytespersec = (psf->sf.samplerate * WAV_W64_GSM610_BLOCKSIZE) / WAV_W64_GSM610_SAMPLES ;
-
- /* fmt chunk. */
- fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 + 2 + 2 ;
- fmt_pad = (size_t) (8 - (fmt_size & 0x7)) ;
- fmt_size += fmt_pad ;
-
- /* fmt : size, WAV format type, channels. */
- psf_binheader_writef (psf, "e822", fmt_size, WAVE_FORMAT_GSM610, psf->sf.channels) ;
-
- /* fmt : samplerate, bytespersec. */
- psf_binheader_writef (psf, "e44", psf->sf.samplerate, bytespersec) ;
-
- /* fmt : blockalign, bitwidth, extrabytes, framesperblock. */
- psf_binheader_writef (psf, "e2222", WAV_W64_GSM610_BLOCKSIZE, 0, 2, WAV_W64_GSM610_SAMPLES) ;
- } ;
-
- add_fact_chunk = SF_TRUE ;
- break ;
-
- default : return SFE_UNIMPLEMENTED ;
- } ;
-
- /* Pad to 8 bytes with zeros. */
- if (fmt_pad > 0)
- psf_binheader_writef (psf, "z", fmt_pad) ;
-
- if (add_fact_chunk)
- psf_binheader_writef (psf, "eh88", fact_MARKER16, (sf_count_t) (16 + 8 + 8), psf->sf.frames) ;
-
- psf_binheader_writef (psf, "eh8", data_MARKER16, psf->datalength + 24) ;
- psf_fwrite (psf->header, psf->headindex, 1, psf) ;
-
- if (psf->error)
- return psf->error ;
-
- psf->dataoffset = psf->headindex ;
-
- if (current > 0)
- psf_fseek (psf, current, SEEK_SET) ;
-
- return psf->error ;
-} /* w64_write_header */
-
-static int
-w64_close (SF_PRIVATE *psf)
-{
- if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
- w64_write_header (psf, SF_TRUE) ;
-
- return 0 ;
-} /* w64_close */
-
projects / Faustine.git / blobdiff