340 lines
8.2 KiB
C++
340 lines
8.2 KiB
C++
|
/*
|
||
|
|
* Load_dsm.cpp
|
||
|
|
* ------------
|
||
|
|
* Purpose: Digisound Interface Kit (DSIK) Internal Format (DSM v2 / RIFF) module loader
|
||
|
|
* Notes : 1. There is also another fundamentally different DSIK DSM v1 module format, not handled here.
|
||
|
|
* MilkyTracker can load it, but the only files of this format seen in the wild are also
|
||
|
|
* available in their original format, so I did not bother implementing it so far.
|
||
|
|
*
|
||
|
|
* 2. Using both PLAY.EXE v1.02 and v2.00, commands not supported in MOD do not seem to do
|
||
|
|
* anything at all.
|
||
|
|
* In particular commands 0x11-0x13 handled below are ignored, and no files have been spotted
|
||
|
|
* in the wild using any commands > 0x0F at all.
|
||
|
|
* S3M-style retrigger does not seem to exist - it is translated to volume slides by CONV.EXE,
|
||
|
|
* and J00 in S3M files is not converted either. S3M pattern loops (SBx) are not converted
|
||
|
|
* properly by CONV.EXE and completely ignored by PLAY.EXE.
|
||
|
|
* Command 8 (set panning) uses 00-80 for regular panning and A4 for surround, probably
|
||
|
|
* making DSIK one of the first applications to use this particular encoding scheme still
|
||
|
|
* used in "extended" S3Ms today.
|
||
|
|
* Authors: OpenMPT Devs
|
||
|
|
* The OpenMPT source code is released under the BSD license. Read LICENSE for more details.
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
#include "stdafx.h"
|
||
|
|
#include "Loaders.h"
|
||
|
|
|
||
|
|
OPENMPT_NAMESPACE_BEGIN
|
||
|
|
|
||
|
|
struct DSMChunk
|
||
|
|
{
|
||
|
|
char magic[4];
|
||
|
|
uint32le size;
|
||
|
|
};
|
||
|
|
|
||
|
|
MPT_BINARY_STRUCT(DSMChunk, 8)
|
||
|
|
|
||
|
|
|
||
|
|
struct DSMSongHeader
|
||
|
|
{
|
||
|
|
char songName[28];
|
||
|
|
uint16le fileVersion;
|
||
|
|
uint16le flags;
|
||
|
|
uint16le orderPos;
|
||
|
|
uint16le restartPos;
|
||
|
|
uint16le numOrders;
|
||
|
|
uint16le numSamples;
|
||
|
|
uint16le numPatterns;
|
||
|
|
uint16le numChannels;
|
||
|
|
uint8le globalVol;
|
||
|
|
uint8le mastervol;
|
||
|
|
uint8le speed;
|
||
|
|
uint8le bpm;
|
||
|
|
uint8le panPos[16];
|
||
|
|
uint8le orders[128];
|
||
|
|
};
|
||
|
|
|
||
|
|
MPT_BINARY_STRUCT(DSMSongHeader, 192)
|
||
|
|
|
||
|
|
|
||
|
|
struct DSMSampleHeader
|
||
|
|
{
|
||
|
|
char filename[13];
|
||
|
|
uint16le flags;
|
||
|
|
uint8le volume;
|
||
|
|
uint32le length;
|
||
|
|
uint32le loopStart;
|
||
|
|
uint32le loopEnd;
|
||
|
|
uint32le dataPtr; // Interal sample pointer during playback in DSIK
|
||
|
|
uint32le sampleRate;
|
||
|
|
char sampleName[28];
|
||
|
|
|
||
|
|
// Convert a DSM sample header to OpenMPT's internal sample header.
|
||
|
|
void ConvertToMPT(ModSample &mptSmp) const
|
||
|
|
{
|
||
|
|
mptSmp.Initialize();
|
||
|
|
mptSmp.filename = mpt::String::ReadBuf(mpt::String::nullTerminated, filename);
|
||
|
|
|
||
|
|
mptSmp.nC5Speed = sampleRate;
|
||
|
|
mptSmp.uFlags.set(CHN_LOOP, (flags & 1) != 0);
|
||
|
|
mptSmp.nLength = length;
|
||
|
|
mptSmp.nLoopStart = loopStart;
|
||
|
|
mptSmp.nLoopEnd = loopEnd;
|
||
|
|
mptSmp.nVolume = std::min(volume.get(), uint8(64)) * 4;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Retrieve the internal sample format flags for this sample.
|
||
|
|
SampleIO GetSampleFormat() const
|
||
|
|
{
|
||
|
|
SampleIO sampleIO(
|
||
|
|
SampleIO::_8bit,
|
||
|
|
SampleIO::mono,
|
||
|
|
SampleIO::littleEndian,
|
||
|
|
SampleIO::unsignedPCM);
|
||
|
|
if(flags & 0x40)
|
||
|
|
sampleIO |= SampleIO::deltaPCM; // fairlight.dsm by Comrade J
|
||
|
|
else if(flags & 0x02)
|
||
|
|
sampleIO |= SampleIO::signedPCM;
|
||
|
|
if(flags & 0x04)
|
||
|
|
sampleIO |= SampleIO::_16bit;
|
||
|
|
return sampleIO;
|
||
|
|
}
|
||
|
|
};
|
||
|
|
|
||
|
|
MPT_BINARY_STRUCT(DSMSampleHeader, 64)
|
||
|
|
|
||
|
|
|
||
|
|
struct DSMHeader
|
||
|
|
{
|
||
|
|
char fileMagic0[4];
|
||
|
|
char fileMagic1[4];
|
||
|
|
char fileMagic2[4];
|
||
|
|
};
|
||
|
|
|
||
|
|
MPT_BINARY_STRUCT(DSMHeader, 12)
|
||
|
|
|
||
|
|
|
||
|
|
static bool ValidateHeader(const DSMHeader &fileHeader)
|
||
|
|
{
|
||
|
|
if(!std::memcmp(fileHeader.fileMagic0, "RIFF", 4)
|
||
|
|
&& !std::memcmp(fileHeader.fileMagic2, "DSMF", 4))
|
||
|
|
{
|
||
|
|
// "Normal" DSM files with RIFF header
|
||
|
|
// <RIFF> <file size> <DSMF>
|
||
|
|
return true;
|
||
|
|
} else if(!std::memcmp(fileHeader.fileMagic0, "DSMF", 4))
|
||
|
|
{
|
||
|
|
// DSM files with alternative header
|
||
|
|
// <DSMF> <4 bytes, usually 4x NUL or RIFF> <file size> <4 bytes, usually DSMF but not always>
|
||
|
|
return true;
|
||
|
|
} else
|
||
|
|
{
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
CSoundFile::ProbeResult CSoundFile::ProbeFileHeaderDSM(MemoryFileReader file, const uint64 *pfilesize)
|
||
|
|
{
|
||
|
|
DSMHeader fileHeader;
|
||
|
|
if(!file.ReadStruct(fileHeader))
|
||
|
|
{
|
||
|
|
return ProbeWantMoreData;
|
||
|
|
}
|
||
|
|
if(!ValidateHeader(fileHeader))
|
||
|
|
{
|
||
|
|
return ProbeFailure;
|
||
|
|
}
|
||
|
|
if(std::memcmp(fileHeader.fileMagic0, "DSMF", 4) == 0)
|
||
|
|
{
|
||
|
|
if(!file.Skip(4))
|
||
|
|
{
|
||
|
|
return ProbeWantMoreData;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
DSMChunk chunkHeader;
|
||
|
|
if(!file.ReadStruct(chunkHeader))
|
||
|
|
{
|
||
|
|
return ProbeWantMoreData;
|
||
|
|
}
|
||
|
|
if(std::memcmp(chunkHeader.magic, "SONG", 4))
|
||
|
|
{
|
||
|
|
return ProbeFailure;
|
||
|
|
}
|
||
|
|
MPT_UNREFERENCED_PARAMETER(pfilesize);
|
||
|
|
return ProbeSuccess;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
bool CSoundFile::ReadDSM(FileReader &file, ModLoadingFlags loadFlags)
|
||
|
|
{
|
||
|
|
file.Rewind();
|
||
|
|
|
||
|
|
DSMHeader fileHeader;
|
||
|
|
if(!file.ReadStruct(fileHeader))
|
||
|
|
{
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
if(!ValidateHeader(fileHeader))
|
||
|
|
{
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
if(std::memcmp(fileHeader.fileMagic0, "DSMF", 4) == 0)
|
||
|
|
{
|
||
|
|
file.Skip(4);
|
||
|
|
}
|
||
|
|
DSMChunk chunkHeader;
|
||
|
|
if(!file.ReadStruct(chunkHeader))
|
||
|
|
{
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
// Technically, the song chunk could be anywhere in the file, but we're going to simplify
|
||
|
|
// things by not using a chunk header here and just expect it to be right at the beginning.
|
||
|
|
if(std::memcmp(chunkHeader.magic, "SONG", 4))
|
||
|
|
{
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
if(loadFlags == onlyVerifyHeader)
|
||
|
|
{
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
DSMSongHeader songHeader;
|
||
|
|
file.ReadStructPartial(songHeader, chunkHeader.size);
|
||
|
|
if(songHeader.numOrders > 128 || songHeader.numChannels > 16 || songHeader.numPatterns > 256 || songHeader.restartPos > 128)
|
||
|
|
{
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
InitializeGlobals(MOD_TYPE_DSM);
|
||
|
|
|
||
|
|
m_modFormat.formatName = U_("DSIK Format");
|
||
|
|
m_modFormat.type = U_("dsm");
|
||
|
|
m_modFormat.charset = mpt::Charset::CP437;
|
||
|
|
|
||
|
|
m_songName = mpt::String::ReadBuf(mpt::String::maybeNullTerminated, songHeader.songName);
|
||
|
|
m_nChannels = std::max(songHeader.numChannels.get(), uint16(1));
|
||
|
|
m_nDefaultSpeed = songHeader.speed;
|
||
|
|
m_nDefaultTempo.Set(songHeader.bpm);
|
||
|
|
m_nDefaultGlobalVolume = std::min(songHeader.globalVol.get(), uint8(64)) * 4u;
|
||
|
|
if(!m_nDefaultGlobalVolume) m_nDefaultGlobalVolume = MAX_GLOBAL_VOLUME;
|
||
|
|
if(songHeader.mastervol == 0x80)
|
||
|
|
{
|
||
|
|
m_nSamplePreAmp = std::min(256u / m_nChannels, 128u);
|
||
|
|
} else
|
||
|
|
{
|
||
|
|
m_nSamplePreAmp = songHeader.mastervol & 0x7F;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Read channel panning
|
||
|
|
for(CHANNELINDEX chn = 0; chn < 16; chn++)
|
||
|
|
{
|
||
|
|
ChnSettings[chn].Reset();
|
||
|
|
if(songHeader.panPos[chn] <= 0x80)
|
||
|
|
{
|
||
|
|
ChnSettings[chn].nPan = songHeader.panPos[chn] * 2;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
ReadOrderFromArray(Order(), songHeader.orders, songHeader.numOrders, 0xFF, 0xFE);
|
||
|
|
if(songHeader.restartPos < songHeader.numOrders)
|
||
|
|
Order().SetRestartPos(songHeader.restartPos);
|
||
|
|
|
||
|
|
// Read pattern and sample chunks
|
||
|
|
PATTERNINDEX patNum = 0;
|
||
|
|
while(file.ReadStruct(chunkHeader))
|
||
|
|
{
|
||
|
|
FileReader chunk = file.ReadChunk(chunkHeader.size);
|
||
|
|
|
||
|
|
if(!memcmp(chunkHeader.magic, "PATT", 4) && (loadFlags & loadPatternData))
|
||
|
|
{
|
||
|
|
// Read pattern
|
||
|
|
if(!Patterns.Insert(patNum, 64))
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
chunk.Skip(2);
|
||
|
|
|
||
|
|
ModCommand dummy = ModCommand::Empty();
|
||
|
|
ROWINDEX row = 0;
|
||
|
|
while(chunk.CanRead(1) && row < 64)
|
||
|
|
{
|
||
|
|
uint8 flag = chunk.ReadUint8();
|
||
|
|
if(!flag)
|
||
|
|
{
|
||
|
|
row++;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
CHANNELINDEX chn = (flag & 0x0F);
|
||
|
|
ModCommand &m = (chn < GetNumChannels() ? *Patterns[patNum].GetpModCommand(row, chn) : dummy);
|
||
|
|
|
||
|
|
if(flag & 0x80)
|
||
|
|
{
|
||
|
|
uint8 note = chunk.ReadUint8();
|
||
|
|
if(note)
|
||
|
|
{
|
||
|
|
if(note <= 12 * 9) note += 11 + NOTE_MIN;
|
||
|
|
m.note = note;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if(flag & 0x40)
|
||
|
|
{
|
||
|
|
m.instr = chunk.ReadUint8();
|
||
|
|
}
|
||
|
|
if (flag & 0x20)
|
||
|
|
{
|
||
|
|
m.volcmd = VOLCMD_VOLUME;
|
||
|
|
m.vol = std::min(chunk.ReadUint8(), uint8(64));
|
||
|
|
}
|
||
|
|
if(flag & 0x10)
|
||
|
|
{
|
||
|
|
auto [command, param] = chunk.ReadArray<uint8, 2>();
|
||
|
|
switch(command)
|
||
|
|
{
|
||
|
|
// Portamentos
|
||
|
|
case 0x11:
|
||
|
|
case 0x12:
|
||
|
|
command &= 0x0F;
|
||
|
|
break;
|
||
|
|
// 3D Sound (?)
|
||
|
|
case 0x13:
|
||
|
|
command = 'X' - 55;
|
||
|
|
param = 0x91;
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
// Volume + Offset (?)
|
||
|
|
if(command > 0x10)
|
||
|
|
command = ((command & 0xF0) == 0x20) ? 0x09 : 0xFF;
|
||
|
|
}
|
||
|
|
m.command = command;
|
||
|
|
m.param = param;
|
||
|
|
ConvertModCommand(m);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
patNum++;
|
||
|
|
} else if(!memcmp(chunkHeader.magic, "INST", 4) && CanAddMoreSamples())
|
||
|
|
{
|
||
|
|
// Read sample
|
||
|
|
m_nSamples++;
|
||
|
|
ModSample &sample = Samples[m_nSamples];
|
||
|
|
|
||
|
|
DSMSampleHeader sampleHeader;
|
||
|
|
chunk.ReadStruct(sampleHeader);
|
||
|
|
sampleHeader.ConvertToMPT(sample);
|
||
|
|
|
||
|
|
m_szNames[m_nSamples] = mpt::String::ReadBuf(mpt::String::maybeNullTerminated, sampleHeader.sampleName);
|
||
|
|
|
||
|
|
if(loadFlags & loadSampleData)
|
||
|
|
{
|
||
|
|
sampleHeader.GetSampleFormat().ReadSample(sample, chunk);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
OPENMPT_NAMESPACE_END
|