initial commit of modplugin

1 files changed, 189 insertions, 0 deletions

diff --git a/core/multimedia/opieplayer/modplug/load_stm.cpp b/core/multimedia/opieplayer/modplug/load_stm.cpp
new file mode 100644
index 0000000..3f79c27
--- a/dev/null
+++ b/core/multimedia/opieplayer/modplug/load_stm.cpp
@@ -0,0 +1,189 @@
+/*
+ * This program is  free software; you can redistribute it  and 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.
+ *
+ * Authors: Olivier Lapicque <olivierl@jps.net>
+*/
+
+#include "stdafx.h"
+#include "sndfile.h"
+
+//#pragma warning(disable:4244)
+
+#pragma pack(1)
+
+typedef struct tagSTMNOTE
+{
+        BYTE note;
+        BYTE insvol;
+        BYTE volcmd;
+        BYTE cmdinf;
+} Q_PACKED 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
+} Q_PACKED 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
+} Q_PACKED STMHEADER;
+
+#pragma pack()
+
+
+
+BOOL CSoundFile::ReadSTM(const BYTE *lpStream, DWORD dwMemLength)
+//---------------------------------------------------------------
+{
+        STMHEADER *phdr = (STMHEADER *)lpStream;
+        DWORD dwMemPos = 0;
+        
+        if ((!lpStream) || (dwMemLength < sizeof(STMHEADER))) return FALSE;
+        if ((phdr->filetype != 2) || (phdr->unused != 0x1A)
+         || ((strnicmp(phdr->trackername, "!SCREAM!", 8))
+          && (strnicmp(phdr->trackername, "BMOD2STM", 8)))) return FALSE;
+        memcpy(m_szNames[0], phdr->songname, 20);
+        // Read STM header
+        m_nType = MOD_TYPE_STM;
+        m_nSamples = 31;
+        m_nChannels = 4;
+        m_nInstruments = 0;
+        m_nMinPeriod = 64;
+        m_nMaxPeriod = 0x7FFF;
+        m_nDefaultSpeed = phdr->inittempo >> 4;
+        if (m_nDefaultSpeed < 1) m_nDefaultSpeed = 1;
+        m_nDefaultTempo = 125;
+        m_nDefaultGlobalVolume = phdr->globalvol << 2;
+        if (m_nDefaultGlobalVolume > 256) m_nDefaultGlobalVolume = 256;
+        memcpy(Order, phdr->patorder, 128);
+        // Setting up channels
+        for (UINT nSet=0; nSet<4; nSet++)
+        {
+                ChnSettings[nSet].dwFlags = 0;
+                ChnSettings[nSet].nVolume = 64;
+                ChnSettings[nSet].nPan = (nSet & 1) ? 0x40 : 0xC0;
+        }
+        // Reading samples
+        for (UINT nIns=0; nIns<31; nIns++)
+        {
+                MODINSTRUMENT *pIns = &Ins[nIns+1];
+                STMSAMPLE *pStm = &phdr->sample[nIns];  // STM sample data
+                memcpy(pIns->name, pStm->filename, 13);
+                memcpy(m_szNames[nIns+1], pStm->filename, 12);
+                pIns->nC4Speed = pStm->c2spd;
+                pIns->nGlobalVol = 64;
+                pIns->nVolume = pStm->volume << 2;
+                if (pIns->nVolume > 256) pIns->nVolume = 256;
+                pIns->nLength = pStm->length;
+                if ((pIns->nLength < 4) || (!pIns->nVolume)) pIns->nLength = 0;
+                pIns->nLoopStart = pStm->loopbeg;
+                pIns->nLoopEnd = 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 (Order[nOrd] >= 99) Order[nOrd] = 0xFF;
+        UINT nPatterns = phdr->numpat;
+        for (UINT nPat=0; nPat<nPatterns; nPat++)
+        {
+                if (dwMemPos + 64*4*4 > dwMemLength) return TRUE;
+                PatternSize[nPat] = 64;
+                if ((Patterns[nPat] = AllocatePattern(64, m_nChannels)) == NULL) return TRUE;
+                MODCOMMAND *m = Patterns[nPat];
+                STMNOTE *p = (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 = &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 += ReadSample(pIns, RS_PCM8S, (LPSTR)(lpStream+dwMemPos),dwMemLength-dwMemPos);
+                        }
+                }
+        }
+        return TRUE;
+}
+