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