← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/audacity/gutsy-backports

« back to all changes in this revision

Viewing changes to lib-src/libsndfile/src/caf.c

  • Committer: Bazaar Package Importer
  • Author(s): John Dong
  • Date: 2008-02-18 21:58:19 UTC
  • mfrom: (13.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080218215819-tmbcf1rx238r8gdv
Tags: 1.3.4-1.1ubuntu1~gutsy1
Automated backport upload; no source changes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib-src/libsndfile/src/caf.c
1
 
/*
2
 
** Copyright (C) 2005 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        <stdlib.h>
23
 
#include        <string.h>
24
 
#include        <ctype.h>
25
 
 
26
 
#include        "sndfile.h"
27
 
#include        "sfendian.h"
28
 
#include        "float_cast.h"
29
 
#include        "common.h"
30
 
 
31
 
/*------------------------------------------------------------------------------
32
 
** Macros to handle big/little endian issues.
33
 
*/
34
 
 
35
 
#define aac_MARKER              MAKE_MARKER ('a', 'a', 'c', ' ')
36
 
#define alac_MARKER             MAKE_MARKER ('a', 'l', 'a', 'c')
37
 
#define alaw_MARKER             MAKE_MARKER ('a', 'l', 'a', 'w')
38
 
#define caff_MARKER             MAKE_MARKER ('c', 'a', 'f', 'f')
39
 
#define chan_MARKER             MAKE_MARKER ('c', 'h', 'a', 'n')
40
 
#define data_MARKER             MAKE_MARKER ('d', 'a', 't', 'a')
41
 
#define desc_MARKER             MAKE_MARKER ('d', 'e', 's', 'c')
42
 
#define edct_MARKER             MAKE_MARKER ('e', 'd', 'c', 't')
43
 
#define free_MARKER             MAKE_MARKER ('f', 'r', 'e', 'e')
44
 
#define ima4_MARKER             MAKE_MARKER ('i', 'm', 'a', '4')
45
 
#define info_MARKER             MAKE_MARKER ('i', 'n', 'f', 'o')
46
 
#define inst_MARKER             MAKE_MARKER ('i', 'n', 's', 't')
47
 
#define kuki_MARKER             MAKE_MARKER ('k', 'u', 'k', 'i')
48
 
#define lpcm_MARKER             MAKE_MARKER ('l', 'p', 'c', 'm')
49
 
#define mark_MARKER             MAKE_MARKER ('m', 'a', 'r', 'k')
50
 
#define midi_MARKER             MAKE_MARKER ('m', 'i', 'd', 'i')
51
 
#define mp1_MARKER              MAKE_MARKER ('.', 'm', 'p', '1')
52
 
#define mp2_MARKER              MAKE_MARKER ('.', 'm', 'p', '2')
53
 
#define mp3_MARKER              MAKE_MARKER ('.', 'm', 'p', '3')
54
 
#define ovvw_MARKER             MAKE_MARKER ('o', 'v', 'v', 'w')
55
 
#define pakt_MARKER             MAKE_MARKER ('p', 'a', 'k', 't')
56
 
#define peak_MARKER             MAKE_MARKER ('p', 'e', 'a', 'k')
57
 
#define regn_MARKER             MAKE_MARKER ('r', 'e', 'g', 'n')
58
 
#define strg_MARKER             MAKE_MARKER ('s', 't', 'r', 'g')
59
 
#define umid_MARKER             MAKE_MARKER ('u', 'm', 'i', 'd')
60
 
#define uuid_MARKER             MAKE_MARKER ('u', 'u', 'i', 'd')
61
 
#define ulaw_MARKER             MAKE_MARKER ('u', 'l', 'a', 'w')
62
 
#define MAC3_MARKER             MAKE_MARKER ('M', 'A', 'C', '3')
63
 
#define MAC6_MARKER             MAKE_MARKER ('M', 'A', 'C', '6')
64
 
 
65
 
#define CAF_PEAK_CHUNK_SIZE(ch)         (sizeof (int) + ch * (sizeof (float) + 8))
66
 
 
67
 
#define SFE_CAF_NOT_CAF 666
68
 
#define SFE_CAF_NO_DESC 667
69
 
#define SFE_CAF_BAD_PEAK 668
70
 
 
71
 
/*------------------------------------------------------------------------------
72
 
** Typedefs.
73
 
*/
74
 
 
75
 
typedef struct
76
 
{       unsigned char srate [8] ;
77
 
        unsigned int fmt_id ;
78
 
        unsigned int fmt_flags ;
79
 
        unsigned int pkt_bytes ;
80
 
        unsigned int pkt_frames ;
81
 
        unsigned int channels_per_frame ;
82
 
        unsigned int bits_per_chan ;
83
 
} DESC_CHUNK ;
84
 
 
85
 
/*------------------------------------------------------------------------------
86
 
** Private static functions.
87
 
*/
88
 
 
89
 
static int      caf_close (SF_PRIVATE *psf) ;
90
 
static int      caf_read_header (SF_PRIVATE *psf) ;
91
 
static int      caf_write_header (SF_PRIVATE *psf, int calc_length) ;
92
 
 
93
 
/*------------------------------------------------------------------------------
94
 
** Public function.
95
 
*/
96
 
 
97
 
int
98
 
caf_open (SF_PRIVATE *psf)
99
 
{       int     subformat, format, error = 0 ;
100
 
 
101
 
        if (psf->mode == SFM_READ || (psf->mode == SFM_RDWR && psf->filelength > 0))
102
 
        {       if ((error = caf_read_header (psf)))
103
 
                        return error ;
104
 
                } ;
105
 
 
106
 
        subformat = psf->sf.format & SF_FORMAT_SUBMASK ;
107
 
 
108
 
        if (psf->mode == SFM_WRITE || psf->mode == SFM_RDWR)
109
 
        {       if (psf->is_pipe)
110
 
                        return SFE_NO_PIPE_WRITE ;
111
 
 
112
 
                format = psf->sf.format & SF_FORMAT_TYPEMASK ;
113
 
                if (format != SF_FORMAT_CAF)
114
 
                        return  SFE_BAD_OPEN_FORMAT ;
115
 
 
116
 
                psf->blockwidth = psf->bytewidth * psf->sf.channels ;
117
 
 
118
 
                if (psf->mode != SFM_RDWR || psf->filelength < 44)
119
 
                {       psf->filelength = 0 ;
120
 
                        psf->datalength = 0 ;
121
 
                        psf->dataoffset = 0 ;
122
 
                        psf->sf.frames = 0 ;
123
 
                        } ;
124
 
 
125
 
                psf->str_flags = SF_STR_ALLOW_START ;
126
 
 
127
 
                /*
128
 
                **      By default, add the peak chunk to floating point files. Default behaviour
129
 
                **      can be switched off using sf_command (SFC_SET_PEAK_CHUNK, SF_FALSE).
130
 
                */
131
 
                if (psf->mode == SFM_WRITE && (subformat == SF_FORMAT_FLOAT || subformat == SF_FORMAT_DOUBLE))
132
 
                {       if ((psf->peak_info = peak_info_calloc (psf->sf.channels)) == NULL)
133
 
                                return SFE_MALLOC_FAILED ;
134
 
                        psf->peak_info->peak_loc = SF_PEAK_START ;
135
 
                        } ;
136
 
 
137
 
                if ((error = caf_write_header (psf, SF_FALSE)) != 0)
138
 
                        return error ;
139
 
 
140
 
                psf->write_header = caf_write_header ;
141
 
                } ;
142
 
 
143
 
        psf->container_close = caf_close ;
144
 
        /*psf->command = caf_command ;*/
145
 
 
146
 
        switch (subformat)
147
 
        {       case SF_FORMAT_PCM_S8 :
148
 
                case SF_FORMAT_PCM_16 :
149
 
                case SF_FORMAT_PCM_24 :
150
 
                case SF_FORMAT_PCM_32 :
151
 
                                        error = pcm_init (psf) ;
152
 
                                        break ;
153
 
 
154
 
                case SF_FORMAT_ULAW :
155
 
                                        error = ulaw_init (psf) ;
156
 
                                        break ;
157
 
 
158
 
                case SF_FORMAT_ALAW :
159
 
                                        error = alaw_init (psf) ;
160
 
                                        break ;
161
 
 
162
 
                /* Lite remove start */
163
 
                case SF_FORMAT_FLOAT :
164
 
                                        error = float32_init (psf) ;
165
 
                                        break ;
166
 
 
167
 
                case SF_FORMAT_DOUBLE :
168
 
                                        error = double64_init (psf) ;
169
 
                                        break ;
170
 
                /* Lite remove end */
171
 
 
172
 
                default :
173
 
                        return SFE_UNSUPPORTED_ENCODING ;
174
 
                } ;
175
 
 
176
 
        return error ;
177
 
} /* caf_open */
178
 
 
179
 
static int
180
 
caf_close (SF_PRIVATE *psf)
181
 
{
182
 
        if (psf->mode == SFM_WRITE || psf->mode == SFM_RDWR)
183
 
                caf_write_header (psf, SF_TRUE) ;
184
 
 
185
 
        return 0 ;
186
 
} /* caf_close */
187
 
 
188
 
/*------------------------------------------------------------------------------
189
 
*/
190
 
 
191
 
static int
192
 
decode_desc_chunk (SF_PRIVATE *psf, const DESC_CHUNK *desc)
193
 
{       int format ;
194
 
 
195
 
        psf->sf.channels = desc->channels_per_frame ;
196
 
 
197
 
        format = SF_FORMAT_CAF | (psf->endian == SF_ENDIAN_LITTLE ? SF_ENDIAN_LITTLE : 0) ;
198
 
 
199
 
        if (desc->fmt_id == lpcm_MARKER && desc->fmt_flags & 1)
200
 
        {       /* Floating point data. */
201
 
                if (desc->bits_per_chan == 32 && desc->pkt_bytes == 4 * desc->channels_per_frame)
202
 
                {       psf->bytewidth = 4 ;
203
 
                        return format | SF_FORMAT_FLOAT ;
204
 
                        } ;
205
 
                if (desc->bits_per_chan == 64 && desc->pkt_bytes == 8 * desc->channels_per_frame)
206
 
                {       psf->bytewidth = 8 ;
207
 
                        return format | SF_FORMAT_DOUBLE ;
208
 
                        } ;
209
 
                } ;
210
 
 
211
 
        if ((desc->fmt_flags & 1) != 0)
212
 
        {       psf_log_printf (psf, "**** Ooops, 'desc' chunk suggests float data, but other info invalid.\n") ;
213
 
                return 0 ;
214
 
                } ;
215
 
 
216
 
        if (desc->fmt_id == lpcm_MARKER)
217
 
        {       /* Integer data. */
218
 
                if (desc->bits_per_chan == 32 && desc->pkt_bytes == 4 * desc->channels_per_frame)
219
 
                {       psf->bytewidth = 4 ;
220
 
                        return format | SF_FORMAT_PCM_32 ;
221
 
                        } ;
222
 
                if (desc->bits_per_chan == 24 && desc->pkt_bytes == 3 * desc->channels_per_frame)
223
 
                {       psf->bytewidth = 3 ;
224
 
                        return format | SF_FORMAT_PCM_24 ;
225
 
                        } ;
226
 
                if (desc->bits_per_chan == 16 && desc->pkt_bytes == 2 * desc->channels_per_frame)
227
 
                {       psf->bytewidth = 2 ;
228
 
                        return format | SF_FORMAT_PCM_16 ;
229
 
                        } ;
230
 
                if (desc->bits_per_chan == 8 && desc->pkt_bytes == 1 * desc->channels_per_frame)
231
 
                {       psf->bytewidth = 1 ;
232
 
                        return format | SF_FORMAT_PCM_S8 ;
233
 
                        } ;
234
 
                } ;
235
 
 
236
 
        if (desc->fmt_id == alaw_MARKER && desc->bits_per_chan == 8)
237
 
        {       psf->bytewidth = 1 ;
238
 
                return format | SF_FORMAT_ALAW ;
239
 
                } ;
240
 
 
241
 
        if (desc->fmt_id == ulaw_MARKER && desc->bits_per_chan == 8)
242
 
        {       psf->bytewidth = 1 ;
243
 
                return format | SF_FORMAT_ULAW ;
244
 
                } ;
245
 
 
246
 
        return 0 ;
247
 
} /* decode_desc_chunk */
248
 
 
249
 
static int
250
 
caf_read_header (SF_PRIVATE *psf)
251
 
{       DESC_CHUNK desc ;
252
 
        sf_count_t chunk_size ;
253
 
        double srate ;
254
 
        short version, flags ;
255
 
        int marker, k, have_data = 0 ;
256
 
 
257
 
        memset (&desc, 0, sizeof (desc)) ;
258
 
 
259
 
        /* Set position to start of file to begin reading header. */
260
 
        psf_binheader_readf (psf, "pmE2E2", 0, &marker, &version, &flags) ;
261
 
        psf_log_printf (psf, "%M\n  Version : %d\n  Flags   : %x\n", marker, version, flags) ;
262
 
        if (marker != caff_MARKER)
263
 
                return SFE_CAF_NOT_CAF ;
264
 
 
265
 
        psf_binheader_readf (psf, "mE8b", &marker, &chunk_size, psf->u.ucbuf, 8) ;
266
 
        srate = double64_be_read (psf->u.ucbuf) ;
267
 
        LSF_SNPRINTF (psf->u.cbuf, sizeof (psf->u.cbuf), "%5.3f", srate) ;
268
 
        psf_log_printf (psf, "%M : %D\n  Sample rate  : %s\n", marker, chunk_size, psf->u.cbuf) ;
269
 
        if (marker != desc_MARKER)
270
 
                return SFE_CAF_NO_DESC ;
271
 
 
272
 
        if (chunk_size < sizeof (DESC_CHUNK))
273
 
        {       psf_log_printf (psf, "**** Chunk size too small. Should be > 32 bytes.\n") ;
274
 
                return SFE_MALFORMED_FILE ;
275
 
                } ;
276
 
 
277
 
        psf->sf.samplerate = lrint (srate) ;
278
 
 
279
 
        psf_binheader_readf (psf, "mE44444", &desc.fmt_id, &desc.fmt_flags, &desc.pkt_bytes, &desc.pkt_frames,
280
 
                        &desc.channels_per_frame, &desc.bits_per_chan) ;
281
 
        psf_log_printf (psf, "  Format id    : %M\n  Format flags : %x\n  Bytes / packet   : %u\n"
282
 
                        "  Frames / packet  : %u\n  Channels / frame : %u\n  Bits / channel   : %u\n",
283
 
                        desc.fmt_id, desc.fmt_flags, desc.pkt_bytes, desc.pkt_frames, desc.channels_per_frame, desc.bits_per_chan) ;
284
 
 
285
 
        if (chunk_size > sizeof (DESC_CHUNK))
286
 
                psf_binheader_readf (psf, "j", (int) (chunk_size - sizeof (DESC_CHUNK))) ;
287
 
 
288
 
        psf->sf.channels = desc.channels_per_frame ;
289
 
 
290
 
        while (have_data == 0 && psf_ftell (psf) < psf->filelength - SIGNED_SIZEOF (marker))
291
 
        {       psf_binheader_readf (psf, "mE8", &marker, &chunk_size) ;
292
 
 
293
 
                switch (marker)
294
 
                {       case peak_MARKER :
295
 
                                psf_log_printf (psf, "%M : %D\n", marker, chunk_size) ;
296
 
                                if (chunk_size != CAF_PEAK_CHUNK_SIZE (psf->sf.channels))
297
 
                                {       psf_binheader_readf (psf, "j", (int) chunk_size) ;
298
 
                                        psf_log_printf (psf, "*** File PEAK chunk %D should be %d.\n", chunk_size, CAF_PEAK_CHUNK_SIZE (psf->sf.channels)) ;
299
 
                                        return SFE_CAF_BAD_PEAK ;
300
 
                                        } ;
301
 
 
302
 
                                if ((psf->peak_info = peak_info_calloc (psf->sf.channels)) == NULL)
303
 
                                        return SFE_MALLOC_FAILED ;
304
 
 
305
 
                                /* read in rest of PEAK chunk. */
306
 
                                psf_binheader_readf (psf, "E4", & (psf->peak_info->edit_number)) ;
307
 
                                psf_log_printf (psf, "  edit count : %d\n", psf->peak_info->edit_number) ;
308
 
 
309
 
                                psf_log_printf (psf, "     Ch   Position      Value\n") ;
310
 
                                for (k = 0 ; k < psf->sf.channels ; k++)
311
 
                                {       sf_count_t position ;
312
 
                                        float value ;
313
 
 
314
 
                                        psf_binheader_readf (psf, "Ef8", &value, &position) ;
315
 
                                        psf->peak_info->peaks [k].value = value ;
316
 
                                        psf->peak_info->peaks [k].position = position ;
317
 
 
318
 
                                        LSF_SNPRINTF (psf->u.cbuf, sizeof (psf->u.cbuf), "    %2d   %-12ld   %g\n", k, (long) position, value) ;
319
 
                                        psf_log_printf (psf, psf->u.cbuf) ;
320
 
                                        } ;
321
 
 
322
 
                                psf->peak_info->peak_loc = SF_PEAK_START ;
323
 
                                break ;
324
 
 
325
 
                        case free_MARKER :
326
 
                                psf_log_printf (psf, "%M : %D\n", marker, chunk_size) ;
327
 
                                psf_binheader_readf (psf, "j", (int) chunk_size) ;
328
 
                                break ;
329
 
 
330
 
                        case data_MARKER :
331
 
                                psf_log_printf (psf, "%M : %D\n", marker, chunk_size) ;
332
 
                                psf_binheader_readf (psf, "E4", &k) ;
333
 
                                psf_log_printf (psf, "  edit : %u\n", k) ;
334
 
                                have_data = 1 ;
335
 
                                break ;
336
 
 
337
 
                        default :
338
 
                                psf_log_printf (psf, " %M : %D (skipped)\n", marker, chunk_size) ;
339
 
                                psf_binheader_readf (psf, "j", (int) chunk_size) ;
340
 
                                break ;
341
 
                        } ;
342
 
                } ;
343
 
 
344
 
        if (have_data == 0)
345
 
        {       psf_log_printf (psf, "**** Error, could not find 'data' chunk.\n") ;
346
 
                return SFE_MALFORMED_FILE ;
347
 
                } ;
348
 
 
349
 
        psf_log_printf (psf, "End\n") ;
350
 
 
351
 
        psf->dataoffset = psf_ftell (psf) ;
352
 
        psf->datalength = psf->filelength - psf->dataoffset ;
353
 
        psf->endian = (desc.fmt_flags & 2) ? SF_ENDIAN_LITTLE : SF_ENDIAN_BIG ;
354
 
 
355
 
        if ((psf->sf.format = decode_desc_chunk (psf, &desc)) == 0)
356
 
                return SFE_UNSUPPORTED_ENCODING ;
357
 
 
358
 
        if (psf->bytewidth > 0)
359
 
                psf->sf.frames = psf->datalength / psf->bytewidth ;
360
 
 
361
 
        return 0 ;
362
 
} /* caf_read_header */
363
 
 
364
 
/*------------------------------------------------------------------------------
365
 
*/
366
 
 
367
 
static int
368
 
caf_write_header (SF_PRIVATE *psf, int calc_length)
369
 
{       DESC_CHUNK desc ;
370
 
        sf_count_t current, free_len ;
371
 
        int subformat ;
372
 
 
373
 
        memset (&desc, 0, sizeof (desc)) ;
374
 
 
375
 
        current = psf_ftell (psf) ;
376
 
 
377
 
        if (calc_length)
378
 
        {       psf->filelength = psf_get_filelen (psf) ;
379
 
 
380
 
                psf->datalength = psf->filelength - psf->dataoffset ;
381
 
 
382
 
                if (psf->dataend)
383
 
                        psf->datalength -= psf->filelength - psf->dataend ;
384
 
 
385
 
                if (psf->bytewidth > 0)
386
 
                        psf->sf.frames = psf->datalength / (psf->bytewidth * psf->sf.channels) ;
387
 
                } ;
388
 
 
389
 
        /* Reset the current header length to zero. */
390
 
        psf->header [0] = 0 ;
391
 
        psf->headindex = 0 ;
392
 
        psf_fseek (psf, 0, SEEK_SET) ;
393
 
 
394
 
        /* 'caff' marker, version and flags. */
395
 
        psf_binheader_writef (psf, "Em22", caff_MARKER, 1, 0) ;
396
 
 
397
 
        /* 'desc' marker and chunk size. */
398
 
        psf_binheader_writef (psf, "Em8", desc_MARKER, (sf_count_t) (sizeof (DESC_CHUNK))) ;
399
 
 
400
 
        double64_be_write (1.0 * psf->sf.samplerate, psf->u.ucbuf) ;
401
 
        psf_binheader_writef (psf, "b", psf->u.ucbuf, 8) ;
402
 
 
403
 
        subformat = psf->sf.format & SF_FORMAT_SUBMASK ;
404
 
 
405
 
        psf->endian = psf->sf.format & SF_FORMAT_ENDMASK ;
406
 
 
407
 
        if (CPU_IS_BIG_ENDIAN && (psf->endian == 0 || psf->endian == SF_ENDIAN_CPU))
408
 
                psf->endian = SF_ENDIAN_BIG ;
409
 
        else if (CPU_IS_LITTLE_ENDIAN && (psf->endian == SF_ENDIAN_LITTLE || psf->endian == SF_ENDIAN_CPU))
410
 
                psf->endian = SF_ENDIAN_LITTLE ;
411
 
 
412
 
        if (psf->endian == SF_ENDIAN_LITTLE)
413
 
                desc.fmt_flags = 2 ;
414
 
        else
415
 
                psf->endian = SF_ENDIAN_BIG ;
416
 
 
417
 
        /* initial section (same for all, it appears) */
418
 
        switch (subformat)
419
 
        {       case SF_FORMAT_PCM_S8 :
420
 
                        desc.fmt_id = lpcm_MARKER ;
421
 
                        psf->bytewidth = 1 ;
422
 
                        desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
423
 
                        desc.pkt_frames = 1 ;
424
 
                        desc.channels_per_frame = psf->sf.channels ;
425
 
                        desc.bits_per_chan = 8 ;
426
 
                        break ;
427
 
 
428
 
                case SF_FORMAT_PCM_16 :
429
 
                        desc.fmt_id = lpcm_MARKER ;
430
 
                        psf->bytewidth = 2 ;
431
 
                        desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
432
 
                        desc.pkt_frames = 1 ;
433
 
                        desc.channels_per_frame = psf->sf.channels ;
434
 
                        desc.bits_per_chan = 16 ;
435
 
                        break ;
436
 
 
437
 
                case SF_FORMAT_PCM_24 :
438
 
                        psf->bytewidth = 3 ;
439
 
                        desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
440
 
                        desc.pkt_frames = 1 ;
441
 
                        desc.channels_per_frame = psf->sf.channels ;
442
 
                        desc.bits_per_chan = 24 ;
443
 
                        desc.fmt_id = lpcm_MARKER ;
444
 
                        break ;
445
 
 
446
 
                case SF_FORMAT_PCM_32 :
447
 
                        desc.fmt_id = lpcm_MARKER ;
448
 
                        psf->bytewidth = 4 ;
449
 
                        desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
450
 
                        desc.pkt_frames = 1 ;
451
 
                        desc.channels_per_frame = psf->sf.channels ;
452
 
                        desc.bits_per_chan = 32 ;
453
 
                        break ;
454
 
 
455
 
                case SF_FORMAT_FLOAT :
456
 
                        desc.fmt_id = lpcm_MARKER ;
457
 
                        desc.fmt_flags |= 1 ;
458
 
                        psf->bytewidth = 4 ;
459
 
                        desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
460
 
                        desc.pkt_frames = 1 ;
461
 
                        desc.channels_per_frame = psf->sf.channels ;
462
 
                        desc.bits_per_chan = 32 ;
463
 
                        break ;
464
 
 
465
 
                case SF_FORMAT_DOUBLE :
466
 
                        desc.fmt_id = lpcm_MARKER ;
467
 
                        desc.fmt_flags |= 1 ;
468
 
                        psf->bytewidth = 8 ;
469
 
                        desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
470
 
                        desc.pkt_frames = 1 ;
471
 
                        desc.channels_per_frame = psf->sf.channels ;
472
 
                        desc.bits_per_chan = 64 ;
473
 
                        break ;
474
 
 
475
 
                case SF_FORMAT_ALAW :
476
 
                        desc.fmt_id = alaw_MARKER ;
477
 
                        psf->bytewidth = 1 ;
478
 
                        desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
479
 
                        desc.pkt_frames = 1 ;
480
 
                        desc.channels_per_frame = psf->sf.channels ;
481
 
                        desc.bits_per_chan = 8 ;
482
 
                        break ;
483
 
 
484
 
                case SF_FORMAT_ULAW :
485
 
                        desc.fmt_id = ulaw_MARKER ;
486
 
                        psf->bytewidth = 1 ;
487
 
                        desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
488
 
                        desc.pkt_frames = 1 ;
489
 
                        desc.channels_per_frame = psf->sf.channels ;
490
 
                        desc.bits_per_chan = 8 ;
491
 
                        break ;
492
 
 
493
 
                default :
494
 
                        return SFE_UNIMPLEMENTED ;
495
 
                } ;
496
 
 
497
 
        psf_binheader_writef (psf, "mE44444", desc.fmt_id, desc.fmt_flags, desc.pkt_bytes, desc.pkt_frames, desc.channels_per_frame, desc.bits_per_chan) ;
498
 
 
499
 
#if 0
500
 
        if (psf->str_flags & SF_STR_LOCATE_START)
501
 
                caf_write_strings (psf, SF_STR_LOCATE_START) ;
502
 
#endif
503
 
 
504
 
        if (psf->peak_info != NULL)
505
 
        {       int k ;
506
 
                psf_binheader_writef (psf, "Em84", peak_MARKER, (sf_count_t) CAF_PEAK_CHUNK_SIZE (psf->sf.channels), psf->peak_info->edit_number) ;
507
 
                for (k = 0 ; k < psf->sf.channels ; k++)
508
 
                        psf_binheader_writef (psf, "Ef8", (float) psf->peak_info->peaks [k].value, psf->peak_info->peaks [k].position) ;
509
 
                } ;
510
 
 
511
 
        /* Add free chunk so that the actual audio data starts at a multiple 0x1000. */
512
 
        free_len = 0x1000 - psf->headindex - 16 - 12 ;
513
 
        while (free_len < 0)
514
 
                free_len += 0x1000 ;
515
 
        psf_binheader_writef (psf, "Em8z", free_MARKER, free_len, (int) free_len) ;
516
 
 
517
 
        psf_binheader_writef (psf, "Em84", data_MARKER, psf->datalength, 0) ;
518
 
 
519
 
        psf_fwrite (psf->header, psf->headindex, 1, psf) ;
520
 
        if (psf->error)
521
 
                return psf->error ;
522
 
 
523
 
        psf->dataoffset = psf->headindex ;
524
 
        if (current < psf->dataoffset)
525
 
                psf_fseek (psf, psf->dataoffset, SEEK_SET) ;
526
 
        else if (current > 0)
527
 
                psf_fseek (psf, current, SEEK_SET) ;
528
 
 
529
 
        return psf->error ;
530
 
} /* caf_write_header */
531
 
 
532
 
/*
533
 
** Do not edit or modify anything in this comment block.
534
 
** The arch-tag line is a file identity tag for the GNU Arch
535
 
** revision control system.
536
 
**
537
 
** arch-tag: 65883e65-bd3c-4618-9241-d3c02fd630bd
538
 
*/