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

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

Audio

开发平台：

Unix_Linux

pcm_test.tpl：源码内容
  1. [+ AutoGen5 template c +]
  2. /*
  3. ** Copyright (C) 1999-2009 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. */
  20. #include "sfconfig.h"
  22. #include <stdio.h>
  23. #include <stdlib.h>
  24. #include <string.h>
  25. #include <math.h>
  27. #if HAVE_UNISTD_H
  28. #include <unistd.h>
  29. #endif
  31. #include <sndfile.h>
  33. #include "utils.h"
  35. #define BUFFER_SIZE (1<<12)
  37. static void lrintf_test (void) ;
  39. [+ FOR data_type
  40. +]static void pcm_test_[+ (get "name") +] (const char *filename, int filetype, uint64_t hash) ;
  41. [+ ENDFOR data_type
  42. +]
  43. static void pcm_test_float (const char *filename, int filetype, uint64_t hash, int replace_float) ;
  44. static void pcm_test_double (const char *filename, int filetype, uint64_t hash, int replace_float) ;
  46. typedef union
  47. { double d [BUFFER_SIZE + 1] ;
  48. float f [BUFFER_SIZE + 1] ;
  49. int i [BUFFER_SIZE + 1] ;
  50. short s [BUFFER_SIZE + 1] ;
  51. } BUFFER ;
  53. /* Data written to the file. */
  54. static BUFFER data_out ;
  56. /* Data read back from the file. */
  57. static BUFFER data_in ;
  59. int
  60. main (void)
  61. {
  62. lrintf_test () ;
  64. pcm_test_bits_8 ("pcm-s8.raw", SF_FORMAT_RAW | SF_FORMAT_PCM_S8, 0x1cda335091249dbfLL) ;
  65. pcm_test_bits_8 ("pcm-u8.raw", SF_FORMAT_RAW | SF_FORMAT_PCM_U8, 0x7f748c433d695f3fLL) ;
  67. pcm_test_bits_16 ("le-pcm16.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_16, 0x3a2b956c881ebf08LL) ;
  68. pcm_test_bits_16 ("be-pcm16.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_16, 0xd9e2f840c55750f8LL) ;
  70. pcm_test_bits_24 ("le-pcm24.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_24, 0x933b6a759ab496f8LL) ;
  71. pcm_test_bits_24 ("be-pcm24.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_24, 0xbb1f3eaf9c30b6f8LL) ;
  73. pcm_test_bits_32 ("le-pcm32.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_32, 0xa77aece1c1c17f08LL) ;
  74. pcm_test_bits_32 ("be-pcm32.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_32, 0x3099ddf142d0b0f8LL) ;
  76. /* Lite remove start */
  77. pcm_test_float ("le-float.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x3c2ad04f7554267aLL, SF_FALSE) ;
  78. pcm_test_float ("be-float.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x074de3e248fa9186LL, SF_FALSE) ;
  80. pcm_test_double ("le-double.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xc682726f958f669cLL, SF_FALSE) ;
  81. pcm_test_double ("be-double.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xd9a3583f8ee51164LL, SF_FALSE) ;
  83. pcm_test_float ("le-float.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x3c2ad04f7554267aLL, SF_TRUE) ;
  84. pcm_test_float ("be-float.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x074de3e248fa9186LL, SF_TRUE) ;
  86. pcm_test_double ("le-double.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xc682726f958f669cLL, SF_TRUE) ;
  87. pcm_test_double ("be-double.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xd9a3583f8ee51164LL, SF_TRUE) ;
  88. /* Lite remove end */
  90. return 0 ;
  91. } /* main */
  93. /*============================================================================================
  94. ** Here are the test functions.
  95. */
  97. static void
  98. lrintf_test (void)
  99. { int k, items ;
  100. float *float_data ;
  101. int *int_data ;
  103. print_test_name ("lrintf_test", "") ;
  105. items = 1024 ;
  107. float_data = data_out.f ;
  108. int_data = data_in.i ;
  110. for (k = 0 ; k < items ; k++)
  111. float_data [k] = (k * ((k % 2) ? 333333.0 : -333333.0)) ;
  113. for (k = 0 ; k < items ; k++)
  114. int_data [k] = lrintf (float_data [k]) ;
  116. for (k = 0 ; k < items ; k++)
  117. if (fabs (int_data [k] - float_data [k]) > 1.0)
  118. { printf ("nnLine %d: float : Incorrect sample (#%d : %f => %d).n", __LINE__, k, float_data [k], int_data [k]) ;
  119. exit (1) ;
  120. } ;
  122. printf ("okn") ;
  123. } /* lrintf_test */
  125. [+ FOR data_type
  126. +]static void
  127. pcm_test_[+ (get "name") +] (const char *filename, int filetype, uint64_t hash)
  128. { SNDFILE *file ;
  129. SF_INFO sfinfo ;
  130. int k, items, zero_count ;
  131. short *short_out, *short_in ;
  132. int *int_out, *int_in ;
  133. /* Lite remove start */
  134. float *float_out, *float_in ;
  135. double *double_out, *double_in ;
  136. /* Lite remove end */
  138. print_test_name ("pcm_test_[+ (get "name") +]", filename) ;
  140. items = [+ (get "item_count") +] ;
  142. short_out = data_out.s ;
  143. short_in = data_in.s ;
  145. zero_count = 0 ;
  146. for (k = 0 ; k < items ; k++)
  147. { short_out [k] = [+ (get "short_func") +] ;
  148. zero_count = short_out [k] ? zero_count : zero_count + 1 ;
  149. } ;
  151. if (zero_count > items / 4)
  152. { printf ("nnLine %d: too many zeros.n", __LINE__) ;
  153. exit (1) ;
  154. } ;
  156. sfinfo.samplerate = 44100 ;
  157. sfinfo.frames = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
  158. sfinfo.channels = 1 ;
  159. sfinfo.format = filetype ;
  161. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  163. test_write_short_or_die (file, 0, short_out, items, __LINE__) ;
  165. sf_close (file) ;
  167. memset (short_in, 0, items * sizeof (short)) ;
  169. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  171. if (sfinfo.format != filetype)
  172. { printf ("nnLine %d: Returned format incorrect (0x%08X => 0x%08X).n", __LINE__, filetype, sfinfo.format) ;
  173. exit (1) ;
  174. } ;
  176. if (sfinfo.frames != items)
  177. { printf ("nnLine %d: Incorrect number of frames in file. (%d => %ld)n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
  178. exit (1) ;
  179. } ;
  181. if (sfinfo.channels != 1)
  182. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  183. exit (1) ;
  184. } ;
  186. check_log_buffer_or_die (file, __LINE__) ;
  188. test_read_short_or_die (file, 0, short_in, items, __LINE__) ;
  190. for (k = 0 ; k < items ; k++)
  191. if (short_out [k] != short_in [k])
  192. { printf ("nnLine %d: Incorrect sample (#%d : 0x%x => 0x%x).n", __LINE__, k, short_out [k], short_in [k]) ;
  193. exit (1) ;
  194. } ;
  196. sf_close (file) ;
  198. /* Finally, check the file hash. */
  199. check_file_hash_or_die (filename, hash, __LINE__) ;
  201. /*--------------------------------------------------------------------------
  202. ** Test sf_read/write_int ()
  203. */
  204. zero_count = 0 ;
  206. int_out = data_out.i ;
  207. int_in = data_in.i ;
  208. for (k = 0 ; k < items ; k++)
  209. { int_out [k] = [+ (get "int_func") +] ;
  210. zero_count = int_out [k] ? zero_count : zero_count + 1 ;
  211. } ;
  213. if (zero_count > items / 4)
  214. { printf ("nnLine %d: too many zeros.n", __LINE__) ;
  215. exit (1) ;
  216. } ;
  218. sfinfo.samplerate = 44100 ;
  219. sfinfo.frames = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
  220. sfinfo.channels = 1 ;
  221. sfinfo.format = filetype ;
  223. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  225. test_write_int_or_die (file, 0, int_out, items, __LINE__) ;
  227. sf_close (file) ;
  229. memset (int_in, 0, items * sizeof (int)) ;
  231. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  233. if (sfinfo.format != filetype)
  234. { printf ("nnLine %d: Returned format incorrect (0x%08X => 0x%08X).n", __LINE__, filetype, sfinfo.format) ;
  235. exit (1) ;
  236. } ;
  238. if (sfinfo.frames != items)
  239. { printf ("nnLine %d: Incorrect number of frames in file. (%d => %ld)n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
  240. exit (1) ;
  241. } ;
  243. if (sfinfo.channels != 1)
  244. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  245. exit (1) ;
  246. } ;
  248. check_log_buffer_or_die (file, __LINE__) ;
  250. test_read_int_or_die (file, 0, int_in, items, __LINE__) ;
  252. for (k = 0 ; k < items ; k++)
  253. if (int_out [k] != int_in [k])
  254. { printf ("nnLine %d: int : Incorrect sample (#%d : 0x%x => 0x%x).n", __LINE__, k, int_out [k], int_in [k]) ;
  255. exit (1) ;
  256. } ;
  258. sf_close (file) ;
  260. /* Lite remove start */
  261. /*--------------------------------------------------------------------------
  262. ** Test sf_read/write_float ()
  263. */
  264. zero_count = 0 ;
  266. float_out = data_out.f ;
  267. float_in = data_in.f ;
  268. for (k = 0 ; k < items ; k++)
  269. { float_out [k] = [+ (get "float_func") +] ;
  270. zero_count = (fabs (float_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
  271. } ;
  273. if (zero_count > items / 4)
  274. { printf ("nnLine %d: too many zeros (%d/%d).n", __LINE__, zero_count, items) ;
  275. exit (1) ;
  276. } ;
  278. sfinfo.samplerate = 44100 ;
  279. sfinfo.frames = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
  280. sfinfo.channels = 1 ;
  281. sfinfo.format = filetype ;
  283. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  285. sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
  287. test_write_float_or_die (file, 0, float_out, items, __LINE__) ;
  289. sf_close (file) ;
  291. memset (float_in, 0, items * sizeof (float)) ;
  293. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  295. if (sfinfo.format != filetype)
  296. { printf ("nnLine %d: Returned format incorrect (0x%08X => 0x%08X).n", __LINE__, filetype, sfinfo.format) ;
  297. exit (1) ;
  298. } ;
  300. if (sfinfo.frames != items)
  301. { printf ("nnLine %d: Incorrect number of frames in file. (%d => %ld)n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
  302. exit (1) ;
  303. } ;
  305. if (sfinfo.channels != 1)
  306. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  307. exit (1) ;
  308. } ;
  310. check_log_buffer_or_die (file, __LINE__) ;
  312. sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
  314. test_read_float_or_die (file, 0, float_in, items, __LINE__) ;
  316. for (k = 0 ; k < items ; k++)
  317. if (fabs (float_out [k] - float_in [k]) > 1e-10)
  318. { printf ("nnLine %d: float : Incorrect sample (#%d : %f => %f).n", __LINE__, k, (double) float_out [k], (double) float_in [k]) ;
  319. exit (1) ;
  320. break ;
  321. } ;
  323. sf_close (file) ;
  325. /*--------------------------------------------------------------------------
  326. ** Test sf_read/write_double ()
  327. */
  328. zero_count = 0 ;
  330. double_out = data_out.d ;
  331. double_in = data_in.d ;
  332. for (k = 0 ; k < items ; k++)
  333. { double_out [k] = [+ (get "float_func") +] ;
  334. zero_count = (fabs (double_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
  335. } ;
  337. if (zero_count > items / 4)
  338. { printf ("nnLine %d: too many zeros (%d/%d).n", __LINE__, zero_count, items) ;
  339. exit (1) ;
  340. } ;
  342. sfinfo.samplerate = 44100 ;
  343. sfinfo.frames = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
  344. sfinfo.channels = 1 ;
  345. sfinfo.format = filetype ;
  347. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  349. sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
  351. test_write_double_or_die (file, 0, double_out, items, __LINE__) ;
  353. sf_close (file) ;
  355. memset (double_in, 0, items * sizeof (double)) ;
  357. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  359. if (sfinfo.format != filetype)
  360. { printf ("nnLine %d: Returned format incorrect (0x%08X => 0x%08X).n", __LINE__, filetype, sfinfo.format) ;
  361. exit (1) ;
  362. } ;
  364. if (sfinfo.frames != items)
  365. { printf ("nnLine %d: Incorrect number of frames in file. (%d => %ld)n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
  366. exit (1) ;
  367. } ;
  369. if (sfinfo.channels != 1)
  370. { printf ("nnLine %d: Incorrect number of channels in file.n", __LINE__) ;
  371. exit (1) ;
  372. } ;
  374. check_log_buffer_or_die (file, __LINE__) ;
  376. sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
  378. test_read_double_or_die (file, 0, double_in, items, __LINE__) ;
  380. for (k = 0 ; k < items ; k++)
  381. if (fabs (double_out [k] - double_in [k]) > 1e-10)
  382. { printf ("nnLine %d: double : Incorrect sample (#%d : %f => %f).n", __LINE__, k, double_out [k], double_in [k]) ;
  383. exit (1) ;
  384. } ;
  386. sf_close (file) ;
  387. /* Lite remove end */
  388. unlink (filename) ;
  390. puts ("ok") ;
  391. } /* pcm_test_[+ (get "name") +] */
  393. [+ ENDFOR data_type
  394. +]
  396. /*==============================================================================
  397. */
  399. static void
  400. pcm_test_float (const char *filename, int filetype, uint64_t hash, int replace_float)
  401. { SNDFILE *file ;
  402. SF_INFO sfinfo ;
  403. int k, items, frames ;
  404. int sign ;
  405. double *data, error ;
  407. print_test_name (replace_float ?  "pcm_test_float (replace)" : "pcm_test_float", filename) ;
  409. items = BUFFER_SIZE ;
  411. data = data_out.d ;
  412. for (sign = 1, k = 0 ; k < items ; k++)
  413. { data [k] = ((double) (k * sign)) / 100.0 ;
  414. sign = (sign > 0) ? -1 : 1 ;
  415. } ;
  417. sfinfo.samplerate = 44100 ;
  418. sfinfo.frames = items ;
  419. sfinfo.channels = 1 ;
  420. sfinfo.format = filetype ;
  422. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  423. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  424. if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
  425. { printf ("nnLine %d : Float replacement code not working.nn", __LINE__) ;
  426. dump_log_buffer (file) ;
  427. exit (1) ;
  428. } ;
  430. test_write_double_or_die (file, 0, data, items, __LINE__) ;
  432. sf_close (file) ;
  434. check_file_hash_or_die (filename, hash, __LINE__) ;
  436. memset (data, 0, items * sizeof (double)) ;
  438. if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
  439. memset (&sfinfo, 0, sizeof (sfinfo)) ;
  441. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  442. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  443. if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
  444. { printf ("nnLine %d : Float replacement code not working.nn", __LINE__) ;
  445. dump_log_buffer (file) ;
  446. exit (1) ;
  447. } ;
  449. if (sfinfo.format != filetype)
  450. { printf ("nnError (%s:%d) Mono : Returned format incorrect (0x%08X => 0x%08X).n", __FILE__, __LINE__, filetype, sfinfo.format) ;
  451. exit (1) ;
  452. } ;
  454. if (sfinfo.frames != items)
  455. { printf ("nnError (%s:%d) Mono : Incorrect number of frames in file. (%d => %ld)n", __FILE__, __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
  456. exit (1) ;
  457. } ;
  459. if (sfinfo.channels != 1)
  460. { printf ("nnError (%s:%d) Mono : Incorrect number of channels in file.n", __FILE__, __LINE__) ;
  461. exit (1) ;
  462. } ;
  464. check_log_buffer_or_die (file, __LINE__) ;
  466. test_read_double_or_die (file, 0, data, items, __LINE__) ;
  468. for (sign = -1, k = 0 ; k < items ; k++)
  469. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  470. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  471. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  472. exit (1) ;
  473. } ;
  474. } ;
  476. /* Seek to start of file. */
  477. test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
  479. test_read_double_or_die (file, 0, data, 4, __LINE__) ;
  480. for (k = 0 ; k < 4 ; k++)
  481. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  482. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  483. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  484. exit (1) ;
  485. } ;
  486. } ;
  488. /* Seek to offset from start of file. */
  489. test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
  491. test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
  492. for (k = 10 ; k < 14 ; k++)
  493. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  494. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  495. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  496. exit (1) ;
  497. } ;
  498. } ;
  500. /* Seek to offset from current position. */
  501. test_seek_or_die (file, 6, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
  503. test_read_double_or_die (file, 0, data + 20, 4, __LINE__) ;
  504. for (k = 20 ; k < 24 ; k++)
  505. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  506. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  507. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  508. exit (1) ;
  509. } ;
  510. } ;
  512. /* Seek to offset from end of file. */
  513. test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
  515. test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
  516. for (k = 10 ; k < 14 ; k++)
  517. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  518. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  519. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  520. exit (1) ;
  521. } ;
  522. } ;
  524. sf_close (file) ;
  526. /* Now test Stereo. */
  528. if ((filetype & SF_FORMAT_TYPEMASK) == SF_FORMAT_SVX) /* SVX is mono only */
  529. { printf ("okn") ;
  530. return ;
  531. } ;
  533. items = BUFFER_SIZE ;
  535. data = data_out.d ;
  536. for (sign = -1, k = 0 ; k < items ; k++)
  537. data [k] = ((double) k) / 100.0 * (sign *= -1) ;
  539. sfinfo.samplerate = 44100 ;
  540. sfinfo.frames = items ;
  541. sfinfo.channels = 2 ;
  542. sfinfo.format = filetype ;
  544. frames = items / sfinfo.channels ;
  546. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  547. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  548. if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
  549. { printf ("nnLine %d : Float replacement code not working.nn", __LINE__) ;
  550. dump_log_buffer (file) ;
  551. exit (1) ;
  552. } ;
  554. test_writef_double_or_die (file, 0, data, frames, __LINE__) ;
  556. sf_close (file) ;
  558. check_file_hash_or_die (filename, hash, __LINE__) ;
  560. memset (data, 0, items * sizeof (double)) ;
  562. if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
  563. memset (&sfinfo, 0, sizeof (sfinfo)) ;
  565. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  566. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  567. if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
  568. { printf ("nnLine %d : Float replacement code not working.nn", __LINE__) ;
  569. dump_log_buffer (file) ;
  570. exit (1) ;
  571. } ;
  573. if (sfinfo.format != filetype)
  574. { printf ("nnError (%s:%d) Stereo : Returned format incorrect (0x%08X => 0x%08X).n", __FILE__, __LINE__, filetype, sfinfo.format) ;
  575. exit (1) ;
  576. } ;
  578. if (sfinfo.frames != frames)
  579. { printf ("nnError (%s:%d) Stereo : Incorrect number of frames in file. (%d => %ld)n", __FILE__, __LINE__, frames, SF_COUNT_TO_LONG (sfinfo.frames)) ;
  580. exit (1) ;
  581. } ;
  583. if (sfinfo.channels != 2)
  584. { printf ("nnError (%s:%d) Stereo : Incorrect number of channels in file.n", __FILE__, __LINE__) ;
  585. exit (1) ;
  586. } ;
  588. check_log_buffer_or_die (file, __LINE__) ;
  590. test_readf_double_or_die (file, 0, data, frames, __LINE__) ;
  591. for (sign = -1, k = 0 ; k < items ; k++)
  592. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  593. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  594. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  595. exit (1) ;
  596. } ;
  597. } ;
  599. /* Seek to start of file. */
  600. test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
  602. test_readf_double_or_die (file, 0, data, 4, __LINE__) ;
  603. for (k = 0 ; k < 4 ; k++)
  604. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  605. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  606. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  607. exit (1) ;
  608. } ;
  609. } ;
  611. /* Seek to offset from start of file. */
  612. test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
  614. test_readf_double_or_die (file, 0, data + 20, 2, __LINE__) ;
  615. for (k = 20 ; k < 24 ; k++)
  616. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  617. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  618. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  619. exit (1) ;
  620. } ;
  621. } ;
  623. /* Seek to offset from current position. */
  624. test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
  626. test_readf_double_or_die (file, 0, data + 40, 2, __LINE__) ;
  627. for (k = 40 ; k < 44 ; k++)
  628. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  629. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  630. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  631. exit (1) ;
  632. } ;
  633. } ;
  635. /* Seek to offset from end of file. */
  636. test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
  638. test_readf_double_or_die (file, 0, data + 20, 2, __LINE__) ;
  639. for (k = 20 ; k < 24 ; k++)
  640. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  641. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  642. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  643. exit (1) ;
  644. } ;
  645. } ;
  647. sf_close (file) ;
  649. printf ("okn") ;
  650. unlink (filename) ;
  651. } /* pcm_test_float */
  653. static void
  654. pcm_test_double (const char *filename, int filetype, uint64_t hash, int replace_float)
  655. { SNDFILE *file ;
  656. SF_INFO sfinfo ;
  657. int k, items, frames ;
  658. int sign ;
  659. double *data, error ;
  661. /* This is the best test routine. Other should be brought up to this standard. */
  663. print_test_name (replace_float ?  "pcm_test_double (replace)" : "pcm_test_double", filename) ;
  665. items = BUFFER_SIZE ;
  667. data = data_out.d ;
  668. for (sign = 1, k = 0 ; k < items ; k++)
  669. { data [k] = ((double) (k * sign)) / 100.0 ;
  670. sign = (sign > 0) ? -1 : 1 ;
  671. } ;
  673. sfinfo.samplerate = 44100 ;
  674. sfinfo.frames = items ;
  675. sfinfo.channels = 1 ;
  676. sfinfo.format = filetype ;
  678. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  679. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  680. if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
  681. { printf ("nnLine %d : Float replacement code not working.nn", __LINE__) ;
  682. dump_log_buffer (file) ;
  683. exit (1) ;
  684. } ;
  686. test_write_double_or_die (file, 0, data, items, __LINE__) ;
  688. sf_close (file) ;
  690. #if (defined (WIN32) || defined (_WIN32))
  691. /* File hashing on Win32 fails due to slighty different
  692. ** calculated values of the sin() function.
  693. */
  694. hash = hash ; /* Avoid compiler warning. */
  695. #else
  696. check_file_hash_or_die (filename, hash, __LINE__) ;
  697. #endif
  699. memset (data, 0, items * sizeof (double)) ;
  701. if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
  702. memset (&sfinfo, 0, sizeof (sfinfo)) ;
  704. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  705. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  706. if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
  707. { printf ("nnLine %d : Float replacement code not working.nn", __LINE__) ;
  708. dump_log_buffer (file) ;
  709. exit (1) ;
  710. } ;
  712. if (sfinfo.format != filetype)
  713. { printf ("nnError (%s:%d) Mono : Returned format incorrect (0x%08X => 0x%08X).n", __FILE__, __LINE__, filetype, sfinfo.format) ;
  714. exit (1) ;
  715. } ;
  717. if (sfinfo.frames != items)
  718. { printf ("nnError (%s:%d) Mono : Incorrect number of frames in file. (%d => %ld)n", __FILE__, __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
  719. exit (1) ;
  720. } ;
  722. if (sfinfo.channels != 1)
  723. { printf ("nnError (%s:%d) Mono : Incorrect number of channels in file.n", __FILE__, __LINE__) ;
  724. exit (1) ;
  725. } ;
  727. check_log_buffer_or_die (file, __LINE__) ;
  729. test_read_double_or_die (file, 0, data, items, __LINE__) ;
  731. for (sign = -1, k = 0 ; k < items ; k++)
  732. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  733. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  734. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  735. exit (1) ;
  736. } ;
  737. } ;
  739. /* Seek to start of file. */
  740. test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
  742. test_read_double_or_die (file, 0, data, 4, __LINE__) ;
  743. for (k = 0 ; k < 4 ; k++)
  744. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  745. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  746. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  747. exit (1) ;
  748. } ;
  749. } ;
  751. /* Seek to offset from start of file. */
  752. test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
  754. test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
  756. test_seek_or_die (file, 0, SEEK_CUR, 14, sfinfo.channels, __LINE__) ;
  758. for (k = 10 ; k < 14 ; k++)
  759. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  760. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  761. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  762. exit (1) ;
  763. } ;
  764. } ;
  766. /* Seek to offset from current position. */
  767. test_seek_or_die (file, 6, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
  769. test_read_double_or_die (file, 0, data + 20, 4, __LINE__) ;
  770. for (k = 20 ; k < 24 ; k++)
  771. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  772. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  773. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  774. exit (1) ;
  775. } ;
  776. } ;
  778. /* Seek to offset from end of file. */
  779. test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
  781. test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
  782. for (k = 10 ; k < 14 ; k++)
  783. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  784. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  785. { printf ("nnError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  786. exit (1) ;
  787. } ;
  788. } ;
  790. sf_close (file) ;
  792. /* Now test Stereo. */
  794. if ((filetype & SF_FORMAT_TYPEMASK) == SF_FORMAT_SVX) /* SVX is mono only */
  795. { printf ("okn") ;
  796. return ;
  797. } ;
  799. items = BUFFER_SIZE ;
  801. data = data_out.d ;
  802. for (sign = -1, k = 0 ; k < items ; k++)
  803. data [k] = ((double) k) / 100.0 * (sign *= -1) ;
  805. sfinfo.samplerate = 44100 ;
  806. sfinfo.frames = items ;
  807. sfinfo.channels = 2 ;
  808. sfinfo.format = filetype ;
  810. frames = items / sfinfo.channels ;
  812. file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
  813. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  814. if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
  815. { printf ("nnLine %d : Float replacement code not working.nn", __LINE__) ;
  816. dump_log_buffer (file) ;
  817. exit (1) ;
  818. } ;
  820. test_writef_double_or_die (file, 0, data, frames, __LINE__) ;
  822. sf_close (file) ;
  824. #if (defined (WIN32) || defined (_WIN32))
  825. /* File hashing on Win32 fails due to slighty different
  826. ** calculated values.
  827. */
  828. hash = hash ; /* Avoid compiler warning. */
  829. #else
  830. check_file_hash_or_die (filename, hash, __LINE__) ;
  831. #endif
  833. memset (data, 0, items * sizeof (double)) ;
  835. if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
  836. memset (&sfinfo, 0, sizeof (sfinfo)) ;
  838. file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
  839. sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
  840. if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
  841. { printf ("nnLine %d : Float replacement code not working.nn", __LINE__) ;
  842. dump_log_buffer (file) ;
  843. exit (1) ;
  844. } ;
  846. if (sfinfo.format != filetype)
  847. { printf ("nnError (%s:%d) Stereo : Returned format incorrect (0x%08X => 0x%08X).n", __FILE__, __LINE__, filetype, sfinfo.format) ;
  848. exit (1) ;
  849. } ;
  851. if (sfinfo.frames != frames)
  852. { printf ("nnError (%s:%d) Stereo : Incorrect number of frames in file. (%d => %ld)n", __FILE__, __LINE__, frames, SF_COUNT_TO_LONG (sfinfo.frames)) ;
  853. exit (1) ;
  854. } ;
  856. if (sfinfo.channels != 2)
  857. { printf ("nnError (%s:%d) Stereo : Incorrect number of channels in file.n", __FILE__, __LINE__) ;
  858. exit (1) ;
  859. } ;
  861. check_log_buffer_or_die (file, __LINE__) ;
  863. test_readf_double_or_die (file, 0, data, frames, __LINE__) ;
  865. for (sign = -1, k = 0 ; k < items ; k++)
  866. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  867. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  868. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  869. exit (1) ;
  870. } ;
  871. } ;
  873. /* Seek to start of file. */
  874. test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
  876. test_read_double_or_die (file, 0, data, 4, __LINE__) ;
  877. for (k = 0 ; k < 4 ; k++)
  878. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  879. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  880. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  881. exit (1) ;
  882. } ;
  883. } ;
  885. /* Seek to offset from start of file. */
  886. test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
  888. test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
  889. for (k = 20 ; k < 24 ; k++)
  890. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  891. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  892. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  893. exit (1) ;
  894. } ;
  895. } ;
  897. /* Seek to offset from current position. */
  898. test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
  900. test_readf_double_or_die (file, 0, data + 40, 4, __LINE__) ;
  901. for (k = 40 ; k < 44 ; k++)
  902. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  903. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  904. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  905. exit (1) ;
  906. } ;
  907. } ;
  909. /* Seek to offset from end of file. */
  910. test_seek_or_die (file, -1 * (sfinfo.frames -10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
  912. test_readf_double_or_die (file, 0, data + 20, 4, __LINE__) ;
  913. for (k = 20 ; k < 24 ; k++)
  914. { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
  915. if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
  916. { printf ("nnError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
  917. exit (1) ;
  918. } ;
  919. } ;
  921. sf_close (file) ;
  923. printf ("okn") ;
  924. unlink (filename) ;
  925. } /* pcm_test_double */
  927. /*==============================================================================
  928. */