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: 
cannam@85: #if HAVE_UNISTD_H
cannam@85: #include <unistd.h>
cannam@85: #endif
cannam@85: 
cannam@85: #if (HAVE_DECL_S_IRGRP == 0)
cannam@85: #include <sf_unistd.h>
cannam@85: #endif
cannam@85: 
cannam@85: #include <fcntl.h>
cannam@85: #include <math.h>
cannam@85: #include <string.h>
cannam@85: #include <errno.h>
cannam@85: #include <sys/stat.h>
cannam@85: 
cannam@85: #include <sndfile.h>
cannam@85: 
cannam@85: #include "utils.h"
cannam@85: 
cannam@85: #define	DATA_LENGTH 		(512)
cannam@85: 
cannam@85: static void write_file_at_end (int fd, int filetype, int channels, int file_num) ;
cannam@85: 
cannam@85: static void multi_file_test (const char *filename, int *formats, int format_count) ;
cannam@85: 
cannam@85: static short data [DATA_LENGTH] ;
cannam@85: 
cannam@85: static int 	wav_formats [] =
cannam@85: {	SF_FORMAT_WAV | SF_FORMAT_PCM_16,
cannam@85: 	SF_FORMAT_WAV | SF_FORMAT_PCM_24,
cannam@85: 	SF_FORMAT_WAV | SF_FORMAT_ULAW,
cannam@85: 	SF_FORMAT_WAV | SF_FORMAT_ALAW,
cannam@85: 	/* Lite remove start */
cannam@85: 	SF_FORMAT_WAV | SF_FORMAT_IMA_ADPCM,
cannam@85: 	SF_FORMAT_WAV | SF_FORMAT_MS_ADPCM,
cannam@85: 	/* Lite remove end */
cannam@85: 	/*-SF_FORMAT_WAV | SF_FORMAT_GSM610 Doesn't work yet. -*/
cannam@85: } ;
cannam@85: 
cannam@85: static int 	aiff_formats [] =
cannam@85: {	SF_FORMAT_AIFF | SF_FORMAT_PCM_16,
cannam@85: 	SF_FORMAT_AIFF | SF_FORMAT_PCM_24,
cannam@85: 	SF_FORMAT_AIFF | SF_FORMAT_ULAW,
cannam@85: 	SF_FORMAT_AIFF | SF_FORMAT_ALAW
cannam@85: } ;
cannam@85: 
cannam@85: static int 	au_formats [] =
cannam@85: {	SF_FORMAT_AU | SF_FORMAT_PCM_16,
cannam@85: 	SF_FORMAT_AU | SF_FORMAT_PCM_24,
cannam@85: 	SF_FORMAT_AU | SF_FORMAT_ULAW,
cannam@85: 	SF_FORMAT_AU | SF_FORMAT_ALAW
cannam@85: } ;
cannam@85: 
cannam@85: static int verbose = SF_FALSE ;
cannam@85: 
cannam@85: int
cannam@85: main (int argc, char **argv)
cannam@85: {	int		do_all = 0 ;
cannam@85: 	int		test_count = 0 ;
cannam@85: 
cannam@85: 	if (argc == 3 && strcmp (argv [2], "-v") == 0)
cannam@85: 	{	verbose = SF_TRUE ;
cannam@85: 		argc -- ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (argc != 2)
cannam@85: 	{	printf ("Usage : %s <test>\n", argv [0]) ;
cannam@85: 		printf ("    Where <test> is one of the following:\n") ;
cannam@85: 		printf ("           wav   - test WAV file functions (little endian)\n") ;
cannam@85: 		printf ("           aiff  - test AIFF file functions (big endian)\n") ;
cannam@85: 		printf ("           au    - test AU file functions\n") ;
cannam@85: #if 0
cannam@85: 		printf ("           svx   - test 8SVX/16SV file functions\n") ;
cannam@85: 		printf ("           nist  - test NIST Sphere file functions\n") ;
cannam@85: 		printf ("           ircam - test IRCAM file functions\n") ;
cannam@85: 		printf ("           voc   - Create Voice file functions\n") ;
cannam@85: 		printf ("           w64   - Sonic Foundry's W64 file functions\n") ;
cannam@85: #endif
cannam@85: 		printf ("           all   - perform all tests\n") ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	do_all = !strcmp (argv [1], "all") ;
cannam@85: 
cannam@85: 	if (do_all || ! strcmp (argv [1], "wav"))
cannam@85: 	{	multi_file_test	("multi_wav.dat", wav_formats, ARRAY_LEN (wav_formats)) ;
cannam@85: 		test_count++ ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (do_all || ! strcmp (argv [1], "aiff"))
cannam@85: 	{	multi_file_test	("multi_aiff.dat", aiff_formats, ARRAY_LEN (aiff_formats)) ;
cannam@85: 		test_count++ ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (do_all || ! strcmp (argv [1], "au"))
cannam@85: 	{	multi_file_test	("multi_au.dat", au_formats, ARRAY_LEN (au_formats)) ;
cannam@85: 		test_count++ ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	return 0 ;
cannam@85: } /* main */
cannam@85: 
cannam@85: /*======================================================================================
cannam@85: */
cannam@85: 
cannam@85: static void
cannam@85: multi_file_test (const char *filename, int *formats, int format_count)
cannam@85: {	SNDFILE				*sndfile ;
cannam@85: 	SF_INFO				sfinfo ;
cannam@85: 	SF_EMBED_FILE_INFO	embed_info ;
cannam@85: 	sf_count_t			filelen ;
cannam@85: 	int					fd, k, file_count = 0 ;
cannam@85: 
cannam@85: 	print_test_name ("multi_file_test", filename) ;
cannam@85: 
cannam@85: 	unlink (filename) ;
cannam@85: 
cannam@85: 	if ((fd = open (filename, O_RDWR | O_CREAT, S_IRUSR | S_IWUSR)) < 0)
cannam@85: 	{	printf ("\n\nLine %d: open failed : %s\n", __LINE__, strerror (errno)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	k = write (fd, "1234", 4) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < format_count ; k++)
cannam@85: 		write_file_at_end (fd, formats [k], 2, k) ;
cannam@85: 
cannam@85: 	filelen = file_length_fd (fd) ;
cannam@85: 
cannam@85: 	embed_info.offset = 4 ;
cannam@85: 	embed_info.length = 0 ;
cannam@85: 
cannam@85: 
cannam@85: 	for (file_count = 1 ; embed_info.offset + embed_info.length < filelen ; file_count ++)
cannam@85: 	{
cannam@85: 		if (verbose)
cannam@85: 		{	puts ("\n------------------------------------") ;
cannam@85: 			printf ("This offset : %ld\n", SF_COUNT_TO_LONG (embed_info.offset + embed_info.length)) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 		if (lseek (fd, embed_info.offset + embed_info.length, SEEK_SET) < 0)
cannam@85: 		{	printf ("\n\nLine %d: lseek failed : %s\n", __LINE__, strerror (errno)) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
cannam@85: 		if ((sndfile = sf_open_fd (fd, SFM_READ, &sfinfo, SF_FALSE)) == NULL)
cannam@85: 		{	printf ("\n\nLine %d: sf_open_fd failed\n", __LINE__) ;
cannam@85: 			printf ("Embedded file number : %d   offset : %ld\n", file_count, SF_COUNT_TO_LONG (embed_info.offset)) ;
cannam@85: 			puts (sf_strerror (sndfile)) ;
cannam@85: 			dump_log_buffer (sndfile) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 		sf_command (sndfile, SFC_GET_EMBED_FILE_INFO, &embed_info, sizeof (embed_info)) ;
cannam@85: 
cannam@85: 		sf_close (sndfile) ;
cannam@85: 
cannam@85: 		if (verbose)
cannam@85: 			printf ("\nNext offset : %ld\nNext length : %ld\n", SF_COUNT_TO_LONG (embed_info.offset), SF_COUNT_TO_LONG (embed_info.length)) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	file_count -- ;
cannam@85: 
cannam@85: 	if (file_count != format_count)
cannam@85: 	{	printf ("\n\nLine %d: file count (%d) not equal to %d.\n\n", __LINE__, file_count, format_count) ;
cannam@85: 		printf ("Embedded file number : %d\n", file_count) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	close (fd) ;
cannam@85: 	unlink (filename) ;
cannam@85: 	printf ("ok\n") ;
cannam@85: 
cannam@85: 	return ;
cannam@85: } /* multi_file_test */
cannam@85: 
cannam@85: /*======================================================================================
cannam@85: */
cannam@85: 
cannam@85: static void
cannam@85: write_file_at_end (int fd, int filetype, int channels, int file_num)
cannam@85: {	SNDFILE *sndfile ;
cannam@85: 	SF_INFO sfinfo ;
cannam@85: 
cannam@85: 	int	frames, k ;
cannam@85: 
cannam@85: 	lseek (fd, 0, SEEK_END) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < DATA_LENGTH ; k++)
cannam@85: 		data [k] = k ;
cannam@85: 
cannam@85: 	frames = DATA_LENGTH / channels ;
cannam@85: 
cannam@85: 	sfinfo.format = filetype ;
cannam@85: 	sfinfo.channels = channels ;
cannam@85: 	sfinfo.samplerate = 44100 ;
cannam@85: 
cannam@85: 	if ((sndfile = sf_open_fd (fd, SFM_WRITE, &sfinfo, SF_FALSE)) == NULL)
cannam@85: 	{	printf ("\n\nLine %d: sf_open_fd failed\n", __LINE__) ;
cannam@85: 		printf ("Embedded file number : %d\n", file_num) ;
cannam@85: 		puts (sf_strerror (sndfile)) ;
cannam@85: 		dump_log_buffer (sndfile) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sf_writef_short (sndfile, data, frames) != frames)
cannam@85: 	{	printf ("\n\nLine %d: short write\n", __LINE__) ;
cannam@85: 		printf ("Embedded file number : %d\n", file_num) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_close (sndfile) ;
cannam@85: } /* write_file_at_end */
cannam@85: