projects / Faustine.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Rename interpretor to interpreter.
[Faustine.git] / interpreter / lib / src / libsndfile-1.0.25 / src / xi.c
1 /*
2 ** Copyright (C) 2003-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 <stdlib.h>
23 #include <fcntl.h>
24 #include <string.h>
25 #include <ctype.h>
26 #include <math.h>
27
28 #include "sndfile.h"
29 #include "sfendian.h"
30 #include "common.h"
31
32 #define MAX_XI_SAMPLES 16
33
34 /*------------------------------------------------------------------------------
35 ** Private static functions and tyepdefs.
36 */
37
38 typedef struct
39 { /* Warning, this filename is NOT nul terminated. */
40 char filename [22] ;
41 char software [20] ;
42 char sample_name [22] ;
43
44 int loop_begin, loop_end ;
45 int sample_flags ;
46
47 /* Data for encoder and decoder. */
48 short last_16 ;
49 } XI_PRIVATE ;
50
51 static int xi_close (SF_PRIVATE *psf) ;
52 static int xi_write_header (SF_PRIVATE *psf, int calc_length) ;
53 static int xi_read_header (SF_PRIVATE *psf) ;
54 static int dpcm_init (SF_PRIVATE *psf) ;
55
56
57 static sf_count_t dpcm_seek (SF_PRIVATE *psf, int mode, sf_count_t offset) ;
58
59 /*------------------------------------------------------------------------------
60 ** Public function.
61 */
62
63 int
64 xi_open (SF_PRIVATE *psf)
65 { XI_PRIVATE *pxi ;
66 int subformat, error = 0 ;
67
68 if (psf->is_pipe)
69 return SFE_XI_NO_PIPE ;
70
71 if (psf->codec_data)
72 pxi = psf->codec_data ;
73 else if ((pxi = calloc (1, sizeof (XI_PRIVATE))) == NULL)
74 return SFE_MALLOC_FAILED ;
75
76 psf->codec_data = pxi ;
77
78 if (psf->file.mode == SFM_READ || (psf->file.mode == SFM_RDWR && psf->filelength > 0))
79 { if ((error = xi_read_header (psf)))
80 return error ;
81 } ;
82
83 subformat = SF_CODEC (psf->sf.format) ;
84
85 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
86 { if ((SF_CONTAINER (psf->sf.format)) != SF_FORMAT_XI)
87 return SFE_BAD_OPEN_FORMAT ;
88
89 psf->endian = SF_ENDIAN_LITTLE ;
90 psf->sf.channels = 1 ; /* Always mono */
91 psf->sf.samplerate = 44100 ; /* Always */
92
93 /* Set up default instrument and software name. */
94 memcpy (pxi->filename, "Default Name ", sizeof (pxi->filename)) ;
95 memcpy (pxi->software, PACKAGE "-" VERSION " ", sizeof (pxi->software)) ;
96
97 memset (pxi->sample_name, 0, sizeof (pxi->sample_name)) ;
98 snprintf (pxi->sample_name, sizeof (pxi->sample_name), "%s", "Sample #1") ;
99
100 pxi->sample_flags = (subformat == SF_FORMAT_DPCM_16) ? 16 : 0 ;
101
102 if (xi_write_header (psf, SF_FALSE))
103 return psf->error ;
104
105 psf->write_header = xi_write_header ;
106 } ;
107
108 psf->container_close = xi_close ;
109 psf->seek = dpcm_seek ;
110
111 psf->sf.seekable = SF_FALSE ;
112
113 psf->blockwidth = psf->bytewidth * psf->sf.channels ;
114
115 switch (subformat)
116 { case SF_FORMAT_DPCM_8 : /* 8-bit differential PCM. */
117 case SF_FORMAT_DPCM_16 : /* 16-bit differential PCM. */
118 error = dpcm_init (psf) ;
119 break ;
120
121 default : break ;
122 } ;
123
124 return error ;
125 } /* xi_open */
126
127 /*------------------------------------------------------------------------------
128 */
129
130 static int
131 xi_close (SF_PRIVATE * UNUSED (psf))
132 {
133 return 0 ;
134 } /* xi_close */
135
136 /*==============================================================================
137 */
138
139 static sf_count_t dpcm_read_dsc2s (SF_PRIVATE *psf, short *ptr, sf_count_t len) ;
140 static sf_count_t dpcm_read_dsc2i (SF_PRIVATE *psf, int *ptr, sf_count_t len) ;
141 static sf_count_t dpcm_read_dsc2f (SF_PRIVATE *psf, float *ptr, sf_count_t len) ;
142 static sf_count_t dpcm_read_dsc2d (SF_PRIVATE *psf, double *ptr, sf_count_t len) ;
143
144 static sf_count_t dpcm_write_s2dsc (SF_PRIVATE *psf, const short *ptr, sf_count_t len) ;
145 static sf_count_t dpcm_write_i2dsc (SF_PRIVATE *psf, const int *ptr, sf_count_t len) ;
146 static sf_count_t dpcm_write_f2dsc (SF_PRIVATE *psf, const float *ptr, sf_count_t len) ;
147 static sf_count_t dpcm_write_d2dsc (SF_PRIVATE *psf, const double *ptr, sf_count_t len) ;
148
149 static sf_count_t dpcm_read_dles2s (SF_PRIVATE *psf, short *ptr, sf_count_t len) ;
150 static sf_count_t dpcm_read_dles2i (SF_PRIVATE *psf, int *ptr, sf_count_t len) ;
151 static sf_count_t dpcm_read_dles2f (SF_PRIVATE *psf, float *ptr, sf_count_t len) ;
152 static sf_count_t dpcm_read_dles2d (SF_PRIVATE *psf, double *ptr, sf_count_t len) ;
153
154 static sf_count_t dpcm_write_s2dles (SF_PRIVATE *psf, const short *ptr, sf_count_t len) ;
155 static sf_count_t dpcm_write_i2dles (SF_PRIVATE *psf, const int *ptr, sf_count_t len) ;
156 static sf_count_t dpcm_write_f2dles (SF_PRIVATE *psf, const float *ptr, sf_count_t len) ;
157 static sf_count_t dpcm_write_d2dles (SF_PRIVATE *psf, const double *ptr, sf_count_t len) ;
158
159 static int
160 dpcm_init (SF_PRIVATE *psf)
161 { if (psf->bytewidth == 0 || psf->sf.channels == 0)
162 return SFE_INTERNAL ;
163
164 psf->blockwidth = psf->bytewidth * psf->sf.channels ;
165
166 if (psf->file.mode == SFM_READ || psf->file.mode == SFM_RDWR)
167 { switch (psf->bytewidth)
168 { case 1 :
169 psf->read_short = dpcm_read_dsc2s ;
170 psf->read_int = dpcm_read_dsc2i ;
171 psf->read_float = dpcm_read_dsc2f ;
172 psf->read_double = dpcm_read_dsc2d ;
173 break ;
174 case 2 :
175 psf->read_short = dpcm_read_dles2s ;
176 psf->read_int = dpcm_read_dles2i ;
177 psf->read_float = dpcm_read_dles2f ;
178 psf->read_double = dpcm_read_dles2d ;
179 break ;
180 default :
181 psf_log_printf (psf, "dpcm_init() returning SFE_UNIMPLEMENTED\n") ;
182 return SFE_UNIMPLEMENTED ;
183 } ;
184 } ;
185
186 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
187 { switch (psf->bytewidth)
188 { case 1 :
189 psf->write_short = dpcm_write_s2dsc ;
190 psf->write_int = dpcm_write_i2dsc ;
191 psf->write_float = dpcm_write_f2dsc ;
192 psf->write_double = dpcm_write_d2dsc ;
193 break ;
194 case 2 :
195 psf->write_short = dpcm_write_s2dles ;
196 psf->write_int = dpcm_write_i2dles ;
197 psf->write_float = dpcm_write_f2dles ;
198 psf->write_double = dpcm_write_d2dles ;
199 break ;
200 default :
201 psf_log_printf (psf, "dpcm_init() returning SFE_UNIMPLEMENTED\n") ;
202 return SFE_UNIMPLEMENTED ;
203 } ;
204 } ;
205
206 psf->filelength = psf_get_filelen (psf) ;
207 psf->datalength = (psf->dataend) ? psf->dataend - psf->dataoffset :
208 psf->filelength - psf->dataoffset ;
209 psf->sf.frames = psf->datalength / psf->blockwidth ;
210
211 return 0 ;
212 } /* dpcm_init */
213
214 /*==============================================================================
215 */
216
217 static sf_count_t
218 dpcm_seek (SF_PRIVATE *psf, int mode, sf_count_t offset)
219 { XI_PRIVATE *pxi ;
220 int total, bufferlen, len ;
221
222 if ((pxi = psf->codec_data) == NULL)
223 return SFE_INTERNAL ;
224
225 if (psf->datalength < 0 || psf->dataoffset < 0)
226 { psf->error = SFE_BAD_SEEK ;
227 return PSF_SEEK_ERROR ;
228 } ;
229
230 if (offset == 0)
231 { psf_fseek (psf, psf->dataoffset, SEEK_SET) ;
232 pxi->last_16 = 0 ;
233 return 0 ;
234 } ;
235
236 if (offset < 0 || offset > psf->sf.frames)
237 { psf->error = SFE_BAD_SEEK ;
238 return PSF_SEEK_ERROR ;
239 } ;
240
241 if (mode != SFM_READ)
242 { /* What to do about write??? */
243 psf->error = SFE_BAD_SEEK ;
244 return PSF_SEEK_ERROR ;
245 } ;
246
247 psf_fseek (psf, psf->dataoffset, SEEK_SET) ;
248
249 if ((SF_CODEC (psf->sf.format)) == SF_FORMAT_DPCM_16)
250 { total = offset ;
251 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
252 while (total > 0)
253 { len = (total > bufferlen) ? bufferlen : total ;
254 total -= dpcm_read_dles2s (psf, psf->u.sbuf, len) ;
255 } ;
256 }
257 else
258 { total = offset ;
259 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
260 while (total > 0)
261 { len = (total > bufferlen) ? bufferlen : total ;
262 total -= dpcm_read_dsc2s (psf, psf->u.sbuf, len) ;
263 } ;
264 } ;
265
266 return offset ;
267 } /* dpcm_seek */
268
269
270 static int
271 xi_write_header (SF_PRIVATE *psf, int UNUSED (calc_length))
272 { XI_PRIVATE *pxi ;
273 sf_count_t current ;
274 const char *string ;
275
276 if ((pxi = psf->codec_data) == NULL)
277 return SFE_INTERNAL ;
278
279 current = psf_ftell (psf) ;
280
281 /* Reset the current header length to zero. */
282 psf->header [0] = 0 ;
283 psf->headindex = 0 ;
284 psf_fseek (psf, 0, SEEK_SET) ;
285
286 string = "Extended Instrument: " ;
287 psf_binheader_writef (psf, "b", string, strlen (string)) ;
288 psf_binheader_writef (psf, "b1", pxi->filename, sizeof (pxi->filename), 0x1A) ;
289
290 /* Write software version and two byte XI version. */
291 psf_binheader_writef (psf, "eb2", pxi->software, sizeof (pxi->software), (1 << 8) + 2) ;
292
293 /*
294 ** Jump note numbers (96), volume envelope (48), pan envelope (48),
295 ** volume points (1), pan points (1)
296 */
297 psf_binheader_writef (psf, "z", (size_t) (96 + 48 + 48 + 1 + 1)) ;
298
299 /* Jump volume loop (3 bytes), pan loop (3), envelope flags (3), vibrato (3)
300 ** fade out (2), 22 unknown bytes, and then write sample_count (2 bytes).
301 */
302 psf_binheader_writef (psf, "ez2z2", (size_t) (4 * 3), 0x1234, make_size_t (22), 1) ;
303
304 pxi->loop_begin = 0 ;
305 pxi->loop_end = 0 ;
306
307 psf_binheader_writef (psf, "et844", psf->sf.frames, pxi->loop_begin, pxi->loop_end) ;
308
309 /* volume, fine tune, flags, pan, note, namelen */
310 psf_binheader_writef (psf, "111111", 128, 0, pxi->sample_flags, 128, 0, strlen (pxi->sample_name)) ;
311
312 psf_binheader_writef (psf, "b", pxi->sample_name, sizeof (pxi->sample_name)) ;
313
314
315
316
317
318 /* Header construction complete so write it out. */
319 psf_fwrite (psf->header, psf->headindex, 1, psf) ;
320
321 if (psf->error)
322 return psf->error ;
323
324 psf->dataoffset = psf->headindex ;
325
326 if (current > 0)
327 psf_fseek (psf, current, SEEK_SET) ;
328
329 return psf->error ;
330 } /* xi_write_header */
331
332 static int
333 xi_read_header (SF_PRIVATE *psf)
334 { char buffer [64], name [32] ;
335 short version, fade_out, sample_count ;
336 int k, loop_begin, loop_end ;
337 int sample_sizes [MAX_XI_SAMPLES] ;
338
339 psf_binheader_readf (psf, "pb", 0, buffer, 21) ;
340
341 memset (sample_sizes, 0, sizeof (sample_sizes)) ;
342
343 buffer [20] = 0 ;
344 if (strcmp (buffer, "Extended Instrument:") != 0)
345 return SFE_XI_BAD_HEADER ;
346
347 memset (buffer, 0, sizeof (buffer)) ;
348 psf_binheader_readf (psf, "b", buffer, 23) ;
349
350 if (buffer [22] != 0x1A)
351 return SFE_XI_BAD_HEADER ;
352
353 buffer [22] = 0 ;
354 psf_log_printf (psf, "Extended Instrument : %s\n", buffer) ;
355
356 psf_binheader_readf (psf, "be2", buffer, 20, &version) ;
357 buffer [19] = 0 ;
358 psf_log_printf (psf, "Software : %s\nVersion : %d.%02d\n", buffer, version / 256, version % 256) ;
359
360 /* Jump note numbers (96), volume envelope (48), pan envelope (48),
361 ** volume points (1), pan points (1)
362 */
363 psf_binheader_readf (psf, "j", 96 + 48 + 48 + 1 + 1) ;
364
365 psf_binheader_readf (psf, "b", buffer, 12) ;
366 psf_log_printf (psf, "Volume Loop\n sustain : %u\n begin : %u\n end : %u\n",
367 buffer [0], buffer [1], buffer [2]) ;
368 psf_log_printf (psf, "Pan Loop\n sustain : %u\n begin : %u\n end : %u\n",
369 buffer [3], buffer [4], buffer [5]) ;
370 psf_log_printf (psf, "Envelope Flags\n volume : 0x%X\n pan : 0x%X\n",
371 buffer [6] & 0xFF, buffer [7] & 0xFF) ;
372
373 psf_log_printf (psf, "Vibrato\n type : %u\n sweep : %u\n depth : %u\n rate : %u\n",
374 buffer [8], buffer [9], buffer [10], buffer [11]) ;
375
376 /*
377 ** Read fade_out then jump reserved (2 bytes) and ???? (20 bytes) and
378 ** sample_count.
379 */
380 psf_binheader_readf (psf, "e2j2", &fade_out, 2 + 20, &sample_count) ;
381 psf_log_printf (psf, "Fade out : %d\n", fade_out) ;
382
383 /* XI file can contain up to 16 samples. */
384 if (sample_count > MAX_XI_SAMPLES)
385 return SFE_XI_EXCESS_SAMPLES ;
386
387 if (psf->instrument == NULL && (psf->instrument = psf_instrument_alloc ()) == NULL)
388 return SFE_MALLOC_FAILED ;
389
390 /* Log all data for each sample. */
391 for (k = 0 ; k < sample_count ; k++)
392 { psf_binheader_readf (psf, "e444", &(sample_sizes [k]), &loop_begin, &loop_end) ;
393
394 /* Read 5 know bytes, 1 unknown byte and 22 name bytes. */
395 psf_binheader_readf (psf, "bb", buffer, 6, name, 22) ;
396 name [21] = 0 ;
397
398 psf_log_printf (psf, "Sample #%d\n name : %s\n", k + 1, name) ;
399
400 psf_log_printf (psf, " size : %d\n", sample_sizes [k]) ;
401
402
403
404 psf_log_printf (psf, " loop\n begin : %d\n end : %d\n", loop_begin, loop_end) ;
405
406 psf_log_printf (psf, " volume : %u\n f. tune : %d\n flags : 0x%02X ",
407 buffer [0] & 0xFF, buffer [1] & 0xFF, buffer [2] & 0xFF) ;
408
409 psf_log_printf (psf, " (") ;
410 if (buffer [2] & 1)
411 psf_log_printf (psf, " Loop") ;
412 if (buffer [2] & 2)
413 psf_log_printf (psf, " PingPong") ;
414 psf_log_printf (psf, (buffer [2] & 16) ? " 16bit" : " 8bit") ;
415 psf_log_printf (psf, " )\n") ;
416
417 psf_log_printf (psf, " pan : %u\n note : %d\n namelen : %d\n",
418 buffer [3] & 0xFF, buffer [4], buffer [5]) ;
419
420 if (k != 0)
421 continue ;
422
423 if (buffer [2] & 16)
424 { psf->sf.format = SF_FORMAT_XI | SF_FORMAT_DPCM_16 ;
425 psf->bytewidth = 2 ;
426 }
427 else
428 { psf->sf.format = SF_FORMAT_XI | SF_FORMAT_DPCM_8 ;
429 psf->bytewidth = 1 ;
430 } ;
431 } ;
432
433 while (sample_count > 1 && sample_sizes [sample_count - 1] == 0)
434 sample_count -- ;
435
436 /* Currently, we can only handle 1 sample per file. */
437
438 if (sample_count > 2)
439 { psf_log_printf (psf, "*** Sample count is less than 16 but more than 1.\n") ;
440 psf_log_printf (psf, " sample count : %d sample_sizes [%d] : %d\n",
441 sample_count, sample_count - 1, sample_sizes [sample_count - 1]) ;
442 return SFE_XI_EXCESS_SAMPLES ;
443 } ;
444
445 psf->datalength = sample_sizes [0] ;
446
447 psf->dataoffset = psf_ftell (psf) ;
448 if (psf->dataoffset < 0)
449 { psf_log_printf (psf, "*** Bad Data Offset : %D\n", psf->dataoffset) ;
450 return SFE_BAD_OFFSET ;
451 } ;
452 psf_log_printf (psf, "Data Offset : %D\n", psf->dataoffset) ;
453
454 if (psf->dataoffset + psf->datalength > psf->filelength)
455 { psf_log_printf (psf, "*** File seems to be truncated. Should be at least %D bytes long.\n",
456 psf->dataoffset + sample_sizes [0]) ;
457 psf->datalength = psf->filelength - psf->dataoffset ;
458 } ;
459
460 if (psf_fseek (psf, psf->dataoffset, SEEK_SET) != psf->dataoffset)
461 return SFE_BAD_SEEK ;
462
463 psf->endian = SF_ENDIAN_LITTLE ;
464 psf->sf.channels = 1 ; /* Always mono */
465 psf->sf.samplerate = 44100 ; /* Always */
466
467 psf->blockwidth = psf->sf.channels * psf->bytewidth ;
468
469 if (! psf->sf.frames && psf->blockwidth)
470 psf->sf.frames = (psf->filelength - psf->dataoffset) / psf->blockwidth ;
471
472 psf->instrument->basenote = 0 ;
473 psf->instrument->gain = 1 ;
474 psf->instrument->velocity_lo = psf->instrument->key_lo = 0 ;
475 psf->instrument->velocity_hi = psf->instrument->key_hi = 127 ;
476
477 return 0 ;
478 } /* xi_read_header */
479
480 /*==============================================================================
481 */
482
483 static void dsc2s_array (XI_PRIVATE *pxi, signed char *src, int count, short *dest) ;
484 static void dsc2i_array (XI_PRIVATE *pxi, signed char *src, int count, int *dest) ;
485 static void dsc2f_array (XI_PRIVATE *pxi, signed char *src, int count, float *dest, float normfact) ;
486 static void dsc2d_array (XI_PRIVATE *pxi, signed char *src, int count, double *dest, double normfact) ;
487
488 static void dles2s_array (XI_PRIVATE *pxi, short *src, int count, short *dest) ;
489 static void dles2i_array (XI_PRIVATE *pxi, short *src, int count, int *dest) ;
490 static void dles2f_array (XI_PRIVATE *pxi, short *src, int count, float *dest, float normfact) ;
491 static void dles2d_array (XI_PRIVATE *pxi, short *src, int count, double *dest, double normfact) ;
492
493 static sf_count_t
494 dpcm_read_dsc2s (SF_PRIVATE *psf, short *ptr, sf_count_t len)
495 { XI_PRIVATE *pxi ;
496 int bufferlen, readcount ;
497 sf_count_t total = 0 ;
498
499 if ((pxi = psf->codec_data) == NULL)
500 return 0 ;
501
502 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
503
504 while (len > 0)
505 { if (len < bufferlen)
506 bufferlen = (int) len ;
507 readcount = psf_fread (psf->u.scbuf, sizeof (signed char), bufferlen, psf) ;
508 dsc2s_array (pxi, psf->u.scbuf, readcount, ptr + total) ;
509 total += readcount ;
510 if (readcount < bufferlen)
511 break ;
512 len -= readcount ;
513 } ;
514
515 return total ;
516 } /* dpcm_read_dsc2s */
517
518 static sf_count_t
519 dpcm_read_dsc2i (SF_PRIVATE *psf, int *ptr, sf_count_t len)
520 { XI_PRIVATE *pxi ;
521 int bufferlen, readcount ;
522 sf_count_t total = 0 ;
523
524 if ((pxi = psf->codec_data) == NULL)
525 return 0 ;
526
527 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
528
529 while (len > 0)
530 { if (len < bufferlen)
531 bufferlen = (int) len ;
532 readcount = psf_fread (psf->u.scbuf, sizeof (signed char), bufferlen, psf) ;
533 dsc2i_array (pxi, psf->u.scbuf, readcount, ptr + total) ;
534 total += readcount ;
535 if (readcount < bufferlen)
536 break ;
537 len -= readcount ;
538 } ;
539
540 return total ;
541 } /* dpcm_read_dsc2i */
542
543 static sf_count_t
544 dpcm_read_dsc2f (SF_PRIVATE *psf, float *ptr, sf_count_t len)
545 { XI_PRIVATE *pxi ;
546 int bufferlen, readcount ;
547 sf_count_t total = 0 ;
548 float normfact ;
549
550 if ((pxi = psf->codec_data) == NULL)
551 return 0 ;
552
553 normfact = (psf->norm_float == SF_TRUE) ? 1.0 / ((float) 0x80) : 1.0 ;
554
555 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
556
557 while (len > 0)
558 { if (len < bufferlen)
559 bufferlen = (int) len ;
560 readcount = psf_fread (psf->u.scbuf, sizeof (signed char), bufferlen, psf) ;
561 dsc2f_array (pxi, psf->u.scbuf, readcount, ptr + total, normfact) ;
562 total += readcount ;
563 if (readcount < bufferlen)
564 break ;
565 len -= readcount ;
566 } ;
567
568 return total ;
569 } /* dpcm_read_dsc2f */
570
571 static sf_count_t
572 dpcm_read_dsc2d (SF_PRIVATE *psf, double *ptr, sf_count_t len)
573 { XI_PRIVATE *pxi ;
574 int bufferlen, readcount ;
575 sf_count_t total = 0 ;
576 double normfact ;
577
578 if ((pxi = psf->codec_data) == NULL)
579 return 0 ;
580
581 normfact = (psf->norm_double == SF_TRUE) ? 1.0 / ((double) 0x80) : 1.0 ;
582
583 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
584
585 while (len > 0)
586 { if (len < bufferlen)
587 bufferlen = (int) len ;
588 readcount = psf_fread (psf->u.scbuf, sizeof (signed char), bufferlen, psf) ;
589 dsc2d_array (pxi, psf->u.scbuf, readcount, ptr + total, normfact) ;
590 total += readcount ;
591 if (readcount < bufferlen)
592 break ;
593 len -= readcount ;
594 } ;
595
596 return total ;
597 } /* dpcm_read_dsc2d */
598
599 /*------------------------------------------------------------------------------
600 */
601
602 static sf_count_t
603 dpcm_read_dles2s (SF_PRIVATE *psf, short *ptr, sf_count_t len)
604 { XI_PRIVATE *pxi ;
605 int bufferlen, readcount ;
606 sf_count_t total = 0 ;
607
608 if ((pxi = psf->codec_data) == NULL)
609 return 0 ;
610
611 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
612
613 while (len > 0)
614 { if (len < bufferlen)
615 bufferlen = (int) len ;
616 readcount = psf_fread (psf->u.sbuf, sizeof (short), bufferlen, psf) ;
617 dles2s_array (pxi, psf->u.sbuf, readcount, ptr + total) ;
618 total += readcount ;
619 if (readcount < bufferlen)
620 break ;
621 len -= readcount ;
622 } ;
623
624 return total ;
625 } /* dpcm_read_dles2s */
626
627 static sf_count_t
628 dpcm_read_dles2i (SF_PRIVATE *psf, int *ptr, sf_count_t len)
629 { XI_PRIVATE *pxi ;
630 int bufferlen, readcount ;
631 sf_count_t total = 0 ;
632
633 if ((pxi = psf->codec_data) == NULL)
634 return 0 ;
635
636 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
637
638 while (len > 0)
639 { if (len < bufferlen)
640 bufferlen = (int) len ;
641 readcount = psf_fread (psf->u.sbuf, sizeof (short), bufferlen, psf) ;
642 dles2i_array (pxi, psf->u.sbuf, readcount, ptr + total) ;
643 total += readcount ;
644 if (readcount < bufferlen)
645 break ;
646 len -= readcount ;
647 } ;
648
649 return total ;
650 } /* dpcm_read_dles2i */
651
652 static sf_count_t
653 dpcm_read_dles2f (SF_PRIVATE *psf, float *ptr, sf_count_t len)
654 { XI_PRIVATE *pxi ;
655 int bufferlen, readcount ;
656 sf_count_t total = 0 ;
657 float normfact ;
658
659 if ((pxi = psf->codec_data) == NULL)
660 return 0 ;
661
662 normfact = (psf->norm_float == SF_TRUE) ? 1.0 / ((float) 0x8000) : 1.0 ;
663
664 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
665
666 while (len > 0)
667 { if (len < bufferlen)
668 bufferlen = (int) len ;
669 readcount = psf_fread (psf->u.sbuf, sizeof (short), bufferlen, psf) ;
670 dles2f_array (pxi, psf->u.sbuf, readcount, ptr + total, normfact) ;
671 total += readcount ;
672 if (readcount < bufferlen)
673 break ;
674 len -= readcount ;
675 } ;
676
677 return total ;
678 } /* dpcm_read_dles2f */
679
680 static sf_count_t
681 dpcm_read_dles2d (SF_PRIVATE *psf, double *ptr, sf_count_t len)
682 { XI_PRIVATE *pxi ;
683 int bufferlen, readcount ;
684 sf_count_t total = 0 ;
685 double normfact ;
686
687 if ((pxi = psf->codec_data) == NULL)
688 return 0 ;
689
690 normfact = (psf->norm_double == SF_TRUE) ? 1.0 / ((double) 0x8000) : 1.0 ;
691
692 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
693
694 while (len > 0)
695 { if (len < bufferlen)
696 bufferlen = (int) len ;
697 readcount = psf_fread (psf->u.sbuf, sizeof (short), bufferlen, psf) ;
698 dles2d_array (pxi, psf->u.sbuf, readcount, ptr + total, normfact) ;
699 total += readcount ;
700 if (readcount < bufferlen)
701 break ;
702 len -= readcount ;
703 } ;
704
705 return total ;
706 } /* dpcm_read_dles2d */
707
708 /*==============================================================================
709 */
710
711 static void s2dsc_array (XI_PRIVATE *pxi, const short *src, signed char *dest, int count) ;
712 static void i2dsc_array (XI_PRIVATE *pxi, const int *src, signed char *dest, int count) ;
713 static void f2dsc_array (XI_PRIVATE *pxi, const float *src, signed char *dest, int count, float normfact) ;
714 static void d2dsc_array (XI_PRIVATE *pxi, const double *src, signed char *dest, int count, double normfact) ;
715
716 static void s2dles_array (XI_PRIVATE *pxi, const short *src, short *dest, int count) ;
717 static void i2dles_array (XI_PRIVATE *pxi, const int *src, short *dest, int count) ;
718 static void f2dles_array (XI_PRIVATE *pxi, const float *src, short *dest, int count, float normfact) ;
719 static void d2dles_array (XI_PRIVATE *pxi, const double *src, short *dest, int count, double normfact) ;
720
721
722 static sf_count_t
723 dpcm_write_s2dsc (SF_PRIVATE *psf, const short *ptr, sf_count_t len)
724 { XI_PRIVATE *pxi ;
725 int bufferlen, writecount ;
726 sf_count_t total = 0 ;
727
728 if ((pxi = psf->codec_data) == NULL)
729 return 0 ;
730
731 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
732
733 while (len > 0)
734 { if (len < bufferlen)
735 bufferlen = (int) len ;
736 s2dsc_array (pxi, ptr + total, psf->u.scbuf, bufferlen) ;
737 writecount = psf_fwrite (psf->u.scbuf, sizeof (signed char), bufferlen, psf) ;
738 total += writecount ;
739 if (writecount < bufferlen)
740 break ;
741 len -= writecount ;
742 } ;
743
744 return total ;
745 } /* dpcm_write_s2dsc */
746
747 static sf_count_t
748 dpcm_write_i2dsc (SF_PRIVATE *psf, const int *ptr, sf_count_t len)
749 { XI_PRIVATE *pxi ;
750 int bufferlen, writecount ;
751 sf_count_t total = 0 ;
752
753 if ((pxi = psf->codec_data) == NULL)
754 return 0 ;
755
756 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
757
758 while (len > 0)
759 { if (len < bufferlen)
760 bufferlen = (int) len ;
761 i2dsc_array (pxi, ptr + total, psf->u.scbuf, bufferlen) ;
762 writecount = psf_fwrite (psf->u.scbuf, sizeof (signed char), bufferlen, psf) ;
763 total += writecount ;
764 if (writecount < bufferlen)
765 break ;
766 len -= writecount ;
767 } ;
768
769 return total ;
770 } /* dpcm_write_i2dsc */
771
772 static sf_count_t
773 dpcm_write_f2dsc (SF_PRIVATE *psf, const float *ptr, sf_count_t len)
774 { XI_PRIVATE *pxi ;
775 int bufferlen, writecount ;
776 sf_count_t total = 0 ;
777 float normfact ;
778
779 if ((pxi = psf->codec_data) == NULL)
780 return 0 ;
781
782 normfact = (psf->norm_float == SF_TRUE) ? (1.0 * 0x7F) : 1.0 ;
783
784 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
785
786 while (len > 0)
787 { if (len < bufferlen)
788 bufferlen = (int) len ;
789 f2dsc_array (pxi, ptr + total, psf->u.scbuf, bufferlen, normfact) ;
790 writecount = psf_fwrite (psf->u.scbuf, sizeof (signed char), bufferlen, psf) ;
791 total += writecount ;
792 if (writecount < bufferlen)
793 break ;
794 len -= writecount ;
795 } ;
796
797 return total ;
798 } /* dpcm_write_f2dsc */
799
800 static sf_count_t
801 dpcm_write_d2dsc (SF_PRIVATE *psf, const double *ptr, sf_count_t len)
802 { XI_PRIVATE *pxi ;
803 int bufferlen, writecount ;
804 sf_count_t total = 0 ;
805 double normfact ;
806
807 if ((pxi = psf->codec_data) == NULL)
808 return 0 ;
809
810 normfact = (psf->norm_double == SF_TRUE) ? (1.0 * 0x7F) : 1.0 ;
811
812 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
813
814 while (len > 0)
815 { if (len < bufferlen)
816 bufferlen = (int) len ;
817 d2dsc_array (pxi, ptr + total, psf->u.scbuf, bufferlen, normfact) ;
818 writecount = psf_fwrite (psf->u.scbuf, sizeof (signed char), bufferlen, psf) ;
819 total += writecount ;
820 if (writecount < bufferlen)
821 break ;
822 len -= writecount ;
823 } ;
824
825 return total ;
826 } /* dpcm_write_d2dsc */
827
828
829 static sf_count_t
830 dpcm_write_s2dles (SF_PRIVATE *psf, const short *ptr, sf_count_t len)
831 { XI_PRIVATE *pxi ;
832 int bufferlen, writecount ;
833 sf_count_t total = 0 ;
834
835 if ((pxi = psf->codec_data) == NULL)
836 return 0 ;
837
838 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
839
840 while (len > 0)
841 { if (len < bufferlen)
842 bufferlen = (int) len ;
843 s2dles_array (pxi, ptr + total, psf->u.sbuf, bufferlen) ;
844 writecount = psf_fwrite (psf->u.sbuf, sizeof (short), bufferlen, psf) ;
845 total += writecount ;
846 if (writecount < bufferlen)
847 break ;
848 len -= writecount ;
849 } ;
850
851 return total ;
852 } /* dpcm_write_s2dles */
853
854 static sf_count_t
855 dpcm_write_i2dles (SF_PRIVATE *psf, const int *ptr, sf_count_t len)
856 { XI_PRIVATE *pxi ;
857 int bufferlen, writecount ;
858 sf_count_t total = 0 ;
859
860 if ((pxi = psf->codec_data) == NULL)
861 return 0 ;
862
863 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
864
865 while (len > 0)
866 { if (len < bufferlen)
867 bufferlen = (int) len ;
868 i2dles_array (pxi, ptr + total, psf->u.sbuf, bufferlen) ;
869 writecount = psf_fwrite (psf->u.sbuf, sizeof (short), bufferlen, psf) ;
870 total += writecount ;
871 if (writecount < bufferlen)
872 break ;
873 len -= writecount ;
874 } ;
875
876 return total ;
877 } /* dpcm_write_i2dles */
878
879 static sf_count_t
880 dpcm_write_f2dles (SF_PRIVATE *psf, const float *ptr, sf_count_t len)
881 { XI_PRIVATE *pxi ;
882 int bufferlen, writecount ;
883 sf_count_t total = 0 ;
884 float normfact ;
885
886 if ((pxi = psf->codec_data) == NULL)
887 return 0 ;
888
889 normfact = (psf->norm_float == SF_TRUE) ? (1.0 * 0x7FFF) : 1.0 ;
890
891 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
892
893 while (len > 0)
894 { if (len < bufferlen)
895 bufferlen = (int) len ;
896 f2dles_array (pxi, ptr + total, psf->u.sbuf, bufferlen, normfact) ;
897 writecount = psf_fwrite (psf->u.sbuf, sizeof (short), bufferlen, psf) ;
898 total += writecount ;
899 if (writecount < bufferlen)
900 break ;
901 len -= writecount ;
902 } ;
903
904 return total ;
905 } /* dpcm_write_f2dles */
906
907 static sf_count_t
908 dpcm_write_d2dles (SF_PRIVATE *psf, const double *ptr, sf_count_t len)
909 { XI_PRIVATE *pxi ;
910 int bufferlen, writecount ;
911 sf_count_t total = 0 ;
912 double normfact ;
913
914 if ((pxi = psf->codec_data) == NULL)
915 return 0 ;
916
917 normfact = (psf->norm_double == SF_TRUE) ? (1.0 * 0x7FFF) : 1.0 ;
918
919 bufferlen = ARRAY_LEN (psf->u.sbuf) ;
920
921 while (len > 0)
922 { if (len < bufferlen)
923 bufferlen = (int) len ;
924 d2dles_array (pxi, ptr + total, psf->u.sbuf, bufferlen, normfact) ;
925 writecount = psf_fwrite (psf->u.sbuf, sizeof (short), bufferlen, psf) ;
926 total += writecount ;
927 if (writecount < bufferlen)
928 break ;
929 len -= writecount ;
930 } ;
931
932 return total ;
933 } /* dpcm_write_d2dles */
934
935
936 /*==============================================================================
937 */
938
939 static void
940 dsc2s_array (XI_PRIVATE *pxi, signed char *src, int count, short *dest)
941 { signed char last_val ;
942 int k ;
943
944 last_val = pxi->last_16 >> 8 ;
945
946 for (k = 0 ; k < count ; k++)
947 { last_val += src [k] ;
948 dest [k] = last_val << 8 ;
949 } ;
950
951 pxi->last_16 = last_val << 8 ;
952 } /* dsc2s_array */
953
954 static void
955 dsc2i_array (XI_PRIVATE *pxi, signed char *src, int count, int *dest)
956 { signed char last_val ;
957 int k ;
958
959 last_val = pxi->last_16 >> 8 ;
960
961 for (k = 0 ; k < count ; k++)
962 { last_val += src [k] ;
963 dest [k] = last_val << 24 ;
964 } ;
965
966 pxi->last_16 = last_val << 8 ;
967 } /* dsc2i_array */
968
969 static void
970 dsc2f_array (XI_PRIVATE *pxi, signed char *src, int count, float *dest, float normfact)
971 { signed char last_val ;
972 int k ;
973
974 last_val = pxi->last_16 >> 8 ;
975
976 for (k = 0 ; k < count ; k++)
977 { last_val += src [k] ;
978 dest [k] = last_val * normfact ;
979 } ;
980
981 pxi->last_16 = last_val << 8 ;
982 } /* dsc2f_array */
983
984 static void
985 dsc2d_array (XI_PRIVATE *pxi, signed char *src, int count, double *dest, double normfact)
986 { signed char last_val ;
987 int k ;
988
989 last_val = pxi->last_16 >> 8 ;
990
991 for (k = 0 ; k < count ; k++)
992 { last_val += src [k] ;
993 dest [k] = last_val * normfact ;
994 } ;
995
996 pxi->last_16 = last_val << 8 ;
997 } /* dsc2d_array */
998
999 /*------------------------------------------------------------------------------
1000 */
1001
1002 static void
1003 s2dsc_array (XI_PRIVATE *pxi, const short *src, signed char *dest, int count)
1004 { signed char last_val, current ;
1005 int k ;
1006
1007 last_val = pxi->last_16 >> 8 ;
1008
1009 for (k = 0 ; k < count ; k++)
1010 { current = src [k] >> 8 ;
1011 dest [k] = current - last_val ;
1012 last_val = current ;
1013 } ;
1014
1015 pxi->last_16 = last_val << 8 ;
1016 } /* s2dsc_array */
1017
1018 static void
1019 i2dsc_array (XI_PRIVATE *pxi, const int *src, signed char *dest, int count)
1020 { signed char last_val, current ;
1021 int k ;
1022
1023 last_val = pxi->last_16 >> 8 ;
1024
1025 for (k = 0 ; k < count ; k++)
1026 { current = src [k] >> 24 ;
1027 dest [k] = current - last_val ;
1028 last_val = current ;
1029 } ;
1030
1031 pxi->last_16 = last_val << 8 ;
1032 } /* i2dsc_array */
1033
1034 static void
1035 f2dsc_array (XI_PRIVATE *pxi, const float *src, signed char *dest, int count, float normfact)
1036 { signed char last_val, current ;
1037 int k ;
1038
1039 last_val = pxi->last_16 >> 8 ;
1040
1041 for (k = 0 ; k < count ; k++)
1042 { current = lrintf (src [k] * normfact) ;
1043 dest [k] = current - last_val ;
1044 last_val = current ;
1045 } ;
1046
1047 pxi->last_16 = last_val << 8 ;
1048 } /* f2dsc_array */
1049
1050 static void
1051 d2dsc_array (XI_PRIVATE *pxi, const double *src, signed char *dest, int count, double normfact)
1052 { signed char last_val, current ;
1053 int k ;
1054
1055 last_val = pxi->last_16 >> 8 ;
1056
1057 for (k = 0 ; k < count ; k++)
1058 { current = lrint (src [k] * normfact) ;
1059 dest [k] = current - last_val ;
1060 last_val = current ;
1061 } ;
1062
1063 pxi->last_16 = last_val << 8 ;
1064 } /* d2dsc_array */
1065
1066 /*==============================================================================
1067 */
1068
1069 static void
1070 dles2s_array (XI_PRIVATE *pxi, short *src, int count, short *dest)
1071 { short last_val ;
1072 int k ;
1073
1074 last_val = pxi->last_16 ;
1075
1076 for (k = 0 ; k < count ; k++)
1077 { last_val += LES2H_SHORT (src [k]) ;
1078 dest [k] = last_val ;
1079 } ;
1080
1081 pxi->last_16 = last_val ;
1082 } /* dles2s_array */
1083
1084 static void
1085 dles2i_array (XI_PRIVATE *pxi, short *src, int count, int *dest)
1086 { short last_val ;
1087 int k ;
1088
1089 last_val = pxi->last_16 ;
1090
1091 for (k = 0 ; k < count ; k++)
1092 { last_val += LES2H_SHORT (src [k]) ;
1093 dest [k] = last_val << 16 ;
1094 } ;
1095
1096 pxi->last_16 = last_val ;
1097 } /* dles2i_array */
1098
1099 static void
1100 dles2f_array (XI_PRIVATE *pxi, short *src, int count, float *dest, float normfact)
1101 { short last_val ;
1102 int k ;
1103
1104 last_val = pxi->last_16 ;
1105
1106 for (k = 0 ; k < count ; k++)
1107 { last_val += LES2H_SHORT (src [k]) ;
1108 dest [k] = last_val * normfact ;
1109 } ;
1110
1111 pxi->last_16 = last_val ;
1112 } /* dles2f_array */
1113
1114 static void
1115 dles2d_array (XI_PRIVATE *pxi, short *src, int count, double *dest, double normfact)
1116 { short last_val ;
1117 int k ;
1118
1119 last_val = pxi->last_16 ;
1120
1121 for (k = 0 ; k < count ; k++)
1122 { last_val += LES2H_SHORT (src [k]) ;
1123 dest [k] = last_val * normfact ;
1124 } ;
1125
1126 pxi->last_16 = last_val ;
1127 } /* dles2d_array */
1128
1129 /*------------------------------------------------------------------------------
1130 */
1131
1132 static void
1133 s2dles_array (XI_PRIVATE *pxi, const short *src, short *dest, int count)
1134 { short diff, last_val ;
1135 int k ;
1136
1137 last_val = pxi->last_16 ;
1138
1139 for (k = 0 ; k < count ; k++)
1140 { diff = src [k] - last_val ;
1141 dest [k] = LES2H_SHORT (diff) ;
1142 last_val = src [k] ;
1143 } ;
1144
1145 pxi->last_16 = last_val ;
1146 } /* s2dles_array */
1147
1148 static void
1149 i2dles_array (XI_PRIVATE *pxi, const int *src, short *dest, int count)
1150 { short diff, last_val ;
1151 int k ;
1152
1153 last_val = pxi->last_16 ;
1154
1155 for (k = 0 ; k < count ; k++)
1156 { diff = (src [k] >> 16) - last_val ;
1157 dest [k] = LES2H_SHORT (diff) ;
1158 last_val = src [k] >> 16 ;
1159 } ;
1160
1161 pxi->last_16 = last_val ;
1162 } /* i2dles_array */
1163
1164 static void
1165 f2dles_array (XI_PRIVATE *pxi, const float *src, short *dest, int count, float normfact)
1166 { short diff, last_val, current ;
1167 int k ;
1168
1169 last_val = pxi->last_16 ;
1170
1171 for (k = 0 ; k < count ; k++)
1172 { current = lrintf (src [k] * normfact) ;
1173 diff = current - last_val ;
1174 dest [k] = LES2H_SHORT (diff) ;
1175 last_val = current ;
1176 } ;
1177
1178 pxi->last_16 = last_val ;
1179 } /* f2dles_array */
1180
1181 static void
1182 d2dles_array (XI_PRIVATE *pxi, const double *src, short *dest, int count, double normfact)
1183 { short diff, last_val, current ;
1184 int k ;
1185
1186 last_val = pxi->last_16 ;
1187
1188 for (k = 0 ; k < count ; k++)
1189 { current = lrint (src [k] * normfact) ;
1190 diff = current - last_val ;
1191 dest [k] = LES2H_SHORT (diff) ;
1192 last_val = current ;
1193 } ;
1194
1195 pxi->last_16 = last_val ;
1196 } /* d2dles_array */
1197
An OCaml-based interpreter for Faust and its vector extension