libsndfile compiling.
[Faustine.git] / interpretor / lib / src / libsndfile-1.0.25 / tests / multi_file_test.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 General Public License as published by
6 ** the Free Software Foundation; either version 2 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 General Public License for more details.
13 **
14 ** You should have received a copy of the GNU 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
24 #if HAVE_UNISTD_H
25 #include <unistd.h>
26 #endif
27
28 #if (HAVE_DECL_S_IRGRP == 0)
29 #include <sf_unistd.h>
30 #endif
31
32 #include <fcntl.h>
33 #include <math.h>
34 #include <string.h>
35 #include <errno.h>
36 #include <sys/stat.h>
37
38 #include <sndfile.h>
39
40 #include "utils.h"
41
42 #define DATA_LENGTH (512)
43
44 static void write_file_at_end (int fd, int filetype, int channels, int file_num) ;
45
46 static void multi_file_test (const char *filename, int *formats, int format_count) ;
47
48 static short data [DATA_LENGTH] ;
49
50 static int wav_formats [] =
51 { SF_FORMAT_WAV | SF_FORMAT_PCM_16,
52 SF_FORMAT_WAV | SF_FORMAT_PCM_24,
53 SF_FORMAT_WAV | SF_FORMAT_ULAW,
54 SF_FORMAT_WAV | SF_FORMAT_ALAW,
55 /* Lite remove start */
56 SF_FORMAT_WAV | SF_FORMAT_IMA_ADPCM,
57 SF_FORMAT_WAV | SF_FORMAT_MS_ADPCM,
58 /* Lite remove end */
59 /*-SF_FORMAT_WAV | SF_FORMAT_GSM610 Doesn't work yet. -*/
60 } ;
61
62 static int aiff_formats [] =
63 { SF_FORMAT_AIFF | SF_FORMAT_PCM_16,
64 SF_FORMAT_AIFF | SF_FORMAT_PCM_24,
65 SF_FORMAT_AIFF | SF_FORMAT_ULAW,
66 SF_FORMAT_AIFF | SF_FORMAT_ALAW
67 } ;
68
69 static int au_formats [] =
70 { SF_FORMAT_AU | SF_FORMAT_PCM_16,
71 SF_FORMAT_AU | SF_FORMAT_PCM_24,
72 SF_FORMAT_AU | SF_FORMAT_ULAW,
73 SF_FORMAT_AU | SF_FORMAT_ALAW
74 } ;
75
76 static int verbose = SF_FALSE ;
77
78 int
79 main (int argc, char **argv)
80 { int do_all = 0 ;
81 int test_count = 0 ;
82
83 if (argc == 3 && strcmp (argv [2], "-v") == 0)
84 { verbose = SF_TRUE ;
85 argc -- ;
86 } ;
87
88 if (argc != 2)
89 { printf ("Usage : %s <test>\n", argv [0]) ;
90 printf (" Where <test> is one of the following:\n") ;
91 printf (" wav - test WAV file functions (little endian)\n") ;
92 printf (" aiff - test AIFF file functions (big endian)\n") ;
93 printf (" au - test AU file functions\n") ;
94 #if 0
95 printf (" svx - test 8SVX/16SV file functions\n") ;
96 printf (" nist - test NIST Sphere file functions\n") ;
97 printf (" ircam - test IRCAM file functions\n") ;
98 printf (" voc - Create Voice file functions\n") ;
99 printf (" w64 - Sonic Foundry's W64 file functions\n") ;
100 #endif
101 printf (" all - perform all tests\n") ;
102 exit (1) ;
103 } ;
104
105 do_all = !strcmp (argv [1], "all") ;
106
107 if (do_all || ! strcmp (argv [1], "wav"))
108 { multi_file_test ("multi_wav.dat", wav_formats, ARRAY_LEN (wav_formats)) ;
109 test_count++ ;
110 } ;
111
112 if (do_all || ! strcmp (argv [1], "aiff"))
113 { multi_file_test ("multi_aiff.dat", aiff_formats, ARRAY_LEN (aiff_formats)) ;
114 test_count++ ;
115 } ;
116
117 if (do_all || ! strcmp (argv [1], "au"))
118 { multi_file_test ("multi_au.dat", au_formats, ARRAY_LEN (au_formats)) ;
119 test_count++ ;
120 } ;
121
122 return 0 ;
123 } /* main */
124
125 /*======================================================================================
126 */
127
128 static void
129 multi_file_test (const char *filename, int *formats, int format_count)
130 { SNDFILE *sndfile ;
131 SF_INFO sfinfo ;
132 SF_EMBED_FILE_INFO embed_info ;
133 sf_count_t filelen ;
134 int fd, k, file_count = 0 ;
135
136 print_test_name ("multi_file_test", filename) ;
137
138 unlink (filename) ;
139
140 if ((fd = open (filename, O_RDWR | O_CREAT, S_IRUSR | S_IWUSR)) < 0)
141 { printf ("\n\nLine %d: open failed : %s\n", __LINE__, strerror (errno)) ;
142 exit (1) ;
143 } ;
144
145 k = write (fd, "1234", 4) ;
146
147 for (k = 0 ; k < format_count ; k++)
148 write_file_at_end (fd, formats [k], 2, k) ;
149
150 filelen = file_length_fd (fd) ;
151
152 embed_info.offset = 4 ;
153 embed_info.length = 0 ;
154
155
156 for (file_count = 1 ; embed_info.offset + embed_info.length < filelen ; file_count ++)
157 {
158 if (verbose)
159 { puts ("\n------------------------------------") ;
160 printf ("This offset : %ld\n", SF_COUNT_TO_LONG (embed_info.offset + embed_info.length)) ;
161 } ;
162
163 if (lseek (fd, embed_info.offset + embed_info.length, SEEK_SET) < 0)
164 { printf ("\n\nLine %d: lseek failed : %s\n", __LINE__, strerror (errno)) ;
165 exit (1) ;
166 } ;
167
168 memset (&sfinfo, 0, sizeof (sfinfo)) ;
169 if ((sndfile = sf_open_fd (fd, SFM_READ, &sfinfo, SF_FALSE)) == NULL)
170 { printf ("\n\nLine %d: sf_open_fd failed\n", __LINE__) ;
171 printf ("Embedded file number : %d offset : %ld\n", file_count, SF_COUNT_TO_LONG (embed_info.offset)) ;
172 puts (sf_strerror (sndfile)) ;
173 dump_log_buffer (sndfile) ;
174 exit (1) ;
175 } ;
176
177 sf_command (sndfile, SFC_GET_EMBED_FILE_INFO, &embed_info, sizeof (embed_info)) ;
178
179 sf_close (sndfile) ;
180
181 if (verbose)
182 printf ("\nNext offset : %ld\nNext length : %ld\n", SF_COUNT_TO_LONG (embed_info.offset), SF_COUNT_TO_LONG (embed_info.length)) ;
183 } ;
184
185 file_count -- ;
186
187 if (file_count != format_count)
188 { printf ("\n\nLine %d: file count (%d) not equal to %d.\n\n", __LINE__, file_count, format_count) ;
189 printf ("Embedded file number : %d\n", file_count) ;
190 exit (1) ;
191 } ;
192
193 close (fd) ;
194 unlink (filename) ;
195 printf ("ok\n") ;
196
197 return ;
198 } /* multi_file_test */
199
200 /*======================================================================================
201 */
202
203 static void
204 write_file_at_end (int fd, int filetype, int channels, int file_num)
205 { SNDFILE *sndfile ;
206 SF_INFO sfinfo ;
207
208 int frames, k ;
209
210 lseek (fd, 0, SEEK_END) ;
211
212 for (k = 0 ; k < DATA_LENGTH ; k++)
213 data [k] = k ;
214
215 frames = DATA_LENGTH / channels ;
216
217 sfinfo.format = filetype ;
218 sfinfo.channels = channels ;
219 sfinfo.samplerate = 44100 ;
220
221 if ((sndfile = sf_open_fd (fd, SFM_WRITE, &sfinfo, SF_FALSE)) == NULL)
222 { printf ("\n\nLine %d: sf_open_fd failed\n", __LINE__) ;
223 printf ("Embedded file number : %d\n", file_num) ;
224 puts (sf_strerror (sndfile)) ;
225 dump_log_buffer (sndfile) ;
226 exit (1) ;
227 } ;
228
229 if (sf_writef_short (sndfile, data, frames) != frames)
230 { printf ("\n\nLine %d: short write\n", __LINE__) ;
231 printf ("Embedded file number : %d\n", file_num) ;
232 exit (1) ;
233 } ;
234
235 sf_close (sndfile) ;
236 } /* write_file_at_end */
237