1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
|
#ifndef _abcio_h_
#define _abcio_h_
/* abcio.h
*
* Copyright (C) 1992-2011 Paul Boersma
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or (at
* your option) any later version.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
* See the GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include "complex.h"
#include "melder.h"
#include "abcio_enums.h"
/* Numeric text input and output. */
int texgeti1 (MelderReadText text);
int texgeti2 (MelderReadText text);
long texgeti4 (MelderReadText text);
unsigned int texgetu1 (MelderReadText text);
unsigned int texgetu2 (MelderReadText text);
unsigned long texgetu4 (MelderReadText text);
double texgetr4 (MelderReadText text);
double texgetr8 (MelderReadText text);
double texgetr10 (MelderReadText text);
fcomplex texgetc8 (MelderReadText text);
dcomplex texgetc16 (MelderReadText text);
short texgete1 (MelderReadText text, int (*getValue) (const wchar_t *));
short texgete2 (MelderReadText text, int (*getValue) (const wchar_t *));
short texgeteb (MelderReadText text);
short texgeteq (MelderReadText text);
short texgetex (MelderReadText text);
char *texgets2 (MelderReadText text);
char *texgets4 (MelderReadText text);
wchar_t *texgetw2 (MelderReadText text);
wchar_t *texgetw4 (MelderReadText text);
void texindent (MelderFile file);
void texexdent (MelderFile file);
void texresetindent (MelderFile file);
void texputintro (MelderFile file, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputi1 (MelderFile file, int i, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputi2 (MelderFile file, int i, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputi4 (MelderFile file, long i, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputu1 (MelderFile file, unsigned int u, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputu2 (MelderFile file, unsigned int u, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputu4 (MelderFile file, unsigned long u, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputr4 (MelderFile file, double x, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputr8 (MelderFile file, double x, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputc8 (MelderFile file, fcomplex z, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputc16 (MelderFile file, dcomplex z, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texpute1 (MelderFile file, int i, const wchar_t * (*getText) (int), const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texpute2 (MelderFile file, int i, const wchar_t * (*getText) (int), const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputeb (MelderFile file, bool i, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputeq (MelderFile file, bool i, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputex (MelderFile file, bool i, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputs1 (MelderFile file, const char *s, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputs2 (MelderFile file, const char *s, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputs4 (MelderFile file, const char *s, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputw2 (MelderFile file, const wchar_t *s, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
void texputw4 (MelderFile file, const wchar_t *s, const wchar_t *s1, const wchar_t *s2, const wchar_t *s3, const wchar_t *s4, const wchar_t *s5, const wchar_t *s6);
/* Portable device-independent binary input and output. */
/* Works on all machines with 8-bit bytes and chars, and 2's complement integers. */
/* Works independent of byte order or floating-point implementations. */
/*
The 42 routines are analogous to fgetc and fputc, who read or write one character:
int fgetc (FILE *f); int fputc (int c, FILE *f); // 0..255
*/
unsigned int bingetu1 (FILE *f); void binputu1 (unsigned int i, FILE *f); /* 0..255 */
unsigned int bingetu2 (FILE *f); void binputu2 (unsigned int i, FILE *f); /* 0..65535 */
unsigned long bingetu4 (FILE *f); void binputu4 (unsigned long i, FILE *f); /* 0..4294967295 */
int bingeti1 (FILE *f); void binputi1 (int i, FILE *f); /* -128..127 */
int bingeti2 (FILE *f); void binputi2 (int i, FILE *f); /* -32768..32767 */
long bingeti3 (FILE *f); void binputi3 (long i, FILE *f); /* -8388608..2148388607 */
long bingeti4 (FILE *f); void binputi4 (long i, FILE *f); /* -2147483648..2147483647 */
/*
Read or write signed or unsigned integers from or to 2 or 4 bytes in the stream 'f',
in big-endian byte order (most significant byte first).
This is the native integer format on Macintosh and Silicon Graphics Iris.
*/
int bingeti2LE (FILE *f); void binputi2LE (int i, FILE *f); /* -32768..32767 */
long bingeti3LE (FILE *f); void binputi3LE (long i, FILE *f); /* -8388608..2148388607 */
long bingeti4LE (FILE *f); void binputi4LE (long i, FILE *f); /* -2147483648..2147483647 */
unsigned int bingetu2LE (FILE *f); void binputu2LE (unsigned int i, FILE *f); /* 0..65535 */
unsigned long bingetu4LE (FILE *f); void binputu4LE (unsigned long i, FILE *f); /* 0..4294967295 */
/*
Read or write signed or unsigned integers from or to 2 or 4 bytes in the stream 'f',
in little-endian byte order (least significant byte first).
This is the native integer format on Vax and IBM PC.
*/
unsigned int bingetb1 (FILE *f); void binputb1 (unsigned int value, FILE *f); /* 0..1*/
unsigned int bingetb2 (FILE *f); void binputb2 (unsigned int value, FILE *f); /* 0..3 */
unsigned int bingetb3 (FILE *f); void binputb3 (unsigned int value, FILE *f); /* 0..7 */
unsigned int bingetb4 (FILE *f); void binputb4 (unsigned int value, FILE *f); /* 0..15 */
unsigned int bingetb5 (FILE *f); void binputb5 (unsigned int value, FILE *f); /* 0..31 */
unsigned int bingetb6 (FILE *f); void binputb6 (unsigned int value, FILE *f); /* 0..63 */
unsigned int bingetb7 (FILE *f); void binputb7 (unsigned int value, FILE *f); /* 0..127 */
void bingetb (FILE *f); void binputb (FILE *f);
/*
Read or write an unsigned integer from or to a number of bits in the stream 'f'.
After an uninterrupted sequence of bingetbxxx or binputbxxx, call bingetb or binputb.
Not reentrant: uses a static one-byte buffer. Do not call from interrupt routines.
Example 1:
int hasTitle = bingetb1 (f); // One bit.
int category = bingetb3 (f); // A number in the range 0..7.
int sense = bingetb2 (f); // A number in the range 0..3.
bingetb (f);
Example 2:
binputb1 (hasTitle, f); // One bit.
binputb3 (category, f); // A number in the range 0..7.
binputb2 (sense, f); // A number in the range 0..3.
binputb (f);
*/
int bingete1 (FILE *f, int min, int max, const wchar_t *type);
int bingete2 (FILE *f, int min, int max, const wchar_t *type);
#define bingeteb bingeti1
#define bingeteq bingeti1
#define bingetex bingeti1
void binpute1 (int value, FILE *f);
void binpute2 (int value, FILE *f);
#define binputeb binputi1
#define binputeq binputi1
#define binputex binputi1
double bingetr4 (FILE *f); void binputr4 (double x, FILE *f);
/*
Read or write a real number from or to 4 bytes in the stream 'f',
in IEEE single-precision binary real format, with the most significant bit first.
NaN's (Not-a-Numbers) and infinities get the value HUGE, which equals infinity on IEEE machines.
Absolute values of normalized numbers (23 bits precision): 1.2e-38 .. 3.4e38.
Denormalized: from 1.4e-45.
This is the native format of a 'float' on Macintosh and Silicon Graphics Iris.
*/
double bingetr4LE (FILE *f); void binputr4LE (double x, FILE *f); // Least significant bit first.
double bingetr8 (FILE *f); void binputr8 (double x, FILE *f);
/*
Read or write a real number from or to 8 bytes in the stream 'f',
in IEEE double-precision binary real format, with the most significant bit first.
NaN's (Not-a-Numbers) and infinities get the value HUGE, which equals infinity on IEEE machines.
Absolute values of normalized numbers (52 bits precision): 2.2e-308 .. 1.8e308.
Denormalized: from 4.9e-324.
This is the native format of a 'double' on Silicon Graphics Iris and PowerMac.
*/
double bingetr10 (FILE *f); void binputr10 (double x, FILE *f);
/*
Read or write a real number from or to 10 bytes in the stream 'f',
in IEEE extended-precision binary real format, with the most significant bit first,
as implemented in Motorola's MC68881 floating-point coprocessor.
NaN's (Not-a-Numbers) and infinities get the value HUGE, which equals infinity on IEEE machines.
Absolute values of normalized numbers (63 bits precision): 8e-4933 .. 6e4931.
Denormalized: from 9e-4952.
This format is used to encode the sampling rate in AIFF (Audio Interchange File Format) files,
and is the native format of a 'double' on 68k Macintosh.
*/
fcomplex bingetc8 (FILE *f);
dcomplex bingetc16 (FILE *f);
void binputc8 (fcomplex z, FILE *f);
void binputc16 (dcomplex z, FILE *f);
char * bingets1 (FILE *f); void binputs1 (const char *s, FILE *f); /* 0..255 characters. */
char * bingets2 (FILE *f); void binputs2 (const char *s, FILE *f); /* 0..65535 characters. */
char * bingets4 (FILE *f); void binputs4 (const char *s, FILE *f); /* 0..4294967295 characters. */
/*
Read or write a string from or to wcslen (s) UTF-16LE or ASCII characters + 1, 2, or 4 bytes in the stream 'f',
in a Pascal-style format: first the length, then the characters, without a trailing null byte.
bingetsxxx returns a new 'malloc'ed null-terminated C string (for the caller to 'free' it),
or NULL if out of memory.
binputsxxx expects a null-terminated C string whose 'wcslen' fits in 1, 2, or 4 bytes.
*/
wchar_t * bingetw1 (FILE *f); void binputw1 (const wchar_t *s, FILE *f);
wchar_t * bingetw2 (FILE *f); void binputw2 (const wchar_t *s, FILE *f);
wchar_t * bingetw4 (FILE *f); void binputw4 (const wchar_t *s, FILE *f);
/********** cache I/O **********/
typedef struct { unsigned char *ptr, *base, *max; } CACHE;
CACHE * memopen (size_t nbytes);
/* The following routines are completely analogous to fxxx, although they do not check for overflow. */
int memclose (CACHE *f);
size_t memread (void *ptr, size_t size, size_t nmemb, CACHE *m);
size_t memwrite (const void *ptr, size_t size, size_t nmemb, CACHE *m);
int memseek (CACHE *f, long offset, int whence); /* No SEEK_END. */
long memtell (CACHE *f);
void memrewind (CACHE *me);
void memprint1 (CACHE *me, const char *s1);
void memprint2 (CACHE *me, const char *s1, const char *s2);
void memprint3 (CACHE *me, const char *s1, const char *s2, const char *s3);
void memprint4 (CACHE *me, const char *s1, const char *s2, const char *s3, const char *s4);
void memprint5 (CACHE *me, const char *s1, const char *s2, const char *s3, const char *s4, const char *s5);
/*
Portable device-independent binary input and output from and to a CACHE.
This rest of this header file is completely analogous to binario.h, with only the following changes:
bingetxxx replaced by cacgetxxx;
binputxxx replaced by cacputxxx;
FILE replaced by CACHE;
*/
unsigned int cacgetb1 (CACHE *f); void cacputb1 (unsigned int value, CACHE *f);
unsigned int cacgetb2 (CACHE *f); void cacputb2 (unsigned int value, CACHE *f);
unsigned int cacgetb3 (CACHE *f); void cacputb3 (unsigned int value, CACHE *f);
unsigned int cacgetb4 (CACHE *f); void cacputb4 (unsigned int value, CACHE *f);
unsigned int cacgetb5 (CACHE *f); void cacputb5 (unsigned int value, CACHE *f);
unsigned int cacgetb6 (CACHE *f); void cacputb6 (unsigned int value, CACHE *f);
unsigned int cacgetb7 (CACHE *f); void cacputb7 (unsigned int value, CACHE *f);
void cacgetb (CACHE *f); void cacputb (CACHE *f);
unsigned int cacgetu1 (CACHE *f); void cacputu1 (unsigned int u, CACHE *f);
unsigned int cacgetu2 (CACHE *f); void cacputu2 (unsigned int i, CACHE *f);
unsigned long cacgetu4 (CACHE *f); void cacputu4 (unsigned long i, CACHE *f);
int cacgete1 (CACHE *f, const wchar_t *type); void cacpute1 (int value, CACHE *f);
int cacgete2 (CACHE *f, const wchar_t *type); void cacpute2 (int value, CACHE *f);
#define cacgeteb cacgeti1
#define cacgeteq cacgeti1
#define cacgetex cacgeti1
#define cacputeb cacputi1
#define cacputeq cacputi1
#define cacputex cacputi1
int cacgeti1 (CACHE *f); void cacputi1 (int i, CACHE *f);
int cacgeti2 (CACHE *f); void cacputi2 (int i, CACHE *f);
long cacgeti4 (CACHE *f); void cacputi4 (long i, CACHE *f);
int cacgeti2LE (CACHE *f); void cacputi2LE (int i, CACHE *f);
double cacgetr4 (CACHE *f); void cacputr4 (double x, CACHE *f);
double cacgetr8 (CACHE *f); void cacputr8 (double x, CACHE *f);
double cacgetr10 (CACHE *f); void cacputr10 (double x, CACHE *f);
fcomplex cacgetc8 (CACHE *f);
dcomplex cacgetc16 (CACHE *f);
void cacputc8 (fcomplex z, CACHE *f);
void cacputc16 (dcomplex z, CACHE *f);
long cacgeti4LE (CACHE *f); void cacputi4LE (long i, CACHE *f);
unsigned int cacgetu2LE (CACHE *f); void cacputu2LE (unsigned int i, CACHE *f);
unsigned long cacgetu4LE (CACHE *f); void cacputu4LE (unsigned long i, CACHE *f);
char * cacgets1 (CACHE *f); void cacputs1 (const char *s, CACHE *f);
char * cacgets2 (CACHE *f); void cacputs2 (const char *s, CACHE *f);
char * cacgets4 (CACHE *f); void cacputs4 (const char *s, CACHE *f);
/* End of file abcio.h */
#endif
|
