gosu 0.15.2 → 1.1.0.pre2

data/dependencies/SDL_sound/libmodplug/load_s3m.c

@@ -0,0 +1,325 @@
+/*
+ * This source code is public domain.
+ *
+ * Authors: Olivier Lapicque <olivierl@jps.net>,
+ *          Adam Goode       <adam@evdebs.org> (endian and char fixes for PPC)
+*/
+
+#include "libmodplug.h"
+#include "tables.h"
+
+//////////////////////////////////////////////////////
+// ScreamTracker S3M file support
+
+#pragma pack(1)
+typedef struct tagS3MSAMPLESTRUCT
+{
+	BYTE type;
+	CHAR dosname[12];
+	BYTE hmem;
+	WORD memseg;
+	DWORD length;
+	DWORD loopbegin;
+	DWORD loopend;
+	BYTE vol;
+	BYTE bReserved;
+	BYTE pack;
+	BYTE flags;
+	DWORD finetune;
+	DWORD dwReserved;
+	WORD intgp;
+	WORD int512;
+	DWORD lastused;
+	CHAR name[28];
+	CHAR scrs[4];
+} S3MSAMPLESTRUCT;
+
+
+typedef struct tagS3MFILEHEADER
+{
+	CHAR name[28];
+	BYTE b1A;
+	BYTE type;
+	WORD reserved1;
+	WORD ordnum;
+	WORD insnum;
+	WORD patnum;
+	WORD flags;
+	WORD cwtv;
+	WORD version;
+	DWORD scrm;	// "SCRM" = 0x4D524353
+	BYTE globalvol;
+	BYTE speed;
+	BYTE tempo;
+	BYTE mastervol;
+	BYTE ultraclicks;
+	BYTE panning_present;
+	BYTE reserved2[8];
+	WORD special;
+	BYTE channels[32];
+} S3MFILEHEADER;
+
+
+void CSoundFile_S3MConvert(MODCOMMAND *m, BOOL bIT)
+//--------------------------------------------------------
+{
+	UINT command = m->command;
+	UINT param = m->param;
+	switch (command + 0x40)
+	{
+	case 'A':	command = CMD_SPEED; break;
+	case 'B':	command = CMD_POSITIONJUMP; break;
+	case 'C':	command = CMD_PATTERNBREAK; if (!bIT) param = (param >> 4) * 10 + (param & 0x0F); break;
+	case 'D':	command = CMD_VOLUMESLIDE; break;
+	case 'E':	command = CMD_PORTAMENTODOWN; break;
+	case 'F':	command = CMD_PORTAMENTOUP; break;
+	case 'G':	command = CMD_TONEPORTAMENTO; break;
+	case 'H':	command = CMD_VIBRATO; break;
+	case 'I':	command = CMD_TREMOR; break;
+	case 'J':	command = CMD_ARPEGGIO; break;
+	case 'K':	command = CMD_VIBRATOVOL; break;
+	case 'L':	command = CMD_TONEPORTAVOL; break;
+	case 'M':	command = CMD_CHANNELVOLUME; break;
+	case 'N':	command = CMD_CHANNELVOLSLIDE; break;
+	case 'O':	command = CMD_OFFSET; break;
+	case 'P':	command = CMD_PANNINGSLIDE; break;
+	case 'Q':	command = CMD_RETRIG; break;
+	case 'R':	command = CMD_TREMOLO; break;
+	case 'S':	command = CMD_S3MCMDEX; break;
+	case 'T':	command = CMD_TEMPO; break;
+	case 'U':	command = CMD_FINEVIBRATO; break;
+	case 'V':	command = CMD_GLOBALVOLUME; break;
+	case 'W':	command = CMD_GLOBALVOLSLIDE; break;
+	case 'X':	command = CMD_PANNING8; break;
+	case 'Y':	command = CMD_PANBRELLO; break;
+	case 'Z':	command = CMD_MIDI; break;
+	default:	command = 0;
+	}
+	m->command = command;
+	m->param = param;
+}
+
+static DWORD boundInput(DWORD input, DWORD smin, DWORD smax)
+{
+	if (input > smax) input = smax;
+	else if (input < smin) input = 0;
+	return(input);
+}
+
+
+BOOL CSoundFile_ReadS3M(CSoundFile *_this, const BYTE *lpStream, DWORD dwMemLength)
+//---------------------------------------------------------------
+{
+	UINT insnum,patnum,nins,npat;
+	DWORD insfile[MAX_SAMPLES];
+	WORD ptr[256];
+	DWORD dwMemPos;
+	BYTE insflags[MAX_SAMPLES], inspack[MAX_SAMPLES];
+
+	if ((!lpStream) || (dwMemLength <= sizeof(S3MFILEHEADER)+sizeof(S3MSAMPLESTRUCT)+64)) return FALSE;
+	S3MFILEHEADER psfh;
+    SDL_memcpy(&psfh, lpStream, sizeof (psfh));
+
+	psfh.reserved1 = bswapLE16(psfh.reserved1);
+	psfh.ordnum = bswapLE16(psfh.ordnum);
+	psfh.insnum = bswapLE16(psfh.insnum);
+	psfh.patnum = bswapLE16(psfh.patnum);
+	psfh.flags = bswapLE16(psfh.flags);
+	psfh.cwtv = bswapLE16(psfh.cwtv);
+	psfh.version = bswapLE16(psfh.version);
+	psfh.scrm = bswapLE32(psfh.scrm);
+	psfh.special = bswapLE16(psfh.special);
+
+	if (psfh.scrm != 0x4D524353) return FALSE;
+	dwMemPos = 0x60;
+	_this->m_nType = MOD_TYPE_S3M;
+	// Speed
+	_this->m_nDefaultSpeed = psfh.speed;
+	if (_this->m_nDefaultSpeed < 1) _this->m_nDefaultSpeed = 6;
+	if (_this->m_nDefaultSpeed > 0x1F) _this->m_nDefaultSpeed = 0x1F;
+	// Tempo
+	_this->m_nDefaultTempo = psfh.tempo;
+	if (_this->m_nDefaultTempo < 40) _this->m_nDefaultTempo = 40;
+	if (_this->m_nDefaultTempo > 240) _this->m_nDefaultTempo = 240;
+	// Global Volume
+	_this->m_nDefaultGlobalVolume = psfh.globalvol << 2;
+	if ((!_this->m_nDefaultGlobalVolume) || (_this->m_nDefaultGlobalVolume > 256)) _this->m_nDefaultGlobalVolume = 256;
+	_this->m_nSongPreAmp = psfh.mastervol & 0x7F;
+	// Channels
+	_this->m_nChannels = 4;
+	for (UINT ich=0; ich<32; ich++)
+	{
+		_this->ChnSettings[ich].nPan = 128;
+		_this->ChnSettings[ich].nVolume = 64;
+
+		_this->ChnSettings[ich].dwFlags = CHN_MUTE;
+		if (psfh.channels[ich] != 0xFF)
+		{
+			_this->m_nChannels = ich+1;
+			UINT b = psfh.channels[ich] & 0x0F;
+			_this->ChnSettings[ich].nPan = (b & 8) ? 0xC0 : 0x40;
+			_this->ChnSettings[ich].dwFlags = 0;
+		}
+	}
+	if (_this->m_nChannels < 4) _this->m_nChannels = 4;
+	if ((psfh.cwtv < 0x1320) || (psfh.flags & 0x40)) _this->m_dwSongFlags |= SONG_FASTVOLSLIDES;
+	// Reading pattern order
+	UINT iord = psfh.ordnum;
+	if (iord<1) iord = 1;
+	if (iord > MAX_ORDERS) iord = MAX_ORDERS;
+	if (iord)
+	{
+		SDL_memcpy(_this->Order, lpStream+dwMemPos, iord);
+		dwMemPos += iord;
+	}
+	if ((iord & 1) && (lpStream[dwMemPos] == 0xFF)) dwMemPos++;
+	// Reading file pointers
+	insnum = nins = psfh.insnum;
+	if (insnum >= MAX_SAMPLES) insnum = MAX_SAMPLES-1;
+	_this->m_nSamples = insnum;
+	patnum = npat = psfh.patnum;
+	if (patnum > MAX_PATTERNS) patnum = MAX_PATTERNS;
+	SDL_memset(ptr, 0, sizeof(ptr));
+
+	// Ignore file if it has a corrupted header.
+	if (nins+npat > 256) return FALSE;
+
+	if (nins+npat)
+	{
+		SDL_memcpy(ptr, lpStream+dwMemPos, 2*(nins+npat));
+		dwMemPos += 2*(nins+npat);
+		for (UINT j = 0; j < (nins+npat); ++j) {
+		        ptr[j] = bswapLE16(ptr[j]);
+		}
+		if (psfh.panning_present == 252)
+		{
+			const BYTE *chnpan = lpStream+dwMemPos;
+			for (UINT i=0; i<32; i++) if (chnpan[i] & 0x20)
+			{
+				_this->ChnSettings[i].nPan = ((chnpan[i] & 0x0F) << 4) + 8;
+			}
+		}
+	}
+	if (!_this->m_nChannels) return TRUE;
+	// Reading instrument headers
+	SDL_memset(insfile, 0, sizeof(insfile));
+	for (UINT iSmp=1; iSmp<=insnum; iSmp++)
+	{
+		UINT nInd = ((DWORD)ptr[iSmp-1])*16;
+		if ((!nInd) || (nInd + 0x50 > dwMemLength)) {
+			// initialize basic variables.
+			insflags[iSmp-1] = 0;
+			inspack[iSmp-1] = 0;
+			continue;
+		}
+		S3MSAMPLESTRUCT pSmp;
+		SDL_memcpy(&pSmp, lpStream+nInd, 0x50);
+		insflags[iSmp-1] = pSmp.flags;
+		inspack[iSmp-1] = pSmp.pack;
+		if ((pSmp.type==1) && (pSmp.scrs[2]=='R') && (pSmp.scrs[3]=='S'))
+		{
+			_this->Ins[iSmp].nLength = boundInput(bswapLE32(pSmp.length), 4, MAX_SAMPLE_LENGTH);
+			_this->Ins[iSmp].nLoopStart = boundInput(bswapLE32(pSmp.loopbegin), 4, _this->Ins[iSmp].nLength - 1);
+			_this->Ins[iSmp].nLoopEnd = boundInput(bswapLE32(pSmp.loopend), 4, _this->Ins[iSmp].nLength);
+			_this->Ins[iSmp].nVolume = boundInput(pSmp.vol, 0, 64) << 2;
+			_this->Ins[iSmp].nGlobalVol = 64;
+			if (pSmp.flags&1) _this->Ins[iSmp].uFlags |= CHN_LOOP;
+			UINT j = bswapLE32(pSmp.finetune);
+			if (!j) j = 8363;
+			if (j < 1024) j = 1024;
+			_this->Ins[iSmp].nC4Speed = j;
+			insfile[iSmp] = (pSmp.hmem << 20) + (bswapLE16(pSmp.memseg) << 4);
+			// offset is invalid - ignore this sample.
+			if (insfile[iSmp] > dwMemLength) insfile[iSmp] = 0;
+			else if (insfile[iSmp]) {
+				// ignore duplicate samples.
+				for (int z=iSmp-1; z>=0; z--)
+					if (insfile[iSmp] == insfile[z])
+						insfile[iSmp] = 0;
+			}
+			if ((_this->Ins[iSmp].nLoopStart >= _this->Ins[iSmp].nLoopEnd) || (_this->Ins[iSmp].nLoopEnd - _this->Ins[iSmp].nLoopStart < 8))
+				_this->Ins[iSmp].nLoopStart = _this->Ins[iSmp].nLoopEnd = 0;
+			_this->Ins[iSmp].nPan = 0x80;
+		}
+	}
+	// Reading patterns
+	for (UINT iPat=0; iPat<patnum; iPat++)
+	{
+		UINT nInd = ((DWORD)ptr[nins+iPat]) << 4;
+		if (nInd + 0x40 > dwMemLength) continue;
+		WORD len = bswapLE16(*((WORD *)(lpStream+nInd)));
+		nInd += 2;
+		_this->PatternSize[iPat] = 64;
+		if ((!len) || (nInd + len > dwMemLength - 6)
+		 || ((_this->Patterns[iPat] = CSoundFile_AllocatePattern(64, _this->m_nChannels)) == NULL)) continue;
+		LPBYTE src = (LPBYTE)(lpStream+nInd);
+		// Unpacking pattern
+		MODCOMMAND *p = _this->Patterns[iPat];
+		UINT row = 0;
+		UINT j = 0;
+		while (j < len)
+		{
+			BYTE b = src[j++];
+			if (!b)
+			{
+				if (++row >= 64) break;
+			} else
+			{
+				UINT chn = b & 0x1F;
+				if (chn < _this->m_nChannels)
+				{
+					MODCOMMAND *m = &p[row*_this->m_nChannels+chn];
+					if (b & 0x20)
+					{
+						m->note = src[j++];
+						if (m->note < 0xF0) m->note = (m->note & 0x0F) + 12*(m->note >> 4) + 13;
+						else if (m->note == 0xFF) m->note = 0;
+						m->instr = src[j++];
+					}
+					if (b & 0x40)
+					{
+						UINT vol = src[j++];
+						if ((vol >= 128) && (vol <= 192))
+						{
+							vol -= 128;
+							m->volcmd = VOLCMD_PANNING;
+						} else
+						{
+							if (vol > 64) vol = 64;
+							m->volcmd = VOLCMD_VOLUME;
+						}
+						m->vol = vol;
+					}
+					if (b & 0x80)
+					{
+						m->command = src[j++];
+						m->param = src[j++];
+						if (m->command) CSoundFile_S3MConvert(m, FALSE);
+					}
+				} else
+				{
+					if (b & 0x20) j += 2;
+					if (b & 0x40) j++;
+					if (b & 0x80) j += 2;
+				}
+				if (j >= len) break;
+			}
+		}
+	}
+	// Reading samples
+	for (UINT iRaw=1; iRaw<=insnum; iRaw++) if ((_this->Ins[iRaw].nLength) && (insfile[iRaw]))
+	{
+		UINT flags = (psfh.version == 1) ? RS_PCM8S : RS_PCM8U;
+		if (insflags[iRaw-1] & 4) flags += 5;
+		if (insflags[iRaw-1] & 2) flags |= RSF_STEREO;
+		if (inspack[iRaw-1] == 4) flags = RS_ADPCM4;
+		dwMemPos = insfile[iRaw];
+		if (dwMemPos < dwMemLength)
+			dwMemPos += CSoundFile_ReadSample(_this, &_this->Ins[iRaw], flags, (LPSTR)(lpStream + dwMemPos), dwMemLength - dwMemPos);
+	}
+	_this->m_nMinPeriod = 64;
+	_this->m_nMaxPeriod = 32767;
+	if (psfh.flags & 0x10) _this->m_dwSongFlags |= SONG_AMIGALIMITS;
+	return TRUE;
+}
+

data/dependencies/SDL_sound/libmodplug/load_stm.c

@@ -0,0 +1,180 @@
+/*
+ * This source code is public domain.
+ *
+ * Authors: Olivier Lapicque <olivierl@jps.net>
+*/
+
+#include "libmodplug.h"
+
+#pragma pack(1)
+
+typedef struct tagSTMNOTE
+{
+	BYTE note;
+	BYTE insvol;
+	BYTE volcmd;
+	BYTE cmdinf;
+} STMNOTE;
+
+
+// Raw STM sampleinfo struct:
+typedef struct tagSTMSAMPLE
+{
+	CHAR filename[14];	// Can't have long comments - just filename comments :)
+	WORD reserved;		// ISA in memory when in ST 2
+	WORD length;		// Sample length
+	WORD loopbeg;		// Loop start point
+	WORD loopend;		// Loop end point
+	BYTE volume;		// Volume
+	BYTE reserved2;		// More reserved crap
+	WORD c2spd;			// Good old c2spd
+	BYTE reserved3[6];	// Yet more of PSi's reserved crap
+} STMSAMPLE;
+
+
+// Raw STM header struct:
+typedef struct tagSTMHEADER
+{
+	char songname[20];      // changed from CHAR
+	char trackername[8];	// !SCREAM! for ST 2.xx  // changed from CHAR
+	CHAR unused;			// 0x1A
+	CHAR filetype;			// 1=song, 2=module (only 2 is supported, of course) :)
+	CHAR ver_major;			// Like 2
+	CHAR ver_minor;			// "ditto"
+	BYTE inittempo;			// initspeed= stm inittempo>>4
+	BYTE numpat;			// number of patterns
+	BYTE globalvol;			// <- WoW! a RiGHT TRiANGLE =8*)
+	BYTE reserved[13];		// More of PSi's internal crap
+	STMSAMPLE sample[31];	// STM sample data
+	BYTE patorder[128];		// Docs say 64 - actually 128
+} STMHEADER;
+
+#pragma pack()
+
+
+
+BOOL CSoundFile_ReadSTM(CSoundFile *_this, const BYTE *lpStream, DWORD dwMemLength)
+//---------------------------------------------------------------
+{
+	const STMHEADER *phdr = (STMHEADER *)lpStream;
+	DWORD dwMemPos = 0;
+	
+	if ((!lpStream) || (dwMemLength < sizeof(STMHEADER))) return FALSE;
+	if ((phdr->filetype != 2) || (phdr->unused != 0x1A)
+	 || ((SDL_strncasecmp(phdr->trackername, "!SCREAM!", 8))
+	  && (SDL_strncasecmp(phdr->trackername, "BMOD2STM", 8)))) return FALSE;
+	// Read STM header
+	_this->m_nType = MOD_TYPE_STM;
+	_this->m_nSamples = 31;
+	_this->m_nChannels = 4;
+	_this->m_nInstruments = 0;
+	_this->m_nMinPeriod = 64;
+	_this->m_nMaxPeriod = 0x7FFF;
+	_this->m_nDefaultSpeed = phdr->inittempo >> 4;
+	if (_this->m_nDefaultSpeed < 1) _this->m_nDefaultSpeed = 1;
+	_this->m_nDefaultTempo = 125;
+	_this->m_nDefaultGlobalVolume = phdr->globalvol << 2;
+	if (_this->m_nDefaultGlobalVolume > 256) _this->m_nDefaultGlobalVolume = 256;
+	SDL_memcpy(_this->Order, phdr->patorder, 128);
+	// Setting up channels
+	for (UINT nSet=0; nSet<4; nSet++)
+	{
+		_this->ChnSettings[nSet].dwFlags = 0;
+		_this->ChnSettings[nSet].nVolume = 64;
+		_this->ChnSettings[nSet].nPan = (nSet & 1) ? 0x40 : 0xC0;
+	}
+	// Reading samples
+	for (UINT nIns=0; nIns<31; nIns++)
+	{
+		MODINSTRUMENT *pIns = &_this->Ins[nIns+1];
+		const STMSAMPLE *pStm = &phdr->sample[nIns];  // STM sample data
+		pIns->nC4Speed = bswapLE16(pStm->c2spd);
+		pIns->nGlobalVol = 64;
+		pIns->nVolume = pStm->volume << 2;
+		if (pIns->nVolume > 256) pIns->nVolume = 256;
+		pIns->nLength = bswapLE16(pStm->length);
+		if ((pIns->nLength < 4) || (!pIns->nVolume)) pIns->nLength = 0;
+		pIns->nLoopStart = bswapLE16(pStm->loopbeg);
+		pIns->nLoopEnd = bswapLE16(pStm->loopend);
+		if ((pIns->nLoopEnd > pIns->nLoopStart) && (pIns->nLoopEnd != 0xFFFF)) pIns->uFlags |= CHN_LOOP;
+	}
+	dwMemPos = sizeof(STMHEADER);
+	for (UINT nOrd=0; nOrd<MAX_ORDERS; nOrd++) if (_this->Order[nOrd] >= 99) _this->Order[nOrd] = 0xFF;
+	UINT nPatterns = phdr->numpat;
+	for (UINT nPat=0; nPat<nPatterns; nPat++)
+	{
+		if (dwMemPos + 64*4*4 > dwMemLength) return TRUE;
+		_this->PatternSize[nPat] = 64;
+		if ((_this->Patterns[nPat] = CSoundFile_AllocatePattern(64, _this->m_nChannels)) == NULL) return TRUE;
+		MODCOMMAND *m = _this->Patterns[nPat];
+		const STMNOTE *p = (const STMNOTE *)(lpStream + dwMemPos);
+		for (UINT n=0; n<64*4; n++, p++, m++)
+		{
+			UINT note,ins,vol,cmd;
+			// extract the various information from the 4 bytes that
+			// make up a single note
+			note = p->note;
+			ins = p->insvol >> 3;
+			vol = (p->insvol & 0x07) + (p->volcmd >> 1);
+			cmd = p->volcmd & 0x0F;
+			if ((ins) && (ins < 32)) m->instr = ins;
+			// special values of [SBYTE0] are handled here ->
+			// we have no idea if these strange values will ever be encountered
+			// but it appears as though stms sound correct.
+			if ((note == 0xFE) || (note == 0xFC)) m->note = 0xFE; else
+			// if note < 251, then all three bytes are stored in the file
+			if (note < 0xFC) m->note = (note >> 4)*12 + (note&0xf) + 37;
+			if (vol <= 64) { m->volcmd = VOLCMD_VOLUME; m->vol = vol; }
+			m->param = p->cmdinf;
+			switch(cmd)
+			{
+			// Axx set speed to xx
+			case 1:	m->command = CMD_SPEED; m->param >>= 4; break;
+			// Bxx position jump
+			case 2:	m->command = CMD_POSITIONJUMP; break;
+			// Cxx patternbreak to row xx
+			case 3:	m->command = CMD_PATTERNBREAK; m->param = (m->param & 0xF0) * 10 + (m->param & 0x0F);	break;
+			// Dxy volumeslide
+			case 4:	m->command = CMD_VOLUMESLIDE; break;
+			// Exy toneslide down
+			case 5:	m->command = CMD_PORTAMENTODOWN; break;
+			// Fxy toneslide up
+			case 6:	m->command = CMD_PORTAMENTOUP; break;
+			// Gxx Tone portamento,speed xx
+			case 7:	m->command = CMD_TONEPORTAMENTO; break;
+			// Hxy vibrato
+			case 8:	m->command = CMD_VIBRATO; break;
+			// Ixy tremor, ontime x, offtime y
+			case 9:	m->command = CMD_TREMOR; break;
+			// Jxy arpeggio
+			case 10: m->command = CMD_ARPEGGIO; break;
+			// Kxy Dual command H00 & Dxy
+			case 11: m->command = CMD_VIBRATOVOL; break;
+			// Lxy Dual command G00 & Dxy
+			case 12: m->command = CMD_TONEPORTAVOL; break;
+			// Xxx amiga command 8xx
+			case 0x18:	m->command = CMD_PANNING8; break;
+			default:
+				m->command = m->param = 0;
+			}
+		}
+		dwMemPos += 64*4*4;
+	}
+	// Reading Samples
+	for (UINT nSmp=1; nSmp<=31; nSmp++)
+	{
+		MODINSTRUMENT *pIns = &_this->Ins[nSmp];
+		dwMemPos = (dwMemPos + 15) & (~15);
+		if (pIns->nLength)
+		{
+			UINT nPos = ((UINT)phdr->sample[nSmp-1].reserved) << 4;
+			if ((nPos >= sizeof(STMHEADER)) && (nPos+pIns->nLength <= dwMemLength)) dwMemPos = nPos;
+			if (dwMemPos < dwMemLength)
+			{
+				dwMemPos += CSoundFile_ReadSample(_this, pIns, RS_PCM8S, (LPSTR)(lpStream+dwMemPos),dwMemLength-dwMemPos);
+			}
+		}
+	}
+	return TRUE;
+}
+