cannam@125: /*
cannam@125: ** Copyright (C) 1999-2014 Erik de Castro Lopo <erikd@mega-nerd.com>
cannam@125: **
cannam@125: ** All rights reserved.
cannam@125: **
cannam@125: ** Redistribution and use in source and binary forms, with or without
cannam@125: ** modification, are permitted provided that the following conditions are
cannam@125: ** met:
cannam@125: **
cannam@125: **     * Redistributions of source code must retain the above copyright
cannam@125: **       notice, this list of conditions and the following disclaimer.
cannam@125: **     * Redistributions in binary form must reproduce the above copyright
cannam@125: **       notice, this list of conditions and the following disclaimer in
cannam@125: **       the documentation and/or other materials provided with the
cannam@125: **       distribution.
cannam@125: **     * Neither the author nor the names of any contributors may be used
cannam@125: **       to endorse or promote products derived from this software without
cannam@125: **       specific prior written permission.
cannam@125: **
cannam@125: ** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
cannam@125: ** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
cannam@125: ** TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
cannam@125: ** PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
cannam@125: ** CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
cannam@125: ** EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
cannam@125: ** PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
cannam@125: ** OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
cannam@125: ** WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
cannam@125: ** OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
cannam@125: ** ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
cannam@125: */
cannam@125: 
cannam@125: #include <stdio.h>
cannam@125: #include <stdlib.h>
cannam@125: #include <string.h>
cannam@125: #include <ctype.h>
cannam@125: 
cannam@125: #include <sndfile.h>
cannam@125: 
cannam@125: #include "common.h"
cannam@125: 
cannam@125: 
cannam@125: typedef	struct
cannam@125: {	char	*infilename, *outfilename ;
cannam@125: 	SF_INFO	infileinfo, outfileinfo ;
cannam@125: } OptionData ;
cannam@125: 
cannam@125: static void copy_metadata (SNDFILE *outfile, SNDFILE *infile, int channels) ;
cannam@125: 
cannam@125: static void
cannam@125: usage_exit (const char *progname)
cannam@125: {
cannam@125: 	printf ("\nUsage : %s [options] [encoding] <input file> <output file>\n", progname) ;
cannam@125: 	puts ("\n"
cannam@125: 		"    where [option] may be:\n\n"
cannam@125: 		"        -override-sample-rate=X  : force sample rate of input to X\n"
cannam@125: 		"        -endian=little           : force output file to little endian data\n"
cannam@125: 		"        -endian=big              : force output file to big endian data\n"
cannam@125: 		"        -endian=cpu              : force output file same endian-ness as the CPU\n"
cannam@125: 		"        -normalize               : normalize the data in the output file\n"
cannam@125: 		) ;
cannam@125: 
cannam@125: 	puts (
cannam@125: 		"    where [encoding] may be one of the following:\n\n"
cannam@125: 		"        -pcms8     : signed 8 bit pcm\n"
cannam@125: 		"        -pcmu8     : unsigned 8 bit pcm\n"
cannam@125: 		"        -pcm16     : 16 bit pcm\n"
cannam@125: 		"        -pcm24     : 24 bit pcm\n"
cannam@125: 		"        -pcm32     : 32 bit pcm\n"
cannam@125: 		"        -float32   : 32 bit floating point\n"
cannam@125: 		"        -ulaw      : ULAW\n"
cannam@125: 		"        -alaw      : ALAW\n"
cannam@125: 		"        -alac16    : 16 bit ALAC (CAF only)\n"
cannam@125: 		"        -alac20    : 20 bit ALAC (CAF only)\n"
cannam@125: 		"        -alac24    : 24 bit ALAC (CAF only)\n"
cannam@125: 		"        -alac32    : 32 bit ALAC (CAF only)\n"
cannam@125: 		"        -ima-adpcm : IMA ADPCM (WAV only)\n"
cannam@125: 		"        -ms-adpcm  : MS ADPCM (WAV only)\n"
cannam@125: 		"        -gsm610    : GSM6.10 (WAV only)\n"
cannam@125: 		"        -dwvw12    : 12 bit DWVW (AIFF only)\n"
cannam@125: 		"        -dwvw16    : 16 bit DWVW (AIFF only)\n"
cannam@125: 		"        -dwvw24    : 24 bit DWVW (AIFF only)\n"
cannam@125: 		"        -vorbis    : Vorbis (OGG only)\n"
cannam@125: 		) ;
cannam@125: 
cannam@125: 	puts (
cannam@125: 		"    If no encoding is specified, the program will try to use the encoding\n"
cannam@125: 		"    of the input file in the output file. This will not always work as\n"
cannam@125: 		"    most container formats (eg WAV, AIFF etc) only support a small subset\n"
cannam@125: 		"    of codec formats (eg 16 bit PCM, a-law, Vorbis etc).\n"
cannam@125: 		) ;
cannam@125: 
cannam@125: 	puts (
cannam@125: 		"    The format of the output file is determined by the file extension of the\n"
cannam@125: 		"    output file name. The following extensions are currently understood:\n"
cannam@125: 		) ;
cannam@125: 
cannam@125: 	sfe_dump_format_map () ;
cannam@125: 
cannam@125: 	puts ("") ;
cannam@125: 	exit (1) ;
cannam@125: } /* usage_exit */
cannam@125: 
cannam@125: static void
cannam@125: report_format_error_exit (const char * argv0, SF_INFO * sfinfo)
cannam@125: {	int old_format = sfinfo->format ;
cannam@125: 	int endian = sfinfo->format & SF_FORMAT_ENDMASK ;
cannam@125: 
cannam@125: 	sfinfo->format = old_format & (SF_FORMAT_TYPEMASK | SF_FORMAT_SUBMASK) ;
cannam@125: 
cannam@125: 	if (endian && sf_format_check (sfinfo))
cannam@125: 	{	printf ("Error : output file format does not support %s endian-ness.\n", sfe_endian_name (endian)) ;
cannam@125: 		exit (1) ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	printf ("\n"
cannam@125: 			"Error : output file format is invalid.\n"
cannam@125: 			"The '%s' container does not support '%s' codec data.\n"
cannam@125: 			"Run '%s --help' for clues.\n\n",
cannam@125: 			sfe_container_name (sfinfo->format), sfe_codec_name (sfinfo->format), program_name (argv0)) ;
cannam@125: 	exit (1) ;
cannam@125: } /* report_format_error_exit */
cannam@125: 
cannam@125: int
cannam@125: main (int argc, char * argv [])
cannam@125: {	const char	*progname, *infilename, *outfilename ;
cannam@125: 	SNDFILE		*infile = NULL, *outfile = NULL ;
cannam@125: 	SF_INFO		sfinfo ;
cannam@125: 	int			k, outfilemajor, outfileminor = 0, infileminor ;
cannam@125: 	int			override_sample_rate = 0 ; /* assume no sample rate override. */
cannam@125: 	int			endian = SF_ENDIAN_FILE, normalize = SF_FALSE ;
cannam@125: 
cannam@125: 	progname = program_name (argv [0]) ;
cannam@125: 
cannam@125: 	if (argc < 3 || argc > 5)
cannam@125: 		usage_exit (progname) ;
cannam@125: 
cannam@125: 	infilename = argv [argc-2] ;
cannam@125: 	outfilename = argv [argc-1] ;
cannam@125: 
cannam@125: 	if (strcmp (infilename, outfilename) == 0)
cannam@125: 	{	printf ("Error : Input and output filenames are the same.\n\n") ;
cannam@125: 		usage_exit (progname) ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	if (strlen (infilename) > 1 && infilename [0] == '-')
cannam@125: 	{	printf ("Error : Input filename (%s) looks like an option.\n\n", infilename) ;
cannam@125: 		usage_exit (progname) ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	if (outfilename [0] == '-')
cannam@125: 	{	printf ("Error : Output filename (%s) looks like an option.\n\n", outfilename) ;
cannam@125: 		usage_exit (progname) ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	for (k = 1 ; k < argc - 2 ; k++)
cannam@125: 	{	if (! strcmp (argv [k], "-pcms8"))
cannam@125: 		{	outfileminor = SF_FORMAT_PCM_S8 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-pcmu8"))
cannam@125: 		{	outfileminor = SF_FORMAT_PCM_U8 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-pcm16"))
cannam@125: 		{	outfileminor = SF_FORMAT_PCM_16 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-pcm24"))
cannam@125: 		{	outfileminor = SF_FORMAT_PCM_24 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-pcm32"))
cannam@125: 		{	outfileminor = SF_FORMAT_PCM_32 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-float32"))
cannam@125: 		{	outfileminor = SF_FORMAT_FLOAT ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-ulaw"))
cannam@125: 		{	outfileminor = SF_FORMAT_ULAW ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-alaw"))
cannam@125: 		{	outfileminor = SF_FORMAT_ALAW ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-alac16"))
cannam@125: 		{	outfileminor = SF_FORMAT_ALAC_16 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-alac20"))
cannam@125: 		{	outfileminor = SF_FORMAT_ALAC_20 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-alac24"))
cannam@125: 		{	outfileminor = SF_FORMAT_ALAC_24 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-alac32"))
cannam@125: 		{	outfileminor = SF_FORMAT_ALAC_32 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-ima-adpcm"))
cannam@125: 		{	outfileminor = SF_FORMAT_IMA_ADPCM ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-ms-adpcm"))
cannam@125: 		{	outfileminor = SF_FORMAT_MS_ADPCM ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-gsm610"))
cannam@125: 		{	outfileminor = SF_FORMAT_GSM610 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-dwvw12"))
cannam@125: 		{	outfileminor = SF_FORMAT_DWVW_12 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-dwvw16"))
cannam@125: 		{	outfileminor = SF_FORMAT_DWVW_16 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-dwvw24"))
cannam@125: 		{	outfileminor = SF_FORMAT_DWVW_24 ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 		if (! strcmp (argv [k], "-vorbis"))
cannam@125: 		{	outfileminor = SF_FORMAT_VORBIS ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 
cannam@125: 		if (strstr (argv [k], "-override-sample-rate=") == argv [k])
cannam@125: 		{	const char *ptr ;
cannam@125: 
cannam@125: 			ptr = argv [k] + strlen ("-override-sample-rate=") ;
cannam@125: 			override_sample_rate = atoi (ptr) ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 
cannam@125: 		if (! strcmp (argv [k], "-endian=little"))
cannam@125: 		{	endian = SF_ENDIAN_LITTLE ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 
cannam@125: 		if (! strcmp (argv [k], "-endian=big"))
cannam@125: 		{	endian = SF_ENDIAN_BIG ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 
cannam@125: 		if (! strcmp (argv [k], "-endian=cpu"))
cannam@125: 		{	endian = SF_ENDIAN_CPU ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 
cannam@125: 		if (! strcmp (argv [k], "-endian=file"))
cannam@125: 		{	endian = SF_ENDIAN_FILE ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 
cannam@125: 		if (! strcmp (argv [k], "-normalize"))
cannam@125: 		{	normalize = SF_TRUE ;
cannam@125: 			continue ;
cannam@125: 			} ;
cannam@125: 
cannam@125: 		printf ("Error : Not able to decode argunment '%s'.\n", argv [k]) ;
cannam@125: 		exit (1) ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	memset (&sfinfo, 0, sizeof (sfinfo)) ;
cannam@125: 
cannam@125: 	if ((infile = sf_open (infilename, SFM_READ, &sfinfo)) == NULL)
cannam@125: 	{	printf ("Not able to open input file %s.\n", infilename) ;
cannam@125: 		puts (sf_strerror (NULL)) ;
cannam@125: 		return 1 ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	/* Update sample rate if forced to something else. */
cannam@125: 	if (override_sample_rate)
cannam@125: 		sfinfo.samplerate = override_sample_rate ;
cannam@125: 
cannam@125: 	infileminor = sfinfo.format & SF_FORMAT_SUBMASK ;
cannam@125: 
cannam@125: 	if ((sfinfo.format = sfe_file_type_of_ext (outfilename, sfinfo.format)) == 0)
cannam@125: 	{	printf ("Error : Not able to determine output file type for %s.\n", outfilename) ;
cannam@125: 		return 1 ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	outfilemajor = sfinfo.format & (SF_FORMAT_TYPEMASK | SF_FORMAT_ENDMASK) ;
cannam@125: 
cannam@125: 	if (outfileminor == 0)
cannam@125: 		outfileminor = sfinfo.format & SF_FORMAT_SUBMASK ;
cannam@125: 
cannam@125: 	if (outfileminor != 0)
cannam@125: 		sfinfo.format = outfilemajor | outfileminor ;
cannam@125: 	else
cannam@125: 		sfinfo.format = outfilemajor | (sfinfo.format & SF_FORMAT_SUBMASK) ;
cannam@125: 
cannam@125: 	sfinfo.format |= endian ;
cannam@125: 
cannam@125: 	if ((sfinfo.format & SF_FORMAT_TYPEMASK) == SF_FORMAT_XI)
cannam@125: 		switch (sfinfo.format & SF_FORMAT_SUBMASK)
cannam@125: 		{	case SF_FORMAT_PCM_16 :
cannam@125: 					sfinfo.format = outfilemajor | SF_FORMAT_DPCM_16 ;
cannam@125: 					break ;
cannam@125: 
cannam@125: 			case SF_FORMAT_PCM_S8 :
cannam@125: 			case SF_FORMAT_PCM_U8 :
cannam@125: 					sfinfo.format = outfilemajor | SF_FORMAT_DPCM_8 ;
cannam@125: 					break ;
cannam@125: 			} ;
cannam@125: 
cannam@125: 	if (sf_format_check (&sfinfo) == 0)
cannam@125: 		report_format_error_exit (argv [0], &sfinfo) ;
cannam@125: 
cannam@125: 	if ((sfinfo.format & SF_FORMAT_SUBMASK) == SF_FORMAT_GSM610 && sfinfo.samplerate != 8000)
cannam@125: 	{	printf (
cannam@125: 			"WARNING: GSM 6.10 data format only supports 8kHz sample rate. The converted\n"
cannam@125: 			"ouput file will contain the input data converted to the GSM 6.10 data format\n"
cannam@125: 			"but not re-sampled.\n"
cannam@125: 			) ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	/* Open the output file. */
cannam@125: 	if ((outfile = sf_open (outfilename, SFM_WRITE, &sfinfo)) == NULL)
cannam@125: 	{	printf ("Not able to open output file %s : %s\n", outfilename, sf_strerror (NULL)) ;
cannam@125: 		return 1 ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	/* Copy the metadata */
cannam@125: 	copy_metadata (outfile, infile, sfinfo.channels) ;
cannam@125: 
cannam@125: 	if (normalize
cannam@125: 			|| (outfileminor == SF_FORMAT_DOUBLE) || (outfileminor == SF_FORMAT_FLOAT)
cannam@125: 			|| (infileminor == SF_FORMAT_DOUBLE) || (infileminor == SF_FORMAT_FLOAT)
cannam@125: 			|| (infileminor == SF_FORMAT_VORBIS) || (outfileminor == SF_FORMAT_VORBIS))
cannam@125: 		sfe_copy_data_fp (outfile, infile, sfinfo.channels, normalize) ;
cannam@125: 	else
cannam@125: 		sfe_copy_data_int (outfile, infile, sfinfo.channels) ;
cannam@125: 
cannam@125: 	sf_close (infile) ;
cannam@125: 	sf_close (outfile) ;
cannam@125: 
cannam@125: 	return 0 ;
cannam@125: } /* main */
cannam@125: 
cannam@125: static void
cannam@125: copy_metadata (SNDFILE *outfile, SNDFILE *infile, int channels)
cannam@125: {	SF_INSTRUMENT inst ;
cannam@125: 	SF_CUES cues ;
cannam@125: 	SF_BROADCAST_INFO_2K binfo ;
cannam@125: 	const char *str ;
cannam@125: 	int k, chanmap [256] ;
cannam@125: 
cannam@125: 	for (k = SF_STR_FIRST ; k <= SF_STR_LAST ; k++)
cannam@125: 	{	str = sf_get_string (infile, k) ;
cannam@125: 		if (str != NULL)
cannam@125: 			sf_set_string (outfile, k, str) ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	memset (&inst, 0, sizeof (inst)) ;
cannam@125: 	memset (&cues, 0, sizeof (cues)) ;
cannam@125: 	memset (&binfo, 0, sizeof (binfo)) ;
cannam@125: 
cannam@125: 	if (channels < ARRAY_LEN (chanmap))
cannam@125: 	{	size_t size = channels * sizeof (chanmap [0]) ;
cannam@125: 
cannam@125: 		if (sf_command (infile, SFC_GET_CHANNEL_MAP_INFO, chanmap, size) == SF_TRUE)
cannam@125: 			sf_command (outfile, SFC_SET_CHANNEL_MAP_INFO, chanmap, size) ;
cannam@125: 		} ;
cannam@125: 
cannam@125: 	if (sf_command (infile, SFC_GET_CUE, &cues, sizeof (cues)) == SF_TRUE)
cannam@125: 		sf_command (outfile, SFC_SET_CUE, &cues, sizeof (cues)) ;
cannam@125: 
cannam@125: 	if (sf_command (infile, SFC_GET_INSTRUMENT, &inst, sizeof (inst)) == SF_TRUE)
cannam@125: 		sf_command (outfile, SFC_SET_INSTRUMENT, &inst, sizeof (inst)) ;
cannam@125: 
cannam@125: 	if (sf_command (infile, SFC_GET_BROADCAST_INFO, &binfo, sizeof (binfo)) == SF_TRUE)
cannam@125: 		sf_command (outfile, SFC_SET_BROADCAST_INFO, &binfo, sizeof (binfo)) ;
cannam@125: 
cannam@125: } /* copy_metadata */
cannam@125: