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
87 MAKE_MARKER16 (riff_MARKER16, 'r', 'i', 'f', 'f', 0x2E, 0x91, 0xCF, 0x11,
88 0xA5, 0xD6, 0x28, 0xDB, 0x04, 0xC1, 0x00, 0x00) ;
89
90
91 MAKE_MARKER16 (wave_MARKER16, 'w', 'a', 'v', 'e', 0xF3, 0xAC, 0xD3, 0x11,
92 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ;
93
94 MAKE_MARKER16 (fmt_MARKER16, 'f', 'm', 't', ' ', 0xF3, 0xAC, 0xD3, 0x11,
95 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ;
96
97 MAKE_MARKER16 (fact_MARKER16, 'f', 'a', 'c', 't', 0xF3, 0xAC, 0xD3, 0x11,
98 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ;
99
100 MAKE_MARKER16 (data_MARKER16, 'd', 'a', 't', 'a', 0xF3, 0xAC, 0xD3, 0x11,
101 0x8C, 0xD1, 0x00, 0xC0, 0x4F, 0x8E, 0xDB, 0x8A) ;
102
103 enum
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
115 static int w64_read_header (SF_PRIVATE *psf, int *blockalign, int *framesperblock) ;
116 static int w64_write_header (SF_PRIVATE *psf, int calc_length) ;
117 static int w64_close (SF_PRIVATE *psf) ;
118
119 /*------------------------------------------------------------------------------
120 ** Public function.
121 */
122
123 int
w64_open(SF_PRIVATE * psf)124 w64_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
223 static int
w64_read_header(SF_PRIVATE * psf,int * blockalign,int * framesperblock)224 w64_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
438 static int
w64_write_header(SF_PRIVATE * psf,int calc_length)439 w64_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
632 static int
w64_close(SF_PRIVATE * psf)633 w64_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