1[+ AutoGen5 template c +] 2/* 3** Copyright (C) 1999-2017 Erik de Castro Lopo <erikd@mega-nerd.com> 4** 5** This program is free software; you can redistribute it and/or modify 6** it under the terms of the GNU General Public License as published by 7** the Free Software Foundation; either version 2 of the License, or 8** (at your option) any later version. 9** 10** This program is distributed in the hope that it will be useful, 11** but WITHOUT ANY WARRANTY; without even the implied warranty of 12** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13** GNU General Public License for more details. 14** 15** You should have received a copy of the GNU General Public License 16** along with this program; if not, write to the Free Software 17** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 18*/ 19 20#include "sfconfig.h" 21 22#include <stdio.h> 23#include <stdlib.h> 24#include <string.h> 25#include <math.h> 26#include <inttypes.h> 27 28#if HAVE_UNISTD_H 29#include <unistd.h> 30#else 31#include "sf_unistd.h" 32#endif 33 34#include <sndfile.h> 35 36#include "dft_cmp.h" 37#include "utils.h" 38 39#define SAMPLE_RATE 16000 40 41static const char FPT_TEST_PREFIX[] = "fpt" ; 42 43static void float_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr) ; 44static void double_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr) ; 45 46[+ FOR float_type +][+ FOR int_type +][+ FOR endian_type 47+]static void [+ (get "float_name") +]_[+ (get "int_name") +]_[+ (get "end_name") +]_test (const char * filename, int replace_float) ; 48[+ ENDFOR endian_type +][+ ENDFOR int_type +][+ ENDFOR float_type 49+] 50 51static double double_data [DFT_DATA_LENGTH] ; 52static double double_test [DFT_DATA_LENGTH] ; 53 54static float float_data [DFT_DATA_LENGTH] ; 55static float float_test [DFT_DATA_LENGTH] ; 56 57static double double_data [DFT_DATA_LENGTH] ; 58static short short_data [DFT_DATA_LENGTH] ; 59static int int_data [DFT_DATA_LENGTH] ; 60 61int 62main (int argc, char *argv []) 63{ int allow_exit = 1 ; 64 65 if (argc == 2 && ! strstr (argv [1], "no-exit")) 66 allow_exit = 0 ; 67 68#if (HAVE_LRINTF == 0) 69 puts ("*** Cannot run this test on this platform because it lacks lrintf().") ; 70 exit (0) ; 71#endif 72 73 /* Float tests. */ 74 float_scaled_test ("float.raw", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, 75 OS_IS_OPENBSD ? -98.0 : -163.0) ; 76 77 /* Test both signed and unsigned 8 bit files. */ 78 float_scaled_test ("pcm_s8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_S8, -39.0) ; 79 float_scaled_test ("pcm_u8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_U8, -39.0) ; 80 81 float_scaled_test ("pcm_16.raw", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_16, -87.0) ; 82 float_scaled_test ("pcm_24.raw", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_24, -138.0) ; 83 float_scaled_test ("pcm_32.raw", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_32, -163.0) ; 84 85 float_scaled_test ("ulaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ULAW, -50.0) ; 86 float_scaled_test ("alaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ALAW, -49.0) ; 87 88 float_scaled_test ("ima_adpcm.wav", allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_IMA_ADPCM, -47.0) ; 89 float_scaled_test ("ms_adpcm.wav" , allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_MS_ADPCM, -40.0) ; 90 float_scaled_test ("gsm610.raw" , allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_GSM610, -33.0) ; 91 92 float_scaled_test ("g721_32.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G721_32, -32.3) ; 93 float_scaled_test ("g723_24.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_24, -32.3) ; 94 float_scaled_test ("g723_40.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_40, -40.0) ; 95 96 /* PAF files do not use the same encoding method for 24 bit PCM data as other file 97 ** formats so we need to explicitly test it here. 98 */ 99 float_scaled_test ("le_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -149.0) ; 100 float_scaled_test ("be_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -149.0) ; 101 102 float_scaled_test ("dwvw_12.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_12, -64.0) ; 103 float_scaled_test ("dwvw_16.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_16, -92.0) ; 104 float_scaled_test ("dwvw_24.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_24, -151.0) ; 105 106 float_scaled_test ("adpcm.vox", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_VOX_ADPCM, -40.0) ; 107 108 float_scaled_test ("dpcm_16.xi", allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_16, -90.0) ; 109 float_scaled_test ("dpcm_8.xi" , allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_8 , -41.0) ; 110 111 float_scaled_test ("pcm_s8.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_S8, -89.0) ; 112 float_scaled_test ("pcm_16.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_16, -132.0) ; 113 float_scaled_test ("pcm_24.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_24, -170.0) ; 114 115 float_scaled_test ("alac_16.caf", allow_exit, SF_FALSE, SF_FORMAT_CAF | SF_FORMAT_ALAC_16, -90.0) ; 116 float_scaled_test ("alac_32.caf", allow_exit, SF_FALSE, SF_FORMAT_CAF | SF_FORMAT_ALAC_32, -76.0) ; 117 float_scaled_test ("alac_24.caf", allow_exit, SF_FALSE, SF_FORMAT_CAF | SF_FORMAT_ALAC_24, -153.0) ; 118 float_scaled_test ("alac_20.caf", allow_exit, SF_FALSE, SF_FORMAT_CAF | SF_FORMAT_ALAC_20, -125.0) ; 119 120#if HAVE_EXTERNAL_XIPH_LIBS 121 float_scaled_test ("flac_8.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_S8, -39.0) ; 122 float_scaled_test ("flac_16.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_16, -87.0) ; 123 float_scaled_test ("flac_24.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_24, -138.0) ; 124 125 float_scaled_test ("vorbis.oga", allow_exit, SF_FALSE, SF_FORMAT_OGG | SF_FORMAT_VORBIS, -31.0) ; 126 127 float_scaled_test ("opus.opus", allow_exit, SF_FALSE, SF_FORMAT_OGG | SF_FORMAT_OPUS, -32.0) ; 128#endif 129 130#if HAVE_MPEG 131 float_scaled_test ("mpeg.mp3", allow_exit, SF_FALSE, SF_FORMAT_MPEG | SF_FORMAT_MPEG_LAYER_III, -52.0) ; 132#endif 133 134 float_scaled_test ("replace_float.raw", allow_exit, SF_TRUE, SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, -163.0) ; 135 136 /*============================================================================== 137 ** Double tests. 138 */ 139 140 double_scaled_test ("double.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DOUBLE, -201.0) ; 141 142 /* Test both signed (AIFF) and unsigned (WAV) 8 bit files. */ 143 double_scaled_test ("pcm_s8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_S8, -39.0) ; 144 double_scaled_test ("pcm_u8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_U8, -39.0) ; 145 146 double_scaled_test ("pcm_16.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_16, -87.0) ; 147 double_scaled_test ("pcm_24.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_24, -135.0) ; 148 double_scaled_test ("pcm_32.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_32, -184.0) ; 149 150 double_scaled_test ("ulaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ULAW, -50.0) ; 151 double_scaled_test ("alaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ALAW, -49.0) ; 152 153 double_scaled_test ("ima_adpcm.wav", allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_IMA_ADPCM, -47.0) ; 154 double_scaled_test ("ms_adpcm.wav" , allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_MS_ADPCM, -40.0) ; 155 double_scaled_test ("gsm610.raw" , allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_GSM610, -33.0) ; 156 157 double_scaled_test ("g721_32.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G721_32, -32.3) ; 158 double_scaled_test ("g723_24.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_24, -32.3) ; 159 double_scaled_test ("g723_40.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_40, -40.0) ; 160 161 /* 24 bit PCM PAF files tested here. */ 162 double_scaled_test ("be_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -151.0) ; 163 double_scaled_test ("le_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -151.0) ; 164 165 double_scaled_test ("dwvw_12.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_12, -64.0) ; 166 double_scaled_test ("dwvw_16.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_16, -92.0) ; 167 double_scaled_test ("dwvw_24.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_24, -151.0) ; 168 169 double_scaled_test ("adpcm.vox" , allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_VOX_ADPCM, -40.0) ; 170 171 double_scaled_test ("dpcm_16.xi", allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_16, -90.0) ; 172 double_scaled_test ("dpcm_8.xi" , allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_8 , -41.0) ; 173 174 double_scaled_test ("pcm_s8.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_S8, -89.0) ; 175 double_scaled_test ("pcm_16.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_16, -132.0) ; 176 double_scaled_test ("pcm_24.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_24, -180.0) ; 177 178 double_scaled_test ("alac_16.caf", allow_exit, SF_FALSE, SF_FORMAT_CAF | SF_FORMAT_ALAC_16, -90.0) ; 179 double_scaled_test ("alac_20.caf", allow_exit, SF_FALSE, SF_FORMAT_CAF | SF_FORMAT_ALAC_20, -125.0) ; 180 double_scaled_test ("alac_24.caf", allow_exit, SF_FALSE, SF_FORMAT_CAF | SF_FORMAT_ALAC_24, -153.0) ; 181 double_scaled_test ("alac_32.caf", allow_exit, SF_FALSE, SF_FORMAT_CAF | SF_FORMAT_ALAC_32, -186.0) ; 182 183#if HAVE_EXTERNAL_XIPH_LIBS 184 double_scaled_test ("flac_8.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_S8, -39.0) ; 185 double_scaled_test ("flac_16.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_16, -87.0) ; 186 double_scaled_test ("flac_24.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_24, -138.0) ; 187 188 double_scaled_test ("vorbis.oga", allow_exit, SF_FALSE, SF_FORMAT_OGG | SF_FORMAT_VORBIS, -29.0) ; 189 double_scaled_test ("opus.opus", allow_exit, SF_FALSE, SF_FORMAT_OGG | SF_FORMAT_OPUS, -32.0) ; 190#endif 191 192#if HAVE_MPEG 193 double_scaled_test ("mpeg.mp3", allow_exit, SF_FALSE, SF_FORMAT_MPEG | SF_FORMAT_MPEG_LAYER_III, -52.0) ; 194#endif 195 196 double_scaled_test ("replace_double.raw", allow_exit, SF_TRUE, SF_FORMAT_RAW | SF_FORMAT_DOUBLE, -201.0) ; 197 198 putchar ('\n') ; 199 /* Float int tests. */ 200[+ FOR float_type +][+ FOR int_type +][+ FOR endian_type +] 201[+ (get "float_name") +]_[+ (get "int_name") +]_[+ (get "end_name") +]_test ("[+ (get "float_name") +]_[+ (get "int_name") +]_[+ (get "end_name") +].au", SF_FALSE) ; 202[+ (get "float_name") +]_[+ (get "int_name") +]_[+ (get "end_name") +]_test ("[+ (get "float_name") +]_[+ (get "int_name") +]_[+ (get "end_name") +]_replace.au", SF_TRUE) ; 203[+ ENDFOR endian_type +][+ ENDFOR int_type +][+ ENDFOR float_type +] 204 205 return 0 ; 206} /* main */ 207 208/*============================================================================================ 209 * Here are the test functions. 210 */ 211 212static void 213float_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr) 214{ SNDFILE *file ; 215 SF_INFO sfinfo ; 216 double snr ; 217 int byterate ; 218 219 get_unique_test_name (&filename, FPT_TEST_PREFIX) ; 220 print_test_name ("float_scaled_test", filename) ; 221 222 gen_windowed_sine_float (float_data, DFT_DATA_LENGTH, 0.9999) ; 223 224 memset (&sfinfo, 0, sizeof (sfinfo)) ; 225 sfinfo.samplerate = SAMPLE_RATE ; 226 sfinfo.frames = DFT_DATA_LENGTH ; 227 sfinfo.channels = 1 ; 228 sfinfo.format = filetype ; 229 230 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ; 231 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ; 232 233 test_write_float_or_die (file, 0, float_data, DFT_DATA_LENGTH, __LINE__) ; 234 235 sf_close (file) ; 236 237 memset (float_test, 0, sizeof (float_test)) ; 238 239 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ; 240 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ; 241 242 exit_if_true (sfinfo.format != filetype, "\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ; 243 exit_if_true (sfinfo.frames < DFT_DATA_LENGTH, "\n\nLine %d: Incorrect number of frames in file (too short). (%" PRId64 " should be %d)\n", __LINE__, sfinfo.frames, DFT_DATA_LENGTH) ; 244 exit_if_true (sfinfo.channels != 1, "\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ; 245 246 check_log_buffer_or_die (file, __LINE__) ; 247 248 test_read_float_or_die (file, 0, float_test, DFT_DATA_LENGTH, __LINE__) ; 249 250 byterate = sf_current_byterate (file) ; 251 exit_if_true (byterate <= 0, "\n\nLine %d: byterate is zero.\n", __LINE__) ; 252 253 sf_close (file) ; 254 255 snr = dft_cmp_float (__LINE__, float_data, float_test, DFT_DATA_LENGTH, target_snr, allow_exit) ; 256 257 exit_if_true (snr > target_snr, "% 6.1fdB SNR\n\n Error : should be better than % 6.1fdB\n\n", snr, target_snr) ; 258 259 printf ("% 6.1fdB SNR ... ok\n", snr) ; 260 261 unlink (filename) ; 262 263 return ; 264} /* float_scaled_test */ 265 266static void 267double_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr) 268{ SNDFILE *file ; 269 SF_INFO sfinfo ; 270 double snr ; 271 int byterate ; 272 273 get_unique_test_name (&filename, FPT_TEST_PREFIX) ; 274 print_test_name ("double_scaled_test", filename) ; 275 276 gen_windowed_sine_double (double_data, DFT_DATA_LENGTH, 0.9999) ; 277 278 memset (&sfinfo, 0, sizeof (sfinfo)) ; 279 sfinfo.samplerate = SAMPLE_RATE ; 280 sfinfo.frames = DFT_DATA_LENGTH ; 281 sfinfo.channels = 1 ; 282 sfinfo.format = filetype ; 283 284 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ; 285 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ; 286 287 test_write_double_or_die (file, 0, double_data, DFT_DATA_LENGTH, __LINE__) ; 288 289 sf_close (file) ; 290 291 memset (double_test, 0, sizeof (double_test)) ; 292 293 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ; 294 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ; 295 296 exit_if_true (sfinfo.format != filetype, "\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ; 297 exit_if_true (sfinfo.frames < DFT_DATA_LENGTH, "\n\nLine %d: Incorrect number of frames in file (too short). (%" PRId64 " should be %d)\n", __LINE__, sfinfo.frames, DFT_DATA_LENGTH) ; 298 exit_if_true (sfinfo.channels != 1, "\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ; 299 300 check_log_buffer_or_die (file, __LINE__) ; 301 302 test_read_double_or_die (file, 0, double_test, DFT_DATA_LENGTH, __LINE__) ; 303 304 byterate = sf_current_byterate (file) ; 305 exit_if_true (byterate <= 0, "\n\nLine %d: byterate is zero.\n", __LINE__) ; 306 307 sf_close (file) ; 308 309 snr = dft_cmp_double (__LINE__, double_data, double_test, DFT_DATA_LENGTH, target_snr, allow_exit) ; 310 311 exit_if_true (snr > target_snr, "% 6.1fdB SNR\n\n Error : should be better than % 6.1fdB\n\n", snr, target_snr) ; 312 313 printf ("% 6.1fdB SNR ... ok\n", snr) ; 314 315 unlink (filename) ; 316 317 return ; 318} /* double_scaled_test */ 319 320/*============================================================================== 321*/ 322 323[+ FOR float_type +][+ FOR int_type +][+ FOR endian_type 324+] 325static void 326[+ (get "float_name") +]_[+ (get "int_name") +]_[+ (get "end_name") +]_test (const char * filename, int replace_float) 327{ SNDFILE *file ; 328 SF_INFO sfinfo ; 329 int max ; 330 unsigned k ; 331 332 get_unique_test_name (&filename, FPT_TEST_PREFIX) ; 333 print_test_name ("[+ (get "float_name") +]_[+ (get "int_name") +]_[+ (get "end_name") +]_test", filename) ; 334 335 gen_windowed_sine_[+ (get "float_name") +] ([+ (get "float_name") +]_data, ARRAY_LEN ([+ (get "float_name") +]_data), 0.9999) ; 336 337 memset (&sfinfo, 0, sizeof (sfinfo)) ; 338 sfinfo.samplerate = SAMPLE_RATE ; 339 sfinfo.frames = ARRAY_LEN ([+ (get "int_name") +]_data) ; 340 sfinfo.channels = 1 ; 341 sfinfo.format = [+ (get "end_type") +] | SF_FORMAT_AU | [+ (get "minor_type") +] ; 342 343 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ; 344 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ; 345 test_write_[+ (get "float_name") +]_or_die (file, 0, [+ (get "float_name") +]_data, ARRAY_LEN ([+ (get "float_name") +]_data), __LINE__) ; 346 sf_close (file) ; 347 348 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ; 349 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ; 350 351 if (sfinfo.frames != ARRAY_LEN ([+ (get "float_name") +]_data)) 352 { printf ("\n\nLine %d: Incorrect number of frames in file (too short). (%" PRId64 " should be %d)\n", __LINE__, sfinfo.frames, DFT_DATA_LENGTH) ; 353 exit (1) ; 354 } ; 355 356 if (sfinfo.channels != 1) 357 { printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ; 358 exit (1) ; 359 } ; 360 361 sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ; 362 363 test_read_[+ (get "int_name") +]_or_die (file, 0, [+ (get "int_name") +]_data, ARRAY_LEN ([+ (get "int_name") +]_data), __LINE__) ; 364 sf_close (file) ; 365 366 max = 0 ; 367 for (k = 0 ; k < ARRAY_LEN ([+ (get "int_name") +]_data) ; k++) 368 if (abs ([+ (get "int_name") +]_data [k]) > max) 369 max = abs ([+ (get "int_name") +]_data [k]) ; 370 371 if (1.0 * abs (max - [+ (get "int_max") +]) / [+ (get "int_max") +] > 0.01) 372 { printf ("\n\nLine %d: Bad maximum (%d should be %d).\n\n", __LINE__, max, [+ (get "int_max") +]) ; 373 exit (1) ; 374 } ; 375 376 unlink (filename) ; 377 puts ("ok") ; 378} /* [+ (get "float_name") +]_[+ (get "int_name") +]_[+ (get "end_name") +]_test */ 379[+ ENDFOR endian_type +][+ ENDFOR int_type +][+ ENDFOR float_type +] 380 381