projects / Faustine.git / blob
? search:


6d06b4bb03175095539764167540e30f27088c30
[Faustine.git] / interpretor / libsndfile-1.0.25 / src / alaw.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 <math.h>
22
23 #include "sndfile.h"
24 #include "common.h"
25
26 static sf_count_t alaw_read_alaw2s (SF_PRIVATE *psf, short *ptr, sf_count_t len) ;
27 static sf_count_t alaw_read_alaw2i (SF_PRIVATE *psf, int *ptr, sf_count_t len) ;
28 static sf_count_t alaw_read_alaw2f (SF_PRIVATE *psf, float *ptr, sf_count_t len) ;
29 static sf_count_t alaw_read_alaw2d (SF_PRIVATE *psf, double *ptr, sf_count_t len) ;
30
31 static sf_count_t alaw_write_s2alaw (SF_PRIVATE *psf, const short *ptr, sf_count_t len) ;
32 static sf_count_t alaw_write_i2alaw (SF_PRIVATE *psf, const int *ptr, sf_count_t len) ;
33 static sf_count_t alaw_write_f2alaw (SF_PRIVATE *psf, const float *ptr, sf_count_t len) ;
34 static sf_count_t alaw_write_d2alaw (SF_PRIVATE *psf, const double *ptr, sf_count_t len) ;
35
36 static void alaw2s_array (unsigned char *buffer, int count, short *ptr) ;
37 static void alaw2i_array (unsigned char *buffer, int count, int *ptr) ;
38 static void alaw2f_array (unsigned char *buffer, int count, float *ptr, float normfact) ;
39 static void alaw2d_array (unsigned char *buffer, int count, double *ptr, double normfact) ;
40
41 static void s2alaw_array (const short *buffer, int count, unsigned char *ptr) ;
42 static void i2alaw_array (const int *buffer, int count, unsigned char *ptr) ;
43 static void f2alaw_array (const float *buffer, int count, unsigned char *ptr, float normfact) ;
44 static void d2alaw_array (const double *buffer, int count, unsigned char *ptr, double normfact) ;
45
46
47 int
48 alaw_init (SF_PRIVATE *psf)
49 {
50 if (psf->file.mode == SFM_READ || psf->file.mode == SFM_RDWR)
51 { psf->read_short = alaw_read_alaw2s ;
52 psf->read_int = alaw_read_alaw2i ;
53 psf->read_float = alaw_read_alaw2f ;
54 psf->read_double = alaw_read_alaw2d ;
55 } ;
56
57 if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
58 { psf->write_short = alaw_write_s2alaw ;
59 psf->write_int = alaw_write_i2alaw ;
60 psf->write_float = alaw_write_f2alaw ;
61 psf->write_double = alaw_write_d2alaw ;
62 } ;
63
64 psf->bytewidth = 1 ;
65 psf->blockwidth = psf->sf.channels ;
66
67 if (psf->filelength > psf->dataoffset)
68 psf->datalength = (psf->dataend) ? psf->dataend - psf->dataoffset : psf->filelength - psf->dataoffset ;
69 else
70 psf->datalength = 0 ;
71
72 psf->sf.frames = psf->blockwidth > 0 ? psf->datalength / psf->blockwidth : 0 ;
73
74 return 0 ;
75 } /* alaw_init */
76
77 /*==============================================================================
78 * Private static functions and data.
79 */
80
81 static
82 short alaw_decode [256] =
83 { -5504, -5248, -6016, -5760, -4480, -4224, -4992, -4736,
84 -7552, -7296, -8064, -7808, -6528, -6272, -7040, -6784,
85 -2752, -2624, -3008, -2880, -2240, -2112, -2496, -2368,
86 -3776, -3648, -4032, -3904, -3264, -3136, -3520, -3392,
87 -22016, -20992, -24064, -23040, -17920, -16896, -19968, -18944,
88 -30208, -29184, -32256, -31232, -26112, -25088, -28160, -27136,
89 -11008, -10496, -12032, -11520, -8960, -8448, -9984, -9472,
90 -15104, -14592, -16128, -15616, -13056, -12544, -14080, -13568,
91 -344, -328, -376, -360, -280, -264, -312, -296,
92 -472, -456, -504, -488, -408, -392, -440, -424,
93 -88, -72, -120, -104, -24, -8, -56, -40,
94 -216, -200, -248, -232, -152, -136, -184, -168,
95 -1376, -1312, -1504, -1440, -1120, -1056, -1248, -1184,
96 -1888, -1824, -2016, -1952, -1632, -1568, -1760, -1696,
97 -688, -656, -752, -720, -560, -528, -624, -592,
98 -944, -912, -1008, -976, -816, -784, -880, -848,
99 5504, 5248, 6016, 5760, 4480, 4224, 4992, 4736,
100 7552, 7296, 8064, 7808, 6528, 6272, 7040, 6784,
101 2752, 2624, 3008, 2880, 2240, 2112, 2496, 2368,
102 3776, 3648, 4032, 3904, 3264, 3136, 3520, 3392,
103 22016, 20992, 24064, 23040, 17920, 16896, 19968, 18944,
104 30208, 29184, 32256, 31232, 26112, 25088, 28160, 27136,
105 11008, 10496, 12032, 11520, 8960, 8448, 9984, 9472,
106 15104, 14592, 16128, 15616, 13056, 12544, 14080, 13568,
107 344, 328, 376, 360, 280, 264, 312, 296,
108 472, 456, 504, 488, 408, 392, 440, 424,
109 88, 72, 120, 104, 24, 8, 56, 40,
110 216, 200, 248, 232, 152, 136, 184, 168,
111 1376, 1312, 1504, 1440, 1120, 1056, 1248, 1184,
112 1888, 1824, 2016, 1952, 1632, 1568, 1760, 1696,
113 688, 656, 752, 720, 560, 528, 624, 592,
114 944, 912, 1008, 976, 816, 784, 880, 848
115 } ; /* alaw_decode */
116
117 static
118 unsigned char alaw_encode [2048 + 1] =
119 { 0xd5, 0xd4, 0xd7, 0xd6, 0xd1, 0xd0, 0xd3, 0xd2, 0xdd, 0xdc, 0xdf, 0xde,
120 0xd9, 0xd8, 0xdb, 0xda, 0xc5, 0xc4, 0xc7, 0xc6, 0xc1, 0xc0, 0xc3, 0xc2,
121 0xcd, 0xcc, 0xcf, 0xce, 0xc9, 0xc8, 0xcb, 0xca, 0xf5, 0xf5, 0xf4, 0xf4,
122 0xf7, 0xf7, 0xf6, 0xf6, 0xf1, 0xf1, 0xf0, 0xf0, 0xf3, 0xf3, 0xf2, 0xf2,
123 0xfd, 0xfd, 0xfc, 0xfc, 0xff, 0xff, 0xfe, 0xfe, 0xf9, 0xf9, 0xf8, 0xf8,
124 0xfb, 0xfb, 0xfa, 0xfa, 0xe5, 0xe5, 0xe5, 0xe5, 0xe4, 0xe4, 0xe4, 0xe4,
125 0xe7, 0xe7, 0xe7, 0xe7, 0xe6, 0xe6, 0xe6, 0xe6, 0xe1, 0xe1, 0xe1, 0xe1,
126 0xe0, 0xe0, 0xe0, 0xe0, 0xe3, 0xe3, 0xe3, 0xe3, 0xe2, 0xe2, 0xe2, 0xe2,
127 0xed, 0xed, 0xed, 0xed, 0xec, 0xec, 0xec, 0xec, 0xef, 0xef, 0xef, 0xef,
128 0xee, 0xee, 0xee, 0xee, 0xe9, 0xe9, 0xe9, 0xe9, 0xe8, 0xe8, 0xe8, 0xe8,
129 0xeb, 0xeb, 0xeb, 0xeb, 0xea, 0xea, 0xea, 0xea, 0x95, 0x95, 0x95, 0x95,
130 0x95, 0x95, 0x95, 0x95, 0x94, 0x94, 0x94, 0x94, 0x94, 0x94, 0x94, 0x94,
131 0x97, 0x97, 0x97, 0x97, 0x97, 0x97, 0x97, 0x97, 0x96, 0x96, 0x96, 0x96,
132 0x96, 0x96, 0x96, 0x96, 0x91, 0x91, 0x91, 0x91, 0x91, 0x91, 0x91, 0x91,
133 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x93, 0x93, 0x93, 0x93,
134 0x93, 0x93, 0x93, 0x93, 0x92, 0x92, 0x92, 0x92, 0x92, 0x92, 0x92, 0x92,
135 0x9d, 0x9d, 0x9d, 0x9d, 0x9d, 0x9d, 0x9d, 0x9d, 0x9c, 0x9c, 0x9c, 0x9c,
136 0x9c, 0x9c, 0x9c, 0x9c, 0x9f, 0x9f, 0x9f, 0x9f, 0x9f, 0x9f, 0x9f, 0x9f,
137 0x9e, 0x9e, 0x9e, 0x9e, 0x9e, 0x9e, 0x9e, 0x9e, 0x99, 0x99, 0x99, 0x99,
138 0x99, 0x99, 0x99, 0x99, 0x98, 0x98, 0x98, 0x98, 0x98, 0x98, 0x98, 0x98,
139 0x9b, 0x9b, 0x9b, 0x9b, 0x9b, 0x9b, 0x9b, 0x9b, 0x9a, 0x9a, 0x9a, 0x9a,
140 0x9a, 0x9a, 0x9a, 0x9a, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85,
141 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x84, 0x84, 0x84, 0x84,
142 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84,
143 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87,
144 0x87, 0x87, 0x87, 0x87, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86,
145 0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x81, 0x81, 0x81, 0x81,
146 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
147 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80,
148 0x80, 0x80, 0x80, 0x80, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83,
149 0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x82, 0x82, 0x82, 0x82,
150 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82,
151 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d,
152 0x8d, 0x8d, 0x8d, 0x8d, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c,
153 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8f, 0x8f, 0x8f, 0x8f,
154 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f,
155 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e,
156 0x8e, 0x8e, 0x8e, 0x8e, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89,
157 0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x88, 0x88, 0x88, 0x88,
158 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88,
159 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b,
160 0x8b, 0x8b, 0x8b, 0x8b, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a,
161 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0xb5, 0xb5, 0xb5, 0xb5,
162 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5,
163 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5,
164 0xb5, 0xb5, 0xb5, 0xb5, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4,
165 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4,
166 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4,
167 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7,
168 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7,
169 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb6, 0xb6, 0xb6, 0xb6,
170 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6,
171 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6,
172 0xb6, 0xb6, 0xb6, 0xb6, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1,
173 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1,
174 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1,
175 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0,
176 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0,
177 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb3, 0xb3, 0xb3, 0xb3,
178 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3,
179 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3,
180 0xb3, 0xb3, 0xb3, 0xb3, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2,
181 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2,
182 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2,
183 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd,
184 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd,
185 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbc, 0xbc, 0xbc, 0xbc,
186 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc,
187 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc,
188 0xbc, 0xbc, 0xbc, 0xbc, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf,
189 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf,
190 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf,
191 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe,
192 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe,
193 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xb9, 0xb9, 0xb9, 0xb9,
194 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9,
195 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9,
196 0xb9, 0xb9, 0xb9, 0xb9, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8,
197 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8,
198 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8,
199 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb,
200 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb,
201 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xba, 0xba, 0xba, 0xba,
202 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba,
203 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba,
204 0xba, 0xba, 0xba, 0xba, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
205 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
206 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
207 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
208 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
209 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa4, 0xa4, 0xa4, 0xa4,
210 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
211 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
212 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
213 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
214 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
215 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
216 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
217 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
218 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
219 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
220 0xa7, 0xa7, 0xa7, 0xa7, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
221 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
222 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
223 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
224 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
225 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa1, 0xa1, 0xa1, 0xa1,
226 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
227 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
228 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
229 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
230 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
231 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
232 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
233 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
234 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
235 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
236 0xa0, 0xa0, 0xa0, 0xa0, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
237 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
238 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
239 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
240 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
241 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa2, 0xa2, 0xa2, 0xa2,
242 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
243 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
244 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
245 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
246 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
247 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
248 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
249 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
250 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
251 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
252 0xad, 0xad, 0xad, 0xad, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
253 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
254 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
255 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
256 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
257 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xaf, 0xaf, 0xaf, 0xaf,
258 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
259 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
260 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
261 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
262 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
263 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
264 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
265 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
266 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
267 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
268 0xae, 0xae, 0xae, 0xae, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
269 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
270 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
271 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
272 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
273 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa8, 0xa8, 0xa8, 0xa8,
274 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
275 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
276 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
277 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
278 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
279 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
280 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
281 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
282 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
283 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
284 0xab, 0xab, 0xab, 0xab, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
285 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
286 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
287 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
288 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
289 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0x2a
290 } ; /* alaw_encode */
291
292 static inline void
293 alaw2s_array (unsigned char *buffer, int count, short *ptr)
294 { while (--count >= 0)
295 ptr [count] = alaw_decode [(int) buffer [count]] ;
296 } /* alaw2s_array */
297
298 static inline void
299 alaw2i_array (unsigned char *buffer, int count, int *ptr)
300 { while (--count >= 0)
301 ptr [count] = alaw_decode [(int) buffer [count]] << 16 ;
302 } /* alaw2i_array */
303
304 static inline void
305 alaw2f_array (unsigned char *buffer, int count, float *ptr, float normfact)
306 { while (--count >= 0)
307 ptr [count] = normfact * alaw_decode [(int) buffer [count]] ;
308 } /* alaw2f_array */
309
310 static inline void
311 alaw2d_array (unsigned char *buffer, int count, double *ptr, double normfact)
312 { while (--count >= 0)
313 ptr [count] = normfact * alaw_decode [(int) buffer [count]] ;
314 } /* alaw2d_array */
315
316 static inline void
317 s2alaw_array (const short *ptr, int count, unsigned char *buffer)
318 { while (--count >= 0)
319 { if (ptr [count] >= 0)
320 buffer [count] = alaw_encode [ptr [count] / 16] ;
321 else
322 buffer [count] = 0x7F & alaw_encode [ptr [count] / -16] ;
323 } ;
324 } /* s2alaw_array */
325
326 static inline void
327 i2alaw_array (const int *ptr, int count, unsigned char *buffer)
328 { while (--count >= 0)
329 { if (ptr [count] >= 0)
330 buffer [count] = alaw_encode [ptr [count] >> (16 + 4)] ;
331 else
332 buffer [count] = 0x7F & alaw_encode [- ptr [count] >> (16 + 4)] ;
333 } ;
334 } /* i2alaw_array */
335
336 static inline void
337 f2alaw_array (const float *ptr, int count, unsigned char *buffer, float normfact)
338 { while (--count >= 0)
339 { if (ptr [count] >= 0)
340 buffer [count] = alaw_encode [lrintf (normfact * ptr [count])] ;
341 else
342 buffer [count] = 0x7F & alaw_encode [- lrintf (normfact * ptr [count])] ;
343 } ;
344 } /* f2alaw_array */
345
346 static inline void
347 d2alaw_array (const double *ptr, int count, unsigned char *buffer, double normfact)
348 { while (--count >= 0)
349 { if (ptr [count] >= 0)
350 buffer [count] = alaw_encode [lrint (normfact * ptr [count])] ;
351 else
352 buffer [count] = 0x7F & alaw_encode [- lrint (normfact * ptr [count])] ;
353 } ;
354 } /* d2alaw_array */
355
356 /*==============================================================================
357 */
358
359 static sf_count_t
360 alaw_read_alaw2s (SF_PRIVATE *psf, short *ptr, sf_count_t len)
361 { int bufferlen, readcount ;
362 sf_count_t total = 0 ;
363
364 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
365
366 while (len > 0)
367 { if (len < bufferlen)
368 bufferlen = (int) len ;
369 readcount = psf_fread (psf->u.ucbuf, 1, bufferlen, psf) ;
370 alaw2s_array (psf->u.ucbuf, readcount, ptr + total) ;
371 total += readcount ;
372 if (readcount < bufferlen)
373 break ;
374 len -= readcount ;
375 } ;
376
377 return total ;
378 } /* alaw_read_alaw2s */
379
380 static sf_count_t
381 alaw_read_alaw2i (SF_PRIVATE *psf, int *ptr, sf_count_t len)
382 { int bufferlen, readcount ;
383 sf_count_t total = 0 ;
384
385 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
386
387 while (len > 0)
388 { if (len < bufferlen)
389 bufferlen = (int) len ;
390 readcount = psf_fread (psf->u.ucbuf, 1, bufferlen, psf) ;
391 alaw2i_array (psf->u.ucbuf, readcount, ptr + total) ;
392 total += readcount ;
393 if (readcount < bufferlen)
394 break ;
395 len -= readcount ;
396 } ;
397
398 return total ;
399 } /* alaw_read_alaw2i */
400
401 static sf_count_t
402 alaw_read_alaw2f (SF_PRIVATE *psf, float *ptr, sf_count_t len)
403 { int bufferlen, readcount ;
404 sf_count_t total = 0 ;
405 float normfact ;
406
407 normfact = (psf->norm_float == SF_TRUE) ? 1.0 / ((float) 0x8000) : 1.0 ;
408
409 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
410
411 while (len > 0)
412 { if (len < bufferlen)
413 bufferlen = (int) len ;
414 readcount = psf_fread (psf->u.ucbuf, 1, bufferlen, psf) ;
415 alaw2f_array (psf->u.ucbuf, readcount, ptr + total, normfact) ;
416 total += readcount ;
417 if (readcount < bufferlen)
418 break ;
419 len -= readcount ;
420 } ;
421
422 return total ;
423 } /* alaw_read_alaw2f */
424
425 static sf_count_t
426 alaw_read_alaw2d (SF_PRIVATE *psf, double *ptr, sf_count_t len)
427 { int bufferlen, readcount ;
428 sf_count_t total = 0 ;
429 double normfact ;
430
431 normfact = (psf->norm_double) ? 1.0 / ((double) 0x8000) : 1.0 ;
432 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
433
434 while (len > 0)
435 { if (len < bufferlen)
436 bufferlen = (int) len ;
437 readcount = psf_fread (psf->u.ucbuf, 1, bufferlen, psf) ;
438 alaw2d_array (psf->u.ucbuf, readcount, ptr + total, normfact) ;
439 total += readcount ;
440 if (readcount < bufferlen)
441 break ;
442 len -= readcount ;
443 } ;
444
445 return total ;
446 } /* alaw_read_alaw2d */
447
448 /*=============================================================================================
449 */
450
451 static sf_count_t
452 alaw_write_s2alaw (SF_PRIVATE *psf, const short *ptr, sf_count_t len)
453 { int bufferlen, writecount ;
454 sf_count_t total = 0 ;
455
456 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
457
458 while (len > 0)
459 { if (len < bufferlen)
460 bufferlen = (int) len ;
461 s2alaw_array (ptr + total, bufferlen, psf->u.ucbuf) ;
462 writecount = psf_fwrite (psf->u.ucbuf, 1, bufferlen, psf) ;
463 total += writecount ;
464 if (writecount < bufferlen)
465 break ;
466 len -= writecount ;
467 } ;
468
469 return total ;
470 } /* alaw_write_s2alaw */
471
472 static sf_count_t
473 alaw_write_i2alaw (SF_PRIVATE *psf, const int *ptr, sf_count_t len)
474 { int bufferlen, writecount ;
475 sf_count_t total = 0 ;
476
477 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
478
479 while (len > 0)
480 { if (len < bufferlen)
481 bufferlen = (int) len ;
482 i2alaw_array (ptr + total, bufferlen, psf->u.ucbuf) ;
483 writecount = psf_fwrite (psf->u.ucbuf, 1, bufferlen, psf) ;
484 total += writecount ;
485 if (writecount < bufferlen)
486 break ;
487 len -= writecount ;
488 } ;
489
490 return total ;
491 } /* alaw_write_i2alaw */
492
493 static sf_count_t
494 alaw_write_f2alaw (SF_PRIVATE *psf, const float *ptr, sf_count_t len)
495 { int bufferlen, writecount ;
496 sf_count_t total = 0 ;
497 float normfact ;
498
499 normfact = (psf->norm_float == SF_TRUE) ? (1.0 * 0x7FFF) / 16.0 : 1.0 / 16 ;
500
501 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
502
503 while (len > 0)
504 { if (len < bufferlen)
505 bufferlen = (int) len ;
506 f2alaw_array (ptr + total, bufferlen, psf->u.ucbuf, normfact) ;
507 writecount = psf_fwrite (psf->u.ucbuf, 1, bufferlen, psf) ;
508 total += writecount ;
509 if (writecount < bufferlen)
510 break ;
511 len -= writecount ;
512 } ;
513
514 return total ;
515 } /* alaw_write_f2alaw */
516
517 static sf_count_t
518 alaw_write_d2alaw (SF_PRIVATE *psf, const double *ptr, sf_count_t len)
519 { int bufferlen, writecount ;
520 sf_count_t total = 0 ;
521 double normfact ;
522
523 normfact = (psf->norm_double) ? (1.0 * 0x7FFF) / 16.0 : 1.0 / 16.0 ;
524
525 bufferlen = ARRAY_LEN (psf->u.ucbuf) ;
526
527 while (len > 0)
528 { if (len < bufferlen)
529 bufferlen = (int) len ;
530 d2alaw_array (ptr + total, bufferlen, psf->u.ucbuf, normfact) ;
531 writecount = psf_fwrite (psf->u.ucbuf, 1, bufferlen, psf) ;
532 total += writecount ;
533 if (writecount < bufferlen)
534 break ;
535 len -= writecount ;
536 } ;
537
538 return total ;
539 } /* alaw_write_d2alaw */
540
An OCaml-based interpreter for Faust and its vector extension