开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > Audio > 查看源码
floating_point_test.c
资源名称：libsndfile-1.0.21.tar.gz　[点击查看]
上传用户：shw771010
上传日期：2022-01-05
资源大小：991k
文件大小：25k
源码类别：

Audio

开发平台：

Unix_Linux

floating_point_test.c：源码内容
  1. /*
  2. ** Copyright (C) 1999-2009 Erik de Castro Lopo <erikd@mega-nerd.com>
  3. **
  4. ** This program is free software; you can redistribute it and/or modify
  5. ** it under the terms of the GNU General Public License as published by
  6. ** the Free Software Foundation; either version 2 of the License, or
  7. ** (at your option) any later version.
  8. **
  9. ** This program is distributed in the hope that it will be useful,
  10. ** but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ** GNU General Public License for more details.
  13. **
  14. ** You should have received a copy of the GNU General Public License
  15. ** along with this program; if not, write to the Free Software
  16. ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17. */
  19. #include "sfconfig.h"
  21. #include <stdio.h>
  22. #include <stdlib.h>
  23. #include <string.h>
  24. #include <math.h>
  26. #if HAVE_UNISTD_H
  27. #include <unistd.h>
  28. #endif
  30. #include <sndfile.h>
  32. #include "dft_cmp.h"
  33. #include "utils.h"
  35. #define SAMPLE_RATE 16000
  37. static void float_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr) ;
  38. static void double_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr) ;
  40. static void float_short_little_test (const char * filename) ;
  41. static void float_short_big_test (const char * filename) ;
  42. static void float_int_little_test (const char * filename) ;
  43. static void float_int_big_test (const char * filename) ;
  44. static void double_short_little_test (const char * filename) ;
  45. static void double_short_big_test (const char * filename) ;
  46. static void double_int_little_test (const char * filename) ;
  47. static void double_int_big_test (const char * filename) ;
  50. static double double_data [DFT_DATA_LENGTH] ;
  51. static double double_test [DFT_DATA_LENGTH] ;
  53. static float float_data [DFT_DATA_LENGTH] ;
  54. static float float_test [DFT_DATA_LENGTH] ;
  56. static double double_data [DFT_DATA_LENGTH] ;
  57. static short short_data [DFT_DATA_LENGTH] ;
  58. static int int_data [DFT_DATA_LENGTH] ;
  60. int
  61. main (int argc, char *argv [])
  62. { int allow_exit = 1 ;
  64. if (argc == 2 && ! strstr (argv [1], "no-exit"))
  65. allow_exit = 0 ;
  67. #if ((HAVE_LRINTF == 0) && (HAVE_LRINT_REPLACEMENT == 0))
  68. puts ("*** Cannot run this test on this platform because it lacks lrintf().") ;
  69. exit (0) ;
  70. #endif
  72. /* Float tests. */
  73. float_scaled_test ("float.raw", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, -163.0) ;
  75. /* Test both signed and unsigned 8 bit files. */
  76. float_scaled_test ("pcm_s8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_S8, -39.0) ;
  77. float_scaled_test ("pcm_u8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_U8, -39.0) ;
  79. float_scaled_test ("pcm_16.raw", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_16, -87.0) ;
  80. float_scaled_test ("pcm_24.raw", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_24, -138.0) ;
  81. float_scaled_test ("pcm_32.raw", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_32, -163.0) ;
  83. float_scaled_test ("ulaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ULAW, -50.0) ;
  84. float_scaled_test ("alaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ALAW, -49.0) ;
  86. float_scaled_test ("ima_adpcm.wav", allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_IMA_ADPCM, -47.0) ;
  87. float_scaled_test ("ms_adpcm.wav" , allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_MS_ADPCM, -40.0) ;
  88. float_scaled_test ("gsm610.raw" , allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_GSM610, -33.0) ;
  90. float_scaled_test ("g721_32.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G721_32, -34.0) ;
  91. float_scaled_test ("g723_24.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_24, -34.0) ;
  92. float_scaled_test ("g723_40.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_40, -40.0) ;
  94. /* PAF files do not use the same encoding method for 24 bit PCM data as other file
  95. ** formats so we need to explicitly test it here.
  96. */
  97. float_scaled_test ("le_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -149.0) ;
  98. float_scaled_test ("be_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -149.0) ;
  100. float_scaled_test ("dwvw_12.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_12, -64.0) ;
  101. float_scaled_test ("dwvw_16.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_16, -92.0) ;
  102. float_scaled_test ("dwvw_24.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_24, -151.0) ;
  104. float_scaled_test ("adpcm.vox", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_VOX_ADPCM, -40.0) ;
  106. float_scaled_test ("dpcm_16.xi", allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_16, -90.0) ;
  107. float_scaled_test ("dpcm_8.xi" , allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_8 , -41.0) ;
  109. float_scaled_test ("pcm_s8.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_S8, -90.0) ;
  110. float_scaled_test ("pcm_16.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_16, -140.0) ;
  111. float_scaled_test ("pcm_24.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_24, -170.0) ;
  113. #if HAVE_EXTERNAL_LIBS
  114. float_scaled_test ("flac_8.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_S8, -39.0) ;
  115. float_scaled_test ("flac_16.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_16, -87.0) ;
  116. float_scaled_test ("flac_24.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_24, -138.0) ;
  118. float_scaled_test ("vorbis.oga", allow_exit, SF_FALSE, SF_FORMAT_OGG | SF_FORMAT_VORBIS, -31.0) ;
  119. #endif
  121. float_scaled_test ("replace_float.raw", allow_exit, SF_TRUE, SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, -163.0) ;
  123. /*==============================================================================
  124. ** Double tests.
  125. */
  127. double_scaled_test ("double.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DOUBLE, -300.0) ;
  129. /* Test both signed (AIFF) and unsigned (WAV) 8 bit files. */
  130. double_scaled_test ("pcm_s8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_S8, -39.0) ;
  131. double_scaled_test ("pcm_u8.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_U8, -39.0) ;
  133. double_scaled_test ("pcm_16.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_16, -87.0) ;
  134. double_scaled_test ("pcm_24.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_24, -135.0) ;
  135. double_scaled_test ("pcm_32.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_PCM_32, -184.0) ;
  137. double_scaled_test ("ulaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ULAW, -50.0) ;
  138. double_scaled_test ("alaw.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_ALAW, -49.0) ;
  140. double_scaled_test ("ima_adpcm.wav", allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_IMA_ADPCM, -47.0) ;
  141. double_scaled_test ("ms_adpcm.wav" , allow_exit, SF_FALSE, SF_FORMAT_WAV | SF_FORMAT_MS_ADPCM, -40.0) ;
  142. double_scaled_test ("gsm610.raw" , allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_GSM610, -33.0) ;
  144. double_scaled_test ("g721_32.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G721_32, -34.0) ;
  145. double_scaled_test ("g723_24.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_24, -34.0) ;
  146. double_scaled_test ("g723_40.au", allow_exit, SF_FALSE, SF_FORMAT_AU | SF_FORMAT_G723_40, -40.0) ;
  148. /* 24 bit PCM PAF files tested here. */
  149. double_scaled_test ("be_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_BIG | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -151.0) ;
  150. double_scaled_test ("le_paf_24.paf", allow_exit, SF_FALSE, SF_ENDIAN_LITTLE | SF_FORMAT_PAF | SF_FORMAT_PCM_24, -151.0) ;
  152. double_scaled_test ("dwvw_12.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_12, -64.0) ;
  153. double_scaled_test ("dwvw_16.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_16, -92.0) ;
  154. double_scaled_test ("dwvw_24.raw", allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_DWVW_24, -151.0) ;
  156. double_scaled_test ("adpcm.vox" , allow_exit, SF_FALSE, SF_FORMAT_RAW | SF_FORMAT_VOX_ADPCM, -40.0) ;
  158. double_scaled_test ("dpcm_16.xi", allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_16, -90.0) ;
  159. double_scaled_test ("dpcm_8.xi" , allow_exit, SF_FALSE, SF_FORMAT_XI | SF_FORMAT_DPCM_8 , -42.0) ;
  161. double_scaled_test ("pcm_s8.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_S8, -90.0) ;
  162. double_scaled_test ("pcm_16.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_16, -140.0) ;
  163. double_scaled_test ("pcm_24.sds", allow_exit, SF_FALSE, SF_FORMAT_SDS | SF_FORMAT_PCM_24, -180.0) ;
  165. #if HAVE_EXTERNAL_LIBS
  166. double_scaled_test ("flac_8.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_S8, -39.0) ;
  167. double_scaled_test ("flac_16.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_16, -87.0) ;
  168. double_scaled_test ("flac_24.flac", allow_exit, SF_FALSE, SF_FORMAT_FLAC | SF_FORMAT_PCM_24, -138.0) ;
  170. double_scaled_test ("vorbis.oga", allow_exit, SF_FALSE, SF_FORMAT_OGG | SF_FORMAT_VORBIS, -29.0) ;
  171. #endif
  173. double_scaled_test ("replace_double.raw", allow_exit, SF_TRUE, SF_FORMAT_RAW | SF_FORMAT_DOUBLE, -300.0) ;
  175. putchar ('n') ;
  176. /* Float int tests. */
  177. float_short_little_test ("float_short_little.au") ;
  178. float_short_big_test ("float_short_big.au") ;
  179. float_int_little_test ("float_int_little.au") ;
  180. float_int_big_test ("float_int_big.au") ;
  181. double_short_little_test ("double_short_little.au") ;
  182. double_short_big_test ("double_short_big.au") ;
  183. double_int_little_test ("double_int_little.au") ;
  184. double_int_big_test ("double_int_big.au") ;
  187. return 0 ;
  188. } /* main */
  190. /*============================================================================================
  191.  * Here are the test functions.
  192.  */
  194. static void
  195. float_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr)
  196. { SNDFILE *file ;
  197. SF_INFO sfinfo ;
  198. double snr ;
  200. print_test_name ("float_scaled_test", filename) ;
  202. gen_windowed_sine_float (float_data, DFT_DATA_LENGTH, 1.0) ;
  204. sfinfo.samplerate = SAMPLE_RATE ;
  205. sfinfo.frames = DFT_DATA_LENGTH ;
  206. sfinfo.channels = 1 ;
  207. sfinfo.format = filetype ;
  209. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  210. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  212. test_write_float_or_die (file, 0, float_data, DFT_DATA_LENGTH, __LINE__) ;
  214. sf_close (file) ;
  216. memset (float_test, 0, sizeof (float_test)) ;
  218. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  219. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  221. exit_if_true (sfinfo.format != filetype, "nnLine %d: Returned format incorrect (0x%08X => 0x%08X).n", __LINE__, filetype, sfinfo.format) ;
  222. exit_if_true (sfinfo.frames < DFT_DATA_LENGTH, "nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  223. exit_if_true (sfinfo.channels != 1, "nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  225. check_log_buffer_or_die (file, __LINE__) ;
  227. test_read_float_or_die (file, 0, float_test, DFT_DATA_LENGTH, __LINE__) ;
  229. sf_close (file) ;
  231. snr = dft_cmp_float (__LINE__, float_data, float_test, DFT_DATA_LENGTH, target_snr, allow_exit) ;
  233. exit_if_true (snr > target_snr, "% 6.1fdB SNRnn    Error : should be better than % 6.1fdBnn", snr, target_snr) ;
  235. printf ("% 6.1fdB SNR ... okn", snr) ;
  237. unlink (filename) ;
  239. return ;
  240. } /* float_scaled_test */
  242. static void
  243. double_scaled_test (const char *filename, int allow_exit, int replace_float, int filetype, double target_snr)
  244. { SNDFILE *file ;
  245. SF_INFO sfinfo ;
  246. double snr ;
  248. print_test_name ("double_scaled_test", filename) ;
  250. gen_windowed_sine_double (double_data, DFT_DATA_LENGTH, 0.95) ;
  252. sfinfo.samplerate = SAMPLE_RATE ;
  253. sfinfo.frames = DFT_DATA_LENGTH ;
  254. sfinfo.channels = 1 ;
  255. sfinfo.format = filetype ;
  257. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  258. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  260. test_write_double_or_die (file, 0, double_data, DFT_DATA_LENGTH, __LINE__) ;
  262. sf_close (file) ;
  264. memset (double_test, 0, sizeof (double_test)) ;
  266. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  267. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  269. exit_if_true (sfinfo.format != filetype, "nnLine %d: Returned format incorrect (0x%08X => 0x%08X).n", __LINE__, filetype, sfinfo.format) ;
  270. exit_if_true (sfinfo.frames < DFT_DATA_LENGTH, "nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  271. exit_if_true (sfinfo.channels != 1, "nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  273. check_log_buffer_or_die (file, __LINE__) ;
  275. test_read_double_or_die (file, 0, double_test, DFT_DATA_LENGTH, __LINE__) ;
  277. sf_close (file) ;
  279. snr = dft_cmp_double (__LINE__, double_data, double_test, DFT_DATA_LENGTH, target_snr, allow_exit) ;
  281. exit_if_true (snr > target_snr, "% 6.1fdB SNRnn    Error : should be better than % 6.1fdBnn", snr, target_snr) ;
  283. printf ("% 6.1fdB SNR ... okn", snr) ;
  285. unlink (filename) ;
  287. return ;
  288. } /* double_scaled_test */
  290. /*==============================================================================
  291. */
  294. static void
  295. float_short_little_test (const char * filename)
  296. { SNDFILE *file ;
  297. SF_INFO sfinfo ;
  298. unsigned k, max ;
  300. print_test_name ("float_short_little_test", filename) ;
  302. gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 0.98) ;
  304. sfinfo.samplerate = SAMPLE_RATE ;
  305. sfinfo.frames = ARRAY_LEN (short_data) ;
  306. sfinfo.channels = 1 ;
  307. sfinfo.format = SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_FLOAT ;
  309. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  310. test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
  311. sf_close (file) ;
  313. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  315. if (sfinfo.frames != ARRAY_LEN (float_data))
  316. { printf ("nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  317. exit (1) ;
  318. } ;
  320. if (sfinfo.channels != 1)
  321. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  322. exit (1) ;
  323. } ;
  325. sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
  327. test_read_short_or_die (file, 0, short_data, ARRAY_LEN (short_data), __LINE__) ;
  328. sf_close (file) ;
  330. max = 0 ;
  331. for (k = 0 ; k < ARRAY_LEN (short_data) ; k++)
  332. if ((unsigned) abs (short_data [k]) > max)
  333. max = abs (short_data [k]) ;
  335. if (1.0 * abs (max - 0x7FFF) / 0x7FFF > 0.01)
  336. { printf ("nnLine %d: Bad maximum (%d should be %d).nn", __LINE__, max, 0x7FFF) ;
  337. exit (1) ;
  338. } ;
  340. unlink (filename) ;
  341. puts ("ok") ;
  342. } /* float_short_little_test */
  344. static void
  345. float_short_big_test (const char * filename)
  346. { SNDFILE *file ;
  347. SF_INFO sfinfo ;
  348. unsigned k, max ;
  350. print_test_name ("float_short_big_test", filename) ;
  352. gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 0.98) ;
  354. sfinfo.samplerate = SAMPLE_RATE ;
  355. sfinfo.frames = ARRAY_LEN (short_data) ;
  356. sfinfo.channels = 1 ;
  357. sfinfo.format = SF_ENDIAN_BIG | SF_FORMAT_AU | SF_FORMAT_FLOAT ;
  359. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  360. test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
  361. sf_close (file) ;
  363. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  365. if (sfinfo.frames != ARRAY_LEN (float_data))
  366. { printf ("nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  367. exit (1) ;
  368. } ;
  370. if (sfinfo.channels != 1)
  371. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  372. exit (1) ;
  373. } ;
  375. sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
  377. test_read_short_or_die (file, 0, short_data, ARRAY_LEN (short_data), __LINE__) ;
  378. sf_close (file) ;
  380. max = 0 ;
  381. for (k = 0 ; k < ARRAY_LEN (short_data) ; k++)
  382. if ((unsigned) abs (short_data [k]) > max)
  383. max = abs (short_data [k]) ;
  385. if (1.0 * abs (max - 0x7FFF) / 0x7FFF > 0.01)
  386. { printf ("nnLine %d: Bad maximum (%d should be %d).nn", __LINE__, max, 0x7FFF) ;
  387. exit (1) ;
  388. } ;
  390. unlink (filename) ;
  391. puts ("ok") ;
  392. } /* float_short_big_test */
  394. static void
  395. float_int_little_test (const char * filename)
  396. { SNDFILE *file ;
  397. SF_INFO sfinfo ;
  398. unsigned k, max ;
  400. print_test_name ("float_int_little_test", filename) ;
  402. gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 0.98) ;
  404. sfinfo.samplerate = SAMPLE_RATE ;
  405. sfinfo.frames = ARRAY_LEN (int_data) ;
  406. sfinfo.channels = 1 ;
  407. sfinfo.format = SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_FLOAT ;
  409. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  410. test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
  411. sf_close (file) ;
  413. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  415. if (sfinfo.frames != ARRAY_LEN (float_data))
  416. { printf ("nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  417. exit (1) ;
  418. } ;
  420. if (sfinfo.channels != 1)
  421. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  422. exit (1) ;
  423. } ;
  425. sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
  427. test_read_int_or_die (file, 0, int_data, ARRAY_LEN (int_data), __LINE__) ;
  428. sf_close (file) ;
  430. max = 0 ;
  431. for (k = 0 ; k < ARRAY_LEN (int_data) ; k++)
  432. if ((unsigned) abs (int_data [k]) > max)
  433. max = abs (int_data [k]) ;
  435. if (1.0 * abs (max - 0x7FFFFFFF) / 0x7FFFFFFF > 0.01)
  436. { printf ("nnLine %d: Bad maximum (%d should be %d).nn", __LINE__, max, 0x7FFFFFFF) ;
  437. exit (1) ;
  438. } ;
  440. unlink (filename) ;
  441. puts ("ok") ;
  442. } /* float_int_little_test */
  444. static void
  445. float_int_big_test (const char * filename)
  446. { SNDFILE *file ;
  447. SF_INFO sfinfo ;
  448. unsigned k, max ;
  450. print_test_name ("float_int_big_test", filename) ;
  452. gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 0.98) ;
  454. sfinfo.samplerate = SAMPLE_RATE ;
  455. sfinfo.frames = ARRAY_LEN (int_data) ;
  456. sfinfo.channels = 1 ;
  457. sfinfo.format = SF_ENDIAN_BIG | SF_FORMAT_AU | SF_FORMAT_FLOAT ;
  459. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  460. test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
  461. sf_close (file) ;
  463. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  465. if (sfinfo.frames != ARRAY_LEN (float_data))
  466. { printf ("nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  467. exit (1) ;
  468. } ;
  470. if (sfinfo.channels != 1)
  471. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  472. exit (1) ;
  473. } ;
  475. sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
  477. test_read_int_or_die (file, 0, int_data, ARRAY_LEN (int_data), __LINE__) ;
  478. sf_close (file) ;
  480. max = 0 ;
  481. for (k = 0 ; k < ARRAY_LEN (int_data) ; k++)
  482. if ((unsigned) abs (int_data [k]) > max)
  483. max = abs (int_data [k]) ;
  485. if (1.0 * abs (max - 0x7FFFFFFF) / 0x7FFFFFFF > 0.01)
  486. { printf ("nnLine %d: Bad maximum (%d should be %d).nn", __LINE__, max, 0x7FFFFFFF) ;
  487. exit (1) ;
  488. } ;
  490. unlink (filename) ;
  491. puts ("ok") ;
  492. } /* float_int_big_test */
  494. static void
  495. double_short_little_test (const char * filename)
  496. { SNDFILE *file ;
  497. SF_INFO sfinfo ;
  498. unsigned k, max ;
  500. print_test_name ("double_short_little_test", filename) ;
  502. gen_windowed_sine_double (double_data, ARRAY_LEN (double_data), 0.98) ;
  504. sfinfo.samplerate = SAMPLE_RATE ;
  505. sfinfo.frames = ARRAY_LEN (short_data) ;
  506. sfinfo.channels = 1 ;
  507. sfinfo.format = SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_DOUBLE ;
  509. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  510. test_write_double_or_die (file, 0, double_data, ARRAY_LEN (double_data), __LINE__) ;
  511. sf_close (file) ;
  513. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  515. if (sfinfo.frames != ARRAY_LEN (double_data))
  516. { printf ("nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  517. exit (1) ;
  518. } ;
  520. if (sfinfo.channels != 1)
  521. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  522. exit (1) ;
  523. } ;
  525. sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
  527. test_read_short_or_die (file, 0, short_data, ARRAY_LEN (short_data), __LINE__) ;
  528. sf_close (file) ;
  530. max = 0 ;
  531. for (k = 0 ; k < ARRAY_LEN (short_data) ; k++)
  532. if ((unsigned) abs (short_data [k]) > max)
  533. max = abs (short_data [k]) ;
  535. if (1.0 * abs (max - 0x7FFF) / 0x7FFF > 0.01)
  536. { printf ("nnLine %d: Bad maximum (%d should be %d).nn", __LINE__, max, 0x7FFF) ;
  537. exit (1) ;
  538. } ;
  540. unlink (filename) ;
  541. puts ("ok") ;
  542. } /* double_short_little_test */
  544. static void
  545. double_short_big_test (const char * filename)
  546. { SNDFILE *file ;
  547. SF_INFO sfinfo ;
  548. unsigned k, max ;
  550. print_test_name ("double_short_big_test", filename) ;
  552. gen_windowed_sine_double (double_data, ARRAY_LEN (double_data), 0.98) ;
  554. sfinfo.samplerate = SAMPLE_RATE ;
  555. sfinfo.frames = ARRAY_LEN (short_data) ;
  556. sfinfo.channels = 1 ;
  557. sfinfo.format = SF_ENDIAN_BIG | SF_FORMAT_AU | SF_FORMAT_DOUBLE ;
  559. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  560. test_write_double_or_die (file, 0, double_data, ARRAY_LEN (double_data), __LINE__) ;
  561. sf_close (file) ;
  563. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  565. if (sfinfo.frames != ARRAY_LEN (double_data))
  566. { printf ("nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  567. exit (1) ;
  568. } ;
  570. if (sfinfo.channels != 1)
  571. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  572. exit (1) ;
  573. } ;
  575. sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
  577. test_read_short_or_die (file, 0, short_data, ARRAY_LEN (short_data), __LINE__) ;
  578. sf_close (file) ;
  580. max = 0 ;
  581. for (k = 0 ; k < ARRAY_LEN (short_data) ; k++)
  582. if ((unsigned) abs (short_data [k]) > max)
  583. max = abs (short_data [k]) ;
  585. if (1.0 * abs (max - 0x7FFF) / 0x7FFF > 0.01)
  586. { printf ("nnLine %d: Bad maximum (%d should be %d).nn", __LINE__, max, 0x7FFF) ;
  587. exit (1) ;
  588. } ;
  590. unlink (filename) ;
  591. puts ("ok") ;
  592. } /* double_short_big_test */
  594. static void
  595. double_int_little_test (const char * filename)
  596. { SNDFILE *file ;
  597. SF_INFO sfinfo ;
  598. unsigned k, max ;
  600. print_test_name ("double_int_little_test", filename) ;
  602. gen_windowed_sine_double (double_data, ARRAY_LEN (double_data), 0.98) ;
  604. sfinfo.samplerate = SAMPLE_RATE ;
  605. sfinfo.frames = ARRAY_LEN (int_data) ;
  606. sfinfo.channels = 1 ;
  607. sfinfo.format = SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_DOUBLE ;
  609. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  610. test_write_double_or_die (file, 0, double_data, ARRAY_LEN (double_data), __LINE__) ;
  611. sf_close (file) ;
  613. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  615. if (sfinfo.frames != ARRAY_LEN (double_data))
  616. { printf ("nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  617. exit (1) ;
  618. } ;
  620. if (sfinfo.channels != 1)
  621. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  622. exit (1) ;
  623. } ;
  625. sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
  627. test_read_int_or_die (file, 0, int_data, ARRAY_LEN (int_data), __LINE__) ;
  628. sf_close (file) ;
  630. max = 0 ;
  631. for (k = 0 ; k < ARRAY_LEN (int_data) ; k++)
  632. if ((unsigned) abs (int_data [k]) > max)
  633. max = abs (int_data [k]) ;
  635. if (1.0 * abs (max - 0x7FFFFFFF) / 0x7FFFFFFF > 0.01)
  636. { printf ("nnLine %d: Bad maximum (%d should be %d).nn", __LINE__, max, 0x7FFFFFFF) ;
  637. exit (1) ;
  638. } ;
  640. unlink (filename) ;
  641. puts ("ok") ;
  642. } /* double_int_little_test */
  644. static void
  645. double_int_big_test (const char * filename)
  646. { SNDFILE *file ;
  647. SF_INFO sfinfo ;
  648. unsigned k, max ;
  650. print_test_name ("double_int_big_test", filename) ;
  652. gen_windowed_sine_double (double_data, ARRAY_LEN (double_data), 0.98) ;
  654. sfinfo.samplerate = SAMPLE_RATE ;
  655. sfinfo.frames = ARRAY_LEN (int_data) ;
  656. sfinfo.channels = 1 ;
  657. sfinfo.format = SF_ENDIAN_BIG | SF_FORMAT_AU | SF_FORMAT_DOUBLE ;
  659. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  660. test_write_double_or_die (file, 0, double_data, ARRAY_LEN (double_data), __LINE__) ;
  661. sf_close (file) ;
  663. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  665. if (sfinfo.frames != ARRAY_LEN (double_data))
  666. { printf ("nnLine %d: Incorrect number of frames in file (too short). (%ld should be %d)n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), DFT_DATA_LENGTH) ;
  667. exit (1) ;
  668. } ;
  670. if (sfinfo.channels != 1)
  671. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  672. exit (1) ;
  673. } ;
  675. sf_command (file, SFC_SET_SCALE_FLOAT_INT_READ, NULL, SF_TRUE) ;
  677. test_read_int_or_die (file, 0, int_data, ARRAY_LEN (int_data), __LINE__) ;
  678. sf_close (file) ;
  680. max = 0 ;
  681. for (k = 0 ; k < ARRAY_LEN (int_data) ; k++)
  682. if ((unsigned) abs (int_data [k]) > max)
  683. max = abs (int_data [k]) ;
  685. if (1.0 * abs (max - 0x7FFFFFFF) / 0x7FFFFFFF > 0.01)
  686. { printf ("nnLine %d: Bad maximum (%d should be %d).nn", __LINE__, max, 0x7FFFFFFF) ;
  687. exit (1) ;
  688. } ;
  690. unlink (filename) ;
  691. puts ("ok") ;
  692. } /* double_int_big_test */