/* * wave.c -- this file contains decompression methods used by mpq-tools * to decompress wave files. * * Copyright (c) 2003-2007 Maik Broemme * * This source was adepted from the C++ version of wave.cpp included * in stormlib. The C++ version belongs to the following authors: * * Ladislav Zezula * Tom Amigo * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* generic includes. */ #include /* libmpq generic includes. */ #include "wave.h" /* table necessary dor decompression. */ static const uint32_t wave_table_1503f120[] = { 0xFFFFFFFF, 0x00000000, 0xFFFFFFFF, 0x00000004, 0xFFFFFFFF, 0x00000002, 0xFFFFFFFF, 0x00000006, 0xFFFFFFFF, 0x00000001, 0xFFFFFFFF, 0x00000005, 0xFFFFFFFF, 0x00000003, 0xFFFFFFFF, 0x00000007, 0xFFFFFFFF, 0x00000001, 0xFFFFFFFF, 0x00000005, 0xFFFFFFFF, 0x00000003, 0xFFFFFFFF, 0x00000007, 0xFFFFFFFF, 0x00000002, 0xFFFFFFFF, 0x00000004, 0xFFFFFFFF, 0x00000006, 0xFFFFFFFF, 0x00000008 }; /* table necessary dor decompression. */ static const uint32_t wave_table_1503f1a0[] = { 0x00000007, 0x00000008, 0x00000009, 0x0000000A, 0x0000000B, 0x0000000C, 0x0000000D, 0x0000000E, 0x00000010, 0x00000011, 0x00000013, 0x00000015, 0x00000017, 0x00000019, 0x0000001C, 0x0000001F, 0x00000022, 0x00000025, 0x00000029, 0x0000002D, 0x00000032, 0x00000037, 0x0000003C, 0x00000042, 0x00000049, 0x00000050, 0x00000058, 0x00000061, 0x0000006B, 0x00000076, 0x00000082, 0x0000008F, 0x0000009D, 0x000000AD, 0x000000BE, 0x000000D1, 0x000000E6, 0x000000FD, 0x00000117, 0x00000133, 0x00000151, 0x00000173, 0x00000198, 0x000001C1, 0x000001EE, 0x00000220, 0x00000256, 0x00000292, 0x000002D4, 0x0000031C, 0x0000036C, 0x000003C3, 0x00000424, 0x0000048E, 0x00000502, 0x00000583, 0x00000610, 0x000006AB, 0x00000756, 0x00000812, 0x000008E0, 0x000009C3, 0x00000ABD, 0x00000BD0, 0x00000CFF, 0x00000E4C, 0x00000FBA, 0x0000114C, 0x00001307, 0x000014EE, 0x00001706, 0x00001954, 0x00001BDC, 0x00001EA5, 0x000021B6, 0x00002515, 0x000028CA, 0x00002CDF, 0x0000315B, 0x0000364B, 0x00003BB9, 0x000041B2, 0x00004844, 0x00004F7E, 0x00005771, 0x0000602F, 0x000069CE, 0x00007462, 0x00007FFF }; /* this function decompress a wave file, mono or stereo, 1500F230 offset. */ int32_t libmpq__do_decompress_wave(uint8_t *out_buf, int32_t out_length, uint8_t *in_buf, int32_t in_length, int32_t channels) { /* some common variables. */ byte_and_int16_t out; byte_and_int16_t in; uint32_t index; int32_t nr_array1[2]; int32_t nr_array2[2]; uint32_t count = 0; /* end on input buffer. */ uint8_t *in_end = in_buf + in_length; /* assign default values. */ out.pb = out_buf; in.pb = in_buf; nr_array1[0] = 0x2C; nr_array1[1] = 0x2C; /* increase. */ in.pw++; /* 15007AD7 */ for (count = 0; count < channels; count++) { /* some common variables. */ int32_t temp; /* save pointer. */ temp = *(int16_t *)in.pw++; nr_array2[count] = temp; /* check if should break. */ if (out_length < 2) { return out.pb - out_buf; } /* return values. */ *out.pw++ = (uint16_t)temp; out_length -= 2; } /* decrease channels. */ index = channels - 1; /* loop through input buffer until end reached. */ while (in.pb < in_end) { /* save the byte. */ uint8_t one_byte = *in.pb++; /* check how many channels and set index. */ if (channels == 2) { index = (index == 0) ? 1 : 0; } /* 15007B25 - get one byte from input buffer. */ if (one_byte & 0x80) { /* 15007B32 */ switch (one_byte & 0x7F) { case 0: /* 15007B8E */ if (nr_array1[index] != 0) { nr_array1[index]--; } /* check if should break. */ if (out_length < 2) { break; } /* return values. */ *out.pw++ = (uint16_t)nr_array2[index]; out_length -= 2; /* continue loop. */ continue; case 1: /* 15007B72 and EBX. */ nr_array1[index] += 8; /* check index. */ if (nr_array1[index] > 0x58) { nr_array1[index] = 0x58; } /* check how many channels and set index. */ if (channels == 2) { index = (index == 0) ? 1 : 0; } /* continue loop. */ continue; case 2: /* nothing todo, so continue. */ continue; default: /* decrease index. */ nr_array1[index] -= 8; /* check index. */ if (nr_array1[index] < 0) { nr_array1[index] = 0; } /* check if two channels left. */ if (channels != 2) { continue; } index = (index == 0) ? 1 : 0; /* continue loop. */ continue; } } else { /* EDI */ uint32_t temp1 = wave_table_1503f1a0[nr_array1[index]]; /* ESI */ uint32_t temp2 = temp1 >> in_buf[1]; /* ECX */ int32_t temp3 = nr_array2[index]; /* EBX = one byte. */ if (one_byte & 0x01) { temp2 += (temp1 >> 0); } if (one_byte & 0x02) { temp2 += (temp1 >> 1); } if (one_byte & 0x04) { temp2 += (temp1 >> 2); } if (one_byte & 0x08) { temp2 += (temp1 >> 3); } if (one_byte & 0x10) { temp2 += (temp1 >> 4); } if (one_byte & 0x20) { temp2 += (temp1 >> 5); } if (one_byte & 0x40) { temp3 -= temp2; if (temp3 <= (int32_t)0xFFFF8000) { temp3 = (int32_t)0xFFFF8000; } } else { temp3 += temp2; if (temp3 >= 0x7FFF) { temp3 = 0x7FFF; } } /* restore index. */ nr_array2[index] = temp3; /* check if should break. */ if (out_length < 2) { break; } /* assign values. */ temp2 = nr_array1[index]; one_byte &= 0x1F; *out.pw++ = (uint16_t)temp3; out_length -= 2; temp2 += wave_table_1503f120[one_byte]; nr_array1[index] = temp2; /* check index. */ if (nr_array1[index] < 0) { nr_array1[index] = 0; } else { /* check index. */ if (nr_array1[index] > 0x58) { nr_array1[index] = 0x58; } } } } /* return copied bytes. */ return (out.pb - out_buf); }