Merge branch 'master' of https://scm.cri.ensmp.fr/git/Faustine
[Faustine.git] / interpretor / lib / src / libsndfile-1.0.25 / programs / sndfile-convert.c
1 /*
2 ** Copyright (C) 1999-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
3 **
4 ** All rights reserved.
5 **
6 ** Redistribution and use in source and binary forms, with or without
7 ** modification, are permitted provided that the following conditions are
8 ** met:
9 **
10 ** * Redistributions of source code must retain the above copyright
11 ** notice, this list of conditions and the following disclaimer.
12 ** * Redistributions in binary form must reproduce the above copyright
13 ** notice, this list of conditions and the following disclaimer in
14 ** the documentation and/or other materials provided with the
15 ** distribution.
16 ** * Neither the author nor the names of any contributors may be used
17 ** to endorse or promote products derived from this software without
18 ** specific prior written permission.
19 **
20 ** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
21 ** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
22 ** TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
23 ** PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
24 ** CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
25 ** EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
26 ** PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
27 ** OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
28 ** WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
29 ** OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
30 ** ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31 */
32
33 #include <stdio.h>
34 #include <stdlib.h>
35 #include <string.h>
36 #include <ctype.h>
37
38 #include <sndfile.h>
39
40 #include "common.h"
41
42
43 typedef struct
44 { char *infilename, *outfilename ;
45 SF_INFO infileinfo, outfileinfo ;
46 } OptionData ;
47
48 static void copy_metadata (SNDFILE *outfile, SNDFILE *infile, int channels) ;
49
50 static void
51 usage_exit (const char *progname)
52 {
53 printf ("\nUsage : %s [options] [encoding] <input file> <output file>\n", progname) ;
54 puts ("\n"
55 " where [option] may be:\n\n"
56 " -override-sample-rate=X : force sample rate of input to X\n"
57 ) ;
58
59 puts (
60 " where [encoding] may be one of the following:\n\n"
61 " -pcms8 : force the output to signed 8 bit pcm\n"
62 " -pcmu8 : force the output to unsigned 8 bit pcm\n"
63 " -pcm16 : force the output to 16 bit pcm\n"
64 " -pcm24 : force the output to 24 bit pcm\n"
65 " -pcm32 : force the output to 32 bit pcm\n"
66 " -float32 : force the output to 32 bit floating point"
67 ) ;
68 puts (
69 " -ulaw : force the output ULAW\n"
70 " -alaw : force the output ALAW\n"
71 " -ima-adpcm : force the output to IMA ADPCM (WAV only)\n"
72 " -ms-adpcm : force the output to MS ADPCM (WAV only)\n"
73 " -gsm610 : force the GSM6.10 (WAV only)\n"
74 " -dwvw12 : force the output to 12 bit DWVW (AIFF only)\n"
75 " -dwvw16 : force the output to 16 bit DWVW (AIFF only)\n"
76 " -dwvw24 : force the output to 24 bit DWVW (AIFF only)\n"
77 " -vorbis : force the output to Vorbis (OGG only)\n"
78 ) ;
79
80 puts (
81 " The format of the output file is determined by the file extension of the\n"
82 " output file name. The following extensions are currently understood:\n"
83 ) ;
84
85 sfe_dump_format_map () ;
86
87 puts ("") ;
88 exit (0) ;
89 } /* usage_exit */
90
91 int
92 main (int argc, char * argv [])
93 { const char *progname, *infilename, *outfilename ;
94 SNDFILE *infile = NULL, *outfile = NULL ;
95 SF_INFO sfinfo ;
96 int k, outfilemajor, outfileminor = 0, infileminor ;
97 int override_sample_rate = 0 ; /* assume no sample rate override. */
98
99 progname = program_name (argv [0]) ;
100
101 if (argc < 3 || argc > 5)
102 { usage_exit (progname) ;
103 return 1 ;
104 } ;
105
106 infilename = argv [argc-2] ;
107 outfilename = argv [argc-1] ;
108
109 if (strcmp (infilename, outfilename) == 0)
110 { printf ("Error : Input and output filenames are the same.\n\n") ;
111 usage_exit (progname) ;
112 return 1 ;
113 } ;
114
115 if (strlen (infilename) > 1 && infilename [0] == '-')
116 { printf ("Error : Input filename (%s) looks like an option.\n\n", infilename) ;
117 usage_exit (progname) ;
118 return 1 ;
119 } ;
120
121 if (outfilename [0] == '-')
122 { printf ("Error : Output filename (%s) looks like an option.\n\n", outfilename) ;
123 usage_exit (progname) ;
124 return 1 ;
125 } ;
126
127 for (k = 1 ; k < argc - 2 ; k++)
128 { if (! strcmp (argv [k], "-pcms8"))
129 { outfileminor = SF_FORMAT_PCM_S8 ;
130 continue ;
131 } ;
132 if (! strcmp (argv [k], "-pcmu8"))
133 { outfileminor = SF_FORMAT_PCM_U8 ;
134 continue ;
135 } ;
136 if (! strcmp (argv [k], "-pcm16"))
137 { outfileminor = SF_FORMAT_PCM_16 ;
138 continue ;
139 } ;
140 if (! strcmp (argv [k], "-pcm24"))
141 { outfileminor = SF_FORMAT_PCM_24 ;
142 continue ;
143 } ;
144 if (! strcmp (argv [k], "-pcm32"))
145 { outfileminor = SF_FORMAT_PCM_32 ;
146 continue ;
147 } ;
148 if (! strcmp (argv [k], "-float32"))
149 { outfileminor = SF_FORMAT_FLOAT ;
150 continue ;
151 } ;
152 if (! strcmp (argv [k], "-ulaw"))
153 { outfileminor = SF_FORMAT_ULAW ;
154 continue ;
155 } ;
156 if (! strcmp (argv [k], "-alaw"))
157 { outfileminor = SF_FORMAT_ALAW ;
158 continue ;
159 } ;
160 if (! strcmp (argv [k], "-ima-adpcm"))
161 { outfileminor = SF_FORMAT_IMA_ADPCM ;
162 continue ;
163 } ;
164 if (! strcmp (argv [k], "-ms-adpcm"))
165 { outfileminor = SF_FORMAT_MS_ADPCM ;
166 continue ;
167 } ;
168 if (! strcmp (argv [k], "-gsm610"))
169 { outfileminor = SF_FORMAT_GSM610 ;
170 continue ;
171 } ;
172 if (! strcmp (argv [k], "-dwvw12"))
173 { outfileminor = SF_FORMAT_DWVW_12 ;
174 continue ;
175 } ;
176 if (! strcmp (argv [k], "-dwvw16"))
177 { outfileminor = SF_FORMAT_DWVW_16 ;
178 continue ;
179 } ;
180 if (! strcmp (argv [k], "-dwvw24"))
181 { outfileminor = SF_FORMAT_DWVW_24 ;
182 continue ;
183 } ;
184 if (! strcmp (argv [k], "-vorbis"))
185 { outfileminor = SF_FORMAT_VORBIS ;
186 continue ;
187 } ;
188
189 if (strstr (argv [k], "-override-sample-rate=") == argv [k])
190 { const char *ptr ;
191
192 ptr = argv [k] + strlen ("-override-sample-rate=") ;
193 override_sample_rate = atoi (ptr) ;
194 continue ;
195 } ;
196
197 printf ("Error : Not able to decode argunment '%s'.\n", argv [k]) ;
198 exit (1) ;
199 } ;
200
201 memset (&sfinfo, 0, sizeof (sfinfo)) ;
202
203 if ((infile = sf_open (infilename, SFM_READ, &sfinfo)) == NULL)
204 { printf ("Not able to open input file %s.\n", infilename) ;
205 puts (sf_strerror (NULL)) ;
206 return 1 ;
207 } ;
208
209 /* Update sample rate if forced to something else. */
210 if (override_sample_rate)
211 sfinfo.samplerate = override_sample_rate ;
212
213 infileminor = sfinfo.format & SF_FORMAT_SUBMASK ;
214
215 if ((sfinfo.format = sfe_file_type_of_ext (outfilename, sfinfo.format)) == 0)
216 { printf ("Error : Not able to determine output file type for %s.\n", outfilename) ;
217 return 1 ;
218 } ;
219
220 outfilemajor = sfinfo.format & (SF_FORMAT_TYPEMASK | SF_FORMAT_ENDMASK) ;
221
222 if (outfileminor == 0)
223 outfileminor = sfinfo.format & SF_FORMAT_SUBMASK ;
224
225 if (outfileminor != 0)
226 sfinfo.format = outfilemajor | outfileminor ;
227 else
228 sfinfo.format = outfilemajor | (sfinfo.format & SF_FORMAT_SUBMASK) ;
229
230 if ((sfinfo.format & SF_FORMAT_TYPEMASK) == SF_FORMAT_XI)
231 switch (sfinfo.format & SF_FORMAT_SUBMASK)
232 { case SF_FORMAT_PCM_16 :
233 sfinfo.format = outfilemajor | SF_FORMAT_DPCM_16 ;
234 break ;
235
236 case SF_FORMAT_PCM_S8 :
237 case SF_FORMAT_PCM_U8 :
238 sfinfo.format = outfilemajor | SF_FORMAT_DPCM_8 ;
239 break ;
240 } ;
241
242 if (sf_format_check (&sfinfo) == 0)
243 { printf ("Error : output file format is invalid (0x%08X).\n", sfinfo.format) ;
244 return 1 ;
245 } ;
246
247 /* Open the output file. */
248 if ((outfile = sf_open (outfilename, SFM_WRITE, &sfinfo)) == NULL)
249 { printf ("Not able to open output file %s : %s\n", outfilename, sf_strerror (NULL)) ;
250 return 1 ;
251 } ;
252
253 /* Copy the metadata */
254 copy_metadata (outfile, infile, sfinfo.channels) ;
255
256 if ((outfileminor == SF_FORMAT_DOUBLE) || (outfileminor == SF_FORMAT_FLOAT)
257 || (infileminor == SF_FORMAT_DOUBLE) || (infileminor == SF_FORMAT_FLOAT)
258 || (infileminor == SF_FORMAT_VORBIS) || (outfileminor == SF_FORMAT_VORBIS))
259 sfe_copy_data_fp (outfile, infile, sfinfo.channels) ;
260 else
261 sfe_copy_data_int (outfile, infile, sfinfo.channels) ;
262
263 sf_close (infile) ;
264 sf_close (outfile) ;
265
266 return 0 ;
267 } /* main */
268
269 static void
270 copy_metadata (SNDFILE *outfile, SNDFILE *infile, int channels)
271 { SF_INSTRUMENT inst ;
272 SF_BROADCAST_INFO_2K binfo ;
273 const char *str ;
274 int k, chanmap [256] ;
275
276 for (k = SF_STR_FIRST ; k <= SF_STR_LAST ; k++)
277 { str = sf_get_string (infile, k) ;
278 if (str != NULL)
279 sf_set_string (outfile, k, str) ;
280 } ;
281
282 memset (&inst, 0, sizeof (inst)) ;
283 memset (&binfo, 0, sizeof (binfo)) ;
284
285 if (channels < ARRAY_LEN (chanmap))
286 { size_t size = channels * sizeof (chanmap [0]) ;
287
288 if (sf_command (infile, SFC_GET_CHANNEL_MAP_INFO, chanmap, size) == SF_TRUE)
289 sf_command (outfile, SFC_SET_CHANNEL_MAP_INFO, chanmap, size) ;
290 } ;
291
292 if (sf_command (infile, SFC_GET_INSTRUMENT, &inst, sizeof (inst)) == SF_TRUE)
293 sf_command (outfile, SFC_SET_INSTRUMENT, &inst, sizeof (inst)) ;
294
295 if (sf_command (infile, SFC_GET_BROADCAST_INFO, &binfo, sizeof (binfo)) == SF_TRUE)
296 sf_command (outfile, SFC_SET_BROADCAST_INFO, &binfo, sizeof (binfo)) ;
297
298 } /* copy_metadata */
299