/project/jni/sndfile/src/caf.c

https://github.com/aichunyu/FFPlayer · C · 620 lines · 448 code · 126 blank · 46 comment · 139 complexity · f556f79d371147532161030d3f323f9d MD5 · raw file 

    

  1. /*
    2. 

  2. ** Copyright (C) 2005-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
    3. 

  3. **
    4. 

  4. ** This program is free software; you can redistribute it and/or modify
    5. 

  5. ** it under the terms of the GNU Lesser General Public License as published by
    6. 

  6. ** the Free Software Foundation; either version 2.1 of the License, or
    7. 

  7. ** (at your option) any later version.
    8. 

  8. **
    9. 

  9. ** This program is distributed in the hope that it will be useful,
    10. 

  10. ** but WITHOUT ANY WARRANTY; without even the implied warranty of
    11. 

  11. ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    12. 

  12. ** GNU Lesser General Public License for more details.
    13. 

  13. **
    14. 

  14. ** You should have received a copy of the GNU Lesser General Public License
    15. 

  15. ** along with this program; if not, write to the Free Software
    16. 

  16. ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
    17. 

  17. */
    18. 

  18. 

  19. #include	"sfconfig.h"
    20. 

  20. 

  21. #include	<stdio.h>
    22. 

  22. #include	<stdlib.h>
    23. 

  23. #include	<string.h>
    24. 

  24. #include	<ctype.h>
    25. 

  25. #include	<math.h>
    26. 

  26. #include	<inttypes.h>
    27. 

  27. 

  28. #include	"sndfile.h"
    29. 

  29. #include	"sfendian.h"
    30. 

  30. #include	"common.h"
    31. 

  31. #include	"chanmap.h"
    32. 

  32. 

  33. /*------------------------------------------------------------------------------
    34. 

  34. ** Macros to handle big/little endian issues.
    35. 

  35. */
    36. 

  36. 

  37. #define aac_MARKER		MAKE_MARKER ('a', 'a', 'c', ' ')
    38. 

  38. #define alac_MARKER		MAKE_MARKER ('a', 'l', 'a', 'c')
    39. 

  39. #define alaw_MARKER		MAKE_MARKER ('a', 'l', 'a', 'w')
    40. 

  40. #define caff_MARKER		MAKE_MARKER ('c', 'a', 'f', 'f')
    41. 

  41. #define chan_MARKER		MAKE_MARKER ('c', 'h', 'a', 'n')
    42. 

  42. #define data_MARKER		MAKE_MARKER ('d', 'a', 't', 'a')
    43. 

  43. #define desc_MARKER		MAKE_MARKER ('d', 'e', 's', 'c')
    44. 

  44. #define edct_MARKER		MAKE_MARKER ('e', 'd', 'c', 't')
    45. 

  45. #define free_MARKER		MAKE_MARKER ('f', 'r', 'e', 'e')
    46. 

  46. #define ima4_MARKER		MAKE_MARKER ('i', 'm', 'a', '4')
    47. 

  47. #define info_MARKER		MAKE_MARKER ('i', 'n', 'f', 'o')
    48. 

  48. #define inst_MARKER		MAKE_MARKER ('i', 'n', 's', 't')
    49. 

  49. #define kuki_MARKER		MAKE_MARKER ('k', 'u', 'k', 'i')
    50. 

  50. #define lpcm_MARKER		MAKE_MARKER ('l', 'p', 'c', 'm')
    51. 

  51. #define mark_MARKER		MAKE_MARKER ('m', 'a', 'r', 'k')
    52. 

  52. #define midi_MARKER		MAKE_MARKER ('m', 'i', 'd', 'i')
    53. 

  53. #define mp1_MARKER		MAKE_MARKER ('.', 'm', 'p', '1')
    54. 

  54. #define mp2_MARKER		MAKE_MARKER ('.', 'm', 'p', '2')
    55. 

  55. #define mp3_MARKER		MAKE_MARKER ('.', 'm', 'p', '3')
    56. 

  56. #define ovvw_MARKER		MAKE_MARKER ('o', 'v', 'v', 'w')
    57. 

  57. #define pakt_MARKER		MAKE_MARKER ('p', 'a', 'k', 't')
    58. 

  58. #define peak_MARKER		MAKE_MARKER ('p', 'e', 'a', 'k')
    59. 

  59. #define regn_MARKER		MAKE_MARKER ('r', 'e', 'g', 'n')
    60. 

  60. #define strg_MARKER		MAKE_MARKER ('s', 't', 'r', 'g')
    61. 

  61. #define umid_MARKER		MAKE_MARKER ('u', 'm', 'i', 'd')
    62. 

  62. #define uuid_MARKER		MAKE_MARKER ('u', 'u', 'i', 'd')
    63. 

  63. #define ulaw_MARKER		MAKE_MARKER ('u', 'l', 'a', 'w')
    64. 

  64. #define MAC3_MARKER		MAKE_MARKER ('M', 'A', 'C', '3')
    65. 

  65. #define MAC6_MARKER		MAKE_MARKER ('M', 'A', 'C', '6')
    66. 

  66. 

  67. #define CAF_PEAK_CHUNK_SIZE(ch) 	((int) (sizeof (int) + ch * (sizeof (float) + 8)))
    68. 

  68. 

  69. #define SFE_CAF_NOT_CAF	666
    70. 

  70. #define SFE_CAF_NO_DESC	667
    71. 

  71. #define SFE_CAF_BAD_PEAK 668
    72. 

  72. 

  73. /*------------------------------------------------------------------------------
    74. 

  74. ** Typedefs.
    75. 

  75. */
    76. 

  76. 

  77. typedef struct
    78. 

  78. {	unsigned char srate [8] ;
    79. 

  79. 	unsigned int fmt_id ;
    80. 

  80. 	unsigned int fmt_flags ;
    81. 

  81. 	unsigned int pkt_bytes ;
    82. 

  82. 	unsigned int pkt_frames ;
    83. 

  83. 	unsigned int channels_per_frame ;
    84. 

  84. 	unsigned int bits_per_chan ;
    85. 

  85. } DESC_CHUNK ;
    86. 

  86. 

  87. typedef struct
    88. 

  88. {	int chanmap_tag ;
    89. 

  89. } CAF_PRIVATE ;
    90. 

  90. 

  91. /*------------------------------------------------------------------------------
    92. 

  92. ** Private static functions.
    93. 

  93. */
    94. 

  94. 

  95. static int	caf_close (SF_PRIVATE *psf) ;
    96. 

  96. static int	caf_read_header (SF_PRIVATE *psf) ;
    97. 

  97. static int	caf_write_header (SF_PRIVATE *psf, int calc_length) ;
    98. 

  98. static int	caf_command (SF_PRIVATE *psf, int command, void *data, int datasize) ;
    99. 

  99. static int	caf_read_chanmap (SF_PRIVATE * psf, sf_count_t chunk_size) ;
    100. 

  100. 

  101. /*------------------------------------------------------------------------------
    102. 

  102. ** Public function.
    103. 

  103. */
    104. 

  104. 

  105. int
    106. 

  106. caf_open (SF_PRIVATE *psf)
    107. 

  107. {	int	subformat, format, error = 0 ;
    108. 

  108. 

  109. 	if (psf->file.mode == SFM_READ || (psf->file.mode == SFM_RDWR && psf->filelength > 0))
    110. 

  110. 	{	if ((error = caf_read_header (psf)))
    111. 

  111. 			return error ;
    112. 

  112. 		} ;
    113. 

  113. 

  114. 	subformat = SF_CODEC (psf->sf.format) ;
    115. 

  115. 

  116. 	if ((psf->container_data = calloc (1, sizeof (CAF_PRIVATE))) == NULL)
    117. 

  117. 		return SFE_MALLOC_FAILED ;
    118. 

  118. 

  119. 	if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
    120. 

  120. 	{	if (psf->is_pipe)
    121. 

  121. 			return SFE_NO_PIPE_WRITE ;
    122. 

  122. 

  123. 		format = SF_CONTAINER (psf->sf.format) ;
    124. 

  124. 		if (format != SF_FORMAT_CAF)
    125. 

  125. 			return	SFE_BAD_OPEN_FORMAT ;
    126. 

  126. 

  127. 		psf->blockwidth = psf->bytewidth * psf->sf.channels ;
    128. 

  128. 

  129. 		if (psf->file.mode != SFM_RDWR || psf->filelength < 44)
    130. 

  130. 		{	psf->filelength = 0 ;
    131. 

  131. 			psf->datalength = 0 ;
    132. 

  132. 			psf->dataoffset = 0 ;
    133. 

  133. 			psf->sf.frames = 0 ;
    134. 

  134. 			} ;
    135. 

  135. 

  136. 		psf->str_flags = SF_STR_ALLOW_START ;
    137. 

  137. 

  138. 		/*
    139. 

  139. 		**	By default, add the peak chunk to floating point files. Default behaviour
    140. 

  140. 		**	can be switched off using sf_command (SFC_SET_PEAK_CHUNK, SF_FALSE).
    141. 

  141. 		*/
    142. 

  142. 		if (psf->file.mode == SFM_WRITE && (subformat == SF_FORMAT_FLOAT || subformat == SF_FORMAT_DOUBLE))
    143. 

  143. 		{	if ((psf->peak_info = peak_info_calloc (psf->sf.channels)) == NULL)
    144. 

  144. 				return SFE_MALLOC_FAILED ;
    145. 

  145. 			psf->peak_info->peak_loc = SF_PEAK_START ;
    146. 

  146. 			} ;
    147. 

  147. 

  148. 		if ((error = caf_write_header (psf, SF_FALSE)) != 0)
    149. 

  149. 			return error ;
    150. 

  150. 

  151. 		psf->write_header = caf_write_header ;
    152. 

  152. 		} ;
    153. 

  153. 

  154. 	psf->container_close = caf_close ;
    155. 

  155. 	psf->command = caf_command ;
    156. 

  156. 

  157. 	switch (subformat)
    158. 

  158. 	{	case SF_FORMAT_PCM_S8 :
    159. 

  159. 		case SF_FORMAT_PCM_16 :
    160. 

  160. 		case SF_FORMAT_PCM_24 :
    161. 

  161. 		case SF_FORMAT_PCM_32 :
    162. 

  162. 					error = pcm_init (psf) ;
    163. 

  163. 					break ;
    164. 

  164. 

  165. 		case SF_FORMAT_ULAW :
    166. 

  166. 					error = ulaw_init (psf) ;
    167. 

  167. 					break ;
    168. 

  168. 

  169. 		case SF_FORMAT_ALAW :
    170. 

  170. 					error = alaw_init (psf) ;
    171. 

  171. 					break ;
    172. 

  172. 

  173. 		/* Lite remove start */
    174. 

  174. 		case SF_FORMAT_FLOAT :
    175. 

  175. 					error = float32_init (psf) ;
    176. 

  176. 					break ;
    177. 

  177. 

  178. 		case SF_FORMAT_DOUBLE :
    179. 

  179. 					error = double64_init (psf) ;
    180. 

  180. 					break ;
    181. 

  181. 		/* Lite remove end */
    182. 

  182. 

  183. 		default :
    184. 

  184. 			return SFE_UNSUPPORTED_ENCODING ;
    185. 

  185. 		} ;
    186. 

  186. 

  187. 	return error ;
    188. 

  188. } /* caf_open */
    189. 

  189. 

  190. static int
    191. 

  191. caf_close (SF_PRIVATE *psf)
    192. 

  192. {
    193. 

  193. 	if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
    194. 

  194. 		caf_write_header (psf, SF_TRUE) ;
    195. 

  195. 

  196. 	return 0 ;
    197. 

  197. } /* caf_close */
    198. 

  198. 

  199. static int
    200. 

  200. caf_command (SF_PRIVATE * psf, int command, void * UNUSED (data), int UNUSED (datasize))
    201. 

  201. {	CAF_PRIVATE	*pcaf ;
    202. 

  202. 

  203. 	if ((pcaf = psf->container_data) == NULL)
    204. 

  204. 		return SFE_INTERNAL ;
    205. 

  205. 

  206. 	switch (command)
    207. 

  207. 	{	case SFC_SET_CHANNEL_MAP_INFO :
    208. 

  208. 			pcaf->chanmap_tag = aiff_caf_find_channel_layout_tag (psf->channel_map, psf->sf.channels) ;
    209. 

  209. 			return (pcaf->chanmap_tag != 0) ;
    210. 

  210. 

  211. 		default :
    212. 

  212. 			break ;
    213. 

  213. 	} ;
    214. 

  214. 

  215. 	return 0 ;
    216. 

  216. } /* caf_command */
    217. 

  217. 

  218. /*------------------------------------------------------------------------------
    219. 

  219. */
    220. 

  220. 

  221. static int
    222. 

  222. decode_desc_chunk (SF_PRIVATE *psf, const DESC_CHUNK *desc)
    223. 

  223. {	int format ;
    224. 

  224. 

  225. 	psf->sf.channels = desc->channels_per_frame ;
    226. 

  226. 

  227. 	format = SF_FORMAT_CAF | (psf->endian == SF_ENDIAN_LITTLE ? SF_ENDIAN_LITTLE : 0) ;
    228. 

  228. 

  229. 	if (desc->fmt_id == lpcm_MARKER && desc->fmt_flags & 1)
    230. 

  230. 	{	/* Floating point data. */
    231. 

  231. 		if (desc->bits_per_chan == 32 && desc->pkt_bytes == 4 * desc->channels_per_frame)
    232. 

  232. 		{	psf->bytewidth = 4 ;
    233. 

  233. 			return format | SF_FORMAT_FLOAT ;
    234. 

  234. 			} ;
    235. 

  235. 		if (desc->bits_per_chan == 64 && desc->pkt_bytes == 8 * desc->channels_per_frame)
    236. 

  236. 		{	psf->bytewidth = 8 ;
    237. 

  237. 			return format | SF_FORMAT_DOUBLE ;
    238. 

  238. 			} ;
    239. 

  239. 		} ;
    240. 

  240. 

  241. 	if ((desc->fmt_flags & 1) != 0)
    242. 

  242. 	{	psf_log_printf (psf, "**** Ooops, 'desc' chunk suggests float data, but other info invalid.\n") ;
    243. 

  243. 		return 0 ;
    244. 

  244. 		} ;
    245. 

  245. 

  246. 	if (desc->fmt_id == lpcm_MARKER)
    247. 

  247. 	{	/* Integer data. */
    248. 

  248. 		if (desc->bits_per_chan == 32 && desc->pkt_bytes == 4 * desc->channels_per_frame)
    249. 

  249. 		{	psf->bytewidth = 4 ;
    250. 

  250. 			return format | SF_FORMAT_PCM_32 ;
    251. 

  251. 			} ;
    252. 

  252. 		if (desc->bits_per_chan == 24 && desc->pkt_bytes == 3 * desc->channels_per_frame)
    253. 

  253. 		{	psf->bytewidth = 3 ;
    254. 

  254. 			return format | SF_FORMAT_PCM_24 ;
    255. 

  255. 			} ;
    256. 

  256. 		if (desc->bits_per_chan == 16 && desc->pkt_bytes == 2 * desc->channels_per_frame)
    257. 

  257. 		{	psf->bytewidth = 2 ;
    258. 

  258. 			return format | SF_FORMAT_PCM_16 ;
    259. 

  259. 			} ;
    260. 

  260. 		if (desc->bits_per_chan == 8 && desc->pkt_bytes == 1 * desc->channels_per_frame)
    261. 

  261. 		{	psf->bytewidth = 1 ;
    262. 

  262. 			return format | SF_FORMAT_PCM_S8 ;
    263. 

  263. 			} ;
    264. 

  264. 		} ;
    265. 

  265. 

  266. 	if (desc->fmt_id == alaw_MARKER && desc->bits_per_chan == 8)
    267. 

  267. 	{	psf->bytewidth = 1 ;
    268. 

  268. 		return format | SF_FORMAT_ALAW ;
    269. 

  269. 		} ;
    270. 

  270. 

  271. 	if (desc->fmt_id == ulaw_MARKER && desc->bits_per_chan == 8)
    272. 

  272. 	{	psf->bytewidth = 1 ;
    273. 

  273. 		return format | SF_FORMAT_ULAW ;
    274. 

  274. 		} ;
    275. 

  275. 

  276. 	return 0 ;
    277. 

  277. } /* decode_desc_chunk */
    278. 

  278. 

  279. static int
    280. 

  280. caf_read_header (SF_PRIVATE *psf)
    281. 

  281. {	DESC_CHUNK desc ;
    282. 

  282. 	sf_count_t chunk_size ;
    283. 

  283. 	double srate ;
    284. 

  284. 	short version, flags ;
    285. 

  285. 	int marker, k, have_data = 0, error ;
    286. 

  286. 

  287. 	memset (&desc, 0, sizeof (desc)) ;
    288. 

  288. 

  289. 	/* Set position to start of file to begin reading header. */
    290. 

  290. 	psf_binheader_readf (psf, "pmE2E2", 0, &marker, &version, &flags) ;
    291. 

  291. 	psf_log_printf (psf, "%M\n  Version : %d\n  Flags   : %x\n", marker, version, flags) ;
    292. 

  292. 	if (marker != caff_MARKER)
    293. 

  293. 		return SFE_CAF_NOT_CAF ;
    294. 

  294. 

  295. 	psf_binheader_readf (psf, "mE8b", &marker, &chunk_size, psf->u.ucbuf, 8) ;
    296. 

  296. 	srate = double64_be_read (psf->u.ucbuf) ;
    297. 

  297. 	snprintf (psf->u.cbuf, sizeof (psf->u.cbuf), "%5.3f", srate) ;
    298. 

  298. 	psf_log_printf (psf, "%M : %D\n  Sample rate  : %s\n", marker, chunk_size, psf->u.cbuf) ;
    299. 

  299. 	if (marker != desc_MARKER)
    300. 

  300. 		return SFE_CAF_NO_DESC ;
    301. 

  301. 

  302. 	if (chunk_size < SIGNED_SIZEOF (DESC_CHUNK))
    303. 

  303. 	{	psf_log_printf (psf, "**** Chunk size too small. Should be > 32 bytes.\n") ;
    304. 

  304. 		return SFE_MALFORMED_FILE ;
    305. 

  305. 		} ;
    306. 

  306. 

  307. 	psf->sf.samplerate = lrint (srate) ;
    308. 

  308. 

  309. 	psf_binheader_readf (psf, "mE44444", &desc.fmt_id, &desc.fmt_flags, &desc.pkt_bytes, &desc.pkt_frames,
    310. 

  310. 			&desc.channels_per_frame, &desc.bits_per_chan) ;
    311. 

  311. 	psf_log_printf (psf, "  Format id    : %M\n  Format flags : %x\n  Bytes / packet   : %u\n"
    312. 

  312. 			"  Frames / packet  : %u\n  Channels / frame : %u\n  Bits / channel   : %u\n",
    313. 

  313. 			desc.fmt_id, desc.fmt_flags, desc.pkt_bytes, desc.pkt_frames, desc.channels_per_frame, desc.bits_per_chan) ;
    314. 

  314. 

  315. 	if (desc.channels_per_frame > SF_MAX_CHANNELS)
    316. 

  316. 	{	psf_log_printf (psf, "**** Bad channels per frame value %u.\n", desc.channels_per_frame) ;
    317. 

  317. 		return SFE_MALFORMED_FILE ;
    318. 

  318. 		} ;
    319. 

  319. 

  320. 	if (chunk_size > SIGNED_SIZEOF (DESC_CHUNK))
    321. 

  321. 		psf_binheader_readf (psf, "j", (int) (chunk_size - sizeof (DESC_CHUNK))) ;
    322. 

  322. 

  323. 	psf->sf.channels = desc.channels_per_frame ;
    324. 

  324. 

  325. 	while (have_data == 0 && psf_ftell (psf) < psf->filelength - SIGNED_SIZEOF (marker))
    326. 

  326. 	{	psf_binheader_readf (psf, "mE8", &marker, &chunk_size) ;
    327. 

  327. 

  328. 		switch (marker)
    329. 

  329. 		{	case peak_MARKER :
    330. 

  330. 				psf_log_printf (psf, "%M : %D\n", marker, chunk_size) ;
    331. 

  331. 				if (chunk_size != CAF_PEAK_CHUNK_SIZE (psf->sf.channels))
    332. 

  332. 				{	psf_binheader_readf (psf, "j", (int) chunk_size) ;
    333. 

  333. 					psf_log_printf (psf, "*** File PEAK chunk %D should be %d.\n", chunk_size, CAF_PEAK_CHUNK_SIZE (psf->sf.channels)) ;
    334. 

  334. 					return SFE_CAF_BAD_PEAK ;
    335. 

  335. 					} ;
    336. 

  336. 

  337. 				if ((psf->peak_info = peak_info_calloc (psf->sf.channels)) == NULL)
    338. 

  338. 					return SFE_MALLOC_FAILED ;
    339. 

  339. 

  340. 				/* read in rest of PEAK chunk. */
    341. 

  341. 				psf_binheader_readf (psf, "E4", & (psf->peak_info->edit_number)) ;
    342. 

  342. 				psf_log_printf (psf, "  edit count : %d\n", psf->peak_info->edit_number) ;
    343. 

  343. 

  344. 				psf_log_printf (psf, "     Ch   Position       Value\n") ;
    345. 

  345. 				for (k = 0 ; k < psf->sf.channels ; k++)
    346. 

  346. 				{	sf_count_t position ;
    347. 

  347. 					float value ;
    348. 

  348. 

  349. 					psf_binheader_readf (psf, "Ef8", &value, &position) ;
    350. 

  350. 					psf->peak_info->peaks [k].value = value ;
    351. 

  351. 					psf->peak_info->peaks [k].position = position ;
    352. 

  352. 

  353. 					snprintf (psf->u.cbuf, sizeof (psf->u.cbuf), "    %2d   %-12" PRId64 "   %g\n", k, position, value) ;
    354. 

  354. 					psf_log_printf (psf, psf->u.cbuf) ;
    355. 

  355. 					} ;
    356. 

  356. 

  357. 				psf->peak_info->peak_loc = SF_PEAK_START ;
    358. 

  358. 				break ;
    359. 

  359. 

  360. 			case chan_MARKER :
    361. 

  361. 				if (chunk_size < 12)
    362. 

  362. 				{	psf_log_printf (psf, "%M : %D (should be >= 12)\n", marker, chunk_size) ;
    363. 

  363. 					psf_binheader_readf (psf, "j", (int) chunk_size) ;
    364. 

  364. 					break ;
    365. 

  365. 					}
    366. 

  366. 

  367. 				psf_log_printf (psf, "%M : %D\n", marker, chunk_size) ;
    368. 

  368. 

  369. 				if ((error = caf_read_chanmap (psf, chunk_size)))
    370. 

  370. 					return error ;
    371. 

  371. 				break ;
    372. 

  372. 

  373. 			case free_MARKER :
    374. 

  374. 				psf_log_printf (psf, "%M : %D\n", marker, chunk_size) ;
    375. 

  375. 				psf_binheader_readf (psf, "j", (int) chunk_size) ;
    376. 

  376. 				break ;
    377. 

  377. 

  378. 			case data_MARKER :
    379. 

  379. 				if (psf->filelength > 0 && chunk_size + psf->headindex != psf->filelength)
    380. 

  380. 					psf_log_printf (psf, "%M : %D (should be %D)\n", marker, chunk_size, chunk_size + 4) ;
    381. 

  381. 				else
    382. 

  382. 					psf_log_printf (psf, "%M : %D\n", marker, chunk_size) ;
    383. 

  383. 				psf_binheader_readf (psf, "E4", &k) ;
    384. 

  384. 				psf_log_printf (psf, "  edit : %u\n", k) ;
    385. 

  385. 				have_data = 1 ;
    386. 

  386. 				break ;
    387. 

  387. 

  388. 			default :
    389. 

  389. 				psf_log_printf (psf, " %M : %D (skipped)\n", marker, chunk_size) ;
    390. 

  390. 				psf_binheader_readf (psf, "j", (int) chunk_size) ;
    391. 

  391. 				break ;
    392. 

  392. 			} ;
    393. 

  393. 		} ;
    394. 

  394. 

  395. 	if (have_data == 0)
    396. 

  396. 	{	psf_log_printf (psf, "**** Error, could not find 'data' chunk.\n") ;
    397. 

  397. 		return SFE_MALFORMED_FILE ;
    398. 

  398. 		} ;
    399. 

  399. 

  400. 	psf_log_printf (psf, "End\n") ;
    401. 

  401. 

  402. 	psf->dataoffset = psf_ftell (psf) ;
    403. 

  403. 	psf->datalength = psf->filelength - psf->dataoffset ;
    404. 

  404. 	psf->endian = (desc.fmt_flags & 2) ? SF_ENDIAN_LITTLE : SF_ENDIAN_BIG ;
    405. 

  405. 

  406. 	if ((psf->sf.format = decode_desc_chunk (psf, &desc)) == 0)
    407. 

  407. 		return SFE_UNSUPPORTED_ENCODING ;
    408. 

  408. 

  409. 	if (psf->bytewidth > 0)
    410. 

  410. 		psf->sf.frames = psf->datalength / psf->bytewidth ;
    411. 

  411. 

  412. 	return 0 ;
    413. 

  413. } /* caf_read_header */
    414. 

  414. 

  415. /*------------------------------------------------------------------------------
    416. 

  416. */
    417. 

  417. 

  418. static int
    419. 

  419. caf_write_header (SF_PRIVATE *psf, int calc_length)
    420. 

  420. {	CAF_PRIVATE	*pcaf ;
    421. 

  421. 	DESC_CHUNK desc ;
    422. 

  422. 	sf_count_t current, free_len ;
    423. 

  423. 	int subformat ;
    424. 

  424. 

  425. 	if ((pcaf = psf->container_data) == NULL)
    426. 

  426. 		return SFE_INTERNAL ;
    427. 

  427. 

  428. 	memset (&desc, 0, sizeof (desc)) ;
    429. 

  429. 

  430. 	current = psf_ftell (psf) ;
    431. 

  431. 

  432. 	if (calc_length)
    433. 

  433. 	{	psf->filelength = psf_get_filelen (psf) ;
    434. 

  434. 

  435. 		psf->datalength = psf->filelength - psf->dataoffset ;
    436. 

  436. 

  437. 		if (psf->dataend)
    438. 

  438. 			psf->datalength -= psf->filelength - psf->dataend ;
    439. 

  439. 

  440. 		if (psf->bytewidth > 0)
    441. 

  441. 			psf->sf.frames = psf->datalength / (psf->bytewidth * psf->sf.channels) ;
    442. 

  442. 		} ;
    443. 

  443. 

  444. 	/* Reset the current header length to zero. */
    445. 

  445. 	psf->header [0] = 0 ;
    446. 

  446. 	psf->headindex = 0 ;
    447. 

  447. 	psf_fseek (psf, 0, SEEK_SET) ;
    448. 

  448. 

  449. 	/* 'caff' marker, version and flags. */
    450. 

  450. 	psf_binheader_writef (psf, "Em22", caff_MARKER, 1, 0) ;
    451. 

  451. 

  452. 	/* 'desc' marker and chunk size. */
    453. 

  453. 	psf_binheader_writef (psf, "Em8", desc_MARKER, (sf_count_t) (sizeof (DESC_CHUNK))) ;
    454. 

  454. 

  455.  	double64_be_write (1.0 * psf->sf.samplerate, psf->u.ucbuf) ;
    456. 

  456. 	psf_binheader_writef (psf, "b", psf->u.ucbuf, make_size_t (8)) ;
    457. 

  457. 

  458. 	subformat = SF_CODEC (psf->sf.format) ;
    459. 

  459. 

  460. 	psf->endian = SF_ENDIAN (psf->sf.format) ;
    461. 

  461. 

  462. 	if (CPU_IS_BIG_ENDIAN && (psf->endian == 0 || psf->endian == SF_ENDIAN_CPU))
    463. 

  463. 		psf->endian = SF_ENDIAN_BIG ;
    464. 

  464. 	else if (CPU_IS_LITTLE_ENDIAN && (psf->endian == SF_ENDIAN_LITTLE || psf->endian == SF_ENDIAN_CPU))
    465. 

  465. 		psf->endian = SF_ENDIAN_LITTLE ;
    466. 

  466. 

  467. 	if (psf->endian == SF_ENDIAN_LITTLE)
    468. 

  468. 		desc.fmt_flags = 2 ;
    469. 

  469. 	else
    470. 

  470. 		psf->endian = SF_ENDIAN_BIG ;
    471. 

  471. 

  472. 	/* initial section (same for all, it appears) */
    473. 

  473. 	switch (subformat)
    474. 

  474. 	{	case SF_FORMAT_PCM_S8 :
    475. 

  475. 			desc.fmt_id = lpcm_MARKER ;
    476. 

  476. 			psf->bytewidth = 1 ;
    477. 

  477. 			desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
    478. 

  478. 			desc.pkt_frames = 1 ;
    479. 

  479. 			desc.channels_per_frame = psf->sf.channels ;
    480. 

  480. 			desc.bits_per_chan = 8 ;
    481. 

  481. 			break ;
    482. 

  482. 

  483. 		case SF_FORMAT_PCM_16 :
    484. 

  484. 			desc.fmt_id = lpcm_MARKER ;
    485. 

  485. 			psf->bytewidth = 2 ;
    486. 

  486. 			desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
    487. 

  487. 			desc.pkt_frames = 1 ;
    488. 

  488. 			desc.channels_per_frame = psf->sf.channels ;
    489. 

  489. 			desc.bits_per_chan = 16 ;
    490. 

  490. 			break ;
    491. 

  491. 

  492. 		case SF_FORMAT_PCM_24 :
    493. 

  493. 			psf->bytewidth = 3 ;
    494. 

  494. 			desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
    495. 

  495. 			desc.pkt_frames = 1 ;
    496. 

  496. 			desc.channels_per_frame = psf->sf.channels ;
    497. 

  497. 			desc.bits_per_chan = 24 ;
    498. 

  498. 			desc.fmt_id = lpcm_MARKER ;
    499. 

  499. 			break ;
    500. 

  500. 

  501. 		case SF_FORMAT_PCM_32 :
    502. 

  502. 			desc.fmt_id = lpcm_MARKER ;
    503. 

  503. 			psf->bytewidth = 4 ;
    504. 

  504. 			desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
    505. 

  505. 			desc.pkt_frames = 1 ;
    506. 

  506. 			desc.channels_per_frame = psf->sf.channels ;
    507. 

  507. 			desc.bits_per_chan = 32 ;
    508. 

  508. 			break ;
    509. 

  509. 

  510. 		case SF_FORMAT_FLOAT :
    511. 

  511. 			desc.fmt_id = lpcm_MARKER ;
    512. 

  512. 			desc.fmt_flags |= 1 ;
    513. 

  513. 			psf->bytewidth = 4 ;
    514. 

  514. 			desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
    515. 

  515. 			desc.pkt_frames = 1 ;
    516. 

  516. 			desc.channels_per_frame = psf->sf.channels ;
    517. 

  517. 			desc.bits_per_chan = 32 ;
    518. 

  518. 			break ;
    519. 

  519. 

  520. 		case SF_FORMAT_DOUBLE :
    521. 

  521. 			desc.fmt_id = lpcm_MARKER ;
    522. 

  522. 			desc.fmt_flags |= 1 ;
    523. 

  523. 			psf->bytewidth = 8 ;
    524. 

  524. 			desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
    525. 

  525. 			desc.pkt_frames = 1 ;
    526. 

  526. 			desc.channels_per_frame = psf->sf.channels ;
    527. 

  527. 			desc.bits_per_chan = 64 ;
    528. 

  528. 			break ;
    529. 

  529. 

  530. 		case SF_FORMAT_ALAW :
    531. 

  531. 			desc.fmt_id = alaw_MARKER ;
    532. 

  532. 			psf->bytewidth = 1 ;
    533. 

  533. 			desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
    534. 

  534. 			desc.pkt_frames = 1 ;
    535. 

  535. 			desc.channels_per_frame = psf->sf.channels ;
    536. 

  536. 			desc.bits_per_chan = 8 ;
    537. 

  537. 			break ;
    538. 

  538. 

  539. 		case SF_FORMAT_ULAW :
    540. 

  540. 			desc.fmt_id = ulaw_MARKER ;
    541. 

  541. 			psf->bytewidth = 1 ;
    542. 

  542. 			desc.pkt_bytes = psf->bytewidth * psf->sf.channels ;
    543. 

  543. 			desc.pkt_frames = 1 ;
    544. 

  544. 			desc.channels_per_frame = psf->sf.channels ;
    545. 

  545. 			desc.bits_per_chan = 8 ;
    546. 

  546. 			break ;
    547. 

  547. 

  548. 		default :
    549. 

  549. 			return SFE_UNIMPLEMENTED ;
    550. 

  550. 		} ;
    551. 

  551. 

  552. 	psf_binheader_writef (psf, "mE44444", desc.fmt_id, desc.fmt_flags, desc.pkt_bytes, desc.pkt_frames, desc.channels_per_frame, desc.bits_per_chan) ;
    553. 

  553. 

  554. #if 0
    555. 

  555. 	if (psf->str_flags & SF_STR_LOCATE_START)
    556. 

  556. 		caf_write_strings (psf, SF_STR_LOCATE_START) ;
    557. 

  557. #endif
    558. 

  558. 

  559. 	if (psf->peak_info != NULL)
    560. 

  560. 	{	int k ;
    561. 

  561. 		psf_binheader_writef (psf, "Em84", peak_MARKER, (sf_count_t) CAF_PEAK_CHUNK_SIZE (psf->sf.channels), psf->peak_info->edit_number) ;
    562. 

  562. 		for (k = 0 ; k < psf->sf.channels ; k++)
    563. 

  563. 			psf_binheader_writef (psf, "Ef8", (float) psf->peak_info->peaks [k].value, psf->peak_info->peaks [k].position) ;
    564. 

  564. 		} ;
    565. 

  565. 

  566. 	if (psf->channel_map && pcaf->chanmap_tag)
    567. 

  567. 		psf_binheader_writef (psf, "Em8444", chan_MARKER, (sf_count_t) 12, pcaf->chanmap_tag, 0, 0) ;
    568. 

  568. 

  569. 	/* Add free chunk so that the actual audio data starts at a multiple 0x1000. */
    570. 

  570. 	free_len = 0x1000 - psf->headindex - 16 - 12 ;
    571. 

  571. 	while (free_len < 0)
    572. 

  572. 		free_len += 0x1000 ;
    573. 

  573. 	psf_binheader_writef (psf, "Em8z", free_MARKER, free_len, (int) free_len) ;
    574. 

  574. 

  575. 	psf_binheader_writef (psf, "Em84", data_MARKER, psf->datalength + 4, 0) ;
    576. 

  576. 

  577. 	psf_fwrite (psf->header, psf->headindex, 1, psf) ;
    578. 

  578. 	if (psf->error)
    579. 

  579. 		return psf->error ;
    580. 

  580. 

  581. 	psf->dataoffset = psf->headindex ;
    582. 

  582. 	if (current < psf->dataoffset)
    583. 

  583. 		psf_fseek (psf, psf->dataoffset, SEEK_SET) ;
    584. 

  584. 	else if (current > 0)
    585. 

  585. 		psf_fseek (psf, current, SEEK_SET) ;
    586. 

  586. 

  587. 	return psf->error ;
    588. 

  588. } /* caf_write_header */
    589. 

  589. 

  590. static int
    591. 

  591. caf_read_chanmap (SF_PRIVATE * psf, sf_count_t chunk_size)
    592. 

  592. {	const AIFF_CAF_CHANNEL_MAP * map_info ;
    593. 

  593. 	unsigned channel_bitmap, channel_decriptions, bytesread ;
    594. 

  594. 	int layout_tag ;
    595. 

  595. 

  596. 	bytesread = psf_binheader_readf (psf, "E444", &layout_tag, &channel_bitmap, &channel_decriptions) ;
    597. 

  597. 

  598. 	map_info = aiff_caf_of_channel_layout_tag (layout_tag) ;
    599. 

  599. 

  600. 	psf_log_printf (psf, "  Tag    : %x\n", layout_tag) ;
    601. 

  601. 	if (map_info)
    602. 

  602. 		psf_log_printf (psf, "  Layout : %s\n", map_info->name) ;
    603. 

  603. 

  604. 	if (bytesread < chunk_size)
    605. 

  605. 		psf_binheader_readf (psf, "j", chunk_size - bytesread) ;
    606. 

  606. 

  607. 	if (map_info->channel_map != NULL)
    608. 

  608. 	{	size_t chanmap_size = psf->sf.channels * sizeof (psf->channel_map [0]) ;
    609. 

  609. 

  610. 		free (psf->channel_map) ;
    611. 

  611. 

  612. 		if ((psf->channel_map = malloc (chanmap_size)) == NULL)
    613. 

  613. 			return SFE_MALLOC_FAILED ;
    614. 

  614. 

  615. 		memcpy (psf->channel_map, map_info->channel_map, chanmap_size) ;
    616. 

  616. 		} ;
    617. 

  617. 

  618. 	return 0 ;
    619. 

  619. } /* caf_read_chanmap */
    620.