Chris@40: /* Chris@40: ** Copyright (C) 2002-2012 Erik de Castro Lopo Chris@40: ** Chris@40: ** This program is free software; you can redistribute it and/or modify Chris@40: ** it under the terms of the GNU General Public License as published by Chris@40: ** the Free Software Foundation; either version 2 of the License, or Chris@40: ** (at your option) any later version. Chris@40: ** Chris@40: ** This program is distributed in the hope that it will be useful, Chris@40: ** but WITHOUT ANY WARRANTY; without even the implied warranty of Chris@40: ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the Chris@40: ** GNU General Public License for more details. Chris@40: ** Chris@40: ** You should have received a copy of the GNU General Public License Chris@40: ** along with this program; if not, write to the Free Software Chris@40: ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Chris@40: */ Chris@40: Chris@40: #include "sfconfig.h" Chris@40: Chris@40: #include Chris@40: #include Chris@40: Chris@40: #if HAVE_UNISTD_H Chris@40: #include Chris@40: #endif Chris@40: Chris@40: #if (HAVE_DECL_S_IRGRP == 0) Chris@40: #include Chris@40: #endif Chris@40: Chris@40: #include Chris@40: #include Chris@40: #include Chris@40: #include Chris@40: #include Chris@40: Chris@40: #include Chris@40: Chris@40: #ifndef M_PI Chris@40: #define M_PI 3.14159265358979323846264338 Chris@40: #endif Chris@40: Chris@40: /* Chris@40: ** Neat solution to the Win32/OS2 binary file flage requirement. Chris@40: ** If O_BINARY isn't already defined by the inclusion of the system Chris@40: ** headers, set it to zero. Chris@40: */ Chris@40: #ifndef O_BINARY Chris@40: #define O_BINARY 0 Chris@40: #endif Chris@40: Chris@40: #define WRITE_FLAGS (O_WRONLY | O_CREAT | O_TRUNC | O_BINARY) Chris@40: #define READ_FLAGS (O_RDONLY | O_BINARY) Chris@40: Chris@40: #if (defined (WIN32) || defined (_WIN32) || defined (__OS2__)) Chris@40: #define WRITE_PERMS 0777 Chris@40: #else Chris@40: #define WRITE_PERMS (S_IRUSR | S_IWUSR | S_IRGRP) Chris@40: #endif Chris@40: Chris@40: #define BUFFER_SIZE (1 << 18) Chris@40: #define BLOCK_COUNT (30) Chris@40: #define TEST_DURATION (5) /* 5 Seconds. */ Chris@40: Chris@40: typedef struct Chris@40: { double write_rate ; Chris@40: double read_rate ; Chris@40: } PERF_STATS ; Chris@40: Chris@40: static void *data = NULL ; Chris@40: Chris@40: static void calc_raw_performance (PERF_STATS *stats) ; Chris@40: Chris@40: static void calc_short_performance (int format, double read_rate, double write_rate) ; Chris@40: static void calc_int_performance (int format, double read_rate, double write_rate) ; Chris@40: static void calc_float_performance (int format, double read_rate, double write_rate) ; Chris@40: Chris@40: Chris@40: static int cpu_is_big_endian (void) ; Chris@40: Chris@40: static const char* get_subtype_str (int subtype) ; Chris@40: Chris@40: int Chris@40: main (int argc, char *argv []) Chris@40: { PERF_STATS stats ; Chris@40: char buffer [256] = "Benchmarking " ; Chris@40: int format_major ; Chris@40: Chris@40: if (! (data = malloc (BUFFER_SIZE * sizeof (double)))) Chris@40: { perror ("Error : malloc failed") ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: Chris@40: sf_command (NULL, SFC_GET_LIB_VERSION, buffer + strlen (buffer), sizeof (buffer) - strlen (buffer)) ; Chris@40: Chris@40: puts (buffer) ; Chris@40: memset (buffer, '-', strlen (buffer)) ; Chris@40: puts (buffer) ; Chris@40: printf ("Each test takes a little over %d seconds.\n\n", TEST_DURATION) ; Chris@40: Chris@40: calc_raw_performance (&stats) ; Chris@40: Chris@40: if (argc < 2 || strcmp ("--native-only", argv [1]) == 0) Chris@40: { puts ("\nNative endian I/O :") ; Chris@40: format_major = cpu_is_big_endian () ? SF_FORMAT_AIFF : SF_FORMAT_WAV ; Chris@40: Chris@40: calc_short_performance (format_major | SF_FORMAT_PCM_16, stats.read_rate, stats.write_rate) ; Chris@40: calc_int_performance (format_major | SF_FORMAT_PCM_24, stats.read_rate, stats.write_rate) ; Chris@40: calc_int_performance (format_major | SF_FORMAT_PCM_32, stats.read_rate, stats.write_rate) ; Chris@40: calc_float_performance (format_major | SF_FORMAT_PCM_16, stats.read_rate, stats.write_rate) ; Chris@40: calc_float_performance (format_major | SF_FORMAT_PCM_24, stats.read_rate, stats.write_rate) ; Chris@40: calc_float_performance (format_major | SF_FORMAT_PCM_32, stats.read_rate, stats.write_rate) ; Chris@40: calc_float_performance (format_major | SF_FORMAT_FLOAT , stats.read_rate, stats.write_rate) ; Chris@40: } ; Chris@40: Chris@40: if (argc < 2 || strcmp ("--swap-only", argv [1]) == 0) Chris@40: { puts ("\nEndian swapped I/O :") ; Chris@40: format_major = cpu_is_big_endian () ? SF_FORMAT_WAV : SF_FORMAT_AIFF ; Chris@40: Chris@40: calc_short_performance (format_major | SF_FORMAT_PCM_16, stats.read_rate, stats.write_rate) ; Chris@40: calc_int_performance (format_major | SF_FORMAT_PCM_24, stats.read_rate, stats.write_rate) ; Chris@40: calc_int_performance (format_major | SF_FORMAT_PCM_32, stats.read_rate, stats.write_rate) ; Chris@40: calc_float_performance (format_major | SF_FORMAT_PCM_16, stats.read_rate, stats.write_rate) ; Chris@40: calc_float_performance (format_major | SF_FORMAT_PCM_24, stats.read_rate, stats.write_rate) ; Chris@40: calc_float_performance (format_major | SF_FORMAT_PCM_32, stats.read_rate, stats.write_rate) ; Chris@40: calc_float_performance (format_major | SF_FORMAT_FLOAT , stats.read_rate, stats.write_rate) ; Chris@40: } ; Chris@40: Chris@40: puts ("") ; Chris@40: Chris@40: free (data) ; Chris@40: Chris@40: return 0 ; Chris@40: } /* main */ Chris@40: Chris@40: /*============================================================================== Chris@40: */ Chris@40: Chris@40: static void Chris@40: calc_raw_performance (PERF_STATS *stats) Chris@40: { clock_t start_clock, clock_time ; Chris@40: int fd, k, byte_count, retval, op_count ; Chris@40: const char *filename ; Chris@40: Chris@40: filename = "benchmark.dat" ; Chris@40: Chris@40: byte_count = BUFFER_SIZE * sizeof (short) ; Chris@40: Chris@40: /* Collect write stats */ Chris@40: printf (" Raw write PCM_16 : ") ; Chris@40: fflush (stdout) ; Chris@40: Chris@40: clock_time = 0 ; Chris@40: op_count = 0 ; Chris@40: start_clock = clock () ; Chris@40: Chris@40: while (clock_time < (CLOCKS_PER_SEC * TEST_DURATION)) Chris@40: { if ((fd = open (filename, WRITE_FLAGS, WRITE_PERMS)) < 0) Chris@40: { printf ("Error : not able to open file : %s\n", filename) ; Chris@40: perror ("") ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: Chris@40: for (k = 0 ; k < BLOCK_COUNT ; k++) Chris@40: { if ((retval = write (fd, data, byte_count)) != byte_count) Chris@40: { printf ("Error : write returned %d (should have been %d)\n", retval, byte_count) ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: close (fd) ; Chris@40: Chris@40: clock_time = clock () - start_clock ; Chris@40: op_count ++ ; Chris@40: } ; Chris@40: Chris@40: stats->write_rate = (1.0 * BUFFER_SIZE) * BLOCK_COUNT * op_count ; Chris@40: stats->write_rate *= (1.0 * CLOCKS_PER_SEC) / clock_time ; Chris@40: printf ("%10.0f samples per sec\n", stats->write_rate) ; Chris@40: Chris@40: /* Collect read stats */ Chris@40: printf (" Raw read PCM_16 : ") ; Chris@40: fflush (stdout) ; Chris@40: Chris@40: clock_time = 0 ; Chris@40: op_count = 0 ; Chris@40: start_clock = clock () ; Chris@40: Chris@40: while (clock_time < (CLOCKS_PER_SEC * TEST_DURATION)) Chris@40: { if ((fd = open (filename, READ_FLAGS)) < 0) Chris@40: { printf ("Error : not able to open file : %s\n", filename) ; Chris@40: perror ("") ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: Chris@40: for (k = 0 ; k < BLOCK_COUNT ; k++) Chris@40: { if ((retval = read (fd, data, byte_count)) != byte_count) Chris@40: { printf ("Error : write returned %d (should have been %d)\n", retval, byte_count) ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: close (fd) ; Chris@40: Chris@40: clock_time = clock () - start_clock ; Chris@40: op_count ++ ; Chris@40: } ; Chris@40: Chris@40: stats->read_rate = (1.0 * BUFFER_SIZE) * BLOCK_COUNT * op_count ; Chris@40: stats->read_rate *= (1.0 * CLOCKS_PER_SEC) / clock_time ; Chris@40: printf ("%10.0f samples per sec\n", stats->read_rate) ; Chris@40: Chris@40: unlink (filename) ; Chris@40: } /* calc_raw_performance */ Chris@40: Chris@40: /*------------------------------------------------------------------------------ Chris@40: */ Chris@40: Chris@40: static void Chris@40: calc_short_performance (int format, double read_rate, double write_rate) Chris@40: { SNDFILE *file ; Chris@40: SF_INFO sfinfo ; Chris@40: clock_t start_clock, clock_time ; Chris@40: double performance ; Chris@40: int k, item_count, retval, op_count ; Chris@40: const char* subtype ; Chris@40: short *short_data ; Chris@40: const char *filename ; Chris@40: Chris@40: filename = "benchmark.dat" ; Chris@40: subtype = get_subtype_str (format & SF_FORMAT_SUBMASK) ; Chris@40: Chris@40: short_data = data ; Chris@40: item_count = BUFFER_SIZE ; Chris@40: for (k = 0 ; k < item_count ; k++) Chris@40: short_data [k] = 32700.0 * sin (2 * M_PI * k / 32000.0) ; Chris@40: Chris@40: /* Collect write stats */ Chris@40: printf (" Write %-5s to %s : ", "short", subtype) ; Chris@40: fflush (stdout) ; Chris@40: Chris@40: sfinfo.channels = 1 ; Chris@40: sfinfo.format = format ; Chris@40: sfinfo.frames = 1 ; Chris@40: sfinfo.samplerate = 32000 ; Chris@40: Chris@40: clock_time = 0 ; Chris@40: op_count = 0 ; Chris@40: start_clock = clock () ; Chris@40: Chris@40: while (clock_time < (CLOCKS_PER_SEC * TEST_DURATION)) Chris@40: { if (! (file = sf_open (filename, SFM_WRITE, &sfinfo))) Chris@40: { printf ("Error : not able to open file : %s\n", filename) ; Chris@40: perror ("") ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: Chris@40: /* Turn off the addition of a PEAK chunk. */ Chris@40: sf_command (file, SFC_SET_ADD_PEAK_CHUNK, NULL, SF_FALSE) ; Chris@40: Chris@40: for (k = 0 ; k < BLOCK_COUNT ; k++) Chris@40: { if ((retval = sf_write_short (file, short_data, item_count)) != item_count) Chris@40: { printf ("Error : sf_write_short returned %d (should have been %d)\n", retval, item_count) ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: sf_close (file) ; Chris@40: Chris@40: clock_time = clock () - start_clock ; Chris@40: op_count ++ ; Chris@40: } ; Chris@40: Chris@40: performance = (1.0 * BUFFER_SIZE) * BLOCK_COUNT * op_count ; Chris@40: performance *= (1.0 * CLOCKS_PER_SEC) / clock_time ; Chris@40: printf ("%6.2f%% of raw write\n", 100.0 * performance / write_rate) ; Chris@40: Chris@40: /* Collect read stats */ Chris@40: printf (" Read %-5s from %s : ", "short", subtype) ; Chris@40: fflush (stdout) ; Chris@40: Chris@40: clock_time = 0 ; Chris@40: op_count = 0 ; Chris@40: start_clock = clock () ; Chris@40: Chris@40: while (clock_time < (CLOCKS_PER_SEC * TEST_DURATION)) Chris@40: { if (! (file = sf_open (filename, SFM_READ, &sfinfo))) Chris@40: { printf ("Error : not able to open file : %s\n", filename) ; Chris@40: perror ("") ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: Chris@40: for (k = 0 ; k < BLOCK_COUNT ; k++) Chris@40: { if ((retval = sf_read_short (file, short_data, item_count)) != item_count) Chris@40: { printf ("Error : write returned %d (should have been %d)\n", retval, item_count) ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: sf_close (file) ; Chris@40: Chris@40: clock_time = clock () - start_clock ; Chris@40: op_count ++ ; Chris@40: } ; Chris@40: Chris@40: performance = (1.0 * item_count) * BLOCK_COUNT * op_count ; Chris@40: performance *= (1.0 * CLOCKS_PER_SEC) / clock_time ; Chris@40: printf ("%6.2f%% of raw read\n", 100.0 * performance / read_rate) ; Chris@40: Chris@40: unlink (filename) ; Chris@40: Chris@40: } /* calc_short_performance */ Chris@40: static void Chris@40: calc_int_performance (int format, double read_rate, double write_rate) Chris@40: { SNDFILE *file ; Chris@40: SF_INFO sfinfo ; Chris@40: clock_t start_clock, clock_time ; Chris@40: double performance ; Chris@40: int k, item_count, retval, op_count ; Chris@40: const char* subtype ; Chris@40: int *int_data ; Chris@40: const char *filename ; Chris@40: Chris@40: filename = "benchmark.dat" ; Chris@40: subtype = get_subtype_str (format & SF_FORMAT_SUBMASK) ; Chris@40: Chris@40: int_data = data ; Chris@40: item_count = BUFFER_SIZE ; Chris@40: for (k = 0 ; k < item_count ; k++) Chris@40: int_data [k] = 32700.0 * (1 << 16) * sin (2 * M_PI * k / 32000.0) ; Chris@40: Chris@40: /* Collect write stats */ Chris@40: printf (" Write %-5s to %s : ", "int", subtype) ; Chris@40: fflush (stdout) ; Chris@40: Chris@40: sfinfo.channels = 1 ; Chris@40: sfinfo.format = format ; Chris@40: sfinfo.frames = 1 ; Chris@40: sfinfo.samplerate = 32000 ; Chris@40: Chris@40: clock_time = 0 ; Chris@40: op_count = 0 ; Chris@40: start_clock = clock () ; Chris@40: Chris@40: while (clock_time < (CLOCKS_PER_SEC * TEST_DURATION)) Chris@40: { if (! (file = sf_open (filename, SFM_WRITE, &sfinfo))) Chris@40: { printf ("Error : not able to open file : %s\n", filename) ; Chris@40: perror ("") ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: Chris@40: /* Turn off the addition of a PEAK chunk. */ Chris@40: sf_command (file, SFC_SET_ADD_PEAK_CHUNK, NULL, SF_FALSE) ; Chris@40: Chris@40: for (k = 0 ; k < BLOCK_COUNT ; k++) Chris@40: { if ((retval = sf_write_int (file, int_data, item_count)) != item_count) Chris@40: { printf ("Error : sf_write_short returned %d (should have been %d)\n", retval, item_count) ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: sf_close (file) ; Chris@40: Chris@40: clock_time = clock () - start_clock ; Chris@40: op_count ++ ; Chris@40: } ; Chris@40: Chris@40: performance = (1.0 * BUFFER_SIZE) * BLOCK_COUNT * op_count ; Chris@40: performance *= (1.0 * CLOCKS_PER_SEC) / clock_time ; Chris@40: printf ("%6.2f%% of raw write\n", 100.0 * performance / write_rate) ; Chris@40: Chris@40: /* Collect read stats */ Chris@40: printf (" Read %-5s from %s : ", "int", subtype) ; Chris@40: fflush (stdout) ; Chris@40: Chris@40: clock_time = 0 ; Chris@40: op_count = 0 ; Chris@40: start_clock = clock () ; Chris@40: Chris@40: while (clock_time < (CLOCKS_PER_SEC * TEST_DURATION)) Chris@40: { if (! (file = sf_open (filename, SFM_READ, &sfinfo))) Chris@40: { printf ("Error : not able to open file : %s\n", filename) ; Chris@40: perror ("") ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: Chris@40: for (k = 0 ; k < BLOCK_COUNT ; k++) Chris@40: { if ((retval = sf_read_int (file, int_data, item_count)) != item_count) Chris@40: { printf ("Error : write returned %d (should have been %d)\n", retval, item_count) ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: sf_close (file) ; Chris@40: Chris@40: clock_time = clock () - start_clock ; Chris@40: op_count ++ ; Chris@40: } ; Chris@40: Chris@40: performance = (1.0 * item_count) * BLOCK_COUNT * op_count ; Chris@40: performance *= (1.0 * CLOCKS_PER_SEC) / clock_time ; Chris@40: printf ("%6.2f%% of raw read\n", 100.0 * performance / read_rate) ; Chris@40: Chris@40: unlink (filename) ; Chris@40: Chris@40: } /* calc_int_performance */ Chris@40: static void Chris@40: calc_float_performance (int format, double read_rate, double write_rate) Chris@40: { SNDFILE *file ; Chris@40: SF_INFO sfinfo ; Chris@40: clock_t start_clock, clock_time ; Chris@40: double performance ; Chris@40: int k, item_count, retval, op_count ; Chris@40: const char* subtype ; Chris@40: float *float_data ; Chris@40: const char *filename ; Chris@40: Chris@40: filename = "benchmark.dat" ; Chris@40: subtype = get_subtype_str (format & SF_FORMAT_SUBMASK) ; Chris@40: Chris@40: float_data = data ; Chris@40: item_count = BUFFER_SIZE ; Chris@40: for (k = 0 ; k < item_count ; k++) Chris@40: float_data [k] = 1.0 * sin (2 * M_PI * k / 32000.0) ; Chris@40: Chris@40: /* Collect write stats */ Chris@40: printf (" Write %-5s to %s : ", "float", subtype) ; Chris@40: fflush (stdout) ; Chris@40: Chris@40: sfinfo.channels = 1 ; Chris@40: sfinfo.format = format ; Chris@40: sfinfo.frames = 1 ; Chris@40: sfinfo.samplerate = 32000 ; Chris@40: Chris@40: clock_time = 0 ; Chris@40: op_count = 0 ; Chris@40: start_clock = clock () ; Chris@40: Chris@40: while (clock_time < (CLOCKS_PER_SEC * TEST_DURATION)) Chris@40: { if (! (file = sf_open (filename, SFM_WRITE, &sfinfo))) Chris@40: { printf ("Error : not able to open file : %s\n", filename) ; Chris@40: perror ("") ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: Chris@40: /* Turn off the addition of a PEAK chunk. */ Chris@40: sf_command (file, SFC_SET_ADD_PEAK_CHUNK, NULL, SF_FALSE) ; Chris@40: Chris@40: for (k = 0 ; k < BLOCK_COUNT ; k++) Chris@40: { if ((retval = sf_write_float (file, float_data, item_count)) != item_count) Chris@40: { printf ("Error : sf_write_short returned %d (should have been %d)\n", retval, item_count) ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: sf_close (file) ; Chris@40: Chris@40: clock_time = clock () - start_clock ; Chris@40: op_count ++ ; Chris@40: } ; Chris@40: Chris@40: performance = (1.0 * BUFFER_SIZE) * BLOCK_COUNT * op_count ; Chris@40: performance *= (1.0 * CLOCKS_PER_SEC) / clock_time ; Chris@40: printf ("%6.2f%% of raw write\n", 100.0 * performance / write_rate) ; Chris@40: Chris@40: /* Collect read stats */ Chris@40: printf (" Read %-5s from %s : ", "float", subtype) ; Chris@40: fflush (stdout) ; Chris@40: Chris@40: clock_time = 0 ; Chris@40: op_count = 0 ; Chris@40: start_clock = clock () ; Chris@40: Chris@40: while (clock_time < (CLOCKS_PER_SEC * TEST_DURATION)) Chris@40: { if (! (file = sf_open (filename, SFM_READ, &sfinfo))) Chris@40: { printf ("Error : not able to open file : %s\n", filename) ; Chris@40: perror ("") ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: Chris@40: for (k = 0 ; k < BLOCK_COUNT ; k++) Chris@40: { if ((retval = sf_read_float (file, float_data, item_count)) != item_count) Chris@40: { printf ("Error : write returned %d (should have been %d)\n", retval, item_count) ; Chris@40: exit (1) ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: sf_close (file) ; Chris@40: Chris@40: clock_time = clock () - start_clock ; Chris@40: op_count ++ ; Chris@40: } ; Chris@40: Chris@40: performance = (1.0 * item_count) * BLOCK_COUNT * op_count ; Chris@40: performance *= (1.0 * CLOCKS_PER_SEC) / clock_time ; Chris@40: printf ("%6.2f%% of raw read\n", 100.0 * performance / read_rate) ; Chris@40: Chris@40: unlink (filename) ; Chris@40: Chris@40: } /* calc_float_performance */ Chris@40: Chris@40: Chris@40: /*============================================================================== Chris@40: */ Chris@40: Chris@40: static int Chris@40: cpu_is_big_endian (void) Chris@40: { unsigned char *cptr ; Chris@40: int endtest ; Chris@40: Chris@40: endtest = 0x12345678 ; Chris@40: Chris@40: cptr = (unsigned char*) (&endtest) ; Chris@40: Chris@40: if (cptr [0] == 0x12 && cptr [1] == 0x34 && cptr [3] == 0x78) Chris@40: return SF_TRUE ; Chris@40: Chris@40: return SF_FALSE ; Chris@40: } /* cpu_is_big_endian */ Chris@40: Chris@40: static const char* Chris@40: get_subtype_str (int subtype) Chris@40: { switch (subtype) Chris@40: { case SF_FORMAT_PCM_16 : Chris@40: return "PCM_16" ; Chris@40: Chris@40: case SF_FORMAT_PCM_24 : Chris@40: return "PCM_24" ; Chris@40: Chris@40: case SF_FORMAT_PCM_32 : Chris@40: return "PCM_32" ; Chris@40: Chris@40: case SF_FORMAT_FLOAT : Chris@40: return "FLOAT " ; Chris@40: Chris@40: case SF_FORMAT_DOUBLE : Chris@40: return "DOUBLE" ; Chris@40: Chris@40: default : break ; Chris@40: } ; Chris@40: Chris@40: return "UNKNOWN" ; Chris@40: } /* get_subtype_str */ Chris@40: