cannam@85: /*
cannam@85: ** Copyright (C) 1999-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
cannam@85: **
cannam@85: ** This program is free software; you can redistribute it and/or modify
cannam@85: ** it under the terms of the GNU General Public License as published by
cannam@85: ** the Free Software Foundation; either version 2 of the License, or
cannam@85: ** (at your option) any later version.
cannam@85: **
cannam@85: ** This program is distributed in the hope that it will be useful,
cannam@85: ** but WITHOUT ANY WARRANTY; without even the implied warranty of
cannam@85: ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
cannam@85: ** GNU General Public License for more details.
cannam@85: **
cannam@85: ** You should have received a copy of the GNU General Public License
cannam@85: ** along with this program; if not, write to the Free Software
cannam@85: ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
cannam@85: */
cannam@85: 
cannam@85: #include "sfconfig.h"
cannam@85: 
cannam@85: #include <stdio.h>
cannam@85: #include <stdlib.h>
cannam@85: #include <string.h>
cannam@85: #include <math.h>
cannam@85: 
cannam@85: #if HAVE_UNISTD_H
cannam@85: #include <unistd.h>
cannam@85: #endif
cannam@85: 
cannam@85: #include <sndfile.h>
cannam@85: 
cannam@85: #include "dft_cmp.h"
cannam@85: #include "utils.h"
cannam@85: 
cannam@85: #define	SAMPLE_RATE			16000
cannam@85: 
cannam@85: static void	float_scaled_test	(const char *filename, int allow_exit, int replace_float, int filetype, double target_snr) ;
cannam@85: static void	double_scaled_test	(const char *filename, int allow_exit, int replace_float, int filetype, double target_snr) ;
cannam@85: 
cannam@85: static void float_short_little_test (const char * filename) ;
cannam@85: static void float_short_big_test (const char * filename) ;
cannam@85: static void float_int_little_test (const char * filename) ;
cannam@85: static void float_int_big_test (const char * filename) ;
cannam@85: static void double_short_little_test (const char * filename) ;
cannam@85: static void double_short_big_test (const char * filename) ;
cannam@85: static void double_int_little_test (const char * filename) ;
cannam@85: static void double_int_big_test (const char * filename) ;
cannam@85: 
cannam@85: 
cannam@85: static	double	double_data [DFT_DATA_LENGTH] ;
cannam@85: static	double	double_test [DFT_DATA_LENGTH] ;
cannam@85: 
cannam@85: static float	float_data [DFT_DATA_LENGTH] ;
cannam@85: static float	float_test [DFT_DATA_LENGTH] ;
cannam@85: 
cannam@85: static double	double_data [DFT_DATA_LENGTH] ;
cannam@85: static short	short_data [DFT_DATA_LENGTH] ;
cannam@85: static int		int_data [DFT_DATA_LENGTH] ;
cannam@85: 
cannam@85: int
cannam@85: main (int argc, char *argv [])
cannam@85: {	int allow_exit = 1 ;
cannam@85: 
cannam@85: 	if (argc == 2 && ! strstr (argv [1], "no-exit"))
cannam@85: 		allow_exit = 0 ;
cannam@85: 
cannam@85: #if ((HAVE_LRINTF == 0) && (HAVE_LRINT_REPLACEMENT == 0))
cannam@85: 	puts ("*** Cannot run this test on this platform because it lacks lrintf().") ;
cannam@85: 	exit (0) ;
cannam@85: #endif
cannam@85: 
cannam@85: 	/* Float tests. */
cannam@85: 	float_scaled_test	("float.raw", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, -163.0) ;
cannam@85: 
cannam@85: 	/* Test both signed and unsigned 8 bit files. */
cannam@85: 	float_scaled_test	("pcm_s8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_S8, -39.0) ;
cannam@85: 	float_scaled_test	("pcm_u8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_U8, -39.0) ;
cannam@85: 
cannam@85: 	float_scaled_test	("pcm_16.raw", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_16, -87.0) ;
cannam@85: 	float_scaled_test	("pcm_24.raw", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_24, -138.0) ;
cannam@85: 	float_scaled_test	("pcm_32.raw", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_32, -163.0) ;
cannam@85: 
cannam@85: 	float_scaled_test	("ulaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ULAW, -50.0) ;
cannam@85: 	float_scaled_test	("alaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ALAW, -49.0) ;
cannam@85: 
cannam@85: 	float_scaled_test	("ima_adpcm.wav", allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_IMA_ADPCM, -47.0) ;
cannam@85: 	float_scaled_test	("ms_adpcm.wav" , allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_MS_ADPCM, -40.0) ;
cannam@85: 	float_scaled_test	("gsm610.raw"	, allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_GSM610, -33.0) ;
cannam@85: 
cannam@85: 	float_scaled_test	("g721_32.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G721_32, -34.0) ;
cannam@85: 	float_scaled_test	("g723_24.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_24, -34.0) ;
cannam@85: 	float_scaled_test	("g723_40.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_40, -40.0) ;
cannam@85: 
cannam@85: 	/*	PAF files do not use the same encoding method for 24 bit PCM data as other file
cannam@85: 	**	formats so we need to explicitly test it here.
cannam@85: 	*/
cannam@85: 	float_scaled_test	("le_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -149.0) ;
cannam@85: 	float_scaled_test	("be_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -149.0) ;
cannam@85: 
cannam@85: 	float_scaled_test	("dwvw_12.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_12, -64.0) ;
cannam@85: 	float_scaled_test	("dwvw_16.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_16, -92.0) ;
cannam@85: 	float_scaled_test	("dwvw_24.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_24, -151.0) ;
cannam@85: 
cannam@85: 	float_scaled_test	("adpcm.vox", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_VOX_ADPCM, -40.0) ;
cannam@85: 
cannam@85: 	float_scaled_test	("dpcm_16.xi", allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_16, -90.0) ;
cannam@85: 	float_scaled_test	("dpcm_8.xi" , allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_8 , -41.0) ;
cannam@85: 
cannam@85: 	float_scaled_test	("pcm_s8.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_S8, -90.0) ;
cannam@85: 	float_scaled_test	("pcm_16.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_16, -140.0) ;
cannam@85: 	float_scaled_test	("pcm_24.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_24, -170.0) ;
cannam@85: 
cannam@85: #if HAVE_EXTERNAL_LIBS
cannam@85: 	float_scaled_test	("flac_8.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_S8, -39.0) ;
cannam@85: 	float_scaled_test	("flac_16.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_16, -87.0) ;
cannam@85: 	float_scaled_test	("flac_24.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_24, -138.0) ;
cannam@85: 
cannam@85: 	float_scaled_test	("vorbis.oga", allow_exit, SF_FALSE, SF_FORMAT_OGG | SF_FORMAT_VORBIS, -31.0) ;
cannam@85: #endif
cannam@85: 
cannam@85: 	float_scaled_test	("replace_float.raw", allow_exit, SF_TRUE, SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, -163.0) ;
cannam@85: 
cannam@85: 	/*==============================================================================
cannam@85: 	** Double tests.
cannam@85: 	*/
cannam@85: 
cannam@85: 	double_scaled_test	("double.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DOUBLE, -300.0) ;
cannam@85: 
cannam@85: 	/* Test both signed (AIFF) and unsigned (WAV) 8 bit files. */
cannam@85: 	double_scaled_test	("pcm_s8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_S8, -39.0) ;
cannam@85: 	double_scaled_test	("pcm_u8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_U8, -39.0) ;
cannam@85: 
cannam@85: 	double_scaled_test	("pcm_16.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_16, -87.0) ;
cannam@85: 	double_scaled_test	("pcm_24.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_24, -135.0) ;
cannam@85: 	double_scaled_test	("pcm_32.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_32, -184.0) ;
cannam@85: 
cannam@85: 	double_scaled_test	("ulaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ULAW, -50.0) ;
cannam@85: 	double_scaled_test	("alaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ALAW, -49.0) ;
cannam@85: 
cannam@85: 	double_scaled_test	("ima_adpcm.wav", allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_IMA_ADPCM, -47.0) ;
cannam@85: 	double_scaled_test	("ms_adpcm.wav"	, allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_MS_ADPCM, -40.0) ;
cannam@85: 	double_scaled_test	("gsm610.raw"	, allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_GSM610, -33.0) ;
cannam@85: 
cannam@85: 	double_scaled_test	("g721_32.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G721_32, -34.0) ;
cannam@85: 	double_scaled_test	("g723_24.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_24, -34.0) ;
cannam@85: 	double_scaled_test	("g723_40.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_40, -40.0) ;
cannam@85: 
cannam@85: 	/*	24 bit PCM PAF files tested here. */
cannam@85: 	double_scaled_test	("be_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -151.0) ;
cannam@85: 	double_scaled_test	("le_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -151.0) ;
cannam@85: 
cannam@85: 	double_scaled_test	("dwvw_12.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_12, -64.0) ;
cannam@85: 	double_scaled_test	("dwvw_16.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_16, -92.0) ;
cannam@85: 	double_scaled_test	("dwvw_24.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_24, -151.0) ;
cannam@85: 
cannam@85: 	double_scaled_test	("adpcm.vox" , allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_VOX_ADPCM, -40.0) ;
cannam@85: 
cannam@85: 	double_scaled_test	("dpcm_16.xi", allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_16, -90.0) ;
cannam@85: 	double_scaled_test	("dpcm_8.xi" , allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_8 , -42.0) ;
cannam@85: 
cannam@85: 	double_scaled_test	("pcm_s8.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_S8, -90.0) ;
cannam@85: 	double_scaled_test	("pcm_16.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_16, -140.0) ;
cannam@85: 	double_scaled_test	("pcm_24.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_24, -180.0) ;
cannam@85: 
cannam@85: #if HAVE_EXTERNAL_LIBS
cannam@85: 	double_scaled_test	("flac_8.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_S8, -39.0) ;
cannam@85: 	double_scaled_test	("flac_16.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_16, -87.0) ;
cannam@85: 	double_scaled_test	("flac_24.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_24, -138.0) ;
cannam@85: 
cannam@85: 	double_scaled_test	("vorbis.oga", allow_exit, SF_FALSE, SF_FORMAT_OGG | SF_FORMAT_VORBIS, -29.0) ;
cannam@85: #endif
cannam@85: 
cannam@85: 	double_scaled_test	("replace_double.raw", allow_exit, SF_TRUE, SF_FORMAT_RAW | SF_FORMAT_DOUBLE, -300.0) ;
cannam@85: 
cannam@85: 	putchar ('\n') ;
cannam@85: 	/* Float int tests. */
cannam@85: 	float_short_little_test ("float_short_little.au") ;
cannam@85: 	float_short_big_test ("float_short_big.au") ;
cannam@85: 	float_int_little_test ("float_int_little.au") ;
cannam@85: 	float_int_big_test ("float_int_big.au") ;
cannam@85: 	double_short_little_test ("double_short_little.au") ;
cannam@85: 	double_short_big_test ("double_short_big.au") ;
cannam@85: 	double_int_little_test ("double_int_little.au") ;
cannam@85: 	double_int_big_test ("double_int_big.au") ;
cannam@85: 
cannam@85: 
cannam@85: 	return 0 ;
cannam@85: } /* main */
cannam@85: 
cannam@85: /*============================================================================================
cannam@85:  *	Here are the test functions.
cannam@85:  */
cannam@85: 
cannam@85: static void
cannam@85: float_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	double		snr ;
cannam@85: 
cannam@85: 	print_test_name ("float_scaled_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_float (float_data, DFT_DATA_LENGTH, 1.0) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= DFT_DATA_LENGTH ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 
cannam@85: 	test_write_float_or_die (file, 0, float_data, DFT_DATA_LENGTH, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (float_test, 0, sizeof (float_test)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 
cannam@85: 	exit_if_true (sfinfo.format != filetype, "\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 	exit_if_true (sfinfo.frames < DFT_DATA_LENGTH, "\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 	exit_if_true (sfinfo.channels != 1, "\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_float_or_die (file, 0, float_test, DFT_DATA_LENGTH, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	snr = dft_cmp_float (__LINE__, float_data, float_test, DFT_DATA_LENGTH, target_snr, allow_exit) ;
cannam@85: 
cannam@85: 	exit_if_true (snr > target_snr, "% 6.1fdB SNR\n\n    Error : should be better than % 6.1fdB\n\n", snr, target_snr) ;
cannam@85: 
cannam@85: 	printf ("% 6.1fdB SNR ... ok\n", snr) ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 
cannam@85: 	return ;
cannam@85: } /* float_scaled_test */
cannam@85: 
cannam@85: static void
cannam@85: double_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	double		snr ;
cannam@85: 
cannam@85: 	print_test_name ("double_scaled_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_double (double_data, DFT_DATA_LENGTH, 0.95) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= DFT_DATA_LENGTH ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 
cannam@85: 	test_write_double_or_die (file, 0, double_data, DFT_DATA_LENGTH, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (double_test, 0, sizeof (double_test)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 
cannam@85: 	exit_if_true (sfinfo.format != filetype, "\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 	exit_if_true (sfinfo.frames < DFT_DATA_LENGTH, "\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 	exit_if_true (sfinfo.channels != 1, "\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, double_test, DFT_DATA_LENGTH, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	snr = dft_cmp_double (__LINE__, double_data, double_test, DFT_DATA_LENGTH, target_snr, allow_exit) ;
cannam@85: 
cannam@85: 	exit_if_true (snr > target_snr, "% 6.1fdB SNR\n\n    Error : should be better than % 6.1fdB\n\n", snr, target_snr) ;
cannam@85: 
cannam@85: 	printf ("% 6.1fdB SNR ... ok\n", snr) ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 
cannam@85: 	return ;
cannam@85: } /* double_scaled_test */
cannam@85: 
cannam@85: /*==============================================================================
cannam@85: */
cannam@85: 
cannam@85: 
cannam@85: static void
cannam@85: float_short_little_test (const char * filename)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	unsigned	k, max ;
cannam@85: 
cannam@85: 	print_test_name ("float_short_little_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 0.98) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= ARRAY_LEN (short_data) ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_FLOAT ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != ARRAY_LEN (float_data))
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
cannam@85: 
cannam@85: 	test_read_short_or_die (file, 0, short_data, ARRAY_LEN (short_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	max = 0 ;
cannam@85: 	for (k = 0 ; k < ARRAY_LEN (short_data) ; k++)
cannam@85: 		if ((unsigned) abs (short_data [k]) > max)
cannam@85: 			max = abs (short_data [k]) ;
cannam@85: 
cannam@85: 	if (1.0 * abs (max - 0x7FFF) / 0x7FFF > 0.01)
cannam@85: 	{	printf ("\n\nLine %d: Bad maximum (%d should be %d).\n\n", __LINE__, max, 0x7FFF) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 	puts ("ok") ;
cannam@85: } /* float_short_little_test */
cannam@85: 
cannam@85: static void
cannam@85: float_short_big_test (const char * filename)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	unsigned	k, max ;
cannam@85: 
cannam@85: 	print_test_name ("float_short_big_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 0.98) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= ARRAY_LEN (short_data) ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= SF_ENDIAN_BIG | SF_FORMAT_AU | SF_FORMAT_FLOAT ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != ARRAY_LEN (float_data))
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
cannam@85: 
cannam@85: 	test_read_short_or_die (file, 0, short_data, ARRAY_LEN (short_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	max = 0 ;
cannam@85: 	for (k = 0 ; k < ARRAY_LEN (short_data) ; k++)
cannam@85: 		if ((unsigned) abs (short_data [k]) > max)
cannam@85: 			max = abs (short_data [k]) ;
cannam@85: 
cannam@85: 	if (1.0 * abs (max - 0x7FFF) / 0x7FFF > 0.01)
cannam@85: 	{	printf ("\n\nLine %d: Bad maximum (%d should be %d).\n\n", __LINE__, max, 0x7FFF) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 	puts ("ok") ;
cannam@85: } /* float_short_big_test */
cannam@85: 
cannam@85: static void
cannam@85: float_int_little_test (const char * filename)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	unsigned	k, max ;
cannam@85: 
cannam@85: 	print_test_name ("float_int_little_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 0.98) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= ARRAY_LEN (int_data) ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_FLOAT ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != ARRAY_LEN (float_data))
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
cannam@85: 
cannam@85: 	test_read_int_or_die (file, 0, int_data, ARRAY_LEN (int_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	max = 0 ;
cannam@85: 	for (k = 0 ; k < ARRAY_LEN (int_data) ; k++)
cannam@85: 		if ((unsigned) abs (int_data [k]) > max)
cannam@85: 			max = abs (int_data [k]) ;
cannam@85: 
cannam@85: 	if (1.0 * abs (max - 0x7FFFFFFF) / 0x7FFFFFFF > 0.01)
cannam@85: 	{	printf ("\n\nLine %d: Bad maximum (%d should be %d).\n\n", __LINE__, max, 0x7FFFFFFF) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 	puts ("ok") ;
cannam@85: } /* float_int_little_test */
cannam@85: 
cannam@85: static void
cannam@85: float_int_big_test (const char * filename)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	unsigned	k, max ;
cannam@85: 
cannam@85: 	print_test_name ("float_int_big_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 0.98) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= ARRAY_LEN (int_data) ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= SF_ENDIAN_BIG | SF_FORMAT_AU | SF_FORMAT_FLOAT ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != ARRAY_LEN (float_data))
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
cannam@85: 
cannam@85: 	test_read_int_or_die (file, 0, int_data, ARRAY_LEN (int_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	max = 0 ;
cannam@85: 	for (k = 0 ; k < ARRAY_LEN (int_data) ; k++)
cannam@85: 		if ((unsigned) abs (int_data [k]) > max)
cannam@85: 			max = abs (int_data [k]) ;
cannam@85: 
cannam@85: 	if (1.0 * abs (max - 0x7FFFFFFF) / 0x7FFFFFFF > 0.01)
cannam@85: 	{	printf ("\n\nLine %d: Bad maximum (%d should be %d).\n\n", __LINE__, max, 0x7FFFFFFF) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 	puts ("ok") ;
cannam@85: } /* float_int_big_test */
cannam@85: 
cannam@85: static void
cannam@85: double_short_little_test (const char * filename)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	unsigned	k, max ;
cannam@85: 
cannam@85: 	print_test_name ("double_short_little_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_double (double_data, ARRAY_LEN (double_data), 0.98) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= ARRAY_LEN (short_data) ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_DOUBLE ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	test_write_double_or_die (file, 0, double_data, ARRAY_LEN (double_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != ARRAY_LEN (double_data))
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
cannam@85: 
cannam@85: 	test_read_short_or_die (file, 0, short_data, ARRAY_LEN (short_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	max = 0 ;
cannam@85: 	for (k = 0 ; k < ARRAY_LEN (short_data) ; k++)
cannam@85: 		if ((unsigned) abs (short_data [k]) > max)
cannam@85: 			max = abs (short_data [k]) ;
cannam@85: 
cannam@85: 	if (1.0 * abs (max - 0x7FFF) / 0x7FFF > 0.01)
cannam@85: 	{	printf ("\n\nLine %d: Bad maximum (%d should be %d).\n\n", __LINE__, max, 0x7FFF) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 	puts ("ok") ;
cannam@85: } /* double_short_little_test */
cannam@85: 
cannam@85: static void
cannam@85: double_short_big_test (const char * filename)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	unsigned	k, max ;
cannam@85: 
cannam@85: 	print_test_name ("double_short_big_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_double (double_data, ARRAY_LEN (double_data), 0.98) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= ARRAY_LEN (short_data) ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= SF_ENDIAN_BIG | SF_FORMAT_AU | SF_FORMAT_DOUBLE ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	test_write_double_or_die (file, 0, double_data, ARRAY_LEN (double_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != ARRAY_LEN (double_data))
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
cannam@85: 
cannam@85: 	test_read_short_or_die (file, 0, short_data, ARRAY_LEN (short_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	max = 0 ;
cannam@85: 	for (k = 0 ; k < ARRAY_LEN (short_data) ; k++)
cannam@85: 		if ((unsigned) abs (short_data [k]) > max)
cannam@85: 			max = abs (short_data [k]) ;
cannam@85: 
cannam@85: 	if (1.0 * abs (max - 0x7FFF) / 0x7FFF > 0.01)
cannam@85: 	{	printf ("\n\nLine %d: Bad maximum (%d should be %d).\n\n", __LINE__, max, 0x7FFF) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 	puts ("ok") ;
cannam@85: } /* double_short_big_test */
cannam@85: 
cannam@85: static void
cannam@85: double_int_little_test (const char * filename)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	unsigned	k, max ;
cannam@85: 
cannam@85: 	print_test_name ("double_int_little_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_double (double_data, ARRAY_LEN (double_data), 0.98) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= ARRAY_LEN (int_data) ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_DOUBLE ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	test_write_double_or_die (file, 0, double_data, ARRAY_LEN (double_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != ARRAY_LEN (double_data))
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
cannam@85: 
cannam@85: 	test_read_int_or_die (file, 0, int_data, ARRAY_LEN (int_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	max = 0 ;
cannam@85: 	for (k = 0 ; k < ARRAY_LEN (int_data) ; k++)
cannam@85: 		if ((unsigned) abs (int_data [k]) > max)
cannam@85: 			max = abs (int_data [k]) ;
cannam@85: 
cannam@85: 	if (1.0 * abs (max - 0x7FFFFFFF) / 0x7FFFFFFF > 0.01)
cannam@85: 	{	printf ("\n\nLine %d: Bad maximum (%d should be %d).\n\n", __LINE__, max, 0x7FFFFFFF) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 	puts ("ok") ;
cannam@85: } /* double_int_little_test */
cannam@85: 
cannam@85: static void
cannam@85: double_int_big_test (const char * filename)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	unsigned	k, max ;
cannam@85: 
cannam@85: 	print_test_name ("double_int_big_test", filename) ;
cannam@85: 
cannam@85: 	gen_windowed_sine_double (double_data, ARRAY_LEN (double_data), 0.98) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= SAMPLE_RATE ;
cannam@85: 	sfinfo.frames		= ARRAY_LEN (int_data) ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= SF_ENDIAN_BIG | SF_FORMAT_AU | SF_FORMAT_DOUBLE ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	test_write_double_or_die (file, 0, double_data, ARRAY_LEN (double_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != ARRAY_LEN (double_data))
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
cannam@85: 
cannam@85: 	test_read_int_or_die (file, 0, int_data, ARRAY_LEN (int_data), __LINE__) ;
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	max = 0 ;
cannam@85: 	for (k = 0 ; k < ARRAY_LEN (int_data) ; k++)
cannam@85: 		if ((unsigned) abs (int_data [k]) > max)
cannam@85: 			max = abs (int_data [k]) ;
cannam@85: 
cannam@85: 	if (1.0 * abs (max - 0x7FFFFFFF) / 0x7FFFFFFF > 0.01)
cannam@85: 	{	printf ("\n\nLine %d: Bad maximum (%d should be %d).\n\n", __LINE__, max, 0x7FFFFFFF) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 	puts ("ok") ;
cannam@85: } /* double_int_big_test */
cannam@85: 
cannam@85: