gosu 0.15.2 → 1.1.0.pre2

data/dependencies/SDL_sound/libmodplug/load_dsm.c

@@ -0,0 +1,232 @@
+/*
+ * This source code is public domain.
+ *
+ * Authors: Olivier Lapicque <olivierl@jps.net>
+*/
+
+//////////////////////////////////////////////
+// DSIK Internal Format (DSM) module loader //
+//////////////////////////////////////////////
+#include "libmodplug.h"
+
+#pragma pack(1)
+
+#define DSMID_RIFF	0x46464952	// "RIFF"
+#define DSMID_DSMF	0x464d5344	// "DSMF"
+#define DSMID_SONG	0x474e4f53	// "SONG"
+#define DSMID_INST	0x54534e49	// "INST"
+#define DSMID_PATT	0x54544150	// "PATT"
+
+
+typedef struct DSMNOTE
+{
+	BYTE note,ins,vol,cmd,inf;
+} DSMNOTE;
+
+
+typedef struct DSMINST
+{
+	DWORD id_INST;
+	DWORD inst_len;
+	CHAR filename[13];
+	BYTE flags;
+	BYTE flags2;
+	BYTE volume;
+	DWORD length;
+	DWORD loopstart;
+	DWORD loopend;
+	DWORD reserved1;
+	WORD c2spd;
+	WORD reserved2;
+	CHAR samplename[28];
+} DSMINST;
+
+
+typedef struct DSMFILEHEADER
+{
+	DWORD id_RIFF;	// "RIFF"
+	DWORD riff_len;
+	DWORD id_DSMF;	// "DSMF"
+	DWORD id_SONG;	// "SONG"
+	DWORD song_len;
+} DSMFILEHEADER;
+
+
+typedef struct DSMSONG
+{
+	CHAR songname[28];
+	WORD reserved1;
+	WORD flags;
+	DWORD reserved2;
+	WORD numord;
+	WORD numsmp;
+	WORD numpat;
+	WORD numtrk;
+	BYTE globalvol;
+	BYTE mastervol;
+	BYTE speed;
+	BYTE bpm;
+	BYTE panpos[16];
+	BYTE orders[128];
+} DSMSONG;
+
+typedef struct DSMPATT
+{
+	DWORD id_PATT;
+	DWORD patt_len;
+	BYTE dummy1;
+	BYTE dummy2;
+} DSMPATT;
+
+#pragma pack()
+
+
+BOOL CSoundFile_ReadDSM(CSoundFile *_this, LPCBYTE lpStream, DWORD dwMemLength)
+//-----------------------------------------------------------
+{
+	DSMFILEHEADER *pfh = (DSMFILEHEADER *)lpStream;
+	DSMSONG *psong;
+	DWORD dwMemPos;
+	UINT nPat, nSmp;
+
+	if ((!lpStream) || (dwMemLength < 1024) || (pfh->id_RIFF != DSMID_RIFF)
+	 || (pfh->riff_len + 8 > dwMemLength) || (pfh->riff_len < 1024)
+	 || (pfh->id_DSMF != DSMID_DSMF) || (pfh->id_SONG != DSMID_SONG)
+	 || (pfh->song_len > dwMemLength)) return FALSE;
+	psong = (DSMSONG *)(lpStream + sizeof(DSMFILEHEADER));
+	dwMemPos = sizeof(DSMFILEHEADER) + pfh->song_len;
+	_this->m_nType = MOD_TYPE_DSM;
+	_this->m_nChannels = psong->numtrk;
+	if (_this->m_nChannels < 4) _this->m_nChannels = 4;
+	if (_this->m_nChannels > 16) _this->m_nChannels = 16;
+	_this->m_nSamples = psong->numsmp;
+	if (_this->m_nSamples >= MAX_SAMPLES) _this->m_nSamples = MAX_SAMPLES - 1;
+	_this->m_nDefaultSpeed = psong->speed;
+	_this->m_nDefaultTempo = psong->bpm;
+	_this->m_nDefaultGlobalVolume = psong->globalvol << 2;
+	if ((!_this->m_nDefaultGlobalVolume) || (_this->m_nDefaultGlobalVolume > 256)) _this->m_nDefaultGlobalVolume = 256;
+	_this->m_nSongPreAmp = psong->mastervol & 0x7F;
+	for (UINT iOrd=0; iOrd<sizeof(psong->orders); iOrd++)
+	{
+		_this->Order[iOrd] = (BYTE)((iOrd < psong->numord) ? psong->orders[iOrd] : 0xFF);
+	}
+	for (UINT iPan=0; iPan<16; iPan++)
+	{
+		_this->ChnSettings[iPan].nPan = 0x80;
+		if (psong->panpos[iPan] <= 0x80)
+		{
+			_this->ChnSettings[iPan].nPan = psong->panpos[iPan] << 1;
+		}
+	}
+	nPat = 0;
+	nSmp = 1;
+	while (dwMemPos < dwMemLength - 8)
+	{
+		DSMPATT *ppatt = (DSMPATT *)(lpStream + dwMemPos);
+		DSMINST *pins = (DSMINST *)(lpStream+dwMemPos);
+		// Reading Patterns
+		if (ppatt->id_PATT == DSMID_PATT)
+		{
+			dwMemPos += 8;
+			if (dwMemPos + ppatt->patt_len >= dwMemLength) break;
+			DWORD dwPos = dwMemPos;
+			dwMemPos += ppatt->patt_len;
+			MODCOMMAND *m = CSoundFile_AllocatePattern(64, _this->m_nChannels);
+			if (!m) break;
+			_this->PatternSize[nPat] = 64;
+			_this->Patterns[nPat] = m;
+			UINT row = 0;
+			while ((row < 64) && (dwPos + 2 <= dwMemPos))
+			{
+				UINT flag = lpStream[dwPos++];
+				if (flag)
+				{
+					UINT ch = (flag & 0x0F) % _this->m_nChannels;
+					if (flag & 0x80)
+					{
+						UINT note = lpStream[dwPos++];
+						if (note)
+						{
+							if (note <= 12*9) note += 12;
+							m[ch].note = (BYTE)note;
+						}
+					}
+					if (flag & 0x40)
+					{
+						m[ch].instr = lpStream[dwPos++];
+					}
+					if (flag & 0x20)
+					{
+						m[ch].volcmd = VOLCMD_VOLUME;
+						m[ch].vol = lpStream[dwPos++];
+					}
+					if (flag & 0x10)
+					{
+						UINT command = lpStream[dwPos++];
+						UINT param = lpStream[dwPos++];
+						switch(command)
+						{
+						// 4-bit Panning
+						case 0x08:
+							switch(param & 0xF0)
+							{
+							case 0x00: param <<= 4; break;
+							case 0x10: command = 0x0A; param = (param & 0x0F) << 4; break;
+							case 0x20: command = 0x0E; param = (param & 0x0F) | 0xA0; break;
+							case 0x30: command = 0x0E; param = (param & 0x0F) | 0x10; break;
+							case 0x40: command = 0x0E; param = (param & 0x0F) | 0x20; break;
+							default: command = 0;
+							}
+							break;
+						// Portamentos
+						case 0x11:
+						case 0x12:
+							command &= 0x0F;
+							break;
+						// 3D Sound (?)
+						case 0x13:
+							command = 'X' - 55;
+							param = 0x91;
+							break;
+						default:
+							// Volume + Offset (?)
+							command = ((command & 0xF0) == 0x20) ? 0x09 : 0;
+						}
+						m[ch].command = (BYTE)command;
+						m[ch].param = (BYTE)param;
+						if (command) CSoundFile_ConvertModCommand(_this, &m[ch]);
+					}
+				} else
+				{
+					m += _this->m_nChannels;
+					row++;
+				}
+			}
+			nPat++;
+		} else
+		// Reading Samples
+		if ((nSmp <= _this->m_nSamples) && (pins->id_INST == DSMID_INST))
+		{
+			if (dwMemPos + pins->inst_len >= dwMemLength - 8) break;
+			DWORD dwPos = dwMemPos + sizeof(DSMINST);
+			dwMemPos += 8 + pins->inst_len;
+			MODINSTRUMENT *psmp = &_this->Ins[nSmp];
+			psmp->nGlobalVol = 64;
+			psmp->nC4Speed = pins->c2spd;
+			psmp->uFlags = (WORD)((pins->flags & 1) ? CHN_LOOP : 0);
+			psmp->nLength = pins->length;
+			psmp->nLoopStart = pins->loopstart;
+			psmp->nLoopEnd = pins->loopend;
+			psmp->nVolume = (WORD)(pins->volume << 2);
+			if (psmp->nVolume > 256) psmp->nVolume = 256;
+			UINT smptype = (pins->flags & 2) ? RS_PCM8S : RS_PCM8U;
+			CSoundFile_ReadSample(_this, psmp, smptype, (LPCSTR)(lpStream+dwPos), dwMemLength - dwPos);
+			nSmp++;
+		} else
+		{
+			break;
+		}
+	}
+	return TRUE;
+}
+

data/dependencies/SDL_sound/libmodplug/load_far.c

@@ -0,0 +1,253 @@
+/*
+ * This source code is public domain.
+ *
+ * Authors: Olivier Lapicque <olivierl@jps.net>
+*/
+
+////////////////////////////////////////
+// Farandole (FAR) module loader	  //
+////////////////////////////////////////
+#include "libmodplug.h"
+
+#define FARFILEMAGIC	0xFE524146	// "FAR"
+
+#pragma pack(1)
+
+typedef struct FARHEADER1
+{
+	DWORD id;				// file magic FAR=
+	CHAR songname[40];		// songname
+	CHAR magic2[3];			// 13,10,26
+	WORD headerlen;			// remaining length of header in bytes
+	BYTE version;			// 0xD1
+	BYTE onoff[16];
+	BYTE edit1[9];
+	BYTE speed;
+	BYTE panning[16];
+	BYTE edit2[4];
+	WORD stlen;
+} FARHEADER1;
+
+typedef struct FARHEADER2
+{
+	BYTE orders[256];
+	BYTE numpat;
+	BYTE snglen;
+	BYTE loopto;
+	WORD patsiz[256];
+} FARHEADER2;
+
+typedef struct FARSAMPLE
+{
+	CHAR samplename[32];
+	DWORD length;
+	BYTE finetune;
+	BYTE volume;
+	DWORD reppos;
+	DWORD repend;
+	BYTE type;
+	BYTE loop;
+} FARSAMPLE;
+
+#pragma pack()
+
+
+BOOL CSoundFile_ReadFAR(CSoundFile *_this, const BYTE *lpStream, DWORD dwMemLength)
+//---------------------------------------------------------------
+{
+	const FARHEADER1 *pmh1 = (const FARHEADER1 *)lpStream;
+	const FARHEADER2 *pmh2;
+	DWORD dwMemPos = sizeof(FARHEADER1);
+	UINT headerlen, stlen;
+	BYTE samplemap[8];
+
+	if ((!lpStream) || (dwMemLength < 1024) || (bswapLE32(pmh1->id) != FARFILEMAGIC)
+	 || (pmh1->magic2[0] != 13) || (pmh1->magic2[1] != 10) || (pmh1->magic2[2] != 26)) return FALSE;
+	headerlen = bswapLE16(pmh1->headerlen);
+	stlen = bswapLE16( pmh1->stlen );
+	if ((headerlen >= dwMemLength) || (dwMemPos + stlen + sizeof(FARHEADER2) >= dwMemLength)) return FALSE;
+	// Globals
+	_this->m_nType = MOD_TYPE_FAR;
+	_this->m_nChannels = 16;
+	_this->m_nInstruments = 0;
+	_this->m_nSamples = 0;
+	_this->m_nSongPreAmp = 0x20;
+	_this->m_nDefaultSpeed = pmh1->speed;
+	_this->m_nDefaultTempo = 80;
+	_this->m_nDefaultGlobalVolume = 256;
+
+	// Channel Setting
+	for (UINT nchpan=0; nchpan<16; nchpan++)
+	{
+		_this->ChnSettings[nchpan].dwFlags = 0;
+		_this->ChnSettings[nchpan].nPan = ((pmh1->panning[nchpan] & 0x0F) << 4) + 8;
+		_this->ChnSettings[nchpan].nVolume = 64;
+	}
+	// Reading comment
+	if (stlen)
+	{
+		dwMemPos += stlen;
+	}
+	// Reading orders
+	if (sizeof(FARHEADER2) > dwMemLength - dwMemPos) return TRUE;
+	pmh2 = (const FARHEADER2 *)(lpStream + dwMemPos);
+	dwMemPos += sizeof(FARHEADER2);
+	if (dwMemPos >= dwMemLength) return TRUE;
+	for (UINT iorder=0; iorder<MAX_ORDERS; iorder++)
+	{
+		_this->Order[iorder] = (iorder <= pmh2->snglen) ? pmh2->orders[iorder] : 0xFF;
+	}
+	_this->m_nRestartPos = pmh2->loopto;
+	// Reading Patterns	
+	dwMemPos += headerlen - (869 + stlen);
+	if (dwMemPos >= dwMemLength) return TRUE;
+
+	// end byteswap of pattern data
+
+	WORD *patsiz = (WORD *)pmh2->patsiz;
+	for (UINT ipat=0; ipat<256; ipat++) if (patsiz[ipat])
+	{
+		UINT patlen = bswapLE16(patsiz[ipat]);
+		if ((ipat >= MAX_PATTERNS) || (patlen < 2))
+		{
+			dwMemPos += patlen;
+			continue;
+		}
+		if (dwMemPos + patlen >= dwMemLength) return TRUE;
+		UINT rows = (patlen - 2) >> 6;
+		if (!rows)
+		{
+			dwMemPos += patlen;
+			continue;
+		}
+		if (rows > 256) rows = 256;
+		if (rows < 16) rows = 16;
+		_this->PatternSize[ipat] = rows;
+		if ((_this->Patterns[ipat] = CSoundFile_AllocatePattern(rows, _this->m_nChannels)) == NULL) return TRUE;
+		MODCOMMAND *m = _this->Patterns[ipat];
+		UINT patbrk = lpStream[dwMemPos];
+		const BYTE *p = lpStream + dwMemPos + 2;
+		UINT max = rows*16*4;
+		if (max > patlen-2) max = patlen-2;
+		for (UINT len=0; len<max; len += 4, m++)
+		{
+			BYTE note = p[len];
+			BYTE ins = p[len+1];
+			BYTE vol = p[len+2];
+			BYTE eff = p[len+3];
+			if (note)
+			{
+				m->instr = ins + 1;
+				m->note = note + 36;
+			}
+			if (vol & 0x0F)
+			{
+				m->volcmd = VOLCMD_VOLUME;
+				m->vol = (vol & 0x0F) << 2;
+				if (m->vol <= 4) m->vol = 0;
+			}
+			switch(eff & 0xF0)
+			{
+			// 1.x: Portamento Up
+			case 0x10:
+				m->command = CMD_PORTAMENTOUP;
+				m->param = eff & 0x0F;
+				break;
+			// 2.x: Portamento Down
+			case 0x20:
+				m->command = CMD_PORTAMENTODOWN;
+				m->param = eff & 0x0F;
+				break;
+			// 3.x: Tone-Portamento
+			case 0x30:
+				m->command = CMD_TONEPORTAMENTO;
+				m->param = (eff & 0x0F) << 2;
+				break;
+			// 4.x: Retrigger
+			case 0x40:
+				m->command = CMD_RETRIG;
+				m->param = 6 / (1+(eff&0x0F)) + 1;
+				break;
+			// 5.x: Set Vibrato Depth
+			case 0x50:
+				m->command = CMD_VIBRATO;
+				m->param = (eff & 0x0F);
+				break;
+			// 6.x: Set Vibrato Speed
+			case 0x60:
+				m->command = CMD_VIBRATO;
+				m->param = (eff & 0x0F) << 4;
+				break;
+			// 7.x: Vol Slide Up
+			case 0x70:
+				m->command = CMD_VOLUMESLIDE;
+				m->param = (eff & 0x0F) << 4;
+				break;
+			// 8.x: Vol Slide Down
+			case 0x80:
+				m->command = CMD_VOLUMESLIDE;
+				m->param = (eff & 0x0F);
+				break;
+			// A.x: Port to vol
+			case 0xA0:
+				m->volcmd = VOLCMD_VOLUME;
+				m->vol = ((eff & 0x0F) << 2) + 4;
+				break;
+			// B.x: Set Balance
+			case 0xB0:
+				m->command = CMD_PANNING8;
+				m->param = (eff & 0x0F) << 4;
+				break;
+			// F.x: Set Speed
+			case 0xF0:
+				m->command = CMD_SPEED;
+				m->param = eff & 0x0F;
+				break;
+			default:
+				if ((patbrk) &&	(patbrk+1 == (len >> 6)) && (patbrk+1 != rows-1))
+				{
+					m->command = CMD_PATTERNBREAK;
+					patbrk = 0;
+				}
+			}
+		}
+		dwMemPos += patlen;
+	}
+	// Reading samples
+	if (dwMemPos + 8 >= dwMemLength) return TRUE;
+	SDL_memcpy(samplemap, lpStream+dwMemPos, 8);
+	dwMemPos += 8;
+	MODINSTRUMENT *pins = &_this->Ins[1];
+	for (UINT ismp=0; ismp<64; ismp++, pins++) if (samplemap[ismp >> 3] & (1 << (ismp & 7)))
+	{
+		if (dwMemPos + sizeof(FARSAMPLE) > dwMemLength) return TRUE;
+		const FARSAMPLE *pfs = (const FARSAMPLE*)(lpStream + dwMemPos);
+		dwMemPos += sizeof(FARSAMPLE);
+		_this->m_nSamples = ismp + 1;
+		const DWORD length = bswapLE32( pfs->length ) ; /* endian fix - Toad */
+		pins->nLength = length ;
+		pins->nLoopStart = bswapLE32(pfs->reppos) ;
+		pins->nLoopEnd = bswapLE32(pfs->repend) ;
+		pins->nFineTune = 0;
+		pins->nC4Speed = 8363*2;
+		pins->nGlobalVol = 64;
+		pins->nVolume = pfs->volume << 4;
+		pins->uFlags = 0;
+		if ((pins->nLength > 3) && (dwMemPos + 4 < dwMemLength))
+		{
+			if (pfs->type & 1)
+			{
+				pins->uFlags |= CHN_16BIT;
+				pins->nLength >>= 1;
+				pins->nLoopStart >>= 1;
+				pins->nLoopEnd >>= 1;
+			}
+			if ((pfs->loop & 8) && (pins->nLoopEnd > 4)) pins->uFlags |= CHN_LOOP;
+			CSoundFile_ReadSample(_this, pins, (pins->uFlags & CHN_16BIT) ? RS_PCM16S : RS_PCM8S,
+						(LPSTR)(lpStream+dwMemPos), dwMemLength - dwMemPos);
+		}
+		dwMemPos += length;
+	}
+	return TRUE;
+}
+