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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > 流媒体/Mpeg4/MP4 > 查看源码
pcm.c
资源名称：rtsp-1.0.1.tar.gz　[点击查看]
上传用户：sy_wanhua
上传日期：2013-07-25
资源大小：3048k
文件大小：57k
源码类别：

流媒体/Mpeg4/MP4

开发平台：

C/C++

pcm.c：源码内容
  1. /*
  2. ** Copyright (C) 1999-2000 Erik de Castro Lopo <erikd@zip.com.au>
  3. **  
  4. ** This program is free software; you can redistribute it and/or modify
  5. ** it under the terms of the GNU Lesser General Public License as published by
  6. ** the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details.
  13. ** 
  14. ** You should have received a copy of the GNU Lesser 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. */
  20. #include <unistd.h>
  22. #include "config.h"
  23. #include "sndfile.h"
  24. #include "common.h"
  25. #include "sfendian.h"
  26. #include "pcm.h"
  28. /* Important!!! Do not assume that sizeof (tribyte) == 3. Some compilers 
  29. ** (Metrowerks CodeWarrior for Mac is one) pad the struct with an extra byte.
  30. */
  32. typedef struct
  33. { char bytes [3] ;
  34. } tribyte ;
  36. static void sc2s_array (signed char *buffer, unsigned int count, short *ptr, int index) ;
  37. static void uc2s_array (unsigned char *buffer, unsigned int count, short *ptr, int index) ;
  38. static void bet2s_array (tribyte *buffer, unsigned int count, short *ptr, int index) ;
  39. static void let2s_array (tribyte *buffer, unsigned int count, short *ptr, int index) ;
  40. static void bei2s_array (int *buffer, unsigned int count, short *ptr, int index) ;
  41. static void lei2s_array (int *buffer, unsigned int count, short *ptr, int index) ;
  42. static void f2s_array  (float *buffer, unsigned int count, short *ptr, int index) ;
  44. static void sc2i_array (signed char *buffer, unsigned int count, int *ptr, int index) ;
  45. static void uc2i_array (unsigned char *buffer, unsigned int count, int *ptr, int index) ;
  46. static void bes2i_array (short *buffer, unsigned int count, int *ptr, int index) ;
  47. static void les2i_array (short *buffer, unsigned int count, int *ptr, int index) ;
  48. static void bet2i_array (tribyte *buffer, unsigned int count, int *ptr, int index) ;
  49. static void let2i_array (tribyte *buffer, unsigned int count, int *ptr, int index) ;
  50. static void f2i_array  (float *buffer, unsigned int count, int *ptr, int index) ;
  52. static void sc2d_array (signed char *buffer, unsigned int count, double *ptr, int index, double normfact) ;
  53. static void uc2d_array (unsigned char *buffer, unsigned int count, double *ptr, int index, double normfact) ;
  54. static void bes2d_array (short *buffer, unsigned int count, double *ptr, int index, double normfact) ;
  55. static void les2d_array (short *buffer, unsigned int count, double *ptr, int index, double normfact) ;
  56. static void bet2d_array (tribyte *buffer, unsigned int count, double *ptr, int index, double normfact) ;
  57. static void let2d_array (tribyte *buffer, unsigned int count, double *ptr, int index, double normfact) ;
  58. static void bei2d_array (int *buffer, unsigned int count, double *ptr, int index, double normfact) ;
  59. static void lei2d_array (int *buffer, unsigned int count, double *ptr, int index, double normfact) ;
  60. static void f2d_array  (float *buffer, unsigned int count, double *ptr, int index, double normfact) ;
  62. static void s2sc_array (short *ptr, int index, signed char *buffer, unsigned int count) ;
  63. static void s2uc_array (short *ptr, int index, unsigned char *buffer, unsigned int count) ;
  64. static void s2bet_array (short *ptr, int index, tribyte *buffer, unsigned int count) ;
  65. static void s2let_array (short *ptr, int index, tribyte *buffer, unsigned int count) ;
  66. static void s2bei_array (short *ptr, int index, int *buffer, unsigned int count) ;
  67. static void s2lei_array (short *ptr, int index, int *buffer, unsigned int count) ;
  68. static  void s2f_array  (short *ptr, int index, float *buffer, unsigned int count) ;
  70. static void i2sc_array (int *ptr, int index, signed char *buffer, unsigned int count) ;
  71. static void i2uc_array (int *ptr, int index, unsigned char *buffer, unsigned int count) ;
  72. static void i2bes_array (int *ptr, int index, short *buffer, unsigned int count) ;
  73. static void i2les_array (int *ptr, int index, short *buffer, unsigned int count) ;
  74. static void i2bet_array (int *ptr, int index, tribyte *buffer, unsigned int count) ;
  75. static void i2let_array (int *ptr, int index, tribyte *buffer, unsigned int count) ;
  76. static  void i2f_array  (int *ptr, int index, float *buffer, unsigned int count) ;
  78. static void d2sc_array (double *ptr, int index, signed char *buffer, unsigned int count, double normfact) ;
  79. static void d2uc_array (double *ptr, int index, unsigned char *buffer, unsigned int count, double normfact) ;
  80. static void d2bes_array (double *ptr, int index, short *buffer, unsigned int count, double normfact) ;
  81. static void d2les_array (double *ptr, int index, short *buffer, unsigned int count, double normfact) ;
  82. static void d2bet_array (double *ptr, int index, tribyte *buffer, unsigned int count, double normfact) ;
  83. static void d2let_array (double *ptr, int index, tribyte *buffer, unsigned int count, double normfact) ;
  84. static  void d2bei_array (double *ptr, int index, int *buffer, unsigned int count, double normfact) ;
  85. static  void d2lei_array (double *ptr, int index, int *buffer, unsigned int count, double normfact) ;
  86. static  void d2f_array  (double *ptr, int index, float *buffer, unsigned int count, double normfact) ;
  89. /*-----------------------------------------------------------------------------------------------
  90.  */
  92. int pcm_read_sc2s (SF_PRIVATE *psf, short *ptr, int len)
  93. { unsigned int readcount, thisread ;
  94. int bytecount, bufferlen ;
  95. int index = 0, total = 0 ;
  97. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  98. bytecount = len * psf->bytewidth ;
  99. while (bytecount > 0)
  100. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  101. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  102. sc2s_array ((signed char*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  103. total += thisread ;
  104. if (thisread < readcount)
  105. break ;
  106. index += thisread / psf->bytewidth ;
  107. bytecount -= thisread ;
  108. } ;
  110. total /= psf->bytewidth ;
  111. if (total < len)
  112. psf->error = SFE_SHORT_READ ;
  114. return total ;
  115. } /* pcm_read_sc2s */
  117. int pcm_read_uc2s (SF_PRIVATE *psf, short *ptr, int len)
  118. { unsigned int readcount, thisread ;
  119. int bytecount, bufferlen ;
  120. int index = 0, total = 0 ;
  122. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  123. bytecount = len * psf->bytewidth ;
  124. while (bytecount > 0)
  125. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  126. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  127. uc2s_array ((unsigned char*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  128. total += thisread ;
  129. if (thisread < readcount)
  130. break ;
  131. index += thisread / psf->bytewidth ;
  132. bytecount -= thisread ;
  133. } ;
  135. total /= psf->bytewidth ;
  136. if (total < len)
  137. psf->error = SFE_SHORT_READ ;
  139. return total ;
  140. } /* pcm_read_uc2s */
  142. int pcm_read_bes2s (SF_PRIVATE *psf, short *ptr, int len)
  143. { int total ;
  145. total = fread (ptr, 1, len * sizeof (short), psf->file) ;
  146. if (CPU_IS_LITTLE_ENDIAN)
  147. endswap_short_array (ptr, len) ;
  149. total /= psf->bytewidth ;
  150. if (total < len)
  151. psf->error = SFE_SHORT_READ ;
  153. return total ;
  154. } /* pcm_read_bes2s */
  156. int pcm_read_les2s (SF_PRIVATE *psf, short *ptr, int len)
  157. { int total ;
  159. total = fread (ptr, 1, len * sizeof (short), psf->file) ;
  160. if (CPU_IS_BIG_ENDIAN)
  161. endswap_short_array (ptr, len) ;
  163. total /= psf->bytewidth ;
  164. if (total < len)
  165. psf->error = SFE_SHORT_READ ;
  167. return total ;
  168. } /* pcm_read_les2s */
  170. int pcm_read_bet2s (SF_PRIVATE *psf, short *ptr, int len)
  171. { unsigned int readcount, thisread ;
  172. int bytecount, bufferlen ;
  173. int index = 0, total = 0 ;
  175. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  176. bytecount = len * psf->bytewidth ;
  177. while (bytecount > 0)
  178. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  179. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  180. bet2s_array ((tribyte*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  181. total += thisread ;
  182. if (thisread < readcount)
  183. break ;
  184. index += thisread / psf->bytewidth ;
  185. bytecount -= thisread ;
  186. } ;
  188. total /= psf->bytewidth ;
  189. if (total < len)
  190. psf->error = SFE_SHORT_READ ;
  192. return total ;
  193. } /* pcm_read_bet2s */
  195. int pcm_read_let2s (SF_PRIVATE *psf, short *ptr, int len)
  196. { unsigned int readcount, thisread ;
  197. int bytecount, bufferlen ;
  198. int index = 0, total = 0 ;
  200. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  201. bytecount = len * psf->bytewidth ;
  202. while (bytecount > 0)
  203. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  204. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  205. let2s_array ((tribyte*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  206. total += thisread ;
  207. if (thisread < readcount)
  208. break ;
  209. index += thisread / psf->bytewidth ;
  210. bytecount -= thisread ;
  211. } ;
  213. total /= psf->bytewidth ;
  214. if (total < len)
  215. psf->error = SFE_SHORT_READ ;
  217. return total ;
  218. } /* pcm_read_let2s */
  220. int pcm_read_bei2s (SF_PRIVATE *psf, short *ptr, int len)
  221. { unsigned int readcount, thisread ;
  222. int bytecount, bufferlen ;
  223. int index = 0, total = 0 ;
  225. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  226. bytecount = len * psf->bytewidth ;
  227. while (bytecount > 0)
  228. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  229. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  230. bei2s_array ((int*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  231. total += thisread ;
  232. if (thisread < readcount)
  233. break ;
  234. index += thisread / psf->bytewidth ;
  235. bytecount -= thisread ;
  236. } ;
  238. total /= psf->bytewidth ;
  239. if (total < len)
  240. psf->error = SFE_SHORT_READ ;
  242. return total ;
  243. } /* pcm_read_bei2s */
  245. int pcm_read_lei2s (SF_PRIVATE *psf, short *ptr, int len)
  246. { unsigned int readcount, thisread ;
  247. int bytecount, bufferlen ;
  248. int index = 0, total = 0 ;
  250. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  251. bytecount = len * psf->bytewidth ;
  252. while (bytecount > 0)
  253. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  254. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  255. lei2s_array ((int*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  256. total += thisread ;
  257. if (thisread < readcount)
  258. break ;
  259. index += thisread / psf->bytewidth ;
  260. bytecount -= thisread ;
  261. } ;
  263. total /= psf->bytewidth ;
  264. if (total < len)
  265. psf->error = SFE_SHORT_READ ;
  267. return total ;
  268. } /* pcm_read_lei2s */
  270. int pcm_read_f2s (SF_PRIVATE *psf, short *ptr, int len)
  271. { unsigned int readcount, thisread ;
  272. int bytecount, bufferlen ;
  273. int index = 0, total = 0 ;
  275. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  276. bytecount = len * psf->bytewidth ;
  277. while (bytecount > 0)
  278. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  279. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  280. f2s_array ((float*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  281. total += thisread ;
  282. if (thisread < readcount)
  283. break ;
  284. index += thisread / psf->bytewidth ;
  285. bytecount -= thisread ;
  286. } ;
  288. total /= psf->bytewidth ;
  289. if (total < len)
  290. psf->error = SFE_SHORT_READ ;
  292. return total ;
  293. } /* pcm_read_f2s */
  295. /*-----------------------------------------------------------------------------------------------
  296.  */
  298. int pcm_read_sc2i (SF_PRIVATE *psf, int *ptr, int len)
  299. { unsigned int readcount, thisread ;
  300. int bytecount, bufferlen ;
  301. int index = 0, total = 0 ;
  303. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  304. bytecount = len * psf->bytewidth ;
  305. while (bytecount > 0)
  306. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  307. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  308. sc2i_array ((signed char*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  309. total += thisread ;
  310. if (thisread < readcount)
  311. break ;
  312. index += thisread / psf->bytewidth ;
  313. bytecount -= thisread ;
  314. } ;
  316. total /= psf->bytewidth ;
  317. if (total < len)
  318. psf->error = SFE_SHORT_READ ;
  320. return total ;
  321. } /* pcm_read_sc2i */
  323. int pcm_read_uc2i (SF_PRIVATE *psf, int *ptr, int len)
  324. { unsigned int readcount, thisread ;
  325. int bytecount, bufferlen ;
  326. int index = 0, total = 0 ;
  328. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  329. bytecount = len * psf->bytewidth ;
  330. while (bytecount > 0)
  331. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  332. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  333. uc2i_array ((unsigned char*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  334. total += thisread ;
  335. if (thisread < readcount)
  336. break ;
  337. index += thisread / psf->bytewidth ;
  338. bytecount -= thisread ;
  339. } ;
  341. total /= psf->bytewidth ;
  342. if (total < len)
  343. psf->error = SFE_SHORT_READ ;
  345. return total ;
  346. } /* pcm_read_uc2i */
  348. int pcm_read_bes2i (SF_PRIVATE *psf, int *ptr, int len)
  349. { unsigned int readcount, thisread ;
  350. int bytecount, bufferlen ;
  351. int index = 0, total = 0 ;
  353. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  354. bytecount = len * psf->bytewidth ;
  355. while (bytecount > 0)
  356. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  357. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  358. bes2i_array ((short*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  359. total += thisread ;
  360. if (thisread < readcount)
  361. break ;
  362. index += thisread / psf->bytewidth ;
  363. bytecount -= thisread ;
  364. } ;
  366. total /= psf->bytewidth ;
  367. if (total < len)
  368. psf->error = SFE_SHORT_READ ;
  370. return total ;
  371. } /* pcm_read_bes2i */
  373. int pcm_read_les2i (SF_PRIVATE *psf, int *ptr, int len)
  374. { unsigned int readcount, thisread ;
  375. int bytecount, bufferlen ;
  376. int index = 0, total = 0 ;
  378. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  379. bytecount = len * psf->bytewidth ;
  380. while (bytecount > 0)
  381. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  382. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  383. les2i_array ((short*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  384. total += thisread ;
  385. if (thisread < readcount)
  386. break ;
  387. index += thisread / psf->bytewidth ;
  388. bytecount -= thisread ;
  389. } ;
  391. total /= psf->bytewidth ;
  392. if (total < len)
  393. psf->error = SFE_SHORT_READ ;
  395. return total ;
  396. } /* pcm_read_les2i */
  398. int pcm_read_bet2i (SF_PRIVATE *psf, int *ptr, int len)
  399. { unsigned int readcount, thisread ;
  400. int bytecount, bufferlen ;
  401. int index = 0, total = 0 ;
  403. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  404. bytecount = len * psf->bytewidth ;
  405. while (bytecount > 0)
  406. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  407. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  408. bet2i_array ((tribyte*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  409. total += thisread ;
  410. if (thisread < readcount)
  411. break ;
  412. index += thisread / psf->bytewidth ;
  413. bytecount -= thisread ;
  414. } ;
  416. total /= psf->bytewidth ;
  417. if (total < len)
  418. psf->error = SFE_SHORT_READ ;
  420. return total ;
  421. } /* pcm_read_bet2i */
  423. int pcm_read_let2i (SF_PRIVATE *psf, int *ptr, int len)
  424. { unsigned int readcount, thisread ;
  425. int bytecount, bufferlen ;
  426. int index = 0, total = 0 ;
  428. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  429. bytecount = len * psf->bytewidth ;
  430. while (bytecount > 0)
  431. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  432. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  433. let2i_array ((tribyte*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  434. total += thisread ;
  435. if (thisread < readcount)
  436. break ;
  437. index += thisread / psf->bytewidth ;
  438. bytecount -= thisread ;
  439. } ;
  441. total /= psf->bytewidth ;
  442. if (total < len)
  443. psf->error = SFE_SHORT_READ ;
  445. return total ;
  446. } /* pcm_read_let2i */
  448. int pcm_read_bei2i (SF_PRIVATE *psf, int *ptr, int len)
  449. { int total ;
  451. total = fread (ptr, 1, len * sizeof (int), psf->file) ;
  452. if (CPU_IS_LITTLE_ENDIAN)
  453. endswap_int_array (ptr, len) ;
  455. total /= psf->bytewidth ;
  456. if (total < len)
  457. psf->error = SFE_SHORT_READ ;
  459. return total ;
  460. } /* pcm_read_bei2i */
  462. int pcm_read_lei2i (SF_PRIVATE *psf, int *ptr, int len)
  463. { int total ;
  465. total = fread (ptr, 1, len * sizeof (int), psf->file) ;
  466. if (CPU_IS_BIG_ENDIAN)
  467. endswap_int_array (ptr, len) ;
  469. total /= psf->bytewidth ;
  470. if (total < len)
  471. psf->error = SFE_SHORT_READ ;
  473. return total ;
  474. } /* pcm_read_lei2i */
  476. int pcm_read_f2i (SF_PRIVATE *psf, int *ptr, int len)
  477. { unsigned int readcount, thisread ;
  478. int bytecount, bufferlen ;
  479. int index = 0, total = 0 ;
  481. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  482. bytecount = len * psf->bytewidth ;
  483. while (bytecount > 0)
  484. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  485. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  486. f2i_array ((float*) (psf->buffer), thisread / psf->bytewidth, ptr, index) ;
  487. total += thisread ;
  488. if (thisread < readcount)
  489. break ;
  490. index += thisread / psf->bytewidth ;
  491. bytecount -= thisread ;
  492. } ;
  494. total /= psf->bytewidth ;
  495. if (total < len)
  496. psf->error = SFE_SHORT_READ ;
  498. return total ;
  499. } /* pcm_read_f2i */
  501. /*-----------------------------------------------------------------------------------------------
  502.  */
  504. int pcm_read_sc2d (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  505. { unsigned int readcount, thisread ;
  506. int bytecount, bufferlen ;
  507. int index = 0, total = 0 ;
  508. double normfact ;
  510. normfact = (normalize ? 1.0 / ((double) 0x80) : 1.0) ;
  512. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  513. bytecount = len * psf->bytewidth ;
  514. while (bytecount > 0)
  515. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  516. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  517. sc2d_array ((signed char*) (psf->buffer), thisread / psf->bytewidth, ptr, index, normfact) ;
  518. total += thisread ;
  519. if (thisread < readcount)
  520. break ;
  521. index += thisread / psf->bytewidth ;
  522. bytecount -= thisread ;
  523. } ;
  525. total /= psf->bytewidth ;
  526. if (total < len)
  527. psf->error = SFE_SHORT_READ ;
  529. return total ;
  530. } /* pcm_read_sc2d */
  532. int pcm_read_uc2d (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  533. { unsigned int readcount, thisread ;
  534. int bytecount, bufferlen ;
  535. int index = 0, total = 0 ;
  536. double normfact ;
  538. normfact = (normalize ? 1.0 / ((double) 0x80) : 1.0) ;
  540. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  541. bytecount = len * psf->bytewidth ;
  542. while (bytecount > 0)
  543. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  544. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  545. uc2d_array ((unsigned char*) (psf->buffer), thisread / psf->bytewidth, ptr, index, normfact) ;
  546. total += thisread ;
  547. if (thisread < readcount)
  548. break ;
  549. index += thisread / psf->bytewidth ;
  550. bytecount -= thisread ;
  551. } ;
  553. total /= psf->bytewidth ;
  554. if (total < len)
  555. psf->error = SFE_SHORT_READ ;
  557. return total ;
  558. } /* pcm_read_uc2d */
  560. int pcm_read_bes2d (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  561. { unsigned int readcount, thisread ;
  562. int bytecount, bufferlen ;
  563. int index = 0, total = 0 ;
  564. double normfact ;
  566. normfact = (normalize ? 1.0 / ((double) 0x8000) : 1.0) ;
  568. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  569. bytecount = len * psf->bytewidth ;
  570. while (bytecount > 0)
  571. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  572. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  573. bes2d_array ((short*) (psf->buffer), thisread / psf->bytewidth, ptr, index, normfact) ;
  574. total += thisread ;
  575. if (thisread < readcount)
  576. break ;
  577. index += thisread / psf->bytewidth ;
  578. bytecount -= thisread ;
  579. } ;
  581. total /= psf->bytewidth ;
  582. if (total < len)
  583. psf->error = SFE_SHORT_READ ;
  585. return total ;
  586. } /* pcm_read_bes2d */
  588. int pcm_read_les2d (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  589. { unsigned int readcount, thisread ;
  590. int bytecount, bufferlen ;
  591. int index = 0, total = 0 ;
  592. double normfact ;
  594. normfact = (normalize ? 1.0 / ((double) 0x8000) : 1.0) ;
  596. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  597. bytecount = len * psf->bytewidth ;
  598. while (bytecount > 0)
  599. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  600. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  601. les2d_array ((short*) (psf->buffer), thisread / psf->bytewidth, ptr, index, normfact) ;
  602. total += thisread ;
  603. if (thisread < readcount)
  604. break ;
  605. index += thisread / psf->bytewidth ;
  606. bytecount -= thisread ;
  607. } ;
  609. total /= psf->bytewidth ;
  610. if (total < len)
  611. psf->error = SFE_SHORT_READ ;
  613. return total ;
  614. } /* pcm_read_les2d */
  616. int pcm_read_bet2d (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  617. { unsigned int readcount, thisread ;
  618. int bytecount, bufferlen ;
  619. int index = 0, total = 0 ;
  620. double normfact ;
  622. normfact = (normalize ? 1.0 / ((double) 0x800000) : 1.0) ;
  624. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  625. bytecount = len * psf->bytewidth ;
  626. while (bytecount > 0)
  627. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  628. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  629. bet2d_array ((tribyte*) (psf->buffer), thisread / psf->bytewidth, ptr, index, normfact) ;
  630. total += thisread ;
  631. if (thisread < readcount)
  632. break ;
  633. index += thisread / psf->bytewidth ;
  634. bytecount -= thisread ;
  635. } ;
  637. total /= psf->bytewidth ;
  638. if (total < len)
  639. psf->error = SFE_SHORT_READ ;
  641. return total ;
  642. } /* pcm_read_bet2d */
  644. int pcm_read_let2d (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  645. { unsigned int readcount, thisread ;
  646. int bytecount, bufferlen ;
  647. int index = 0, total = 0 ;
  648. double normfact ;
  650. normfact = (normalize ? 1.0 / ((double) 0x800000) : 1.0) ;
  652. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  653. bytecount = len * psf->bytewidth ;
  654. while (bytecount > 0)
  655. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  656. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  657. let2d_array ((tribyte*) (psf->buffer), thisread / psf->bytewidth, ptr, index, normfact) ;
  658. total += thisread ;
  659. if (thisread < readcount)
  660. break ;
  661. index += thisread / psf->bytewidth ;
  662. bytecount -= thisread ;
  663. } ;
  665. total /= psf->bytewidth ;
  666. if (total < len)
  667. psf->error = SFE_SHORT_READ ;
  669. return total ;
  670. } /* pcm_read_let2d */
  672. int pcm_read_bei2d (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  673. { unsigned int readcount, thisread ;
  674. int bytecount, bufferlen ;
  675. int index = 0, total = 0 ;
  676. double normfact ;
  678. normfact = (normalize ? 1.0 / ((double) 0x80000000) : 1.0) ;
  680. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  681. bytecount = len * psf->bytewidth ;
  682. while (bytecount > 0)
  683. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  684. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  685. bei2d_array ((int*) (psf->buffer), thisread / psf->bytewidth, ptr, index, normfact) ;
  686. total += thisread ;
  687. if (thisread < readcount)
  688. break ;
  689. index += thisread / psf->bytewidth ;
  690. bytecount -= thisread ;
  691. } ;
  693. total /= psf->bytewidth ;
  694. if (total < len)
  695. psf->error = SFE_SHORT_READ ;
  697. return total ;
  698. } /* pcm_read_bei2d */
  700. int pcm_read_lei2d (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  701. { unsigned int readcount, thisread ;
  702. int bytecount, bufferlen ;
  703. int index = 0, total = 0 ;
  704. double normfact ;
  706. normfact = (normalize ? 1.0 / ((double) 0x80000000) : 1.0) ;
  708. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  709. bytecount = len * psf->bytewidth ;
  710. while (bytecount > 0)
  711. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  712. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  713. lei2d_array ((int*) (psf->buffer), thisread / psf->bytewidth, ptr, index, normfact) ;
  714. total += thisread ;
  715. if (thisread < readcount)
  716. break ;
  717. index += thisread / psf->bytewidth ;
  718. bytecount -= thisread ;
  719. } ;
  721. total /= psf->bytewidth ;
  722. if (total < len)
  723. psf->error = SFE_SHORT_READ ;
  725. return total ;
  726. } /* pcm_read_lei2d */
  728. int pcm_read_f2d (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  729. { unsigned int readcount, thisread ;
  730. int bytecount, bufferlen ;
  731. int index = 0, total = 0 ;
  732. double normfact ;
  734. normfact = normalize ? 1.0 : 1.0 ;
  736. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  737. bytecount = len * psf->bytewidth ;
  738. while (bytecount > 0)
  739. { readcount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  740. thisread = fread (psf->buffer, 1, readcount, psf->file) ;
  741. f2d_array ((float*) (psf->buffer), thisread / psf->bytewidth, ptr, index, normfact) ;
  742. total += thisread ;
  743. if (thisread < readcount)
  744. break ;
  745. index += thisread / psf->bytewidth ;
  746. bytecount -= thisread ;
  747. } ;
  749. total /= psf->bytewidth ;
  750. if (total < len)
  751. psf->error = SFE_SHORT_READ ;
  753. return total ;
  754. } /* pcm_read_f2d */
  756. /*===============================================================================================
  757.  *-----------------------------------------------------------------------------------------------
  758.  *===============================================================================================
  759.  */
  761. int pcm_write_s2sc (SF_PRIVATE *psf, short *ptr, int len)
  762. { unsigned int writecount, thiswrite ;
  763. int bytecount, bufferlen ;
  764. int index = 0, total = 0 ;
  766. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  767. bytecount = len * psf->bytewidth ;
  768. while (bytecount > 0)
  769. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  770. s2sc_array (ptr, index, (signed char*) (psf->buffer), writecount / psf->bytewidth) ;
  771. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  772. total += thiswrite ;
  773. if (thiswrite < writecount)
  774. break ;
  775. index += thiswrite / psf->bytewidth ;
  776. bytecount -= thiswrite ;
  777. } ;
  779. total /= psf->bytewidth ;
  780. if (total < len)
  781. psf->error = SFE_SHORT_WRITE ;
  783. return total ;
  784. } /* pcm_write_s2sc */
  786. int pcm_write_s2uc (SF_PRIVATE *psf, short *ptr, int len)
  787. { unsigned int writecount, thiswrite ;
  788. int bytecount, bufferlen ;
  789. int index = 0, total = 0 ;
  791. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  792. bytecount = len * psf->bytewidth ;
  793. while (bytecount > 0)
  794. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  795. s2uc_array (ptr, index, (unsigned char*) (psf->buffer), writecount / psf->bytewidth) ;
  796. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  797. total += thiswrite ;
  798. if (thiswrite < writecount)
  799. break ;
  800. index += thiswrite / psf->bytewidth ;
  801. bytecount -= thiswrite ;
  802. } ;
  804. total /= psf->bytewidth ;
  805. if (total < len)
  806. psf->error = SFE_SHORT_WRITE ;
  808. return total ;
  809. } /* pcm_write_s2uc */
  811. int pcm_write_s2bes (SF_PRIVATE *psf, short *ptr, int len)
  812. { int total ;
  814. if (CPU_IS_LITTLE_ENDIAN)
  815. endswap_short_array (ptr, len) ;
  816. total = fwrite (ptr, 1, len * sizeof (short), psf->file) ;
  817. if (CPU_IS_LITTLE_ENDIAN)
  818. endswap_short_array (ptr, len) ;
  820. total /= psf->bytewidth ;
  821. if (total < len)
  822. psf->error = SFE_SHORT_WRITE ;
  824. return total ;
  825. } /* pcm_write_s2bes */
  827. int pcm_write_s2les (SF_PRIVATE *psf, short *ptr, int len)
  828. { int total ;
  830. if (CPU_IS_BIG_ENDIAN)
  831. endswap_short_array (ptr, len) ;
  832. total = fwrite (ptr, 1, len * sizeof (short), psf->file) ;
  833. if (CPU_IS_BIG_ENDIAN)
  834. endswap_short_array (ptr, len) ;
  836. total /= psf->bytewidth ;
  837. if (total < len)
  838. psf->error = SFE_SHORT_WRITE ;
  840. return total ;
  841. } /* pcm_write_s2les */
  843. int pcm_write_s2bet (SF_PRIVATE *psf, short *ptr, int len)
  844. { unsigned int writecount, thiswrite ;
  845. int bytecount, bufferlen ;
  846. int index = 0, total = 0 ;
  848. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  849. bytecount = len * psf->bytewidth ;
  850. while (bytecount > 0)
  851. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  852. s2bet_array (ptr, index, (tribyte*) (psf->buffer), writecount / psf->bytewidth) ;
  853. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  854. total += thiswrite ;
  855. if (thiswrite < writecount)
  856. break ;
  857. index += thiswrite / psf->bytewidth ;
  858. bytecount -= thiswrite ;
  859. } ;
  861. total /= psf->bytewidth ;
  862. if (total < len)
  863. psf->error = SFE_SHORT_WRITE ;
  865. return total ;
  866. } /* pcm_write_s2bet */
  868. int pcm_write_s2let (SF_PRIVATE *psf, short *ptr, int len)
  869. { unsigned int writecount, thiswrite ;
  870. int bytecount, bufferlen ;
  871. int index = 0, total = 0 ;
  873. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  874. bytecount = len * psf->bytewidth ;
  875. while (bytecount > 0)
  876. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  877. s2let_array (ptr, index, (tribyte*) (psf->buffer), writecount / psf->bytewidth) ;
  878. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  879. total += thiswrite ;
  880. if (thiswrite < writecount)
  881. break ;
  882. index += thiswrite / psf->bytewidth ;
  883. bytecount -= thiswrite ;
  884. } ;
  886. total /= psf->bytewidth ;
  887. if (total < len)
  888. psf->error = SFE_SHORT_WRITE ;
  890. return total ;
  891. } /* pcm_write_s2let */
  893. int  pcm_write_s2bei (SF_PRIVATE *psf, short *ptr, int len)
  894. { unsigned int writecount, thiswrite ;
  895. int bytecount, bufferlen ;
  896. int index = 0, total = 0 ;
  898. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  899. bytecount = len * psf->bytewidth ;
  900. while (bytecount > 0)
  901. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  902. s2bei_array (ptr, index, (int*) (psf->buffer), writecount / psf->bytewidth) ;
  903. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  904. total += thiswrite ;
  905. if (thiswrite < writecount)
  906. break ;
  907. index += thiswrite / psf->bytewidth ;
  908. bytecount -= thiswrite ;
  909. } ;
  911. total /= psf->bytewidth ;
  912. if (total < len)
  913. psf->error = SFE_SHORT_WRITE ;
  915. return total ;
  916. } /* pcm_write_s2bei */
  918. int  pcm_write_s2lei (SF_PRIVATE *psf, short *ptr, int len)
  919. { unsigned int writecount, thiswrite ;
  920. int bytecount, bufferlen ;
  921. int index = 0, total = 0 ;
  923. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  924. bytecount = len * psf->bytewidth ;
  925. while (bytecount > 0)
  926. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  927. s2lei_array (ptr, index, (int*) (psf->buffer), writecount / psf->bytewidth) ;
  928. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  929. total += thiswrite ;
  930. if (thiswrite < writecount)
  931. break ;
  932. index += thiswrite / psf->bytewidth ;
  933. bytecount -= thiswrite ;
  934. } ;
  936. total /= psf->bytewidth ;
  937. if (total < len)
  938. psf->error = SFE_SHORT_WRITE ;
  940. return total ;
  941. } /* pcm_write_s2lei */
  943. int pcm_write_s2f (SF_PRIVATE *psf, short *ptr, int len)
  944. { unsigned int writecount, thiswrite ;
  945. int bytecount, bufferlen ;
  946. int index = 0, total = 0 ;
  948. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  949. bytecount = len * psf->bytewidth ;
  950. while (bytecount > 0)
  951. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  952. s2f_array (ptr, index, (float*) (psf->buffer), writecount / psf->bytewidth) ;
  953. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  954. total += thiswrite ;
  955. if (thiswrite < writecount)
  956. break ;
  957. index += thiswrite / psf->bytewidth ;
  958. bytecount -= thiswrite ;
  959. } ;
  961. total /= psf->bytewidth ;
  962. if (total < len)
  963. psf->error = SFE_SHORT_WRITE ;
  965. return total ;
  966. } /* pcm_write_s2f */
  968. /*-----------------------------------------------------------------------------------------------
  969.  */
  971. int pcm_write_i2sc (SF_PRIVATE *psf, int *ptr, int len)
  972. { unsigned int writecount, thiswrite ;
  973. int bytecount, bufferlen ;
  974. int index = 0, total = 0 ;
  976. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  977. bytecount = len * psf->bytewidth ;
  978. while (bytecount > 0)
  979. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  980. i2sc_array (ptr, index, (signed char*) (psf->buffer), writecount / psf->bytewidth) ;
  981. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  982. total += thiswrite ;
  983. if (thiswrite < writecount)
  984. break ;
  985. index += thiswrite / psf->bytewidth ;
  986. bytecount -= thiswrite ;
  987. } ;
  989. total /= psf->bytewidth ;
  990. if (total < len)
  991. psf->error = SFE_SHORT_WRITE ;
  993. return total ;
  994. } /* pcm_write_i2sc */
  996. int pcm_write_i2uc (SF_PRIVATE *psf, int *ptr, int len)
  997. { unsigned int writecount, thiswrite ;
  998. int bytecount, bufferlen ;
  999. int index = 0, total = 0 ;
  1001. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1002. bytecount = len * psf->bytewidth ;
  1003. while (bytecount > 0)
  1004. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1005. i2uc_array (ptr, index, (unsigned char*) (psf->buffer), writecount / psf->bytewidth) ;
  1006. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1007. total += thiswrite ;
  1008. if (thiswrite < writecount)
  1009. break ;
  1010. index += thiswrite / psf->bytewidth ;
  1011. bytecount -= thiswrite ;
  1012. } ;
  1014. total /= psf->bytewidth ;
  1015. if (total < len)
  1016. psf->error = SFE_SHORT_WRITE ;
  1018. return total ;
  1019. } /* pcm_write_i2uc */
  1021. int pcm_write_i2bes (SF_PRIVATE *psf, int *ptr, int len)
  1022. { unsigned int writecount, thiswrite ;
  1023. int bytecount, bufferlen ;
  1024. int index = 0, total = 0 ;
  1026. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1027. bytecount = len * psf->bytewidth ;
  1028. while (bytecount > 0)
  1029. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1030. i2bes_array (ptr, index, (short*) (psf->buffer), writecount / psf->bytewidth) ;
  1031. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1032. total += thiswrite ;
  1033. if (thiswrite < writecount)
  1034. break ;
  1035. index += thiswrite / psf->bytewidth ;
  1036. bytecount -= thiswrite ;
  1037. } ;
  1039. total /= psf->bytewidth ;
  1040. if (total < len)
  1041. psf->error = SFE_SHORT_WRITE ;
  1043. return total ;
  1044. } /* pcm_write_i2bes */
  1046. int pcm_write_i2les (SF_PRIVATE *psf, int *ptr, int len)
  1047. { unsigned int writecount, thiswrite ;
  1048. int bytecount, bufferlen ;
  1049. int index = 0, total = 0 ;
  1051. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1052. bytecount = len * psf->bytewidth ;
  1053. while (bytecount > 0)
  1054. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1055. i2les_array (ptr, index, (short*) (psf->buffer), writecount / psf->bytewidth) ;
  1056. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1057. total += thiswrite ;
  1058. if (thiswrite < writecount)
  1059. break ;
  1060. index += thiswrite / psf->bytewidth ;
  1061. bytecount -= thiswrite ;
  1062. } ;
  1064. total /= psf->bytewidth ;
  1065. if (total < len)
  1066. psf->error = SFE_SHORT_WRITE ;
  1068. return total ;
  1069. } /* pcm_write_i2les */
  1071. int pcm_write_i2bet (SF_PRIVATE *psf, int *ptr, int len)
  1072. { unsigned int writecount, thiswrite ;
  1073. int bytecount, bufferlen ;
  1074. int index = 0, total = 0 ;
  1076. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1077. bytecount = len * psf->bytewidth ;
  1078. while (bytecount > 0)
  1079. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1080. i2bet_array (ptr, index, (tribyte*) (psf->buffer), writecount / psf->bytewidth) ;
  1081. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1082. total += thiswrite ;
  1083. if (thiswrite < writecount)
  1084. break ;
  1085. index += thiswrite / psf->bytewidth ;
  1086. bytecount -= thiswrite ;
  1087. } ;
  1089. total /= psf->bytewidth ;
  1090. if (total < len)
  1091. psf->error = SFE_SHORT_WRITE ;
  1093. return total ;
  1094. } /* pcm_write_i2bet */
  1096. int pcm_write_i2let (SF_PRIVATE *psf, int *ptr, int len)
  1097. { unsigned int writecount, thiswrite ;
  1098. int bytecount, bufferlen ;
  1099. int index = 0, total = 0 ;
  1101. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1102. bytecount = len * psf->bytewidth ;
  1103. while (bytecount > 0)
  1104. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1105. i2let_array (ptr, index, (tribyte*) (psf->buffer), writecount / psf->bytewidth) ;
  1106. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1107. total += thiswrite ;
  1108. if (thiswrite < writecount)
  1109. break ;
  1110. index += thiswrite / psf->bytewidth ;
  1111. bytecount -= thiswrite ;
  1112. } ;
  1114. total /= psf->bytewidth ;
  1115. if (total < len)
  1116. psf->error = SFE_SHORT_WRITE ;
  1118. return total ;
  1119. } /* pcm_write_i2les */
  1121. int  pcm_write_i2bei (SF_PRIVATE *psf, int *ptr, int len)
  1122. { int total ;
  1124. if (CPU_IS_LITTLE_ENDIAN)
  1125. endswap_int_array (ptr, len) ;
  1126. total = fwrite (ptr, 1, len * sizeof (int), psf->file) ;
  1127. if (CPU_IS_LITTLE_ENDIAN)
  1128. endswap_int_array (ptr, len) ;
  1130. total /= psf->bytewidth ;
  1131. if (total < len)
  1132. psf->error = SFE_SHORT_WRITE ;
  1134. return total ;
  1135. } /* pcm_write_i2bei */
  1137. int  pcm_write_i2lei (SF_PRIVATE *psf, int *ptr, int len)
  1138. { int total ;
  1140. if (CPU_IS_BIG_ENDIAN)
  1141. endswap_int_array (ptr, len) ;
  1142. total = fwrite (ptr, 1, len * sizeof (int), psf->file) ;
  1143. if (CPU_IS_BIG_ENDIAN)
  1144. endswap_int_array (ptr, len) ;
  1146. total /= psf->bytewidth ;
  1147. if (total < len)
  1148. psf->error = SFE_SHORT_WRITE ;
  1150. return total ;
  1151. } /* pcm_write_i2lei */
  1153. int pcm_write_i2f (SF_PRIVATE *psf, int *ptr, int len)
  1154. { unsigned int writecount, thiswrite ;
  1155. int bytecount, bufferlen ;
  1156. int index = 0, total = 0 ;
  1158. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1159. bytecount = len * psf->bytewidth ;
  1160. while (bytecount > 0)
  1161. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1162. i2f_array (ptr, index, (float*) (psf->buffer), writecount / psf->bytewidth) ;
  1163. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1164. total += thiswrite ;
  1165. if (thiswrite < writecount)
  1166. break ;
  1167. index += thiswrite / psf->bytewidth ;
  1168. bytecount -= thiswrite ;
  1169. } ;
  1171. total /= psf->bytewidth ;
  1172. if (total < len)
  1173. psf->error = SFE_SHORT_WRITE ;
  1175. return total ;
  1176. } /* pcm_write_i2f */
  1178. /*-----------------------------------------------------------------------------------------------
  1179.  */
  1181. int pcm_write_d2sc (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  1182. { unsigned int writecount, thiswrite ;
  1183. int bytecount, bufferlen ;
  1184. int index = 0, total = 0 ;
  1185. double normfact ;
  1187. normfact = (normalize ? ((double) 0x80) : 1.0) ;
  1189. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1190. bytecount = len * psf->bytewidth ;
  1191. while (bytecount > 0)
  1192. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1193. d2sc_array (ptr, index, (signed char*) (psf->buffer), writecount / psf->bytewidth, normfact) ;
  1194. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1195. total += thiswrite ;
  1196. if (thiswrite < writecount)
  1197. break ;
  1198. index += thiswrite / psf->bytewidth ;
  1199. bytecount -= thiswrite ;
  1200. } ;
  1202. total /= psf->bytewidth ;
  1203. if (total < len)
  1204. psf->error = SFE_SHORT_WRITE ;
  1206. return total ;
  1207. } /* pcm_write_d2sc */
  1209. int pcm_write_d2uc (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  1210. { unsigned int writecount, thiswrite ;
  1211. int bytecount, bufferlen ;
  1212. int index = 0, total = 0 ;
  1213. double normfact ;
  1215. normfact = (normalize ? ((double) 0x80) : 1.0) ;
  1217. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1218. bytecount = len * psf->bytewidth ;
  1219. while (bytecount > 0)
  1220. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1221. d2uc_array (ptr, index, (unsigned char*) (psf->buffer), writecount / psf->bytewidth, normfact) ;
  1222. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1223. total += thiswrite ;
  1224. if (thiswrite < writecount)
  1225. break ;
  1226. index += thiswrite / psf->bytewidth ;
  1227. bytecount -= thiswrite ;
  1228. } ;
  1230. total /= psf->bytewidth ;
  1231. if (total < len)
  1232. psf->error = SFE_SHORT_WRITE ;
  1234. return total ;
  1235. } /* pcm_write_d2uc */
  1237. int pcm_write_d2bes (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  1238. { unsigned int writecount, thiswrite ;
  1239. int bytecount, bufferlen ;
  1240. int index = 0, total = 0 ;
  1241. double normfact ;
  1243. normfact = (normalize ? ((double) 0x8000) : 1.0) ;
  1245. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1246. bytecount = len * psf->bytewidth ;
  1247. while (bytecount > 0)
  1248. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1249. d2bes_array (ptr, index, (short*) (psf->buffer), writecount / psf->bytewidth, normfact) ;
  1250. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1251. total += thiswrite ;
  1252. if (thiswrite < writecount)
  1253. break ;
  1254. index += thiswrite / psf->bytewidth ;
  1255. bytecount -= thiswrite ;
  1256. } ;
  1258. total /= psf->bytewidth ;
  1259. if (total < len)
  1260. psf->error = SFE_SHORT_WRITE ;
  1262. return total ;
  1263. } /* pcm_write_d2bes */
  1265. int pcm_write_d2les (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  1266. { unsigned int writecount, thiswrite ;
  1267. int bytecount, bufferlen ;
  1268. int index = 0, total = 0 ;
  1269. double normfact ;
  1271. normfact = (normalize ? ((double) 0x8000) : 1.0) ;
  1273. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1274. bytecount = len * psf->bytewidth ;
  1275. while (bytecount > 0)
  1276. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1277. d2les_array (ptr, index, (short*) (psf->buffer), writecount / psf->bytewidth, normfact) ;
  1278. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1279. total += thiswrite ;
  1280. if (thiswrite < writecount)
  1281. break ;
  1282. index += thiswrite / psf->bytewidth ;
  1283. bytecount -= thiswrite ;
  1284. } ;
  1286. total /= psf->bytewidth ;
  1287. if (total < len)
  1288. psf->error = SFE_SHORT_WRITE ;
  1290. return total ;
  1291. } /* pcm_write_d2les */
  1293. int pcm_write_d2let (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  1294. { unsigned int writecount, thiswrite ;
  1295. int bytecount, bufferlen ;
  1296. int index = 0, total = 0 ;
  1297. double normfact ;
  1299. normfact = (normalize ? ((double) 0x800000) : 1.0) ;
  1301. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1302. bytecount = len * psf->bytewidth ;
  1303. while (bytecount > 0)
  1304. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1305. d2let_array (ptr, index, (tribyte*) (psf->buffer), writecount / psf->bytewidth, normfact) ;
  1306. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1307. total += thiswrite ;
  1308. if (thiswrite < writecount)
  1309. break ;
  1310. index += thiswrite / psf->bytewidth ;
  1311. bytecount -= thiswrite ;
  1312. } ;
  1314. total /= psf->bytewidth ;
  1315. if (total < len)
  1316. psf->error = SFE_SHORT_WRITE ;
  1318. return total ;
  1319. } /* pcm_write_d2les */
  1321. int pcm_write_d2bet (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  1322. { unsigned int writecount, thiswrite ;
  1323. int bytecount, bufferlen ;
  1324. int index = 0, total = 0 ;
  1325. double normfact ;
  1327. normfact = (normalize ? ((double) 0x800000) : 1.0) ;
  1329. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1330. bytecount = len * psf->bytewidth ;
  1331. while (bytecount > 0)
  1332. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1333. d2bet_array (ptr, index, (tribyte*) (psf->buffer), writecount / psf->bytewidth, normfact) ;
  1334. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1335. total += thiswrite ;
  1336. if (thiswrite < writecount)
  1337. break ;
  1338. index += thiswrite / psf->bytewidth ;
  1339. bytecount -= thiswrite ;
  1340. } ;
  1342. total /= psf->bytewidth ;
  1343. if (total < len)
  1344. psf->error = SFE_SHORT_WRITE ;
  1346. return total ;
  1347. } /* pcm_write_d2bes */
  1349. int  pcm_write_d2bei (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  1350. { unsigned int writecount, thiswrite ;
  1351. int bytecount, bufferlen ;
  1352. int index = 0, total = 0 ;
  1353. double normfact ;
  1355. normfact = (normalize ? ((double) 0x80000000) : 1.0) ;
  1357. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1358. bytecount = len * psf->bytewidth ;
  1359. while (bytecount > 0)
  1360. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1361. d2bei_array (ptr, index, (int*) (psf->buffer), writecount / psf->bytewidth, normfact) ;
  1362. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1363. total += thiswrite ;
  1364. if (thiswrite < writecount)
  1365. break ;
  1366. index += thiswrite / psf->bytewidth ;
  1367. bytecount -= thiswrite ;
  1368. } ;
  1370. total /= psf->bytewidth ;
  1371. if (total < len)
  1372. psf->error = SFE_SHORT_WRITE ;
  1374. return total ;
  1375. } /* pcm_write_d2bei */
  1377. int  pcm_write_d2lei (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  1378. { unsigned int writecount, thiswrite ;
  1379. int bytecount, bufferlen ;
  1380. int index = 0, total = 0 ;
  1381. double normfact ;
  1383. normfact = (normalize ? ((double) 0x80000000) : 1.0) ;
  1385. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1386. bytecount = len * psf->bytewidth ;
  1387. while (bytecount > 0)
  1388. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1389. d2lei_array (ptr, index, (int*) (psf->buffer), writecount / psf->bytewidth, normfact) ;
  1390. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1391. total += thiswrite ;
  1392. if (thiswrite < writecount)
  1393. break ;
  1394. index += thiswrite / psf->bytewidth ;
  1395. bytecount -= thiswrite ;
  1396. } ;
  1398. total /= psf->bytewidth ;
  1399. if (total < len)
  1400. psf->error = SFE_SHORT_WRITE ;
  1402. return total ;
  1403. } /* pcm_write_d2lei */
  1405. int pcm_write_d2f (SF_PRIVATE *psf, double *ptr, int len, int normalize)
  1406. { unsigned int writecount, thiswrite ;
  1407. int bytecount, bufferlen ;
  1408. int index = 0, total = 0 ;
  1409. double normfact ;
  1411. normfact = (normalize) ? 1.0 : 1.0 ;
  1413. bufferlen = SF_BUFFER_LEN - (SF_BUFFER_LEN % psf->blockwidth) ;
  1414. bytecount = len * psf->bytewidth ;
  1415. while (bytecount > 0)
  1416. { writecount = (bytecount >= bufferlen) ? bufferlen : bytecount ;
  1417. d2f_array (ptr, index, (float*) (psf->buffer), writecount / psf->bytewidth, normfact) ;
  1418. thiswrite = fwrite (psf->buffer, 1, writecount, psf->file) ;
  1419. total += thiswrite ;
  1420. if (thiswrite < writecount)
  1421. break ;
  1422. index += thiswrite / psf->bytewidth ;
  1423. bytecount -= thiswrite ;
  1424. } ;
  1426. total /= psf->bytewidth ;
  1427. if (total < len)
  1428. psf->error = SFE_SHORT_WRITE ;
  1430. return total ;
  1431. } /* pcm_write_d2f */
  1433. /*-----------------------------------------------------------------------------------------------
  1434.  */
  1436. static
  1437. void sc2s_array (signed char *buffer, unsigned int count, short *ptr, int index)
  1438. { int k ;
  1439. for (k = 0 ; k < count ; k++)
  1440. { ptr [index] = ((short) buffer [k]) ;
  1441. index ++ ;
  1442. } ;
  1443. } /* sc2s_array */
  1445. static
  1446. void uc2s_array (unsigned char *buffer, unsigned int count, short *ptr, int index)
  1447. { int k ;
  1448. for (k = 0 ; k < count ; k++)
  1449. { ptr [index] = ((((short) buffer [k]) - 128) % 256) ;
  1450. index ++ ;
  1451. } ;
  1452. } /* uc2s_array */
  1454. static
  1455. void bet2s_array (tribyte *buffer, unsigned int count, short *ptr, int index)
  1456. { unsigned char *cptr ;
  1457. int k ;
  1458. int  value;
  1459. cptr = (unsigned char*) buffer ;
  1460. for (k = 0 ; k < count ; k++)
  1461. { value = (cptr [0] << 24) | (cptr [1] << 16) | (cptr [2] << 8) ;
  1462. value = BE2H_INT (value) ;
  1463. ptr [index] = (short) (value >> 16) ;
  1464. index ++ ;
  1465. cptr += 3 ;
  1466. } ;
  1467. } /* bet2s_array */
  1469. static
  1470. void let2s_array (tribyte *buffer, unsigned int count, short *ptr, int index)
  1471. { unsigned char *cptr ;
  1472. int k ;
  1473. int  value;
  1474. cptr = (unsigned char*) buffer ;
  1475. for (k = 0 ; k < count ; k++)
  1476. { value = (cptr [0] << 8) | (cptr [1] << 16) | (cptr [2] << 24) ;
  1477. value = LE2H_INT (value) ;
  1478. ptr [index] = (short) (value >> 16) ;
  1479. index ++ ;
  1480. cptr += 3 ;
  1481. } ;
  1482. } /* let2s_array */
  1484. static
  1485. void bei2s_array (int *buffer, unsigned int count, short *ptr, int index)
  1486. { int k ;
  1487. int value ;
  1488. for (k = 0 ; k < count ; k++)
  1489. { value = BE2H_INT (buffer [k]) ;
  1490. ptr [index] = (short) (value >> 16) ;
  1491. index ++ ;
  1492. } ;
  1493. } /* bei2s_array */
  1495. static
  1496. void lei2s_array (int *buffer, unsigned int count, short *ptr, int index)
  1497. { int k ;
  1498. int value ;
  1499. for (k = 0 ; k < count ; k++)
  1500. { value = LE2H_INT (buffer [k]) ;
  1501. ptr [index] = (short) (value >> 16) ;
  1502. index ++ ;
  1503. } ;
  1504. } /* lei2s_array */
  1506. static
  1507. void f2s_array (float *buffer, unsigned int count, short *ptr, int index)
  1508. { int k ;
  1509. for (k = 0 ; k < count ; k++)
  1510. { ptr [index] = ((double) buffer [k]) ;
  1511. index ++ ;
  1512. } ;
  1513. } /* f2s_array */
  1516. /*-----------------------------------------------------------------------------------------------
  1517.  */
  1519. static
  1520. void sc2i_array (signed char *buffer, unsigned int count, int *ptr, int index)
  1521. { int k ;
  1522. for (k = 0 ; k < count ; k++)
  1523. { ptr [index] = ((int) buffer [k]) ;
  1524. index ++ ;
  1525. } ;
  1526. } /* sc2i_array */
  1528. static
  1529. void uc2i_array (unsigned char *buffer, unsigned int count, int *ptr, int index)
  1530. { int k ;
  1531. for (k = 0 ; k < count ; k++)
  1532. { ptr [index] = ((((int) buffer [k]) - 128) % 256) ;
  1533. index ++ ;
  1534. } ;
  1535. } /* uc2i_array */
  1537. static
  1538. void bes2i_array (short *buffer, unsigned int count, int *ptr, int index)
  1539. { int k ;
  1540. short value ;
  1541. for (k = 0 ; k < count ; k++)
  1542. { value = BE2H_SHORT (buffer [k]) ;
  1543. ptr [index] = ((int) value) ;
  1544. index ++ ;
  1545. } ;
  1546. } /* bes2i_array */
  1548. static
  1549. void les2i_array (short *buffer, unsigned int count, int *ptr, int index)
  1550. { int k ;
  1551. short value ;
  1552. for (k = 0 ; k < count ; k++)
  1553. { value = LE2H_SHORT (buffer [k]) ;
  1554. ptr [index] = ((int) value) ;
  1555. index ++ ;
  1556. } ;
  1557. } /* les2i_array */
  1559. static
  1560. void bet2i_array (tribyte *buffer, unsigned int count, int *ptr, int index)
  1561. { unsigned char *cptr ;
  1562. int k ;
  1563. int  value;
  1564. cptr = (unsigned char*) buffer ;
  1565. for (k = 0 ; k < count ; k++)
  1566. { value = (cptr [0] << 24) | (cptr [1] << 16) | (cptr [2] << 8) ;
  1567. ptr [index] = value / 256 ;
  1568. index ++ ;
  1569. cptr += 3 ;
  1570. } ;
  1571. } /* bet2i_array */
  1573. static
  1574. void let2i_array (tribyte *buffer, unsigned int count, int *ptr, int index)
  1575. { unsigned char *cptr ;
  1576. int k ;
  1577. int  value;
  1578. cptr = (unsigned char*) buffer ;
  1579. for (k = 0 ; k < count ; k++)
  1580. { value = (cptr [0] << 8) | (cptr [1] << 16) | (cptr [2] << 24) ;
  1581. ptr [index] = value / 256 ;
  1582. index ++ ;
  1583. cptr += 3 ;
  1584. } ;
  1585. } /* let2i_array */
  1587. static
  1588. void f2i_array (float *buffer, unsigned int count, int *ptr, int index)
  1589. { int k ;
  1590. for (k = 0 ; k < count ; k++)
  1591. { ptr [index] = (int) ((double) buffer [k]) ;
  1592. index ++ ;
  1593. } ;
  1594. } /* f2i_array */
  1597. /*-----------------------------------------------------------------------------------------------
  1598.  */
  1600. static
  1601. void sc2d_array (signed char *buffer, unsigned int count, double *ptr, int index, double normfact)
  1602. { int k ;
  1603. for (k = 0 ; k < count ; k++)
  1604. { ptr [index] = ((double) buffer [k]) * normfact ;
  1605. index ++ ;
  1606. } ;
  1607. } /* sc2d_array */
  1609. static
  1610. void uc2d_array (unsigned char *buffer, unsigned int count, double *ptr, int index, double normfact)
  1611. { int k ;
  1612. for (k = 0 ; k < count ; k++)
  1613. { ptr [index] = ((((int) buffer [k]) - 128) % 256) * normfact ;
  1614. index ++ ;
  1615. } ;
  1616. } /* uc2d_array */
  1618. static
  1619. void bes2d_array (short *buffer, unsigned int count, double *ptr, int index, double normfact)
  1620. { int k ;
  1621. short value ;
  1622. for (k = 0 ; k < count ; k++)
  1623. { value = BE2H_SHORT (buffer [k]) ;
  1624. ptr [index] = ((double) value) * normfact ;
  1625. index ++ ;
  1626. } ;
  1627. } /* bes2d_array */
  1629. static
  1630. void les2d_array (short *buffer, unsigned int count, double *ptr, int index, double normfact)
  1631. { int k ;
  1632. short value ;
  1633. for (k = 0 ; k < count ; k++)
  1634. { value = LE2H_SHORT (buffer [k]) ;
  1635. ptr [index] = ((double) value) * normfact ;
  1636. index ++ ;
  1637. } ;
  1638. } /* les2d_array */
  1640. static
  1641. void bet2d_array (tribyte *buffer, unsigned int count, double *ptr, int index, double normfact)
  1642. { unsigned char *cptr ;
  1643. int k ;
  1644. int  value;
  1645. cptr = (unsigned char*) buffer ;
  1646. for (k = 0 ; k < count ; k++)
  1647. { value = (cptr [0] << 24) | (cptr [1] << 16) | (cptr [2] << 8) ;
  1648. ptr [index] = ((double) (value / 256)) * normfact ;
  1649. index ++ ;
  1650. cptr += 3 ;
  1651. } ;
  1652. } /* bet2d_array */
  1654. static
  1655. void let2d_array (tribyte *buffer, unsigned int count, double *ptr, int index, double normfact)
  1656. { unsigned char *cptr ;
  1657. int k ;
  1658. int  value;
  1659. cptr = (unsigned char*) buffer ;
  1660. for (k = 0 ; k < count ; k++)
  1661. { value = (cptr [0] << 8) | (cptr [1] << 16) | (cptr [2] << 24) ;
  1662. ptr [index] = ((double) (value / 256)) * normfact ;
  1663. index ++ ;
  1664. cptr += 3 ; 
  1665. } ;
  1666. } /* let2d_array */
  1668. static
  1669. void bei2d_array (int *buffer, unsigned int count, double *ptr, int index, double normfact)
  1670. { int k ;
  1671. int value ;
  1672. for (k = 0 ; k < count ; k++)
  1673. { value = BE2H_INT (buffer [k]) ;
  1674. ptr [index] = ((double) value) * normfact ;
  1675. index ++ ;
  1676. } ;
  1677. } /* bei2d_array */
  1679. static
  1680. void lei2d_array (int *buffer, unsigned int count, double *ptr, int index, double normfact)
  1681. { int k ;
  1682. int value ;
  1683. for (k = 0 ; k < count ; k++)
  1684. { value = LE2H_INT (buffer [k]) ;
  1685. ptr [index] = ((double) value) * normfact ;
  1686. index ++ ;
  1687. } ;
  1688. } /* lei2d_array */
  1690. static
  1691. void f2d_array (float *buffer, unsigned int count, double *ptr, int index, double normfact)
  1692. { int k ;
  1693. for (k = 0 ; k < count ; k++)
  1694. { ptr [index] = ((double) buffer [k]) * normfact ;
  1695. index ++ ;
  1696. } ;
  1697. } /* f2d_array */
  1700. /*-----------------------------------------------------------------------------------------------
  1701.  */
  1703. static
  1704. void s2sc_array (short *ptr, int index, signed char *buffer, unsigned int count)
  1705. { int k ;
  1706. for (k = 0 ; k < count ; k++)
  1707. { buffer [k] = (signed char) (ptr [index]) ;
  1708. index ++ ;
  1709. } ;
  1710. } /* s2sc_array */
  1712. static
  1713. void s2uc_array (short *ptr, int index, unsigned char *buffer, unsigned int count)
  1714. { int k ;
  1715. for (k = 0 ; k < count ; k++)
  1716. { buffer [k] = (unsigned char) (ptr [index] + 128) ;
  1717. index ++ ;
  1718. } ;
  1719. } /* s2uc_array */
  1721. static 
  1722. void s2bet_array (short *ptr, int index, tribyte *buffer, unsigned int count)
  1723. { unsigned char *cptr ;
  1724. int k, value ;
  1725. cptr = (unsigned char*) buffer ;
  1726. for (k = 0 ; k < count ; k++)
  1727. { value = ptr [index] << 8 ;
  1728. cptr [2] = (unsigned char) (value & 0xFF) ;
  1729. cptr [1] = (unsigned char) ((value >> 8) & 0xFF) ;
  1730. cptr [0] = (unsigned char) ((value >> 16) & 0xFF) ;
  1731. index ++ ;
  1732. cptr += 3 ;
  1733. } ;
  1734. } /* s2bet_array */
  1736. static 
  1737. void s2let_array (short *ptr, int index, tribyte *buffer, unsigned int count)
  1738. { unsigned char *cptr ;
  1739. int k, value ;
  1740. cptr = (unsigned char*) buffer ;
  1741. for (k = 0 ; k < count ; k++)
  1742. { value = ptr [index] << 8 ;
  1743. cptr [0] = (unsigned char) (value & 0xFF) ;
  1744. cptr [1] = (unsigned char) ((value >> 8) & 0xFF) ;
  1745. cptr [2] = (unsigned char) ((value >> 16) & 0xFF) ;
  1746. index ++ ;
  1747. cptr += 3 ;
  1748. } ;
  1749. } /* s2let_array */
  1751. static 
  1752. void s2bei_array (short *ptr, int index, int *buffer, unsigned int count)
  1753. { int k ;
  1754. for (k = 0 ; k < count ; k++)
  1755. { buffer [k] = H2BE_INT (ptr [index] << 16) ;
  1756. index ++ ;
  1757. } ;
  1758. } /* s2lei_array */
  1760. static 
  1761. void s2lei_array (short *ptr, int index, int *buffer, unsigned int count)
  1762. { int k ;
  1763. for (k = 0 ; k < count ; k++)
  1764. { buffer [k] = H2LE_INT (ptr [index] << 16) ;
  1765. index ++ ;
  1766. } ;
  1767. } /* s2lei_array */
  1769. static 
  1770. void s2f_array (short *ptr, int index, float *buffer, unsigned int count)
  1771. { int k ;
  1772. for (k = 0 ; k < count ; k++)
  1773. { buffer [k] = (float) (ptr [index]) ;
  1774. index ++ ;
  1775. } ;
  1776. } /* s2f_array */
  1779. /*-----------------------------------------------------------------------------------------------
  1780.  */
  1782. static
  1783. void i2sc_array (int *ptr, int index, signed char *buffer, unsigned int count)
  1784. { int k ;
  1785. for (k = 0 ; k < count ; k++)
  1786. { buffer [k] = (signed char) (ptr [index]) ;
  1787. index ++ ;
  1788. } ;
  1789. } /* i2sc_array */
  1791. static
  1792. void i2uc_array (int *ptr, int index, unsigned char *buffer, unsigned int count)
  1793. { int k ;
  1794. for (k = 0 ; k < count ; k++)
  1795. { buffer [k] = (unsigned char) (ptr [index] + 128) ;
  1796. index ++ ;
  1797. } ;
  1798. } /* i2uc_array */
  1800. static 
  1801. void i2bes_array (int *ptr, int index, short *buffer, unsigned int count)
  1802. { int k ;
  1803. for (k = 0 ; k < count ; k++)
  1804. { buffer [k] = H2BE_SHORT (ptr [index]) ;
  1805. index ++ ;
  1806. } ;
  1807. } /* i2bes_array */
  1809. static 
  1810. void i2les_array (int *ptr, int index, short *buffer, unsigned int count)
  1811. { int k ;
  1812. for (k = 0 ; k < count ; k++)
  1813. { buffer [k] = H2LE_SHORT (ptr [index]) ;
  1814. index ++ ;
  1815. } ;
  1816. } /* i2les_array */
  1818. static 
  1819. void i2bet_array (int *ptr, int index, tribyte *buffer, unsigned int count)
  1820. { unsigned char *cptr ;
  1821. int k, value ;
  1822. cptr = (unsigned char*) buffer ;
  1823. for (k = 0 ; k < count ; k++)
  1824. { value = ptr [index] ;
  1825. cptr [0] = (unsigned char) ((value & 0xFF0000) >> 16) ;
  1826. cptr [1] = (unsigned char) ((value >> 8) & 0xFF) ;
  1827. cptr [2] = (unsigned char) (value & 0xFF) ;
  1828. index ++ ;
  1829. cptr += 3 ;
  1830. } ;
  1831. } /* i2bet_array */
  1833. static 
  1834. void i2let_array (int *ptr, int index, tribyte *buffer, unsigned int count)
  1835. { unsigned char *cptr ;
  1836. int k, value ;
  1837. cptr = (unsigned char*) buffer ;
  1838. for (k = 0 ; k < count ; k++)
  1839. { value = ptr [index] ;
  1840. cptr [0] = (unsigned char) (value & 0xFF) ;
  1841. cptr [1] = (unsigned char) ((value >> 8) & 0xFF) ;
  1842. cptr [2] = (unsigned char) ((value >> 16) & 0xFF) ;
  1843. index ++ ;
  1844. cptr += 3 ;
  1845. } ;
  1846. } /* i2let_array */
  1848. static 
  1849. void i2f_array (int *ptr, int index, float *buffer, unsigned int count)
  1850. { int k ;
  1851. for (k = 0 ; k < count ; k++)
  1852. { buffer [k] = (float) (ptr [index]) ;
  1853. index ++ ;
  1854. } ;
  1855. } /* i2f_array */
  1858. /*-----------------------------------------------------------------------------------------------
  1859.  */
  1861. static
  1862. void d2sc_array (double *ptr, int index, signed char *buffer, unsigned int count, double normfact)
  1863. { int k ;
  1864. for (k = 0 ; k < count ; k++)
  1865. { buffer [k] = (signed char) (ptr [index] * normfact) ;
  1866. index ++ ;
  1867. } ;
  1868. } /* d2sc_array */
  1870. static
  1871. void d2uc_array (double *ptr, int index, unsigned char *buffer, unsigned int count, double normfact)
  1872. { int k ;
  1873. for (k = 0 ; k < count ; k++)
  1874. { buffer [k] = (unsigned char) ((ptr [index] * normfact) + 128) ;
  1875. index ++ ;
  1876. } ;
  1877. } /* d2uc_array */
  1879. static 
  1880. void d2bes_array (double *ptr, int index, short *buffer, unsigned int count, double normfact)
  1881. { int k ;
  1882. for (k = 0 ; k < count ; k++)
  1883. { buffer [k] = H2BE_SHORT ((int) (ptr [index] * normfact)) ;
  1884. index ++ ;
  1885. } ;
  1886. } /* d2bes_array */
  1888. static 
  1889. void d2les_array (double *ptr, int index, short *buffer, unsigned int count, double normfact)
  1890. { int k ;
  1891. for (k = 0 ; k < count ; k++)
  1892. { buffer [k] = H2LE_SHORT ((int) (ptr [index] * normfact)) ;
  1893. index ++ ;
  1894. } ;
  1895. } /* d2les_array */
  1897. static 
  1898. void d2bet_array (double *ptr, int index, tribyte *buffer, unsigned int count, double normfact)
  1899. { unsigned char *cptr ;
  1900. int k, value ;
  1901. cptr = (unsigned char*) buffer ;
  1902. for (k = 0 ; k < count ; k++)
  1903. { value = (int) (ptr [index] * normfact) ;
  1904. cptr [2] = (unsigned char) (value & 0xFF) ;
  1905. cptr [1] = (unsigned char) ((value >> 8) & 0xFF) ;
  1906. cptr [0] = (unsigned char) ((value >> 16) & 0xFF) ;
  1907. index ++ ;
  1908. cptr += 3 ;
  1909. } ;
  1910. } /* d2bet_array */
  1912. static 
  1913. void d2let_array (double *ptr, int index, tribyte *buffer, unsigned int count, double normfact)
  1914. { unsigned char *cptr ;
  1915. int k, value ;
  1916. cptr = (unsigned char*) buffer ;
  1917. for (k = 0 ; k < count ; k++)
  1918. { value = (int) (ptr [index] * normfact) ;
  1919. cptr [0] = (unsigned char) (value & 0xFF) ;
  1920. cptr [1] = (unsigned char) ((value >> 8) & 0xFF) ;
  1921. cptr [2] = (unsigned char) ((value >> 16) & 0xFF) ;
  1922. index ++ ;
  1923. cptr += 3 ;
  1924. } ;
  1925. } /* d2let_array */
  1927. static 
  1928. void d2bei_array (double *ptr, int index, int *buffer, unsigned int count, double normfact)
  1929. { int k ;
  1930. for (k = 0 ; k < count ; k++)
  1931. { buffer [k] = H2BE_INT ((int) (ptr [index] * normfact)) ;
  1932. index ++ ;
  1933. } ;
  1934. } /* d2bei_array */
  1936. static 
  1937. void d2lei_array (double *ptr, int index, int *buffer, unsigned int count, double normfact)
  1938. { int k ;
  1939. for (k = 0 ; k < count ; k++)
  1940. { buffer [k] = H2LE_INT ((int) (ptr [index] * normfact)) ;
  1941. index ++ ;
  1942. } ;
  1943. } /* d2lei_array */
  1945. static 
  1946. void d2f_array (double *ptr, int index, float *buffer, unsigned int count, double normfact)
  1947. { int k ;
  1948. for (k = 0 ; k < count ; k++)
  1949. { buffer [k] = (float) (ptr [index] * normfact) ;
  1950. index ++ ;
  1951. } ;
  1952. } /* d2f_array */