projects / Faustine.git / blob
? search:


b611f760afaa51f9ff48c6b48dd4c8dacf4d1703
[Faustine.git] / interpretor / lib / src / libsndfile-1.0.25 / src / svx.c
1 /*
2 ** Copyright (C) 1999-2011 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 <stdarg.h>
25
26 #include "sndfile.h"
27 #include "sfendian.h"
28 #include "common.h"
29
30
31 /*------------------------------------------------------------------------------
32 * Macros to handle big/little endian issues.
33 */
34
35 #define FORM_MARKER (MAKE_MARKER ('F', 'O', 'R', 'M'))
36 #define SVX8_MARKER (MAKE_MARKER ('8', 'S', 'V', 'X'))
37 #define SV16_MARKER (MAKE_MARKER ('1', '6', 'S', 'V'))
38 #define VHDR_MARKER (MAKE_MARKER ('V', 'H', 'D', 'R'))
39 #define BODY_MARKER (MAKE_MARKER ('B', 'O', 'D', 'Y'))
40
41 #define ATAK_MARKER (MAKE_MARKER ('A', 'T', 'A', 'K'))
42 #define RLSE_MARKER (MAKE_MARKER ('R', 'L', 'S', 'E'))
43
44 #define c_MARKER (MAKE_MARKER ('(', 'c', ')', ' '))
45 #define NAME_MARKER (MAKE_MARKER ('N', 'A', 'M', 'E'))
46 #define AUTH_MARKER (MAKE_MARKER ('A', 'U', 'T', 'H'))
47 #define ANNO_MARKER (MAKE_MARKER ('A', 'N', 'N', 'O'))
48 #define CHAN_MARKER (MAKE_MARKER ('C', 'H', 'A', 'N'))
49
50 /*------------------------------------------------------------------------------
51 * Typedefs for file chunks.
52 */
53
54 typedef struct
55 { unsigned int oneShotHiSamples, repeatHiSamples, samplesPerHiCycle ;
56 unsigned short samplesPerSec ;
57 unsigned char octave, compression ;
58 unsigned int volume ;
59 } VHDR_CHUNK ;
60
61 enum {
62 HAVE_FORM = 0x01,
63
64 HAVE_SVX = 0x02,
65 HAVE_VHDR = 0x04,
66 HAVE_BODY = 0x08
67 } ;
68
69 /*------------------------------------------------------------------------------
70 * Private static functions.
71 */
72
73 static int svx_close (SF_PRIVATE *psf) ;
74 static int svx_write_header (SF_PRIVATE *psf, int calc_length) ;
75 static int svx_read_header (SF_PRIVATE *psf) ;
76
77 /*------------------------------------------------------------------------------
78 ** Public function.
79 */
80
81 int
82 svx_open (SF_PRIVATE *psf)
83 { int error ;
84
85 if (psf->file.mode == SFM_READ || (psf->file.mode == SFM_RDWR && psf->filelength > 0))
86 { if ((error = svx_read_header (psf)))
87 return error ;
88
89 psf->endian = SF_ENDIAN_BIG ; /* All SVX files are big endian. */
90
91 psf->blockwidth = psf->sf.channels * psf->bytewidth ;
92 if (psf->blockwidth)
93 psf->sf.frames = psf->datalength / psf->blockwidth ;
94
95 psf_fseek (psf, psf->dataoffset, SEEK_SET) ;
96 } ;
97
98 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
99 { if (psf->is_pipe)
100 return SFE_NO_PIPE_WRITE ;
101
102 if ((SF_CONTAINER (psf->sf.format)) != SF_FORMAT_SVX)
103 return SFE_BAD_OPEN_FORMAT ;
104
105 psf->endian = SF_ENDIAN (psf->sf.format) ;
106
107 if (psf->endian == SF_ENDIAN_LITTLE || (CPU_IS_LITTLE_ENDIAN && psf->endian == SF_ENDIAN_CPU))
108 return SFE_BAD_ENDIAN ;
109
110 psf->endian = SF_ENDIAN_BIG ; /* All SVX files are big endian. */
111
112 error = svx_write_header (psf, SF_FALSE) ;
113 if (error)
114 return error ;
115
116 psf->write_header = svx_write_header ;
117 } ;
118
119 psf->container_close = svx_close ;
120
121 if ((error = pcm_init (psf)))
122 return error ;
123
124 return 0 ;
125 } /* svx_open */
126
127 /*------------------------------------------------------------------------------
128 */
129
130 static int
131 svx_read_header (SF_PRIVATE *psf)
132 { VHDR_CHUNK vhdr ;
133 unsigned int FORMsize, vhdrsize, dword, marker ;
134 int filetype = 0, parsestage = 0, done = 0 ;
135 int bytecount = 0, channels ;
136
137 if (psf->filelength > SF_PLATFORM_S64 (0xffffffff))
138 psf_log_printf (psf, "Warning : filelength > 0xffffffff. This is bad!!!!\n") ;
139
140 memset (&vhdr, 0, sizeof (vhdr)) ;
141 psf_binheader_readf (psf, "p", 0) ;
142
143 /* Set default number of channels. Modify later if necessary */
144 psf->sf.channels = 1 ;
145
146 psf->sf.format = SF_FORMAT_SVX ;
147
148 while (! done)
149 { psf_binheader_readf (psf, "m", &marker) ;
150 switch (marker)
151 { case FORM_MARKER :
152 if (parsestage)
153 return SFE_SVX_NO_FORM ;
154
155 psf_binheader_readf (psf, "E4", &FORMsize) ;
156
157 if (FORMsize != psf->filelength - 2 * sizeof (dword))
158 { dword = psf->filelength - 2 * sizeof (dword) ;
159 psf_log_printf (psf, "FORM : %d (should be %d)\n", FORMsize, dword) ;
160 FORMsize = dword ;
161 }
162 else
163 psf_log_printf (psf, "FORM : %d\n", FORMsize) ;
164 parsestage |= HAVE_FORM ;
165 break ;
166
167 case SVX8_MARKER :
168 case SV16_MARKER :
169 if (! (parsestage & HAVE_FORM))
170 return SFE_SVX_NO_FORM ;
171 filetype = marker ;
172 psf_log_printf (psf, " %M\n", marker) ;
173 parsestage |= HAVE_SVX ;
174 break ;
175
176 case VHDR_MARKER :
177 if (! (parsestage & (HAVE_FORM | HAVE_SVX)))
178 return SFE_SVX_NO_FORM ;
179
180 psf_binheader_readf (psf, "E4", &vhdrsize) ;
181
182 psf_log_printf (psf, " VHDR : %d\n", vhdrsize) ;
183
184 psf_binheader_readf (psf, "E4442114", &(vhdr.oneShotHiSamples), &(vhdr.repeatHiSamples),
185 &(vhdr.samplesPerHiCycle), &(vhdr.samplesPerSec), &(vhdr.octave), &(vhdr.compression),
186 &(vhdr.volume)) ;
187
188 psf_log_printf (psf, " OneShotHiSamples : %d\n", vhdr.oneShotHiSamples) ;
189 psf_log_printf (psf, " RepeatHiSamples : %d\n", vhdr.repeatHiSamples) ;
190 psf_log_printf (psf, " samplesPerHiCycle : %d\n", vhdr.samplesPerHiCycle) ;
191 psf_log_printf (psf, " Sample Rate : %d\n", vhdr.samplesPerSec) ;
192 psf_log_printf (psf, " Octave : %d\n", vhdr.octave) ;
193
194 psf_log_printf (psf, " Compression : %d => ", vhdr.compression) ;
195
196 switch (vhdr.compression)
197 { case 0 : psf_log_printf (psf, "None.\n") ;
198 break ;
199 case 1 : psf_log_printf (psf, "Fibonacci delta\n") ;
200 break ;
201 case 2 : psf_log_printf (psf, "Exponential delta\n") ;
202 break ;
203 } ;
204
205 psf_log_printf (psf, " Volume : %d\n", vhdr.volume) ;
206
207 psf->sf.samplerate = vhdr.samplesPerSec ;
208
209 if (filetype == SVX8_MARKER)
210 { psf->sf.format |= SF_FORMAT_PCM_S8 ;
211 psf->bytewidth = 1 ;
212 }
213 else if (filetype == SV16_MARKER)
214 { psf->sf.format |= SF_FORMAT_PCM_16 ;
215 psf->bytewidth = 2 ;
216 } ;
217
218 parsestage |= HAVE_VHDR ;
219 break ;
220
221 case BODY_MARKER :
222 if (! (parsestage & HAVE_VHDR))
223 return SFE_SVX_NO_BODY ;
224
225 psf_binheader_readf (psf, "E4", &dword) ;
226 psf->datalength = dword ;
227
228 psf->dataoffset = psf_ftell (psf) ;
229 if (psf->dataoffset < 0)
230 return SFE_SVX_NO_BODY ;
231
232 if (psf->datalength > psf->filelength - psf->dataoffset)
233 { psf_log_printf (psf, " BODY : %D (should be %D)\n", psf->datalength, psf->filelength - psf->dataoffset) ;
234 psf->datalength = psf->filelength - psf->dataoffset ;
235 }
236 else
237 psf_log_printf (psf, " BODY : %D\n", psf->datalength) ;
238
239 parsestage |= HAVE_BODY ;
240
241 if (! psf->sf.seekable)
242 break ;
243
244 psf_fseek (psf, psf->datalength, SEEK_CUR) ;
245 break ;
246
247 case NAME_MARKER :
248 if (! (parsestage & HAVE_SVX))
249 return SFE_SVX_NO_FORM ;
250
251 psf_binheader_readf (psf, "E4", &dword) ;
252
253 psf_log_printf (psf, " %M : %d\n", marker, dword) ;
254
255 if (strlen (psf->file.name.c) != dword)
256 { if (dword > sizeof (psf->file.name.c) - 1)
257 return SFE_SVX_BAD_NAME_LENGTH ;
258
259 psf_binheader_readf (psf, "b", psf->file.name.c, dword) ;
260 psf->file.name.c [dword] = 0 ;
261 }
262 else
263 psf_binheader_readf (psf, "j", dword) ;
264 break ;
265
266 case ANNO_MARKER :
267 if (! (parsestage & HAVE_SVX))
268 return SFE_SVX_NO_FORM ;
269
270 psf_binheader_readf (psf, "E4", &dword) ;
271
272 psf_log_printf (psf, " %M : %d\n", marker, dword) ;
273
274 psf_binheader_readf (psf, "j", dword) ;
275 break ;
276
277 case CHAN_MARKER :
278 if (! (parsestage & HAVE_SVX))
279 return SFE_SVX_NO_FORM ;
280
281 psf_binheader_readf (psf, "E4", &dword) ;
282
283 psf_log_printf (psf, " %M : %d\n", marker, dword) ;
284
285 bytecount += psf_binheader_readf (psf, "E4", &channels) ;
286
287 if (channels == 2 || channels == 4)
288 psf_log_printf (psf, " Channels : %d => mono\n", channels) ;
289 else if (channels == 6)
290 { psf->sf.channels = 2 ;
291 psf_log_printf (psf, " Channels : %d => stereo\n", channels) ;
292 }
293 else
294 psf_log_printf (psf, " Channels : %d *** assuming mono\n", channels) ;
295
296 psf_binheader_readf (psf, "j", dword - bytecount) ;
297 break ;
298
299
300 case AUTH_MARKER :
301 case c_MARKER :
302 if (! (parsestage & HAVE_SVX))
303 return SFE_SVX_NO_FORM ;
304
305 psf_binheader_readf (psf, "E4", &dword) ;
306
307 psf_log_printf (psf, " %M : %d\n", marker, dword) ;
308
309 psf_binheader_readf (psf, "j", dword) ;
310 break ;
311
312 default :
313 if (psf_isprint ((marker >> 24) & 0xFF) && psf_isprint ((marker >> 16) & 0xFF)
314 && psf_isprint ((marker >> 8) & 0xFF) && psf_isprint (marker & 0xFF))
315 { psf_binheader_readf (psf, "E4", &dword) ;
316
317 psf_log_printf (psf, "%M : %d (unknown marker)\n", marker, dword) ;
318
319 psf_binheader_readf (psf, "j", dword) ;
320 break ;
321 } ;
322 if ((dword = psf_ftell (psf)) & 0x03)
323 { psf_log_printf (psf, " Unknown chunk marker at position %d. Resynching.\n", dword - 4) ;
324
325 psf_binheader_readf (psf, "j", -3) ;
326 break ;
327 } ;
328 psf_log_printf (psf, "*** Unknown chunk marker : %X. Exiting parser.\n", marker) ;
329 done = 1 ;
330 } ; /* switch (marker) */
331
332 if (! psf->sf.seekable && (parsestage & HAVE_BODY))
333 break ;
334
335 if (psf_ftell (psf) >= psf->filelength - SIGNED_SIZEOF (dword))
336 break ;
337 } ; /* while (1) */
338
339 if (vhdr.compression)
340 return SFE_SVX_BAD_COMP ;
341
342 if (psf->dataoffset <= 0)
343 return SFE_SVX_NO_DATA ;
344
345 return 0 ;
346 } /* svx_read_header */
347
348 static int
349 svx_close (SF_PRIVATE *psf)
350 {
351 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
352 svx_write_header (psf, SF_TRUE) ;
353
354 return 0 ;
355 } /* svx_close */
356
357 static int
358 svx_write_header (SF_PRIVATE *psf, int calc_length)
359 { static char annotation [] = "libsndfile by Erik de Castro Lopo\0\0\0" ;
360 sf_count_t current ;
361
362 current = psf_ftell (psf) ;
363
364 if (calc_length)
365 { psf->filelength = psf_get_filelen (psf) ;
366
367 psf->datalength = psf->filelength - psf->dataoffset ;
368
369 if (psf->dataend)
370 psf->datalength -= psf->filelength - psf->dataend ;
371
372 psf->sf.frames = psf->datalength / (psf->bytewidth * psf->sf.channels) ;
373 } ;
374
375 psf->header [0] = 0 ;
376 psf->headindex = 0 ;
377 psf_fseek (psf, 0, SEEK_SET) ;
378
379 /* FORM marker and FORM size. */
380 psf_binheader_writef (psf, "Etm8", FORM_MARKER, (psf->filelength < 8) ?
381 psf->filelength * 0 : psf->filelength - 8) ;
382
383 psf_binheader_writef (psf, "m", (psf->bytewidth == 1) ? SVX8_MARKER : SV16_MARKER) ;
384
385 /* VHDR chunk. */
386 psf_binheader_writef (psf, "Em4", VHDR_MARKER, sizeof (VHDR_CHUNK)) ;
387 /* VHDR : oneShotHiSamples, repeatHiSamples, samplesPerHiCycle */
388 psf_binheader_writef (psf, "E444", psf->sf.frames, 0, 0) ;
389 /* VHDR : samplesPerSec, octave, compression */
390 psf_binheader_writef (psf, "E211", psf->sf.samplerate, 1, 0) ;
391 /* VHDR : volume */
392 psf_binheader_writef (psf, "E4", (psf->bytewidth == 1) ? 0xFF : 0xFFFF) ;
393
394 if (psf->sf.channels == 2)
395 psf_binheader_writef (psf, "Em44", CHAN_MARKER, 4, 6) ;
396
397 /* Filename and annotation strings. */
398 psf_binheader_writef (psf, "Emsms", NAME_MARKER, psf->file.name.c, ANNO_MARKER, annotation) ;
399
400 /* BODY marker and size. */
401 psf_binheader_writef (psf, "Etm8", BODY_MARKER, (psf->datalength < 0) ?
402 psf->datalength * 0 : psf->datalength) ;
403
404 psf_fwrite (psf->header, psf->headindex, 1, psf) ;
405
406 if (psf->error)
407 return psf->error ;
408
409 psf->dataoffset = psf->headindex ;
410
411 if (current > 0)
412 psf_fseek (psf, current, SEEK_SET) ;
413
414 return psf->error ;
415 } /* svx_write_header */
416
An OCaml-based interpreter for Faust and its vector extension