1255 lines
37 KiB
C
1255 lines
37 KiB
C
/*
|
|
* libtta.c
|
|
*
|
|
* Description: TTA1 c-library functions
|
|
* Copyright (c) 1999-2015 Aleksander Djuric. All rights reserved.
|
|
* Distributed under the GNU Lesser General Public License (LGPL).
|
|
* The complete text of the license can be found in the COPYING
|
|
* file included in the distribution.
|
|
*
|
|
*/
|
|
|
|
#include "libtta.h"
|
|
#include "config.h"
|
|
#include "filter.h"
|
|
|
|
/////////////////////////////// portability /////////////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
#ifdef __GNUC__
|
|
#ifdef CARIBBEAN
|
|
#define tta_memclear(__dest,__length) RMMemset(__dest,0,__length)
|
|
#define tta_memcpy(__dest,__source,__length) RMMemcpy(__dest,__source,__length)
|
|
#define tta_malloc RMMalloc
|
|
#define tta_free RMFree
|
|
#else // GNUC
|
|
#ifndef aligned_alloc
|
|
#define aligned_alloc(__alignment,__length) ({ \
|
|
void *ptr; \
|
|
(posix_memalign(&ptr,__alignment,__length)) ? NULL : ptr; })
|
|
#endif
|
|
#define tta_memclear(__dest,__length) memset(__dest,0,__length)
|
|
#define tta_memcpy(__dest,__source,__length) memcpy(__dest,__source,__length)
|
|
#define tta_malloc(__length) aligned_alloc(16,__length)
|
|
#define tta_free free
|
|
#endif
|
|
#else // MSVC
|
|
#define tta_memclear(__dest,__length) ZeroMemory(__dest,__length)
|
|
#define tta_memcpy(__dest,__source,__length) CopyMemory(__dest,__source,__length)
|
|
#define tta_malloc(__length) _aligned_malloc(__length, 16)
|
|
#define tta_free(__dest) _aligned_free(__dest)
|
|
#endif
|
|
|
|
//////////////////////// constants and definitions //////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
const TTAuint32 bit_mask[] = {
|
|
0x00000000, 0x00000001, 0x00000003, 0x00000007,
|
|
0x0000000f, 0x0000001f, 0x0000003f, 0x0000007f,
|
|
0x000000ff, 0x000001ff, 0x000003ff, 0x000007ff,
|
|
0x00000fff, 0x00001fff, 0x00003fff, 0x00007fff,
|
|
0x0000ffff, 0x0001ffff, 0x0003ffff, 0x0007ffff,
|
|
0x000fffff, 0x001fffff, 0x003fffff, 0x007fffff,
|
|
0x00ffffff, 0x01ffffff, 0x03ffffff, 0x07ffffff,
|
|
0x0fffffff, 0x1fffffff, 0x3fffffff, 0x7fffffff,
|
|
0xffffffff
|
|
}; // bit_mask
|
|
|
|
const TTAuint32 bit_shift[] = {
|
|
0x00000001, 0x00000002, 0x00000004, 0x00000008,
|
|
0x00000010, 0x00000020, 0x00000040, 0x00000080,
|
|
0x00000100, 0x00000200, 0x00000400, 0x00000800,
|
|
0x00001000, 0x00002000, 0x00004000, 0x00008000,
|
|
0x00010000, 0x00020000, 0x00040000, 0x00080000,
|
|
0x00100000, 0x00200000, 0x00400000, 0x00800000,
|
|
0x01000000, 0x02000000, 0x04000000, 0x08000000,
|
|
0x10000000, 0x20000000, 0x40000000, 0x80000000,
|
|
0x80000000, 0x80000000, 0x80000000, 0x80000000,
|
|
0x80000000, 0x80000000, 0x80000000, 0x80000000
|
|
}; // bit_shift
|
|
|
|
const TTAuint32 *shift_16 = bit_shift + 4;
|
|
|
|
const TTAuint32 crc32_table[256] = {
|
|
0x00000000, 0x77073096, 0xee0e612c, 0x990951ba, 0x076dc419, 0x706af48f,
|
|
0xe963a535, 0x9e6495a3, 0x0edb8832, 0x79dcb8a4, 0xe0d5e91e, 0x97d2d988,
|
|
0x09b64c2b, 0x7eb17cbd, 0xe7b82d07, 0x90bf1d91, 0x1db71064, 0x6ab020f2,
|
|
0xf3b97148, 0x84be41de, 0x1adad47d, 0x6ddde4eb, 0xf4d4b551, 0x83d385c7,
|
|
0x136c9856, 0x646ba8c0, 0xfd62f97a, 0x8a65c9ec, 0x14015c4f, 0x63066cd9,
|
|
0xfa0f3d63, 0x8d080df5, 0x3b6e20c8, 0x4c69105e, 0xd56041e4, 0xa2677172,
|
|
0x3c03e4d1, 0x4b04d447, 0xd20d85fd, 0xa50ab56b, 0x35b5a8fa, 0x42b2986c,
|
|
0xdbbbc9d6, 0xacbcf940, 0x32d86ce3, 0x45df5c75, 0xdcd60dcf, 0xabd13d59,
|
|
0x26d930ac, 0x51de003a, 0xc8d75180, 0xbfd06116, 0x21b4f4b5, 0x56b3c423,
|
|
0xcfba9599, 0xb8bda50f, 0x2802b89e, 0x5f058808, 0xc60cd9b2, 0xb10be924,
|
|
0x2f6f7c87, 0x58684c11, 0xc1611dab, 0xb6662d3d, 0x76dc4190, 0x01db7106,
|
|
0x98d220bc, 0xefd5102a, 0x71b18589, 0x06b6b51f, 0x9fbfe4a5, 0xe8b8d433,
|
|
0x7807c9a2, 0x0f00f934, 0x9609a88e, 0xe10e9818, 0x7f6a0dbb, 0x086d3d2d,
|
|
0x91646c97, 0xe6635c01, 0x6b6b51f4, 0x1c6c6162, 0x856530d8, 0xf262004e,
|
|
0x6c0695ed, 0x1b01a57b, 0x8208f4c1, 0xf50fc457, 0x65b0d9c6, 0x12b7e950,
|
|
0x8bbeb8ea, 0xfcb9887c, 0x62dd1ddf, 0x15da2d49, 0x8cd37cf3, 0xfbd44c65,
|
|
0x4db26158, 0x3ab551ce, 0xa3bc0074, 0xd4bb30e2, 0x4adfa541, 0x3dd895d7,
|
|
0xa4d1c46d, 0xd3d6f4fb, 0x4369e96a, 0x346ed9fc, 0xad678846, 0xda60b8d0,
|
|
0x44042d73, 0x33031de5, 0xaa0a4c5f, 0xdd0d7cc9, 0x5005713c, 0x270241aa,
|
|
0xbe0b1010, 0xc90c2086, 0x5768b525, 0x206f85b3, 0xb966d409, 0xce61e49f,
|
|
0x5edef90e, 0x29d9c998, 0xb0d09822, 0xc7d7a8b4, 0x59b33d17, 0x2eb40d81,
|
|
0xb7bd5c3b, 0xc0ba6cad, 0xedb88320, 0x9abfb3b6, 0x03b6e20c, 0x74b1d29a,
|
|
0xead54739, 0x9dd277af, 0x04db2615, 0x73dc1683, 0xe3630b12, 0x94643b84,
|
|
0x0d6d6a3e, 0x7a6a5aa8, 0xe40ecf0b, 0x9309ff9d, 0x0a00ae27, 0x7d079eb1,
|
|
0xf00f9344, 0x8708a3d2, 0x1e01f268, 0x6906c2fe, 0xf762575d, 0x806567cb,
|
|
0x196c3671, 0x6e6b06e7, 0xfed41b76, 0x89d32be0, 0x10da7a5a, 0x67dd4acc,
|
|
0xf9b9df6f, 0x8ebeeff9, 0x17b7be43, 0x60b08ed5, 0xd6d6a3e8, 0xa1d1937e,
|
|
0x38d8c2c4, 0x4fdff252, 0xd1bb67f1, 0xa6bc5767, 0x3fb506dd, 0x48b2364b,
|
|
0xd80d2bda, 0xaf0a1b4c, 0x36034af6, 0x41047a60, 0xdf60efc3, 0xa867df55,
|
|
0x316e8eef, 0x4669be79, 0xcb61b38c, 0xbc66831a, 0x256fd2a0, 0x5268e236,
|
|
0xcc0c7795, 0xbb0b4703, 0x220216b9, 0x5505262f, 0xc5ba3bbe, 0xb2bd0b28,
|
|
0x2bb45a92, 0x5cb36a04, 0xc2d7ffa7, 0xb5d0cf31, 0x2cd99e8b, 0x5bdeae1d,
|
|
0x9b64c2b0, 0xec63f226, 0x756aa39c, 0x026d930a, 0x9c0906a9, 0xeb0e363f,
|
|
0x72076785, 0x05005713, 0x95bf4a82, 0xe2b87a14, 0x7bb12bae, 0x0cb61b38,
|
|
0x92d28e9b, 0xe5d5be0d, 0x7cdcefb7, 0x0bdbdf21, 0x86d3d2d4, 0xf1d4e242,
|
|
0x68ddb3f8, 0x1fda836e, 0x81be16cd, 0xf6b9265b, 0x6fb077e1, 0x18b74777,
|
|
0x88085ae6, 0xff0f6a70, 0x66063bca, 0x11010b5c, 0x8f659eff, 0xf862ae69,
|
|
0x616bffd3, 0x166ccf45, 0xa00ae278, 0xd70dd2ee, 0x4e048354, 0x3903b3c2,
|
|
0xa7672661, 0xd06016f7, 0x4969474d, 0x3e6e77db, 0xaed16a4a, 0xd9d65adc,
|
|
0x40df0b66, 0x37d83bf0, 0xa9bcae53, 0xdebb9ec5, 0x47b2cf7f, 0x30b5ffe9,
|
|
0xbdbdf21c, 0xcabac28a, 0x53b39330, 0x24b4a3a6, 0xbad03605, 0xcdd70693,
|
|
0x54de5729, 0x23d967bf, 0xb3667a2e, 0xc4614ab8, 0x5d681b02, 0x2a6f2b94,
|
|
0xb40bbe37, 0xc30c8ea1, 0x5a05df1b, 0x2d02ef8d
|
|
}; // crc32_table
|
|
|
|
const TTAuint32 crc64_table_lo[256] = {
|
|
0x00000000, 0xa9ea3693, 0x53d46d26, 0xfa3e5bb5, 0x0e42ecdf, 0xa7a8da4c,
|
|
0x5d9681f9, 0xf47cb76a, 0x1c85d9be, 0xb56fef2d, 0x4f51b498, 0xe6bb820b,
|
|
0x12c73561, 0xbb2d03f2, 0x41135847, 0xe8f96ed4, 0x90e185ef, 0x390bb37c,
|
|
0xc335e8c9, 0x6adfde5a, 0x9ea36930, 0x37495fa3, 0xcd770416, 0x649d3285,
|
|
0x8c645c51, 0x258e6ac2, 0xdfb03177, 0x765a07e4, 0x8226b08e, 0x2bcc861d,
|
|
0xd1f2dda8, 0x7818eb3b, 0x21c30bde, 0x88293d4d, 0x721766f8, 0xdbfd506b,
|
|
0x2f81e701, 0x866bd192, 0x7c558a27, 0xd5bfbcb4, 0x3d46d260, 0x94ace4f3,
|
|
0x6e92bf46, 0xc77889d5, 0x33043ebf, 0x9aee082c, 0x60d05399, 0xc93a650a,
|
|
0xb1228e31, 0x18c8b8a2, 0xe2f6e317, 0x4b1cd584, 0xbf6062ee, 0x168a547d,
|
|
0xecb40fc8, 0x455e395b, 0xada7578f, 0x044d611c, 0xfe733aa9, 0x57990c3a,
|
|
0xa3e5bb50, 0x0a0f8dc3, 0xf031d676, 0x59dbe0e5, 0xea6c212f, 0x438617bc,
|
|
0xb9b84c09, 0x10527a9a, 0xe42ecdf0, 0x4dc4fb63, 0xb7faa0d6, 0x1e109645,
|
|
0xf6e9f891, 0x5f03ce02, 0xa53d95b7, 0x0cd7a324, 0xf8ab144e, 0x514122dd,
|
|
0xab7f7968, 0x02954ffb, 0x7a8da4c0, 0xd3679253, 0x2959c9e6, 0x80b3ff75,
|
|
0x74cf481f, 0xdd257e8c, 0x271b2539, 0x8ef113aa, 0x66087d7e, 0xcfe24bed,
|
|
0x35dc1058, 0x9c3626cb, 0x684a91a1, 0xc1a0a732, 0x3b9efc87, 0x9274ca14,
|
|
0xcbaf2af1, 0x62451c62, 0x987b47d7, 0x31917144, 0xc5edc62e, 0x6c07f0bd,
|
|
0x9639ab08, 0x3fd39d9b, 0xd72af34f, 0x7ec0c5dc, 0x84fe9e69, 0x2d14a8fa,
|
|
0xd9681f90, 0x70822903, 0x8abc72b6, 0x23564425, 0x5b4eaf1e, 0xf2a4998d,
|
|
0x089ac238, 0xa170f4ab, 0x550c43c1, 0xfce67552, 0x06d82ee7, 0xaf321874,
|
|
0x47cb76a0, 0xee214033, 0x141f1b86, 0xbdf52d15, 0x49899a7f, 0xe063acec,
|
|
0x1a5df759, 0xb3b7c1ca, 0x7d3274cd, 0xd4d8425e, 0x2ee619eb, 0x870c2f78,
|
|
0x73709812, 0xda9aae81, 0x20a4f534, 0x894ec3a7, 0x61b7ad73, 0xc85d9be0,
|
|
0x3263c055, 0x9b89f6c6, 0x6ff541ac, 0xc61f773f, 0x3c212c8a, 0x95cb1a19,
|
|
0xedd3f122, 0x4439c7b1, 0xbe079c04, 0x17edaa97, 0xe3911dfd, 0x4a7b2b6e,
|
|
0xb04570db, 0x19af4648, 0xf156289c, 0x58bc1e0f, 0xa28245ba, 0x0b687329,
|
|
0xff14c443, 0x56fef2d0, 0xacc0a965, 0x052a9ff6, 0x5cf17f13, 0xf51b4980,
|
|
0x0f251235, 0xa6cf24a6, 0x52b393cc, 0xfb59a55f, 0x0167feea, 0xa88dc879,
|
|
0x4074a6ad, 0xe99e903e, 0x13a0cb8b, 0xba4afd18, 0x4e364a72, 0xe7dc7ce1,
|
|
0x1de22754, 0xb40811c7, 0xcc10fafc, 0x65facc6f, 0x9fc497da, 0x362ea149,
|
|
0xc2521623, 0x6bb820b0, 0x91867b05, 0x386c4d96, 0xd0952342, 0x797f15d1,
|
|
0x83414e64, 0x2aab78f7, 0xded7cf9d, 0x773df90e, 0x8d03a2bb, 0x24e99428,
|
|
0x975e55e2, 0x3eb46371, 0xc48a38c4, 0x6d600e57, 0x991cb93d, 0x30f68fae,
|
|
0xcac8d41b, 0x6322e288, 0x8bdb8c5c, 0x2231bacf, 0xd80fe17a, 0x71e5d7e9,
|
|
0x85996083, 0x2c735610, 0xd64d0da5, 0x7fa73b36, 0x07bfd00d, 0xae55e69e,
|
|
0x546bbd2b, 0xfd818bb8, 0x09fd3cd2, 0xa0170a41, 0x5a2951f4, 0xf3c36767,
|
|
0x1b3a09b3, 0xb2d03f20, 0x48ee6495, 0xe1045206, 0x1578e56c, 0xbc92d3ff,
|
|
0x46ac884a, 0xef46bed9, 0xb69d5e3c, 0x1f7768af, 0xe549331a, 0x4ca30589,
|
|
0xb8dfb2e3, 0x11358470, 0xeb0bdfc5, 0x42e1e956, 0xaa188782, 0x03f2b111,
|
|
0xf9cceaa4, 0x5026dc37, 0xa45a6b5d, 0x0db05dce, 0xf78e067b, 0x5e6430e8,
|
|
0x267cdbd3, 0x8f96ed40, 0x75a8b6f5, 0xdc428066, 0x283e370c, 0x81d4019f,
|
|
0x7bea5a2a, 0xd2006cb9, 0x3af9026d, 0x931334fe, 0x692d6f4b, 0xc0c759d8,
|
|
0x34bbeeb2, 0x9d51d821, 0x676f8394, 0xce85b507
|
|
}; // crc64_table_lo
|
|
|
|
const TTAuint32 crc64_table_hi[256] = {
|
|
0x00000000, 0x42f0e1eb, 0x85e1c3d7, 0xc711223c, 0x49336645, 0x0bc387ae,
|
|
0xccd2a592, 0x8e224479, 0x9266cc8a, 0xd0962d61, 0x17870f5d, 0x5577eeb6,
|
|
0xdb55aacf, 0x99a54b24, 0x5eb46918, 0x1c4488f3, 0x663d78ff, 0x24cd9914,
|
|
0xe3dcbb28, 0xa12c5ac3, 0x2f0e1eba, 0x6dfeff51, 0xaaefdd6d, 0xe81f3c86,
|
|
0xf45bb475, 0xb6ab559e, 0x71ba77a2, 0x334a9649, 0xbd68d230, 0xff9833db,
|
|
0x388911e7, 0x7a79f00c, 0xcc7af1ff, 0x8e8a1014, 0x499b3228, 0x0b6bd3c3,
|
|
0x854997ba, 0xc7b97651, 0x00a8546d, 0x4258b586, 0x5e1c3d75, 0x1cecdc9e,
|
|
0xdbfdfea2, 0x990d1f49, 0x172f5b30, 0x55dfbadb, 0x92ce98e7, 0xd03e790c,
|
|
0xaa478900, 0xe8b768eb, 0x2fa64ad7, 0x6d56ab3c, 0xe374ef45, 0xa1840eae,
|
|
0x66952c92, 0x2465cd79, 0x3821458a, 0x7ad1a461, 0xbdc0865d, 0xff3067b6,
|
|
0x711223cf, 0x33e2c224, 0xf4f3e018, 0xb60301f3, 0xda050215, 0x98f5e3fe,
|
|
0x5fe4c1c2, 0x1d142029, 0x93366450, 0xd1c685bb, 0x16d7a787, 0x5427466c,
|
|
0x4863ce9f, 0x0a932f74, 0xcd820d48, 0x8f72eca3, 0x0150a8da, 0x43a04931,
|
|
0x84b16b0d, 0xc6418ae6, 0xbc387aea, 0xfec89b01, 0x39d9b93d, 0x7b2958d6,
|
|
0xf50b1caf, 0xb7fbfd44, 0x70eadf78, 0x321a3e93, 0x2e5eb660, 0x6cae578b,
|
|
0xabbf75b7, 0xe94f945c, 0x676dd025, 0x259d31ce, 0xe28c13f2, 0xa07cf219,
|
|
0x167ff3ea, 0x548f1201, 0x939e303d, 0xd16ed1d6, 0x5f4c95af, 0x1dbc7444,
|
|
0xdaad5678, 0x985db793, 0x84193f60, 0xc6e9de8b, 0x01f8fcb7, 0x43081d5c,
|
|
0xcd2a5925, 0x8fdab8ce, 0x48cb9af2, 0x0a3b7b19, 0x70428b15, 0x32b26afe,
|
|
0xf5a348c2, 0xb753a929, 0x3971ed50, 0x7b810cbb, 0xbc902e87, 0xfe60cf6c,
|
|
0xe224479f, 0xa0d4a674, 0x67c58448, 0x253565a3, 0xab1721da, 0xe9e7c031,
|
|
0x2ef6e20d, 0x6c0603e6, 0xf6fae5c0, 0xb40a042b, 0x731b2617, 0x31ebc7fc,
|
|
0xbfc98385, 0xfd39626e, 0x3a284052, 0x78d8a1b9, 0x649c294a, 0x266cc8a1,
|
|
0xe17dea9d, 0xa38d0b76, 0x2daf4f0f, 0x6f5faee4, 0xa84e8cd8, 0xeabe6d33,
|
|
0x90c79d3f, 0xd2377cd4, 0x15265ee8, 0x57d6bf03, 0xd9f4fb7a, 0x9b041a91,
|
|
0x5c1538ad, 0x1ee5d946, 0x02a151b5, 0x4051b05e, 0x87409262, 0xc5b07389,
|
|
0x4b9237f0, 0x0962d61b, 0xce73f427, 0x8c8315cc, 0x3a80143f, 0x7870f5d4,
|
|
0xbf61d7e8, 0xfd913603, 0x73b3727a, 0x31439391, 0xf652b1ad, 0xb4a25046,
|
|
0xa8e6d8b5, 0xea16395e, 0x2d071b62, 0x6ff7fa89, 0xe1d5bef0, 0xa3255f1b,
|
|
0x64347d27, 0x26c49ccc, 0x5cbd6cc0, 0x1e4d8d2b, 0xd95caf17, 0x9bac4efc,
|
|
0x158e0a85, 0x577eeb6e, 0x906fc952, 0xd29f28b9, 0xcedba04a, 0x8c2b41a1,
|
|
0x4b3a639d, 0x09ca8276, 0x87e8c60f, 0xc51827e4, 0x020905d8, 0x40f9e433,
|
|
0x2cffe7d5, 0x6e0f063e, 0xa91e2402, 0xebeec5e9, 0x65cc8190, 0x273c607b,
|
|
0xe02d4247, 0xa2dda3ac, 0xbe992b5f, 0xfc69cab4, 0x3b78e888, 0x79880963,
|
|
0xf7aa4d1a, 0xb55aacf1, 0x724b8ecd, 0x30bb6f26, 0x4ac29f2a, 0x08327ec1,
|
|
0xcf235cfd, 0x8dd3bd16, 0x03f1f96f, 0x41011884, 0x86103ab8, 0xc4e0db53,
|
|
0xd8a453a0, 0x9a54b24b, 0x5d459077, 0x1fb5719c, 0x919735e5, 0xd367d40e,
|
|
0x1476f632, 0x568617d9, 0xe085162a, 0xa275f7c1, 0x6564d5fd, 0x27943416,
|
|
0xa9b6706f, 0xeb469184, 0x2c57b3b8, 0x6ea75253, 0x72e3daa0, 0x30133b4b,
|
|
0xf7021977, 0xb5f2f89c, 0x3bd0bce5, 0x79205d0e, 0xbe317f32, 0xfcc19ed9,
|
|
0x86b86ed5, 0xc4488f3e, 0x0359ad02, 0x41a94ce9, 0xcf8b0890, 0x8d7be97b,
|
|
0x4a6acb47, 0x089a2aac, 0x14dea25f, 0x562e43b4, 0x913f6188, 0xd3cf8063,
|
|
0x5dedc41a, 0x1f1d25f1, 0xd80c07cd, 0x9afce626
|
|
}; // crc64_table_hi
|
|
|
|
const TTAint32 flt_set[3] = {10, 9, 10};
|
|
|
|
///////////////////////////// global variables //////////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
static TTAuint8 dec_fifo_buffer[TTA_FIFO_BUFFER_SIZE + 1];
|
|
static TTAuint8 *dec_fifo_end = &dec_fifo_buffer[TTA_FIFO_BUFFER_SIZE];
|
|
static TTAuint8 *dec_fifo_pos;
|
|
static TTAuint32 dec_fifo_bcount; // count of bits in cache
|
|
static TTAuint32 dec_fifo_bcache; // bit cache
|
|
static TTAuint32 dec_fifo_crc;
|
|
static TTAuint32 dec_fifo_count;
|
|
static TTA_io_callback *dec_fifo_io;
|
|
|
|
static TTA_codec decoder[MAX_NCH]; // decoder (1 per channel)
|
|
static TTA_codec *decoder_last;
|
|
static TTAint8 dec_data[8]; // decoder initialization data
|
|
bool dec_password_set; // password protection flag
|
|
static TTAuint64 *dec_seek_table; // the playing position table
|
|
bool dec_seek_allowed; // seek table flag
|
|
static TTAuint32 dec_format; // tta data format
|
|
static TTAuint32 dec_rate; // bitrate (kbps)
|
|
static TTAuint64 dec_offset; // data start position (header size, bytes)
|
|
static TTAuint32 dec_frames; // total count of frames
|
|
static TTAuint32 dec_depth; // bytes per sample
|
|
static TTAuint32 dec_flen_std; // default frame length in samples
|
|
static TTAuint32 dec_flen_last; // last frame length in samples
|
|
static TTAuint32 dec_flen; // current frame length in samples
|
|
static TTAuint32 dec_fnum; // currently playing frame index
|
|
static TTAuint32 dec_fpos; // the current position in frame
|
|
static jmp_buf dec_exc; // stored stack environment for error-handling
|
|
static int dec_error; // last error code value
|
|
|
|
static TTAuint8 enc_fifo_buffer[TTA_FIFO_BUFFER_SIZE + 1];
|
|
static TTAuint8 *enc_fifo_end = &enc_fifo_buffer[TTA_FIFO_BUFFER_SIZE];
|
|
static TTAuint8 *enc_fifo_pos;
|
|
static TTAuint32 enc_fifo_bcount; // count of bits in cache
|
|
static TTAuint32 enc_fifo_bcache; // bit cache
|
|
static TTAuint32 enc_fifo_crc;
|
|
static TTAuint32 enc_fifo_count;
|
|
static TTA_io_callback *enc_fifo_io;
|
|
|
|
static TTA_codec encoder[MAX_NCH]; // encoder (1 per channel)
|
|
static TTA_codec *encoder_last;
|
|
static TTAint8 enc_data[8]; // encoder initialization data
|
|
static TTAuint64 *enc_seek_table; // the playing position table
|
|
static TTAuint32 enc_format; // tta data format
|
|
static TTAuint32 enc_rate; // bitrate (kbps)
|
|
static TTAuint64 enc_offset; // data start position (header size, bytes)
|
|
static TTAuint32 enc_frames; // total count of frames
|
|
static TTAuint32 enc_depth; // bytes per sample
|
|
static TTAuint32 enc_flen_std; // default frame length in samples
|
|
static TTAuint32 enc_flen_last; // last frame length in samples
|
|
static TTAuint32 enc_flen; // current frame length in samples
|
|
static TTAuint32 enc_fnum; // currently playing frame index
|
|
static TTAuint32 enc_fpos; // the current position in frame
|
|
static TTAuint32 enc_shift_bits; // packing int to pcm
|
|
static jmp_buf enc_exc; // stored stack environment for error-handling
|
|
static int enc_error; // last error code value
|
|
|
|
///////////////////////////////// macros ////////////////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
#define MUL_FRAME_TIME(x) (256 * (x) / 245) // = x * FRAME_TIME
|
|
#define DIV_FRAME_TIME(x) (245 * (x) / 256) // = x / FRAME_TIME
|
|
#define DEC(x) ((x & 1)?((x + 1) >> 1):(-x >> 1))
|
|
#define ENC(x) ((x > 0)?((x << 1) - 1):(-x << 1))
|
|
#define PREDICTOR1(x, k) ((x * ((1 << k) - 1)) >> k)
|
|
|
|
#ifdef ENABLE_FRW // optimized, requires +3 bytes at the tail of the buffer
|
|
#define READ_BUFFER(x, p, d, s) { \
|
|
x = *(TTAint32 *)p << s; \
|
|
p += d; }
|
|
#define WRITE_BUFFER(x, p, d) { \
|
|
*(TTAint32 *)p = *x; \
|
|
p += d; }
|
|
#else // not optimized, but accurate
|
|
#define READ_BUFFER(x, p, d, s) { \
|
|
if (d == 2) x = *(TTAint16 *)p << s; \
|
|
else if (d == 1) x = *p << s; \
|
|
else x = *(TTAint32 *)p << s; \
|
|
p += d; }
|
|
|
|
#define WRITE_BUFFER(x, p, d) { \
|
|
if (d == 2) *(TTAint16 *)p = 0xffff & *x; \
|
|
else if (d == 1) *p = 0xff & *x; \
|
|
else *(TTAint32 *)p = *x; \
|
|
p += d; }
|
|
#endif
|
|
|
|
#define TRY_CATCH(x, ex) { \
|
|
x = setjmp(ex); \
|
|
if (x != 0) return -1; }
|
|
|
|
/////////////////////////// TTA common functions ////////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
CPU_ARCH_TYPE tta_binary_version() {
|
|
#if defined(ENABLE_SSE4)
|
|
return CPU_ARCH_IX86_SSE4_1;
|
|
#elif defined(ENABLE_SSE2)
|
|
return CPU_ARCH_IX86_SSE2;
|
|
#else
|
|
return CPU_ARCH_UNDEFINED;
|
|
#endif
|
|
} // tta_binary_version
|
|
|
|
__forceinline void rice_init (TTA_adapt *rice, TTAuint32 k0, TTAuint32 k1) {
|
|
rice->k0 = k0;
|
|
rice->k1 = k1;
|
|
rice->sum0 = shift_16[k0];
|
|
rice->sum1 = shift_16[k1];
|
|
} // rice_init
|
|
|
|
void compute_key_digits(void const *pstr, TTAuint32 len, TTAint8 *out) {
|
|
TTAint8 *cstr = (TTAint8 *) pstr;
|
|
TTAuint32 crc_lo = 0xffffffff;
|
|
TTAuint32 crc_hi = 0xffffffff;
|
|
|
|
while (len--) {
|
|
TTAuint32 tab_index = ((crc_hi >> 24) ^ *cstr++) & 0xff;
|
|
crc_hi = crc64_table_hi[tab_index] ^ ((crc_hi << 8) | (crc_lo >> 24));
|
|
crc_lo = crc64_table_lo[tab_index] ^ (crc_lo << 8);
|
|
}
|
|
|
|
crc_lo ^= 0xffffffff;
|
|
crc_hi ^= 0xffffffff;
|
|
|
|
out[0] = ((crc_lo) & 0xff);
|
|
out[1] = ((crc_lo >> 8) & 0xff);
|
|
out[2] = ((crc_lo >> 16) & 0xff);
|
|
out[3] = ((crc_lo >> 24) & 0xff);
|
|
|
|
out[4] = ((crc_hi) & 0xff);
|
|
out[5] = ((crc_hi >> 8) & 0xff);
|
|
out[6] = ((crc_hi >> 16) & 0xff);
|
|
out[7] = ((crc_hi >> 24) & 0xff);
|
|
} // compute_key_digits
|
|
|
|
//////////////////////////// TTA filter init ////////////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
__forceinline void filter_init(TTA_fltst *fs, TTAint8 *data, TTAint32 shift) {
|
|
tta_memclear(fs, sizeof(TTA_fltst));
|
|
fs->shift = shift;
|
|
fs->round = 1 << (shift - 1);
|
|
fs->qm[0] = data[0];
|
|
fs->qm[1] = data[1];
|
|
fs->qm[2] = data[2];
|
|
fs->qm[3] = data[3];
|
|
fs->qm[4] = data[4];
|
|
fs->qm[5] = data[5];
|
|
fs->qm[6] = data[6];
|
|
fs->qm[7] = data[7];
|
|
} // filter_init
|
|
|
|
//////////////////////////// decoder functions //////////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
void reader_start() { dec_fifo_pos = dec_fifo_end; }
|
|
|
|
void reader_reset() {
|
|
// init crc32, reset counter
|
|
dec_fifo_crc = 0xffffffffUL;
|
|
dec_fifo_bcache = 0;
|
|
dec_fifo_bcount = 0;
|
|
dec_fifo_count = 0;
|
|
} // reader_reset
|
|
|
|
__forceinline TTAuint8 read_byte() {
|
|
if (dec_fifo_pos == dec_fifo_end) {
|
|
if (!dec_fifo_io->read(dec_fifo_io, dec_fifo_buffer, TTA_FIFO_BUFFER_SIZE))
|
|
longjmp(dec_exc, TTA_READ_ERROR);
|
|
dec_fifo_pos = dec_fifo_buffer;
|
|
}
|
|
|
|
// update crc32 and statistics
|
|
dec_fifo_crc = crc32_table[(dec_fifo_crc ^ *dec_fifo_pos) & 0xff] ^ (dec_fifo_crc >> 8);
|
|
dec_fifo_count++;
|
|
|
|
return *dec_fifo_pos++;
|
|
} // read_byte
|
|
|
|
__forceinline TTAuint32 read_uint16() {
|
|
TTAuint32 value = 0;
|
|
|
|
value |= read_byte();
|
|
value |= read_byte() << 8;
|
|
|
|
return value;
|
|
} // read_uint16
|
|
|
|
__forceinline TTAuint32 read_uint32() {
|
|
TTAuint32 value = 0;
|
|
|
|
value |= read_byte();
|
|
value |= read_byte() << 8;
|
|
value |= read_byte() << 16;
|
|
value |= read_byte() << 24;
|
|
|
|
return value;
|
|
} // read_uint32
|
|
|
|
__forceinline bool read_crc32() {
|
|
TTAuint32 crc = dec_fifo_crc ^ 0xffffffffUL;
|
|
return (crc != read_uint32());
|
|
} // read_crc32
|
|
|
|
void reader_skip_bytes(TTAuint32 size) {
|
|
while (size--) read_byte();
|
|
} // reader_skip_bytes
|
|
|
|
TTAuint32 skip_id3v2() {
|
|
TTAuint32 size = 0;
|
|
|
|
reader_reset();
|
|
|
|
// id3v2 header must be at start
|
|
if ('I' != read_byte() ||
|
|
'D' != read_byte() ||
|
|
'3' != read_byte()) {
|
|
dec_fifo_pos = dec_fifo_buffer;
|
|
return 0;
|
|
}
|
|
|
|
dec_fifo_pos += 2; // skip version bytes
|
|
if (read_byte() & 0x10) size += 10;
|
|
|
|
size += (read_byte() & 0x7f);
|
|
size = (size << 7) | (read_byte() & 0x7f);
|
|
size = (size << 7) | (read_byte() & 0x7f);
|
|
size = (size << 7) | (read_byte() & 0x7f);
|
|
|
|
reader_skip_bytes(size);
|
|
|
|
return (size + 10);
|
|
} // skip_id3v2
|
|
|
|
TTAuint32 read_tta_header(TTA_info *info) {
|
|
TTAuint32 size = skip_id3v2();
|
|
|
|
reader_reset();
|
|
|
|
if ('T' != read_byte() ||
|
|
'T' != read_byte() ||
|
|
'A' != read_byte() ||
|
|
'1' != read_byte()) longjmp(dec_exc, TTA_FORMAT_ERROR);
|
|
|
|
info->format = read_uint16();
|
|
info->nch = read_uint16();
|
|
info->bps = read_uint16();
|
|
info->sps = read_uint32();
|
|
info->samples = read_uint32();
|
|
|
|
if (read_crc32())
|
|
longjmp(dec_exc, TTA_FILE_ERROR);
|
|
|
|
size += 22; // sizeof TTA header
|
|
|
|
return size;
|
|
} // read_tta_header
|
|
|
|
bool tta_decoder_read_seek_table() {
|
|
TTAuint64 tmp;
|
|
TTAuint32 i;
|
|
|
|
if (!dec_seek_table) return false;
|
|
|
|
reader_reset();
|
|
|
|
tmp = dec_offset + (dec_frames + 1) * 4;
|
|
for (i = 0; i < dec_frames; i++) {
|
|
dec_seek_table[i] = tmp;
|
|
tmp += read_uint32();
|
|
}
|
|
|
|
if (read_crc32()) return false;
|
|
|
|
return true;
|
|
} // tta_decoder_read_seek_table
|
|
|
|
void tta_decoder_set_password(void const *pstr, TTAuint32 len) {
|
|
compute_key_digits(pstr, len, dec_data);
|
|
dec_password_set = true;
|
|
} // tta_decoder_set_key
|
|
|
|
int tta_decoder_frame_init(TTAuint32 frame, bool seek_needed) {
|
|
TTAint32 shift = flt_set[dec_depth - 1];
|
|
TTA_codec *dec = decoder;
|
|
TTAuint64 offset;
|
|
|
|
if (frame >= dec_frames) return 0;
|
|
|
|
dec_fnum = frame;
|
|
|
|
if (seek_needed && dec_seek_allowed) {
|
|
offset = dec_seek_table[dec_fnum];
|
|
if (offset && dec_fifo_io->seek(dec_fifo_io, offset) < 0) {
|
|
dec_error = TTA_SEEK_ERROR;
|
|
return -1;
|
|
}
|
|
reader_start();
|
|
}
|
|
|
|
if (dec_fnum == dec_frames - 1)
|
|
dec_flen = dec_flen_last;
|
|
else dec_flen = dec_flen_std;
|
|
|
|
// init entropy decoder
|
|
do {
|
|
filter_init(&dec->fst, dec_data, shift);
|
|
rice_init(&dec->rice, 10, 10);
|
|
dec->prev = 0;
|
|
} while (++dec <= decoder_last);
|
|
|
|
dec_fpos = 0;
|
|
|
|
reader_reset();
|
|
|
|
return 0;
|
|
} // tta_decoder_frame_init
|
|
|
|
int tta_decoder_frame_reset(TTAuint32 frame, TTA_io_callback *iocb) {
|
|
dec_fifo_io = iocb;
|
|
reader_start();
|
|
return tta_decoder_frame_init(frame, false);
|
|
} // tta_decoder_frame_reset
|
|
|
|
int tta_decoder_set_position(TTAuint32 seconds, TTAuint32 *new_pos) {
|
|
TTAuint32 frame = DIV_FRAME_TIME(seconds);
|
|
*new_pos = MUL_FRAME_TIME(frame);
|
|
|
|
if (!dec_seek_allowed || frame >= dec_frames) {
|
|
dec_error = TTA_SEEK_ERROR;
|
|
return -1;
|
|
}
|
|
|
|
return tta_decoder_frame_init(frame, true);
|
|
} // tta_decoder_set_position
|
|
|
|
int tta_decoder_init_set_info(TTA_info *info) {
|
|
// check for supported formats
|
|
if (info->format > 2 ||
|
|
info->bps < MIN_BPS ||
|
|
info->bps > MAX_BPS ||
|
|
info->nch > MAX_NCH) {
|
|
dec_error = TTA_FORMAT_ERROR;
|
|
return -1;
|
|
}
|
|
|
|
dec_format = info->format;
|
|
dec_depth = (info->bps + 7) / 8;
|
|
dec_flen_std = MUL_FRAME_TIME(info->sps);
|
|
dec_flen_last = info->samples % dec_flen_std;
|
|
dec_frames = info->samples / dec_flen_std + (dec_flen_last ? 1 : 0);
|
|
if (!dec_flen_last) dec_flen_last = dec_flen_std;
|
|
dec_rate = 0;
|
|
|
|
decoder_last = decoder + info->nch - 1;
|
|
|
|
reader_start();
|
|
|
|
return tta_decoder_frame_init(0, false);
|
|
} // tta_decoder_init_set_info
|
|
|
|
int tta_decoder_init_get_info(TTA_info *info) {
|
|
reader_start();
|
|
|
|
// init error-handling
|
|
TRY_CATCH(dec_error, dec_exc);
|
|
|
|
dec_offset = read_tta_header(info);
|
|
|
|
// check for supported formats
|
|
if (info->format > 2 ||
|
|
info->bps < MIN_BPS ||
|
|
info->bps > MAX_BPS ||
|
|
info->nch > MAX_NCH) {
|
|
dec_error = TTA_FORMAT_ERROR;
|
|
return -1;
|
|
}
|
|
|
|
// check for required data is present
|
|
if (info->format == TTA_FORMAT_ENCRYPTED) {
|
|
if (!dec_password_set) {
|
|
dec_error = TTA_PASSWORD_ERROR;
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
dec_format = info->format;
|
|
dec_depth = (info->bps + 7) / 8;
|
|
dec_flen_std = MUL_FRAME_TIME(info->sps);
|
|
dec_flen_last = info->samples % dec_flen_std;
|
|
dec_frames = info->samples / dec_flen_std + (dec_flen_last ? 1 : 0);
|
|
if (!dec_flen_last) dec_flen_last = dec_flen_std;
|
|
dec_rate = 0;
|
|
|
|
// allocate memory for seek table data
|
|
dec_seek_table = (TTAuint64 *) tta_malloc(dec_frames * sizeof(TTAuint64));
|
|
if (dec_seek_table == NULL) {
|
|
dec_error = TTA_MEMORY_ERROR;
|
|
return -1;
|
|
}
|
|
|
|
dec_seek_allowed = tta_decoder_read_seek_table();
|
|
|
|
decoder_last = decoder + info->nch - 1;
|
|
|
|
return tta_decoder_frame_init(0, false);
|
|
} // tta_decoder_init_get_info
|
|
|
|
__forceinline TTAint32 tta_decoder_get_value(TTA_adapt *rice) {
|
|
TTAuint32 k, level, tmp;
|
|
TTAint32 value = 0;
|
|
|
|
// decode Rice unsigned
|
|
if (!(dec_fifo_bcache ^ bit_mask[dec_fifo_bcount])) {
|
|
value += dec_fifo_bcount;
|
|
dec_fifo_bcache = read_byte();
|
|
dec_fifo_bcount = 8;
|
|
while (dec_fifo_bcache == 0xff) {
|
|
value += 8;
|
|
dec_fifo_bcache = read_byte();
|
|
}
|
|
}
|
|
|
|
while (dec_fifo_bcache & 1) {
|
|
value++;
|
|
dec_fifo_bcache >>= 1;
|
|
dec_fifo_bcount--;
|
|
}
|
|
dec_fifo_bcache >>= 1;
|
|
dec_fifo_bcount--;
|
|
|
|
if (value) {
|
|
level = 1;
|
|
k = rice->k1;
|
|
value--;
|
|
} else {
|
|
level = 0;
|
|
k = rice->k0;
|
|
}
|
|
|
|
if (k) {
|
|
while (dec_fifo_bcount < k) {
|
|
tmp = read_byte();
|
|
dec_fifo_bcache |= tmp << dec_fifo_bcount;
|
|
dec_fifo_bcount += 8;
|
|
}
|
|
value = (value << k) + (dec_fifo_bcache & bit_mask[k]);
|
|
dec_fifo_bcache >>= k;
|
|
dec_fifo_bcount -= k;
|
|
dec_fifo_bcache &= bit_mask[dec_fifo_bcount];
|
|
}
|
|
|
|
if (level) {
|
|
rice->sum1 += value - (rice->sum1 >> 4);
|
|
if (rice->k1 > 0 && rice->sum1 < shift_16[rice->k1])
|
|
rice->k1--;
|
|
else if (rice->sum1 > shift_16[rice->k1 + 1])
|
|
rice->k1++;
|
|
value += bit_shift[rice->k0];
|
|
}
|
|
|
|
rice->sum0 += value - (rice->sum0 >> 4);
|
|
if (rice->k0 > 0 && rice->sum0 < shift_16[rice->k0])
|
|
rice->k0--;
|
|
else if (rice->sum0 > shift_16[rice->k0 + 1])
|
|
rice->k0++;
|
|
|
|
value = DEC(value);
|
|
|
|
return value;
|
|
} // tta_decoder_get_value
|
|
|
|
int tta_decoder_process_stream(TTAuint8 *output, TTAuint32 out_bytes,
|
|
TTA_CALLBACK tta_callback) {
|
|
TTA_codec *dec = decoder;
|
|
TTAuint8 *ptr = output;
|
|
TTAint32 cache[MAX_NCH];
|
|
TTAint32 *cp = cache;
|
|
TTAint32 *end, *smp;
|
|
TTAint32 value;
|
|
TTAint32 ret = 0;
|
|
|
|
// init error-handling
|
|
TRY_CATCH(dec_error, dec_exc);
|
|
|
|
while (dec_fpos < dec_flen
|
|
&& ptr < output + out_bytes) {
|
|
value = tta_decoder_get_value(&dec->rice);
|
|
|
|
// decompress stage 1: adaptive hybrid filter
|
|
hybrid_filter_dec(&dec->fst, &value);
|
|
|
|
// decompress stage 2: fixed order 1 prediction
|
|
value += PREDICTOR1(dec->prev, 5);
|
|
dec->prev = value;
|
|
|
|
if (dec < decoder_last) {
|
|
*cp++ = value;
|
|
dec++;
|
|
} else {
|
|
*cp = value;
|
|
|
|
if (decoder_last == decoder) {
|
|
WRITE_BUFFER(cp, ptr, dec_depth);
|
|
} else {
|
|
end = cp;
|
|
smp = cp - 1;
|
|
|
|
*cp += *smp / 2;
|
|
while (smp > cache) {
|
|
*smp = *cp-- - *smp;
|
|
smp--;
|
|
}
|
|
*smp = *cp - *smp;
|
|
|
|
while (smp <= end) {
|
|
WRITE_BUFFER(smp, ptr, dec_depth);
|
|
smp++;
|
|
}
|
|
}
|
|
|
|
cp = cache;
|
|
dec_fpos++;
|
|
ret++;
|
|
dec = decoder;
|
|
}
|
|
|
|
if (dec_fpos == dec_flen) {
|
|
// check frame crc
|
|
bool crc_flag = read_crc32();
|
|
|
|
if (crc_flag) {
|
|
tta_memclear(output, out_bytes);
|
|
if (!dec_seek_allowed) break;
|
|
}
|
|
|
|
dec_fnum++;
|
|
|
|
// update dynamic info
|
|
dec_rate = (dec_fifo_count << 3) / 1070;
|
|
if (tta_callback)
|
|
tta_callback(dec_rate, dec_fnum, dec_frames);
|
|
|
|
if (dec_fnum == dec_frames) break;
|
|
if (tta_decoder_frame_init(dec_fnum, crc_flag) < 0)
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
return ret;
|
|
} // tta_decoder_process_stream
|
|
|
|
int tta_decoder_process_frame(TTAuint32 in_bytes, TTAuint8 *output,
|
|
TTAuint32 out_bytes) {
|
|
TTA_codec *dec = decoder;
|
|
TTAuint8 *ptr = output;
|
|
TTAint32 cache[MAX_NCH];
|
|
TTAint32 *cp = cache;
|
|
TTAint32 *end, *smp;
|
|
TTAint32 value;
|
|
TTAint32 ret = 0;
|
|
|
|
// init error-handling
|
|
TRY_CATCH(dec_error, dec_exc);
|
|
|
|
while (dec_fifo_count < in_bytes
|
|
&& ptr < output + out_bytes) {
|
|
value = tta_decoder_get_value(&dec->rice);
|
|
|
|
// decompress stage 1: adaptive hybrid filter
|
|
hybrid_filter_dec(&dec->fst, &value);
|
|
|
|
// decompress stage 2: fixed order 1 prediction
|
|
value += PREDICTOR1(dec->prev, 5);
|
|
dec->prev = value;
|
|
|
|
if (dec < decoder_last) {
|
|
*cp++ = value;
|
|
dec++;
|
|
} else {
|
|
*cp = value;
|
|
|
|
if (decoder_last == decoder) {
|
|
WRITE_BUFFER(cp, ptr, dec_depth);
|
|
} else {
|
|
end = cp;
|
|
smp = cp - 1;
|
|
|
|
*cp += *smp / 2;
|
|
|
|
while (smp > cache) {
|
|
*smp = *cp-- - *smp;
|
|
smp--;
|
|
}
|
|
*smp = *cp - *smp;
|
|
|
|
while (smp <= end) {
|
|
WRITE_BUFFER(smp, ptr, dec_depth);
|
|
smp++;
|
|
}
|
|
}
|
|
|
|
cp = cache;
|
|
dec_fpos++;
|
|
ret++;
|
|
dec = decoder;
|
|
}
|
|
|
|
if (dec_fpos == dec_flen ||
|
|
dec_fifo_count == in_bytes - 4) {
|
|
// check frame crc
|
|
if (read_crc32())
|
|
tta_memclear(output, out_bytes);
|
|
|
|
// update dynamic info
|
|
dec_rate = (dec_fifo_count << 3) / 1070;
|
|
|
|
break;
|
|
}
|
|
}
|
|
|
|
return ret;
|
|
} // tta_decoder_process_frame
|
|
|
|
TTAuint32 tta_decoder_get_rate() { return dec_rate; }
|
|
|
|
TTA_CODEC_STATUS tta_decoder_get_error() { return dec_error; }
|
|
|
|
void tta_decoder_new(TTA_io_callback *iocb) {
|
|
dec_seek_table = NULL;
|
|
dec_seek_allowed = false;
|
|
dec_fifo_io = iocb;
|
|
dec_error = TTA_NO_ERROR;
|
|
tta_memclear(dec_data, 8);
|
|
dec_password_set = false;
|
|
} // tta_decoder_new
|
|
|
|
void tta_decoder_done() {
|
|
if (dec_seek_table) tta_free(dec_seek_table);
|
|
} // tta_decoder_done
|
|
|
|
///////////////////////////// encoder functions /////////////////////////////
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
void writer_start() { enc_fifo_pos = enc_fifo_buffer; }
|
|
|
|
void writer_reset() {
|
|
// init crc32, reset counter
|
|
enc_fifo_crc = 0xffffffffUL;
|
|
enc_fifo_bcount = 0;
|
|
enc_fifo_bcache = 0;
|
|
enc_fifo_count = 0;
|
|
} // writer_reset
|
|
|
|
void writer_done() {
|
|
TTAint32 buffer_size = enc_fifo_pos - enc_fifo_buffer;
|
|
|
|
if (buffer_size) {
|
|
if (enc_fifo_io->write(enc_fifo_io, enc_fifo_buffer, buffer_size) != buffer_size)
|
|
longjmp(enc_exc, TTA_WRITE_ERROR);
|
|
enc_fifo_pos = enc_fifo_buffer;
|
|
}
|
|
} // writer_done
|
|
|
|
__forceinline void write_byte(TTAuint32 value) {
|
|
if (enc_fifo_pos == enc_fifo_end) {
|
|
if (enc_fifo_io->write(enc_fifo_io, enc_fifo_buffer, TTA_FIFO_BUFFER_SIZE) != TTA_FIFO_BUFFER_SIZE)
|
|
longjmp(enc_exc, TTA_WRITE_ERROR);
|
|
enc_fifo_pos = enc_fifo_buffer;
|
|
}
|
|
|
|
// update crc32 and statistics
|
|
enc_fifo_crc = crc32_table[(enc_fifo_crc ^ value) & 0xff] ^ (enc_fifo_crc >> 8);
|
|
enc_fifo_count++;
|
|
|
|
*enc_fifo_pos++ = (value & 0xff);
|
|
} // write_byte
|
|
|
|
__forceinline void write_uint16(TTAuint32 value) {
|
|
write_byte(value);
|
|
write_byte(value >>= 8);
|
|
} // write_uint16
|
|
|
|
__forceinline void write_uint32(TTAuint32 value) {
|
|
write_byte(value);
|
|
write_byte(value >>= 8);
|
|
write_byte(value >>= 8);
|
|
write_byte(value >>= 8);
|
|
} // write_uint32
|
|
|
|
__forceinline void write_crc32() {
|
|
TTAuint32 crc = enc_fifo_crc ^ 0xffffffffUL;
|
|
write_uint32(crc);
|
|
} // write_crc32
|
|
|
|
void writer_skip_bytes(TTAuint32 size) {
|
|
while (size--) write_byte(0);
|
|
} // writer_skip_bytes
|
|
|
|
TTAuint32 write_tta_header(TTA_info *info) {
|
|
writer_reset();
|
|
|
|
// write TTA1 signature
|
|
write_byte('T');
|
|
write_byte('T');
|
|
write_byte('A');
|
|
write_byte('1');
|
|
|
|
write_uint16(info->format);
|
|
write_uint16(info->nch);
|
|
write_uint16(info->bps);
|
|
write_uint32(info->sps);
|
|
write_uint32(info->samples);
|
|
|
|
write_crc32();
|
|
|
|
return 22; // sizeof TTA1 header
|
|
} // write_tta_header
|
|
|
|
void tta_encoder_write_seek_table() {
|
|
TTAuint32 i, tmp;
|
|
|
|
if (enc_seek_table == NULL)
|
|
return;
|
|
|
|
if (enc_fifo_io->seek(enc_fifo_io, enc_offset) < 0)
|
|
longjmp(enc_exc, TTA_SEEK_ERROR);
|
|
|
|
writer_start();
|
|
writer_reset();
|
|
|
|
for (i = 0; i < enc_frames; i++) {
|
|
tmp = enc_seek_table[i] & 0xffffffffUL;
|
|
write_uint32(tmp);
|
|
}
|
|
|
|
write_crc32();
|
|
writer_done();
|
|
} // tta_encoder_write_seek_table
|
|
|
|
void tta_encoder_set_password(void const *pstr, TTAuint32 len) {
|
|
compute_key_digits(pstr, len, enc_data);
|
|
} // tta_encoder_set_key
|
|
|
|
void tta_encoder_frame_init(TTAuint32 frame) {
|
|
TTAint32 shift = flt_set[enc_depth - 1];
|
|
TTA_codec *enc = encoder;
|
|
|
|
if (frame >= enc_frames) return;
|
|
|
|
enc_fnum = frame;
|
|
|
|
if (enc_fnum == enc_frames - 1)
|
|
enc_flen = enc_flen_last;
|
|
else enc_flen = enc_flen_std;
|
|
|
|
// init entropy encoder
|
|
do {
|
|
filter_init(&enc->fst, enc_data, shift);
|
|
rice_init(&enc->rice, 10, 10);
|
|
enc->prev = 0;
|
|
} while (++enc <= encoder_last);
|
|
|
|
enc_fpos = 0;
|
|
|
|
writer_reset();
|
|
} // tta_encoder_frame_init
|
|
|
|
void tta_encoder_frame_reset(TTAuint32 frame, TTA_io_callback *iocb) {
|
|
enc_fifo_io = iocb;
|
|
writer_start();
|
|
tta_encoder_frame_init(frame);
|
|
} // tta_encoder_frame_reset
|
|
|
|
int tta_encoder_init_set_info(TTA_info *info, TTAuint32 offset) {
|
|
// check for supported formats
|
|
if (info->format > 2 ||
|
|
info->bps < MIN_BPS ||
|
|
info->bps > MAX_BPS ||
|
|
info->nch > MAX_NCH) {
|
|
enc_error = TTA_FORMAT_ERROR;
|
|
return -1;
|
|
}
|
|
|
|
// set start position if required
|
|
if (offset && enc_fifo_io->seek(enc_fifo_io, offset) < 0) {
|
|
enc_error = TTA_SEEK_ERROR;
|
|
return -1;
|
|
}
|
|
|
|
writer_start();
|
|
|
|
// init error-handling
|
|
TRY_CATCH(enc_error, enc_exc);
|
|
|
|
// write TTA1 header
|
|
offset += write_tta_header(info);
|
|
|
|
enc_offset = offset; // size of headers
|
|
enc_format = info->format;
|
|
enc_depth = (info->bps + 7) / 8;
|
|
enc_flen_std = MUL_FRAME_TIME(info->sps);
|
|
enc_flen_last = info->samples % enc_flen_std;
|
|
enc_frames = info->samples / enc_flen_std + (enc_flen_last ? 1 : 0);
|
|
if (!enc_flen_last) enc_flen_last = enc_flen_std;
|
|
enc_rate = 0;
|
|
|
|
// allocate memory for seek table data
|
|
enc_seek_table = (TTAuint64 *) tta_malloc(enc_frames * sizeof(TTAuint64));
|
|
if (enc_seek_table == NULL) {
|
|
enc_error = TTA_MEMORY_ERROR;
|
|
return -1;
|
|
}
|
|
|
|
writer_skip_bytes((enc_frames + 1) * 4);
|
|
|
|
encoder_last = encoder + info->nch - 1;
|
|
enc_shift_bits = (4 - enc_depth) << 3;
|
|
|
|
tta_encoder_frame_init(0);
|
|
|
|
return 0;
|
|
} // tta_encoder_init_set_info
|
|
|
|
int tta_encoder_finalize() {
|
|
// init error-handling
|
|
TRY_CATCH(enc_error, enc_exc);
|
|
|
|
writer_done();
|
|
tta_encoder_write_seek_table();
|
|
|
|
return 0;
|
|
} // tta_encoder_finalize
|
|
|
|
__forceinline void tta_encoder_put_value(TTA_adapt *rice, TTAint32 value) {
|
|
TTAuint32 k, unary, outval;
|
|
|
|
outval = ENC(value);
|
|
|
|
// encode Rice unsigned
|
|
k = rice->k0;
|
|
|
|
rice->sum0 += outval - (rice->sum0 >> 4);
|
|
if (rice->k0 > 0 && rice->sum0 < shift_16[rice->k0])
|
|
rice->k0--;
|
|
else if (rice->sum0 > shift_16[rice->k0 + 1])
|
|
rice->k0++;
|
|
|
|
if (outval >= bit_shift[k]) {
|
|
outval -= bit_shift[k];
|
|
k = rice->k1;
|
|
|
|
rice->sum1 += outval - (rice->sum1 >> 4);
|
|
if (rice->k1 > 0 && rice->sum1 < shift_16[rice->k1])
|
|
rice->k1--;
|
|
else if (rice->sum1 > shift_16[rice->k1 + 1])
|
|
rice->k1++;
|
|
|
|
unary = 1 + (outval >> k);
|
|
} else unary = 0;
|
|
|
|
// put unary
|
|
do {
|
|
while (enc_fifo_bcount >= 8) {
|
|
write_byte(enc_fifo_bcache);
|
|
enc_fifo_bcache >>= 8;
|
|
enc_fifo_bcount -= 8;
|
|
}
|
|
|
|
if (unary > 23) {
|
|
enc_fifo_bcache |= bit_mask[23] << enc_fifo_bcount;
|
|
enc_fifo_bcount += 23;
|
|
unary -= 23;
|
|
} else {
|
|
enc_fifo_bcache |= bit_mask[unary] << enc_fifo_bcount;
|
|
enc_fifo_bcount += unary + 1;
|
|
unary = 0;
|
|
}
|
|
} while (unary);
|
|
|
|
// put binary
|
|
while (enc_fifo_bcount >= 8) {
|
|
write_byte(enc_fifo_bcache);
|
|
enc_fifo_bcache >>= 8;
|
|
enc_fifo_bcount -= 8;
|
|
}
|
|
|
|
if (k) {
|
|
enc_fifo_bcache |= (outval & bit_mask[k]) << enc_fifo_bcount;
|
|
enc_fifo_bcount += k;
|
|
}
|
|
} // tta_encoder_put_value
|
|
|
|
__forceinline void flush_bit_cache() {
|
|
while (enc_fifo_bcount) {
|
|
write_byte(enc_fifo_bcache);
|
|
enc_fifo_bcache >>= 8;
|
|
enc_fifo_bcount = (enc_fifo_bcount > 8) ? (enc_fifo_bcount - 8) : 0;
|
|
}
|
|
write_crc32();
|
|
} // flush_bit_cache
|
|
|
|
int tta_encoder_process_stream(TTAuint8 *input, TTAuint32 in_bytes,
|
|
TTA_CALLBACK tta_callback) {
|
|
TTA_codec *enc = encoder;
|
|
TTAuint8 *ptr = input;
|
|
TTAuint8 *pend = input + in_bytes;
|
|
TTAint32 curr, next, temp;
|
|
TTAint32 res = 0;
|
|
|
|
if (!in_bytes) return 0;
|
|
|
|
// init error-handling
|
|
TRY_CATCH(enc_error, enc_exc);
|
|
|
|
READ_BUFFER(temp, ptr, enc_depth, enc_shift_bits);
|
|
next = temp >> enc_shift_bits;
|
|
|
|
do {
|
|
curr = next;
|
|
if (ptr <= pend) {
|
|
READ_BUFFER(temp, ptr, enc_depth, enc_shift_bits);
|
|
next = temp >> enc_shift_bits;
|
|
}
|
|
|
|
// transform data
|
|
if (encoder_last != encoder) {
|
|
if (enc < encoder_last) {
|
|
curr = res = next - curr;
|
|
} else curr -= res / 2;
|
|
}
|
|
|
|
// compress stage 1: fixed order 1 prediction
|
|
temp = curr;
|
|
curr -= PREDICTOR1(enc->prev, 5);
|
|
enc->prev = temp;
|
|
|
|
// compress stage 2: adaptive hybrid filter
|
|
hybrid_filter_enc(&enc->fst, &curr);
|
|
|
|
tta_encoder_put_value(&enc->rice, curr);
|
|
|
|
if (enc < encoder_last) {
|
|
enc++;
|
|
} else {
|
|
enc = encoder;
|
|
enc_fpos++;
|
|
}
|
|
|
|
if (enc_fpos == enc_flen) {
|
|
flush_bit_cache();
|
|
enc_seek_table[enc_fnum++] = enc_fifo_count;
|
|
|
|
// update dynamic info
|
|
enc_rate = (enc_fifo_count << 3) / 1070;
|
|
if (tta_callback)
|
|
tta_callback(enc_rate, enc_fnum, enc_frames);
|
|
|
|
tta_encoder_frame_init(enc_fnum);
|
|
}
|
|
} while (ptr <= pend);
|
|
|
|
return 0;
|
|
} // tta_encoder_process_stream
|
|
|
|
int tta_encoder_process_frame(TTAuint8 *input, TTAuint32 in_bytes) {
|
|
TTA_codec *enc = encoder;
|
|
TTAuint8 *ptr = input;
|
|
TTAuint8 *pend = input + in_bytes;
|
|
TTAint32 curr, next, temp;
|
|
TTAint32 res = 0;
|
|
|
|
if (!in_bytes) return 0;
|
|
|
|
// init error-handling
|
|
TRY_CATCH(enc_error, enc_exc);
|
|
|
|
READ_BUFFER(temp, ptr, enc_depth, enc_shift_bits);
|
|
next = temp >> enc_shift_bits;
|
|
|
|
do {
|
|
curr = next;
|
|
if (ptr <= pend) {
|
|
READ_BUFFER(temp, ptr, enc_depth, enc_shift_bits);
|
|
next = temp >> enc_shift_bits;
|
|
}
|
|
|
|
// transform data
|
|
if (encoder_last != encoder) {
|
|
if (enc < encoder_last) {
|
|
curr = res = next - curr;
|
|
} else curr -= res / 2;
|
|
}
|
|
|
|
// compress stage 1: fixed order 1 prediction
|
|
temp = curr;
|
|
curr -= PREDICTOR1(enc->prev, 5);
|
|
enc->prev = temp;
|
|
|
|
// compress stage 2: adaptive hybrid filter
|
|
hybrid_filter_enc(&enc->fst, &curr);
|
|
|
|
tta_encoder_put_value(&enc->rice, curr);
|
|
|
|
if (enc < encoder_last) {
|
|
enc++;
|
|
} else {
|
|
enc = encoder;
|
|
enc_fpos++;
|
|
}
|
|
|
|
if (enc_fpos == enc_flen) {
|
|
flush_bit_cache();
|
|
|
|
// update dynamic info
|
|
enc_rate = (enc_fifo_count << 3) / 1070;
|
|
|
|
break;
|
|
}
|
|
} while (ptr <= pend);
|
|
|
|
return 0;
|
|
} // tta_encoder_process_frame
|
|
|
|
TTAuint32 tta_encoder_get_rate() { return enc_rate; }
|
|
|
|
TTA_CODEC_STATUS tta_encoder_get_error() { return enc_error; }
|
|
|
|
void tta_encoder_new(TTA_io_callback *iocb) {
|
|
enc_seek_table = NULL;
|
|
enc_fifo_io = iocb;
|
|
enc_error = TTA_NO_ERROR;
|
|
tta_memclear(enc_data, 8);
|
|
} // tta_encoder_new
|
|
|
|
void tta_encoder_done() {
|
|
if (enc_seek_table) tta_free(enc_seek_table);
|
|
} // tta_encoder_done
|
|
|
|
/* eof */
|