gosu 0.15.2 → 1.1.0.pre2

data/dependencies/SDL_sound/libmodplug/mmcmp.c

@@ -0,0 +1,382 @@
+/*
+ * This source code is public domain.
+ *
+ * Handles unpacking of Powerpack PP20
+ * Authors: Olivier Lapicque <olivierl@jps.net>
+*/
+
+#include "libmodplug.h"
+
+BOOL PP20_Unpack(LPCBYTE *ppMemFile, LPDWORD pdwMemLength);
+
+typedef struct MMCMPFILEHEADER
+{
+	DWORD id_ziRC;	// "ziRC"
+	DWORD id_ONia;	// "ONia"
+	WORD hdrsize;
+} MMCMPFILEHEADER, *LPMMCMPFILEHEADER;
+
+typedef struct MMCMPHEADER
+{
+	WORD version;
+	WORD nblocks;
+	DWORD filesize;
+	DWORD blktable;
+	BYTE glb_comp;
+	BYTE fmt_comp;
+} MMCMPHEADER, *LPMMCMPHEADER;
+
+typedef struct MMCMPBLOCK
+{
+	DWORD unpk_size;
+	DWORD pk_size;
+	DWORD xor_chk;
+	WORD sub_blk;
+	WORD flags;
+	WORD tt_entries;
+	USHORT num_bits;
+} MMCMPBLOCK, *LPMMCMPBLOCK;
+
+typedef struct MMCMPSUBBLOCK
+{
+	DWORD unpk_pos;
+	DWORD unpk_size;
+} MMCMPSUBBLOCK, *LPMMCMPSUBBLOCK;
+
+#define MMCMP_COMP		0x0001
+#define MMCMP_DELTA		0x0002
+#define MMCMP_16BIT		0x0004
+#define MMCMP_STEREO	0x0100
+#define MMCMP_ABS16		0x0200
+#define MMCMP_ENDIAN	0x0400
+
+typedef struct MMCMPBITBUFFER
+{
+	UINT bitcount;
+	DWORD bitbuffer;
+	LPCBYTE pSrc;
+	LPCBYTE pEnd;
+} MMCMPBITBUFFER;
+
+
+static DWORD MMCMPBITBUFFER_GetBits(MMCMPBITBUFFER *_this, UINT nBits)
+//---------------------------------------
+{
+	DWORD d;
+	if (!nBits) return 0;
+	while (_this->bitcount < 24)
+	{
+		_this->bitbuffer |= ((_this->pSrc < _this->pEnd) ? *_this->pSrc++ : 0) << _this->bitcount;
+		_this->bitcount += 8;
+	}
+	d = _this->bitbuffer & ((1 << nBits) - 1);
+	_this->bitbuffer >>= nBits;
+	_this->bitcount -= nBits;
+	return d;
+}
+
+const DWORD MMCMP8BitCommands[8] =
+{
+	0x01, 0x03,	0x07, 0x0F,	0x1E, 0x3C,	0x78, 0xF8
+};
+
+const UINT MMCMP8BitFetch[8] =
+{
+	3, 3, 3, 3, 2, 1, 0, 0
+};
+
+const DWORD MMCMP16BitCommands[16] =
+{
+	0x01, 0x03,	0x07, 0x0F,	0x1E, 0x3C,	0x78, 0xF0,
+	0x1F0, 0x3F0, 0x7F0, 0xFF0, 0x1FF0, 0x3FF0, 0x7FF0, 0xFFF0
+};
+
+const UINT MMCMP16BitFetch[16] =
+{
+	4, 4, 4, 4, 3, 2, 1, 0,
+	0, 0, 0, 0, 0, 0, 0, 0
+};
+
+
+BOOL MMCMP_Unpack(LPCBYTE *ppMemFile, LPDWORD pdwMemLength)
+//---------------------------------------------------------
+{
+	DWORD dwMemLength = *pdwMemLength;
+	LPCBYTE lpMemFile = *ppMemFile;
+	LPBYTE pBuffer;
+	LPMMCMPFILEHEADER pmfh = (LPMMCMPFILEHEADER)(lpMemFile);
+	LPMMCMPHEADER pmmh = (LPMMCMPHEADER)(lpMemFile+10);
+	LPDWORD pblk_table;
+	DWORD dwFileSize;
+
+	if (PP20_Unpack(ppMemFile, pdwMemLength))
+	{
+		return TRUE;
+	}
+	if ((dwMemLength < 256) || (!pmfh) || (pmfh->id_ziRC != 0x4352697A) || (pmfh->id_ONia != 0x61694e4f) || (pmfh->hdrsize < 14)
+	 || (!pmmh->nblocks) || (pmmh->filesize < 16) || (pmmh->filesize > 0x8000000)
+	 || (pmmh->blktable >= dwMemLength) || (pmmh->blktable + 4*pmmh->nblocks > dwMemLength)) return FALSE;
+	dwFileSize = pmmh->filesize;
+	if ((pBuffer = (LPBYTE)GlobalAllocPtr(GHND, (dwFileSize + 31) & ~15)) == NULL) return FALSE;
+	pblk_table = (LPDWORD)(lpMemFile+pmmh->blktable);
+	for (UINT nBlock=0; nBlock<pmmh->nblocks; nBlock++)
+	{
+		DWORD dwMemPos = pblk_table[nBlock];
+		LPMMCMPBLOCK pblk = (LPMMCMPBLOCK)(lpMemFile+dwMemPos);
+		LPMMCMPSUBBLOCK psubblk = (LPMMCMPSUBBLOCK)(lpMemFile+dwMemPos+20);
+
+		if ((dwMemPos + 20 >= dwMemLength) || (dwMemPos + 20 + pblk->sub_blk*8 >= dwMemLength)) break;
+		dwMemPos += 20 + pblk->sub_blk*8;
+		// Data is not packed
+		if (!(pblk->flags & MMCMP_COMP))
+		{
+			for (UINT i=0; i<pblk->sub_blk; i++)
+			{
+				if ((psubblk->unpk_pos >= dwFileSize) ||
+					(psubblk->unpk_size >= dwFileSize) ||
+					(psubblk->unpk_size > dwFileSize - psubblk->unpk_pos)) break;
+				SDL_memcpy(pBuffer+psubblk->unpk_pos, lpMemFile+dwMemPos, psubblk->unpk_size);
+				dwMemPos += psubblk->unpk_size;
+				psubblk++;
+			}
+		} else
+		// Data is 16-bit packed
+		if (pblk->flags & MMCMP_16BIT && pblk->num_bits < 16)
+		{
+			MMCMPBITBUFFER bb;
+			LPWORD pDest = (LPWORD)(pBuffer + psubblk->unpk_pos);
+			DWORD dwSize = psubblk->unpk_size >> 1;
+			DWORD dwPos = 0;
+			UINT numbits = pblk->num_bits;
+			UINT subblk = 0, oldval = 0;
+			bb.bitcount = 0;
+			bb.bitbuffer = 0;
+			bb.pSrc = lpMemFile+dwMemPos+pblk->tt_entries;
+			bb.pEnd = lpMemFile+dwMemPos+pblk->pk_size;
+			while (subblk < pblk->sub_blk)
+			{
+				UINT newval = 0x10000;
+				DWORD d = MMCMPBITBUFFER_GetBits(&bb, numbits+1);
+
+				if (d >= MMCMP16BitCommands[numbits])
+				{
+					UINT nFetch = MMCMP16BitFetch[numbits];
+					UINT newbits = MMCMPBITBUFFER_GetBits(&bb, nFetch) + ((d - MMCMP16BitCommands[numbits]) << nFetch);
+					if (newbits != numbits)
+					{
+						numbits = newbits & 0x0F;
+					} else
+					{
+						if ((d = MMCMPBITBUFFER_GetBits(&bb, 4)) == 0x0F)
+						{
+							if (MMCMPBITBUFFER_GetBits(&bb, 1)) break;
+							newval = 0xFFFF;
+						} else
+						{
+							newval = 0xFFF0 + d;
+						}
+					}
+				} else
+				{
+					newval = d;
+				}
+				if (newval < 0x10000)
+				{
+					newval = (newval & 1) ? (UINT)(-(LONG)((newval+1) >> 1)) : (UINT)(newval >> 1);
+					if (pblk->flags & MMCMP_DELTA)
+					{
+						newval += oldval;
+						oldval = newval;
+					} else
+					if (!(pblk->flags & MMCMP_ABS16))
+					{
+						newval ^= 0x8000;
+					}
+					pDest[dwPos++] = (WORD)newval;
+				}
+				if (dwPos >= dwSize)
+				{
+					subblk++;
+					dwPos = 0;
+					dwSize = psubblk[subblk].unpk_size >> 1;
+					pDest = (LPWORD)(pBuffer + psubblk[subblk].unpk_pos);
+				}
+			}
+		} else if (pblk->num_bits < 8)
+		// Data is 8-bit packed
+		{
+			MMCMPBITBUFFER bb;
+			LPBYTE pDest = pBuffer + psubblk->unpk_pos;
+			DWORD dwSize = psubblk->unpk_size;
+			DWORD dwPos = 0;
+			UINT numbits = pblk->num_bits;
+			UINT subblk = 0, oldval = 0;
+			LPCBYTE ptable = lpMemFile+dwMemPos;
+
+			bb.bitcount = 0;
+			bb.bitbuffer = 0;
+			bb.pSrc = lpMemFile+dwMemPos+pblk->tt_entries;
+			bb.pEnd = lpMemFile+dwMemPos+pblk->pk_size;
+			while (subblk < pblk->sub_blk)
+			{
+				UINT newval = 0x100;
+				DWORD d = MMCMPBITBUFFER_GetBits(&bb, numbits+1);
+
+				if (d >= MMCMP8BitCommands[numbits])
+				{
+					UINT nFetch = MMCMP8BitFetch[numbits];
+					UINT newbits = MMCMPBITBUFFER_GetBits(&bb, nFetch) + ((d - MMCMP8BitCommands[numbits]) << nFetch);
+					if (newbits != numbits)
+					{
+						numbits = newbits & 0x07;
+					} else
+					{
+						if ((d = MMCMPBITBUFFER_GetBits(&bb, 3)) == 7)
+						{
+							if (MMCMPBITBUFFER_GetBits(&bb, 1)) break;
+							newval = 0xFF;
+						} else
+						{
+							newval = 0xF8 + d;
+						}
+					}
+				} else
+				{
+					newval = d;
+				}
+				if (newval < 0x100)
+				{
+					int n = ptable[newval];
+					if (pblk->flags & MMCMP_DELTA)
+					{
+						n += oldval;
+						oldval = n;
+					}
+					pDest[dwPos++] = (BYTE)n;
+				}
+				if (dwPos >= dwSize)
+				{
+					subblk++;
+					dwPos = 0;
+					dwSize = psubblk[subblk].unpk_size;
+					pDest = pBuffer + psubblk[subblk].unpk_pos;
+				}
+			}
+		} else
+		{
+			return FALSE;
+		}
+	}
+	*ppMemFile = pBuffer;
+	*pdwMemLength = dwFileSize;
+	return TRUE;
+}
+
+
+//////////////////////////////////////////////////////////////////////////////
+//
+// PowerPack PP20 Unpacker
+//
+
+typedef struct _PPBITBUFFER
+{
+	UINT bitcount;
+	ULONG bitbuffer;
+	LPCBYTE pStart;
+	LPCBYTE pSrc;
+} PPBITBUFFER;
+
+
+static ULONG PPBITBUFFER_GetBits(PPBITBUFFER *_this, UINT n)
+{
+	ULONG result = 0;
+
+	for (UINT i=0; i<n; i++)
+	{
+		if (!_this->bitcount)
+		{
+			_this->bitcount = 8;
+			if (_this->pSrc != _this->pStart) _this->pSrc--;
+			_this->bitbuffer = *_this->pSrc;
+		}
+		result = (result<<1) | (_this->bitbuffer&1);
+		_this->bitbuffer >>= 1;
+		_this->bitcount--;
+    }
+    return result;
+}
+
+
+VOID PP20_DoUnpack(const BYTE *pSrc, UINT nSrcLen, BYTE *pDst, UINT nDstLen)
+{
+	PPBITBUFFER BitBuffer;
+	ULONG nBytesLeft;
+
+	BitBuffer.pStart = pSrc;
+	BitBuffer.pSrc = pSrc + nSrcLen - 4;
+	BitBuffer.bitbuffer = 0;
+	BitBuffer.bitcount = 0;
+	PPBITBUFFER_GetBits(&BitBuffer, pSrc[nSrcLen-1]);
+	nBytesLeft = nDstLen;
+	while (nBytesLeft > 0)
+	{
+		if (!PPBITBUFFER_GetBits(&BitBuffer, 1))
+		{
+			UINT n = 1;
+			while (n < nBytesLeft)
+			{
+				UINT code = PPBITBUFFER_GetBits(&BitBuffer, 2);
+				n += code;
+				if (code != 3) break;
+			}
+			for (UINT i=0; i<n; i++)
+			{
+				pDst[--nBytesLeft] = (BYTE)PPBITBUFFER_GetBits(&BitBuffer, 8);
+			}
+			if (!nBytesLeft) break;
+		}
+		{
+			UINT n = PPBITBUFFER_GetBits(&BitBuffer, 2)+1;
+			UINT nbits = pSrc[n-1];
+			UINT nofs;
+			if (n==4)
+			{
+				nofs = PPBITBUFFER_GetBits(&BitBuffer,  (PPBITBUFFER_GetBits(&BitBuffer, 1)) ? nbits : 7 );
+				while (n < nBytesLeft)
+				{
+					UINT code = PPBITBUFFER_GetBits(&BitBuffer, 3);
+					n += code;
+					if (code != 7) break;
+				}
+			} else
+			{
+				nofs = PPBITBUFFER_GetBits(&BitBuffer, nbits);
+			}
+			for (UINT i=0; i<=n; i++)
+			{
+				pDst[nBytesLeft-1] = (nBytesLeft+nofs < nDstLen) ? pDst[nBytesLeft+nofs] : 0;
+				if (!--nBytesLeft) break;
+			}
+		}
+	}
+}
+
+
+BOOL PP20_Unpack(LPCBYTE *ppMemFile, LPDWORD pdwMemLength)
+{
+	DWORD dwMemLength = *pdwMemLength;
+	LPCBYTE lpMemFile = *ppMemFile;
+	DWORD dwDstLen;
+	LPBYTE pBuffer;
+
+	if ((!lpMemFile) || (dwMemLength < 256) || (*(DWORD *)lpMemFile != 0x30325050)) return FALSE;
+	dwDstLen = (lpMemFile[dwMemLength-4]<<16) | (lpMemFile[dwMemLength-3]<<8) | (lpMemFile[dwMemLength-2]);
+	//Log("PP20 detected: Packed length=%d, Unpacked length=%d\n", dwMemLength, dwDstLen);
+	if ((dwDstLen < 512) || (dwDstLen > 0x400000) || (dwDstLen > 16*dwMemLength)) return FALSE;
+	if ((pBuffer = (LPBYTE)GlobalAllocPtr(GHND, (dwDstLen + 31) & ~15)) == NULL) return FALSE;
+	PP20_DoUnpack(lpMemFile+4, dwMemLength-4, pBuffer, dwDstLen);
+	*ppMemFile = pBuffer;
+	*pdwMemLength = dwDstLen;
+	return TRUE;
+}
+

data/dependencies/SDL_sound/libmodplug/modplug.c

@@ -0,0 +1,170 @@
+/*
+ * This source code is public domain.
+ *
+ * Authors: Kenton Varda <temporal@gauge3d.org> (C interface wrapper)
+ */
+
+#include "modplug.h"
+#include "libmodplug.h"
+
+void ModPlug_Quit(void) { /* does nothing. */ }
+
+int ModPlug_Init(void)
+{
+    extern void init_modplug_filters(void);
+    init_modplug_filters();
+    return 1;
+}
+
+ModPlugFile* ModPlug_Load(const void* data, int size, const ModPlug_Settings *settings)
+{
+	return (ModPlugFile *) new_CSoundFile((const BYTE*)data, size, settings);
+}
+
+void ModPlug_Unload(ModPlugFile* file)
+{
+	delete_CSoundFile((CSoundFile *) file);
+}
+
+int ModPlug_Read(ModPlugFile* file, void* buffer, int size)
+{
+    CSoundFile *sndfile = (CSoundFile *) file;
+	return CSoundFile_Read(sndfile, buffer, size) * sndfile->gSampleSize;
+}
+
+int ModPlug_GetLength(ModPlugFile* file)
+{
+	return CSoundFile_GetLength((CSoundFile *) file, FALSE, TRUE) * 1000;
+}
+
+void ModPlug_Seek(ModPlugFile* file, int millisecond)
+{
+	int maxpos;
+	int maxtime = CSoundFile_GetLength((CSoundFile *) file, FALSE, TRUE) * 1000;
+	float postime;
+
+	if(millisecond > maxtime)
+		millisecond = maxtime;
+	maxpos = CSoundFile_GetMaxPosition((CSoundFile *) file);
+	postime = 0.0f;
+	if (maxtime != 0.0f)
+		postime = (float)maxpos / (float)maxtime;
+
+	CSoundFile_SetCurrentPos((CSoundFile *) file, (int)(millisecond * postime));
+}
+
+// inefficient, but oh well.
+char *rwops_fgets(char *buf, int buflen, SDL_RWops *rwops)
+{
+    char *retval = buf;
+    if (!buflen) return buf;
+    while (buflen > 1) {
+        char ch;
+        if (SDL_RWread(rwops, &ch, 1, 1) != 1) {
+            break;
+        }
+        *(buf++) = ch;
+        buflen--;
+        if (ch == '\n') {
+            break;
+        }
+    }
+    *(buf) = '\0';
+    return retval;
+}
+
+long mmftell(MMFILE *mmfile)
+{
+	return mmfile->pos;
+}
+
+void mmfseek(MMFILE *mmfile, long p, int whence)
+{
+	int newpos = mmfile->pos;
+	switch(whence) {
+		case SEEK_SET:
+			newpos = p;
+			break;
+		case SEEK_CUR:
+			newpos += p;
+			break;
+		case SEEK_END:
+			newpos = mmfile->sz + p;
+			break;
+	}
+	if (newpos < mmfile->sz)
+		mmfile->pos = newpos;
+	else {
+		mmfile->error = 1;
+//		printf("WARNING: seeking too far\n");
+	}
+}
+
+void mmreadUBYTES(BYTE *buf, long sz, MMFILE *mmfile)
+{
+	int sztr = sz;
+	// do not overread.
+	if (sz > mmfile->sz - mmfile->pos)
+		sztr = mmfile->sz - mmfile->pos;
+	SDL_memcpy(buf, &mmfile->mm[mmfile->pos], sztr);
+	mmfile->pos += sz;
+	// if truncated read, populate the rest of the array with zeros.
+	if (sz > sztr)
+		SDL_memset(buf+sztr, 0, sz-sztr);
+}
+
+void mmreadSBYTES(char *buf, long sz, MMFILE *mmfile)
+{
+	// do not overread.
+	if (sz > mmfile->sz - mmfile->pos)
+		sz = mmfile->sz - mmfile->pos;
+	SDL_memcpy(buf, &mmfile->mm[mmfile->pos], sz);
+	mmfile->pos += sz;
+}
+
+BYTE mmreadUBYTE(MMFILE *mmfile)
+{
+	BYTE b;
+	b = (BYTE)mmfile->mm[mmfile->pos];
+	mmfile->pos++;
+	return b;
+}
+
+void mmfclose(MMFILE *mmfile)
+{
+	SDL_free(mmfile);
+}
+
+int mmfeof(MMFILE *mmfile)
+{
+	if( mmfile->pos < 0 ) return TRUE;
+	if( mmfile->pos < mmfile->sz ) return FALSE;
+	return TRUE;
+}
+
+int mmfgetc(MMFILE *mmfile)
+{
+	int b = EOF;
+	if( mmfeof(mmfile) ) return EOF;
+	b = mmfile->mm[mmfile->pos];
+	mmfile->pos++;
+	if( b=='\r' && !mmfeof(mmfile) && mmfile->mm[mmfile->pos] == '\n' ) {
+		b = '\n';
+		mmfile->pos++;
+	}
+	return b;
+}
+
+void mmfgets(char buf[], unsigned int bufsz, MMFILE *mmfile)
+{
+	int i = 0;
+    int b;
+	for( i=0; i<(int)bufsz-1; i++ ) {
+		b = mmfgetc(mmfile);
+		if( b==EOF ) break;
+		buf[i] = b;
+		if( b == '\n' ) break;
+	}
+	buf[i] = '\0';
+}
+