1/* 2** Copyright (C) 1999-2018 Erik de Castro Lopo <erikd@mega-nerd.com> 3** 4** This program is free software; you can redistribute it and/or modify 5** it under the terms of the GNU Lesser General Public License as published by 6** the Free Software Foundation; either version 2.1 of the License, or 7** (at your option) any later version. 8** 9** This program is distributed in the hope that it will be useful, 10** but WITHOUT ANY WARRANTY; without even the implied warranty of 11** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12** GNU Lesser General Public License for more details. 13** 14** You should have received a copy of the GNU Lesser General Public License 15** along with this program; if not, write to the Free Software 16** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 17*/ 18 19#include "sfconfig.h" 20 21#include <stdio.h> 22#include <string.h> 23#include <ctype.h> 24#include <time.h> 25 26#include "sndfile.h" 27#include "sfendian.h" 28#include "common.h" 29#include "wavlike.h" 30 31/*------------------------------------------------------------------------------ 32** W64 files use 16 byte markers as opposed to the four byte marker of 33** WAV files. 34** For comparison purposes, an integer is required, so make an integer 35** hash for the 16 bytes using MAKE_HASH16 macro, but also create a 16 36** byte array containing the complete 16 bytes required when writing the 37** header. 38*/ 39 40#define MAKE_HASH16(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, xa, xb, xc, xd, xe, xf) \ 41 ( (x0) ^ ((x1) << 1) ^ ((x2) << 2) ^ ((x3) << 3) ^ \ 42 ((x4) << 4) ^ ((x5) << 5) ^ ((x6) << 6) ^ ((x7) << 7) ^ \ 43 ((x8) << 8) ^ ((x9) << 9) ^ ((xa) << 10) ^ ((xb) << 11) ^ \ 44 ((xc) << 12) ^ ((xd) << 13) ^ ((xe) << 14) ^ ((xf) << 15) ) 45 46#define MAKE_MARKER16(name, x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, xa, xb, xc, xd, xe, xf) \ 47 static unsigned char name [16] = { (x0), (x1), (x2), (x3), (x4), (x5), \ 48 (x6), (x7), (x8), (x9), (xa), (xb), (xc), (xd), (xe), (xf) } 49 50#define riff_HASH16 MAKE_HASH16 ('r', 'i', 'f', 'f', 0x2E, 0x91, 0xCF, 0x11, \ 51 0xA5, 0xD6, 0x28, 0xDB, 0x04, 0xC1, 0x00, 0x00) 52 53#define wave_HASH16 MAKE_HASH16 ('w', 'a', 'v', 'e', 0xF3, 0xAC, 0xD3, 0x11, \ 54 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) 55 56#define fmt_HASH16 MAKE_HASH16 ('f', 'm', 't', ' ', 0xF3, 0xAC, 0xD3, 0x11, \ 57 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) 58 59#define fact_HASH16 MAKE_HASH16 ('f', 'a', 'c', 't', 0xF3, 0xAC, 0xD3, 0x11, \ 60 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) 61 62#define data_HASH16 MAKE_HASH16 ('d', 'a', 't', 'a', 0xF3, 0xAC, 0xD3, 0x11, \ 63 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) 64 65#define ACID_HASH16 MAKE_HASH16 (0x6D, 0x07, 0x1C, 0xEA, 0xA3, 0xEF, 0x78, 0x4C, \ 66 0x90, 0x57, 0x7F, 0x79, 0xEE, 0x25, 0x2A, 0xAE) 67 68#define levl_HASH16 MAKE_HASH16 (0x6c, 0x65, 0x76, 0x6c, 0xf3, 0xac, 0xd3, 0x11, \ 69 0xd1, 0x8c, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) 70 71#define list_HASH16 MAKE_HASH16 (0x6C, 0x69, 0x73, 0x74, 0x2F, 0x91, 0xCF, 0x11, \ 72 0xA5, 0xD6, 0x28, 0xDB, 0x04, 0xC1, 0x00, 0x00) 73 74#define junk_HASH16 MAKE_HASH16 (0x6A, 0x75, 0x6E, 0x6b, 0xF3, 0xAC, 0xD3, 0x11, \ 75 0x8C, 0xD1, 0x00, 0xC0, 0x4f, 0x8E, 0xDB, 0x8A) 76 77#define bext_HASH16 MAKE_HASH16 (0x62, 0x65, 0x78, 0x74, 0xf3, 0xac, 0xd3, 0xaa, \ 78 0xd1, 0x8c, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) 79 80#define MARKER_HASH16 MAKE_HASH16 (0x56, 0x62, 0xf7, 0xab, 0x2d, 0x39, 0xd2, 0x11, \ 81 0x86, 0xc7, 0x00, 0xc0, 0x4f, 0x8e, 0xdb, 0x8a) 82 83#define SUMLIST_HASH16 MAKE_HASH16 (0xBC, 0x94, 0x5F, 0x92, 0x5A, 0x52, 0xD2, 0x11, \ 84 0x86, 0xDC, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) 85 86 87MAKE_MARKER16 (riff_MARKER16, 'r', 'i', 'f', 'f', 0x2E, 0x91, 0xCF, 0x11, 88 0xA5, 0xD6, 0x28, 0xDB, 0x04, 0xC1, 0x00, 0x00) ; 89 90 91MAKE_MARKER16 (wave_MARKER16, 'w', 'a', 'v', 'e', 0xF3, 0xAC, 0xD3, 0x11, 92 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ; 93 94MAKE_MARKER16 (fmt_MARKER16, 'f', 'm', 't', ' ', 0xF3, 0xAC, 0xD3, 0x11, 95 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ; 96 97MAKE_MARKER16 (fact_MARKER16, 'f', 'a', 'c', 't', 0xF3, 0xAC, 0xD3, 0x11, 98 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ; 99 100MAKE_MARKER16 (data_MARKER16, 'd', 'a', 't', 'a', 0xF3, 0xAC, 0xD3, 0x11, 101 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ; 102 103enum 104{ HAVE_riff = 0x01, 105 HAVE_wave = 0x02, 106 HAVE_fmt = 0x04, 107 HAVE_fact = 0x08, 108 HAVE_data = 0x20 109} ; 110 111/*------------------------------------------------------------------------------ 112 * Private static functions. 113 */ 114 115static int w64_read_header (SF_PRIVATE *psf, int *blockalign, int *framesperblock) ; 116static int w64_write_header (SF_PRIVATE *psf, int calc_length) ; 117static int w64_close (SF_PRIVATE *psf) ; 118 119/*------------------------------------------------------------------------------ 120** Public function. 121*/ 122 123int 124w64_open (SF_PRIVATE *psf) 125{ WAVLIKE_PRIVATE * wpriv ; 126 int subformat, error, blockalign = 0, framesperblock = 0 ; 127 128 if ((wpriv = calloc (1, sizeof (WAVLIKE_PRIVATE))) == NULL) 129 return SFE_MALLOC_FAILED ; 130 psf->container_data = wpriv ; 131 132 if (psf->file.mode == SFM_READ || (psf->file.mode == SFM_RDWR &&psf->filelength > 0)) 133 { if ((error = w64_read_header (psf, &blockalign, &framesperblock))) 134 return error ; 135 } ; 136 137 if ((SF_CONTAINER (psf->sf.format)) != SF_FORMAT_W64) 138 return SFE_BAD_OPEN_FORMAT ; 139 140 subformat = SF_CODEC (psf->sf.format) ; 141 142 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR) 143 { if (psf->is_pipe) 144 return SFE_NO_PIPE_WRITE ; 145 146 psf->endian = SF_ENDIAN_LITTLE ; /* All W64 files are little endian. */ 147 148 psf->blockwidth = psf->bytewidth * psf->sf.channels ; 149 150 if (subformat == SF_FORMAT_IMA_ADPCM || subformat == SF_FORMAT_MS_ADPCM) 151 { blockalign = wavlike_srate2blocksize (psf->sf.samplerate * psf->sf.channels) ; 152 framesperblock = -1 ; 153 154 /* 155 ** At this point we don't know the file length so set it stupidly high, but not 156 ** so high that it triggers undefined behaviour whan something is added to it. 157 */ 158 psf->filelength = SF_COUNT_MAX - 10000 ; 159 psf->datalength = psf->filelength ; 160 if (psf->sf.frames <= 0) 161 psf->sf.frames = (psf->blockwidth) ? psf->filelength / psf->blockwidth : psf->filelength ; 162 } ; 163 164 if ((error = w64_write_header (psf, SF_FALSE))) 165 return error ; 166 167 psf->write_header = w64_write_header ; 168 } ; 169 170 psf->container_close = w64_close ; 171 172 switch (subformat) 173 { case SF_FORMAT_PCM_U8 : 174 error = pcm_init (psf) ; 175 break ; 176 177 case SF_FORMAT_PCM_16 : 178 case SF_FORMAT_PCM_24 : 179 case SF_FORMAT_PCM_32 : 180 error = pcm_init (psf) ; 181 break ; 182 183 case SF_FORMAT_ULAW : 184 error = ulaw_init (psf) ; 185 break ; 186 187 case SF_FORMAT_ALAW : 188 error = alaw_init (psf) ; 189 break ; 190 191 /* Lite remove start */ 192 case SF_FORMAT_FLOAT : 193 error = float32_init (psf) ; 194 break ; 195 196 case SF_FORMAT_DOUBLE : 197 error = double64_init (psf) ; 198 break ; 199 200 case SF_FORMAT_IMA_ADPCM : 201 error = wavlike_ima_init (psf, blockalign, framesperblock) ; 202 break ; 203 204 case SF_FORMAT_MS_ADPCM : 205 error = wavlike_msadpcm_init (psf, blockalign, framesperblock) ; 206 break ; 207 /* Lite remove end */ 208 209 case SF_FORMAT_GSM610 : 210 error = gsm610_init (psf) ; 211 break ; 212 213 default : return SFE_UNIMPLEMENTED ; 214 } ; 215 216 return error ; 217} /* w64_open */ 218 219/*========================================================================= 220** Private functions. 221*/ 222 223static int 224w64_read_header (SF_PRIVATE *psf, int *blockalign, int *framesperblock) 225{ WAVLIKE_PRIVATE *wpriv ; 226 WAV_FMT *wav_fmt ; 227 int dword = 0, marker, format = 0 ; 228 sf_count_t chunk_size, bytesread = 0 ; 229 int parsestage = 0, error, done = 0 ; 230 231 if ((wpriv = psf->container_data) == NULL) 232 return SFE_INTERNAL ; 233 wav_fmt = &wpriv->wav_fmt ; 234 235 /* Set position to start of file to begin reading header. */ 236 psf_binheader_readf (psf, "p", 0) ; 237 238 while (! done) 239 { /* Each new chunk must start on an 8 byte boundary, so jump if needed. */ 240 if (psf->header.indx & 0x7) 241 psf_binheader_readf (psf, "j", 8 - (psf->header.indx & 0x7)) ; 242 243 /* Generate hash of 16 byte marker. */ 244 marker = 0 ; 245 chunk_size = 0 ; 246 247 bytesread = psf_binheader_readf (psf, "eh8", &marker, &chunk_size) ; 248 if (bytesread == 0) 249 break ; 250 switch (marker) 251 { case riff_HASH16 : 252 if (parsestage) 253 return SFE_W64_NO_RIFF ; 254 255 if (psf->filelength != chunk_size) 256 psf_log_printf (psf, "riff : %D (should be %D)\n", chunk_size, psf->filelength) ; 257 else 258 psf_log_printf (psf, "riff : %D\n", chunk_size) ; 259 260 parsestage |= HAVE_riff ; 261 262 bytesread += psf_binheader_readf (psf, "h", &marker) ; 263 if (marker == wave_HASH16) 264 { if ((parsestage & HAVE_riff) != HAVE_riff) 265 return SFE_W64_NO_WAVE ; 266 psf_log_printf (psf, "wave\n") ; 267 parsestage |= HAVE_wave ; 268 } ; 269 chunk_size = 0 ; 270 break ; 271 272 case ACID_HASH16: 273 psf_log_printf (psf, "Looks like an ACID file. Exiting.\n") ; 274 return SFE_UNIMPLEMENTED ; 275 276 case fmt_HASH16 : 277 if ((parsestage & (HAVE_riff | HAVE_wave)) != (HAVE_riff | HAVE_wave)) 278 return SFE_WAV_NO_FMT ; 279 280 psf_log_printf (psf, " fmt : %D\n", chunk_size) ; 281 282 /* size of 16 byte marker and 8 byte chunk_size value. */ 283 chunk_size -= 24 ; 284 285 if ((error = wavlike_read_fmt_chunk (psf, (int) chunk_size))) 286 return error ; 287 288 if (chunk_size % 8) 289 psf_binheader_readf (psf, "j", 8 - (chunk_size % 8)) ; 290 291 format = wav_fmt->format ; 292 parsestage |= HAVE_fmt ; 293 chunk_size = 0 ; 294 break ; 295 296 case fact_HASH16: 297 { sf_count_t frames ; 298 299 psf_binheader_readf (psf, "e8", &frames) ; 300 psf_log_printf (psf, "fact : %D\n frames : %D\n", 301 chunk_size, frames) ; 302 } ; 303 chunk_size = 0 ; 304 break ; 305 306 307 case data_HASH16 : 308 if ((parsestage & (HAVE_riff | HAVE_wave | HAVE_fmt)) != (HAVE_riff | HAVE_wave | HAVE_fmt)) 309 return SFE_W64_NO_DATA ; 310 311 psf->dataoffset = psf_ftell (psf) ; 312 psf->datalength = SF_MIN (chunk_size - 24, psf->filelength - psf->dataoffset) ; 313 314 if (chunk_size % 8) 315 chunk_size += 8 - (chunk_size % 8) ; 316 317 psf_log_printf (psf, "data : %D\n", chunk_size) ; 318 319 parsestage |= HAVE_data ; 320 321 if (! psf->sf.seekable) 322 break ; 323 324 /* Seek past data and continue reading header. */ 325 psf_fseek (psf, chunk_size, SEEK_CUR) ; 326 chunk_size = 0 ; 327 break ; 328 329 case levl_HASH16 : 330 psf_log_printf (psf, "levl : %D\n", chunk_size) ; 331 break ; 332 333 case list_HASH16 : 334 psf_log_printf (psf, "list : %D\n", chunk_size) ; 335 break ; 336 337 case junk_HASH16 : 338 psf_log_printf (psf, "junk : %D\n", chunk_size) ; 339 break ; 340 341 case bext_HASH16 : 342 psf_log_printf (psf, "bext : %D\n", chunk_size) ; 343 break ; 344 345 case MARKER_HASH16 : 346 psf_log_printf (psf, "marker : %D\n", chunk_size) ; 347 break ; 348 349 case SUMLIST_HASH16 : 350 psf_log_printf (psf, "summary list : %D\n", chunk_size) ; 351 break ; 352 353 default : 354 psf_log_printf (psf, "*** Unknown chunk marker (%X) at position %D with length %D. Skipping and continuing.\n", marker, psf_ftell (psf) - 8, chunk_size) ; 355 break ; 356 } ; /* switch (dword) */ 357 358 if (chunk_size >= psf->filelength) 359 { psf_log_printf (psf, "*** Chunk size %u > file length %D. Exiting parser.\n", chunk_size, psf->filelength) ; 360 break ; 361 } ; 362 363 if (psf->sf.seekable == 0 && (parsestage & HAVE_data)) 364 break ; 365 366 if (psf_ftell (psf) >= (psf->filelength - (2 * SIGNED_SIZEOF (dword)))) 367 break ; 368 369 if (chunk_size > 0 && chunk_size < 0xffff0000) 370 { dword = chunk_size ; 371 psf_binheader_readf (psf, "j", dword - 24) ; 372 } ; 373 } ; /* while (1) */ 374 375 if (psf->dataoffset <= 0) 376 return SFE_W64_NO_DATA ; 377 378 if (psf->sf.channels < 1) 379 return SFE_CHANNEL_COUNT_ZERO ; 380 381 if (psf->sf.channels > SF_MAX_CHANNELS) 382 return SFE_CHANNEL_COUNT ; 383 384 psf->endian = SF_ENDIAN_LITTLE ; /* All W64 files are little endian. */ 385 386 if (psf_ftell (psf) != psf->dataoffset) 387 psf_fseek (psf, psf->dataoffset, SEEK_SET) ; 388 389 if (psf->blockwidth) 390 { if (psf->filelength - psf->dataoffset < psf->datalength) 391 psf->sf.frames = (psf->filelength - psf->dataoffset) / psf->blockwidth ; 392 else 393 psf->sf.frames = psf->datalength / psf->blockwidth ; 394 } ; 395 396 switch (format) 397 { case WAVE_FORMAT_PCM : 398 case WAVE_FORMAT_EXTENSIBLE : 399 /* extensible might be FLOAT, MULAW, etc as well! */ 400 psf->sf.format = SF_FORMAT_W64 | u_bitwidth_to_subformat (psf->bytewidth * 8) ; 401 break ; 402 403 case WAVE_FORMAT_MULAW : 404 psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_ULAW) ; 405 break ; 406 407 case WAVE_FORMAT_ALAW : 408 psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_ALAW) ; 409 break ; 410 411 case WAVE_FORMAT_MS_ADPCM : 412 psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_MS_ADPCM) ; 413 *blockalign = wav_fmt->msadpcm.blockalign ; 414 *framesperblock = wav_fmt->msadpcm.samplesperblock ; 415 break ; 416 417 case WAVE_FORMAT_IMA_ADPCM : 418 psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_IMA_ADPCM) ; 419 *blockalign = wav_fmt->ima.blockalign ; 420 *framesperblock = wav_fmt->ima.samplesperblock ; 421 break ; 422 423 case WAVE_FORMAT_GSM610 : 424 psf->sf.format = (SF_FORMAT_W64 | SF_FORMAT_GSM610) ; 425 break ; 426 427 case WAVE_FORMAT_IEEE_FLOAT : 428 psf->sf.format = SF_FORMAT_W64 ; 429 psf->sf.format |= (psf->bytewidth == 8) ? SF_FORMAT_DOUBLE : SF_FORMAT_FLOAT ; 430 break ; 431 432 default : return SFE_UNIMPLEMENTED ; 433 } ; 434 435 return 0 ; 436} /* w64_read_header */ 437 438static int 439w64_write_header (SF_PRIVATE *psf, int calc_length) 440{ sf_count_t fmt_size, current ; 441 size_t fmt_pad = 0 ; 442 int subformat, add_fact_chunk = SF_FALSE ; 443 444 current = psf_ftell (psf) ; 445 446 if (calc_length) 447 { psf->filelength = psf_get_filelen (psf) ; 448 449 psf->datalength = psf->filelength - psf->dataoffset ; 450 if (psf->dataend) 451 psf->datalength -= psf->filelength - psf->dataend ; 452 453 if (psf->bytewidth) 454 psf->sf.frames = psf->datalength / (psf->bytewidth * psf->sf.channels) ; 455 } ; 456 457 /* Reset the current header length to zero. */ 458 psf->header.ptr [0] = 0 ; 459 psf->header.indx = 0 ; 460 psf_fseek (psf, 0, SEEK_SET) ; 461 462 /* riff marker, length, wave and 'fmt ' markers. */ 463 psf_binheader_writef (psf, "eh8hh", BHWh (riff_MARKER16), BHW8 (psf->filelength), BHWh (wave_MARKER16), BHWh (fmt_MARKER16)) ; 464 465 subformat = SF_CODEC (psf->sf.format) ; 466 467 switch (subformat) 468 { case SF_FORMAT_PCM_U8 : 469 case SF_FORMAT_PCM_16 : 470 case SF_FORMAT_PCM_24 : 471 case SF_FORMAT_PCM_32 : 472 fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 ; 473 fmt_pad = (size_t) ((fmt_size & 0x7) ? 8 - (fmt_size & 0x7) : 0) ; 474 fmt_size += fmt_pad ; 475 476 /* fmt : format, channels, samplerate */ 477 psf_binheader_writef (psf, "e8224", BHW8 (fmt_size), BHW2 (WAVE_FORMAT_PCM), BHW2 (psf->sf.channels), BHW4 (psf->sf.samplerate)) ; 478 /* fmt : bytespersec */ 479 psf_binheader_writef (psf, "e4", BHW4 (psf->sf.samplerate * psf->bytewidth * psf->sf.channels)) ; 480 /* fmt : blockalign, bitwidth */ 481 psf_binheader_writef (psf, "e22", BHW2 (psf->bytewidth * psf->sf.channels), BHW2 (psf->bytewidth * 8)) ; 482 break ; 483 484 case SF_FORMAT_FLOAT : 485 case SF_FORMAT_DOUBLE : 486 fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 ; 487 fmt_pad = (size_t) ((fmt_size & 0x7) ? 8 - (fmt_size & 0x7) : 0) ; 488 fmt_size += fmt_pad ; 489 490 /* fmt : format, channels, samplerate */ 491 psf_binheader_writef (psf, "e8224", BHW8 (fmt_size), BHW2 (WAVE_FORMAT_IEEE_FLOAT), BHW2 (psf->sf.channels), BHW4 (psf->sf.samplerate)) ; 492 /* fmt : bytespersec */ 493 psf_binheader_writef (psf, "e4", BHW4 (psf->sf.samplerate * psf->bytewidth * psf->sf.channels)) ; 494 /* fmt : blockalign, bitwidth */ 495 psf_binheader_writef (psf, "e22", BHW2 (psf->bytewidth * psf->sf.channels), BHW2 (psf->bytewidth * 8)) ; 496 497 add_fact_chunk = SF_TRUE ; 498 break ; 499 500 case SF_FORMAT_ULAW : 501 fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 ; 502 fmt_pad = (size_t) ((fmt_size & 0x7) ? 8 - (fmt_size & 0x7) : 0) ; 503 fmt_size += fmt_pad ; 504 505 /* fmt : format, channels, samplerate */ 506 psf_binheader_writef (psf, "e8224", BHW8 (fmt_size), BHW2 (WAVE_FORMAT_MULAW), BHW2 (psf->sf.channels), BHW4 (psf->sf.samplerate)) ; 507 /* fmt : bytespersec */ 508 psf_binheader_writef (psf, "e4", BHW4 (psf->sf.samplerate * psf->bytewidth * psf->sf.channels)) ; 509 /* fmt : blockalign, bitwidth */ 510 psf_binheader_writef (psf, "e22", BHW2 (psf->bytewidth * psf->sf.channels), BHW2 (8)) ; 511 512 add_fact_chunk = SF_TRUE ; 513 break ; 514 515 case SF_FORMAT_ALAW : 516 fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 ; 517 fmt_pad = (size_t) ((fmt_size & 0x7) ? 8 - (fmt_size & 0x7) : 0) ; 518 fmt_size += fmt_pad ; 519 520 /* fmt : format, channels, samplerate */ 521 psf_binheader_writef (psf, "e8224", BHW8 (fmt_size), BHW2 (WAVE_FORMAT_ALAW), BHW2 (psf->sf.channels), BHW4 (psf->sf.samplerate)) ; 522 /* fmt : bytespersec */ 523 psf_binheader_writef (psf, "e4", BHW4 (psf->sf.samplerate * psf->bytewidth * psf->sf.channels)) ; 524 /* fmt : blockalign, bitwidth */ 525 psf_binheader_writef (psf, "e22", BHW2 (psf->bytewidth * psf->sf.channels), BHW2 (8)) ; 526 527 add_fact_chunk = SF_TRUE ; 528 break ; 529 530 /* Lite remove start */ 531 case SF_FORMAT_IMA_ADPCM : 532 { int blockalign, framesperblock, bytespersec ; 533 534 blockalign = wavlike_srate2blocksize (psf->sf.samplerate * psf->sf.channels) ; 535 framesperblock = 2 * (blockalign - 4 * psf->sf.channels) / psf->sf.channels + 1 ; 536 bytespersec = (psf->sf.samplerate * blockalign) / framesperblock ; 537 538 /* fmt chunk. */ 539 fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 + 2 + 2 ; 540 fmt_pad = (size_t) ((fmt_size & 0x7) ? 8 - (fmt_size & 0x7) : 0) ; 541 fmt_size += fmt_pad ; 542 543 /* fmt : size, WAV format type, channels. */ 544 psf_binheader_writef (psf, "e822", BHW8 (fmt_size), BHW2 (WAVE_FORMAT_IMA_ADPCM), BHW2 (psf->sf.channels)) ; 545 546 /* fmt : samplerate, bytespersec. */ 547 psf_binheader_writef (psf, "e44", BHW4 (psf->sf.samplerate), BHW4 (bytespersec)) ; 548 549 /* fmt : blockalign, bitwidth, extrabytes, framesperblock. */ 550 psf_binheader_writef (psf, "e2222", BHW2 (blockalign), BHW2 (4), BHW2 (2), BHW2 (framesperblock)) ; 551 } ; 552 553 add_fact_chunk = SF_TRUE ; 554 break ; 555 556 case SF_FORMAT_MS_ADPCM : 557 { int blockalign, framesperblock, bytespersec, extrabytes ; 558 559 blockalign = wavlike_srate2blocksize (psf->sf.samplerate * psf->sf.channels) ; 560 framesperblock = 2 + 2 * (blockalign - 7 * psf->sf.channels) / psf->sf.channels ; 561 bytespersec = (psf->sf.samplerate * blockalign) / framesperblock ; 562 563 /* fmt chunk. */ 564 extrabytes = 2 + 2 + WAVLIKE_MSADPCM_ADAPT_COEFF_COUNT * (2 + 2) ; 565 fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 + 2 + extrabytes ; 566 fmt_pad = (size_t) ((fmt_size & 0x7) ? 8 - (fmt_size & 0x7) : 0) ; 567 fmt_size += fmt_pad ; 568 569 /* fmt : size, W64 format type, channels. */ 570 psf_binheader_writef (psf, "e822", BHW8 (fmt_size), BHW2 (WAVE_FORMAT_MS_ADPCM), BHW2 (psf->sf.channels)) ; 571 572 /* fmt : samplerate, bytespersec. */ 573 psf_binheader_writef (psf, "e44", BHW4 (psf->sf.samplerate), BHW4 (bytespersec)) ; 574 575 /* fmt : blockalign, bitwidth, extrabytes, framesperblock. */ 576 psf_binheader_writef (psf, "e22222", BHW2 (blockalign), BHW2 (4), BHW2 (extrabytes), BHW2 (framesperblock), BHW2 (7)) ; 577 578 wavlike_msadpcm_write_adapt_coeffs (psf) ; 579 } ; 580 581 add_fact_chunk = SF_TRUE ; 582 break ; 583 /* Lite remove end */ 584 585 case SF_FORMAT_GSM610 : 586 { int bytespersec ; 587 588 bytespersec = (psf->sf.samplerate * WAVLIKE_GSM610_BLOCKSIZE) / WAVLIKE_GSM610_SAMPLES ; 589 590 /* fmt chunk. */ 591 fmt_size = 24 + 2 + 2 + 4 + 4 + 2 + 2 + 2 + 2 ; 592 fmt_pad = (size_t) ((fmt_size & 0x7) ? 8 - (fmt_size & 0x7) : 0) ; 593 fmt_size += fmt_pad ; 594 595 /* fmt : size, WAV format type, channels. */ 596 psf_binheader_writef (psf, "e822", BHW8 (fmt_size), BHW2 (WAVE_FORMAT_GSM610), BHW2 (psf->sf.channels)) ; 597 598 /* fmt : samplerate, bytespersec. */ 599 psf_binheader_writef (psf, "e44", BHW4 (psf->sf.samplerate), BHW4 (bytespersec)) ; 600 601 /* fmt : blockalign, bitwidth, extrabytes, framesperblock. */ 602 psf_binheader_writef (psf, "e2222", BHW2 (WAVLIKE_GSM610_BLOCKSIZE), BHW2 (0), BHW2 (2), BHW2 (WAVLIKE_GSM610_SAMPLES)) ; 603 } ; 604 605 add_fact_chunk = SF_TRUE ; 606 break ; 607 608 default : return SFE_UNIMPLEMENTED ; 609 } ; 610 611 /* Pad to 8 bytes with zeros. */ 612 if (fmt_pad > 0) 613 psf_binheader_writef (psf, "z", BHWz (fmt_pad)) ; 614 615 if (add_fact_chunk) 616 psf_binheader_writef (psf, "eh88", BHWh (fact_MARKER16), BHW8 ((sf_count_t) (16 + 8 + 8)), BHW8 (psf->sf.frames)) ; 617 618 psf_binheader_writef (psf, "eh8", BHWh (data_MARKER16), BHW8 (psf->datalength + 24)) ; 619 psf_fwrite (psf->header.ptr, psf->header.indx, 1, psf) ; 620 621 if (psf->error) 622 return psf->error ; 623 624 psf->dataoffset = psf->header.indx ; 625 626 if (current > 0) 627 psf_fseek (psf, current, SEEK_SET) ; 628 629 return psf->error ; 630} /* w64_write_header */ 631 632static int 633w64_close (SF_PRIVATE *psf) 634{ 635 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR) 636 w64_write_header (psf, SF_TRUE) ; 637 638 return 0 ; 639} /* w64_close */ 640 641