mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-21 01:08:25 +00:00
6c3e05e678
A mistake in commit 3dc788da63
384 lines
9.9 KiB
C++
384 lines
9.9 KiB
C++
/* ScummVM - Graphic Adventure Engine
|
|
*
|
|
* ScummVM is the legal property of its developers, whose names
|
|
* are too numerous to list here. Please refer to the COPYRIGHT
|
|
* file distributed with this source distribution.
|
|
*
|
|
* This program is free software; you can redistribute it and/or
|
|
* 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.
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
*
|
|
*/
|
|
|
|
#include "audio/midiparser.h"
|
|
#include "common/textconsole.h"
|
|
#include "common/util.h"
|
|
|
|
/**
|
|
* The Standard MIDI File version of MidiParser.
|
|
*/
|
|
class MidiParser_SMF : public MidiParser {
|
|
protected:
|
|
byte *_buffer;
|
|
bool _malformedPitchBends;
|
|
|
|
protected:
|
|
void compressToType0();
|
|
void parseNextEvent(EventInfo &info);
|
|
|
|
public:
|
|
MidiParser_SMF() : _buffer(0), _malformedPitchBends(false) {}
|
|
~MidiParser_SMF();
|
|
|
|
bool loadMusic(byte *data, uint32 size);
|
|
void property(int property, int value);
|
|
};
|
|
|
|
|
|
static const byte commandLengths[8] = { 3, 3, 3, 3, 2, 2, 3, 0 };
|
|
static const byte specialLengths[16] = { 0, 2, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0 };
|
|
|
|
MidiParser_SMF::~MidiParser_SMF() {
|
|
free(_buffer);
|
|
}
|
|
|
|
void MidiParser_SMF::property(int prop, int value) {
|
|
switch (prop) {
|
|
case mpMalformedPitchBends:
|
|
_malformedPitchBends = (value > 0);
|
|
break;
|
|
default:
|
|
MidiParser::property(prop, value);
|
|
break;
|
|
}
|
|
}
|
|
|
|
void MidiParser_SMF::parseNextEvent(EventInfo &info) {
|
|
info.start = _position._playPos;
|
|
info.delta = readVLQ(_position._playPos);
|
|
|
|
// Process the next info. If mpMalformedPitchBends
|
|
// was set, we must skip over any pitch bend events
|
|
// because they are from Simon games and are not
|
|
// real pitch bend events, they're just two-byte
|
|
// prefixes before the real info.
|
|
do {
|
|
if ((_position._playPos[0] & 0xF0) >= 0x80)
|
|
info.event = *(_position._playPos++);
|
|
else
|
|
info.event = _position._runningStatus;
|
|
} while (_malformedPitchBends && (info.event & 0xF0) == 0xE0 && _position._playPos++);
|
|
if (info.event < 0x80)
|
|
return;
|
|
|
|
_position._runningStatus = info.event;
|
|
switch (info.command()) {
|
|
case 0x9: // Note On
|
|
info.basic.param1 = *(_position._playPos++);
|
|
info.basic.param2 = *(_position._playPos++);
|
|
if (info.basic.param2 == 0)
|
|
info.event = info.channel() | 0x80;
|
|
info.length = 0;
|
|
break;
|
|
|
|
case 0xC:
|
|
case 0xD:
|
|
info.basic.param1 = *(_position._playPos++);
|
|
info.basic.param2 = 0;
|
|
break;
|
|
|
|
case 0x8:
|
|
case 0xA:
|
|
case 0xB:
|
|
case 0xE:
|
|
info.basic.param1 = *(_position._playPos++);
|
|
info.basic.param2 = *(_position._playPos++);
|
|
info.length = 0;
|
|
break;
|
|
|
|
case 0xF: // System Common, Meta or SysEx event
|
|
switch (info.event & 0x0F) {
|
|
case 0x2: // Song Position Pointer
|
|
info.basic.param1 = *(_position._playPos++);
|
|
info.basic.param2 = *(_position._playPos++);
|
|
break;
|
|
|
|
case 0x3: // Song Select
|
|
info.basic.param1 = *(_position._playPos++);
|
|
info.basic.param2 = 0;
|
|
break;
|
|
|
|
case 0x6:
|
|
case 0x8:
|
|
case 0xA:
|
|
case 0xB:
|
|
case 0xC:
|
|
case 0xE:
|
|
info.basic.param1 = info.basic.param2 = 0;
|
|
break;
|
|
|
|
case 0x0: // SysEx
|
|
info.length = readVLQ(_position._playPos);
|
|
info.ext.data = _position._playPos;
|
|
_position._playPos += info.length;
|
|
break;
|
|
|
|
case 0xF: // META event
|
|
info.ext.type = *(_position._playPos++);
|
|
info.length = readVLQ(_position._playPos);
|
|
info.ext.data = _position._playPos;
|
|
_position._playPos += info.length;
|
|
break;
|
|
|
|
default:
|
|
warning("MidiParser_SMF::parseNextEvent: Unsupported event code %x", info.event);
|
|
}
|
|
}
|
|
}
|
|
|
|
bool MidiParser_SMF::loadMusic(byte *data, uint32 size) {
|
|
uint32 len;
|
|
byte midiType;
|
|
uint32 totalSize;
|
|
bool isGMF;
|
|
|
|
unloadMusic();
|
|
byte *pos = data;
|
|
isGMF = false;
|
|
|
|
if (!memcmp(pos, "RIFF", 4)) {
|
|
// Skip the outer RIFF header.
|
|
pos += 8;
|
|
}
|
|
|
|
if (!memcmp(pos, "MThd", 4)) {
|
|
// SMF with MTHd information.
|
|
pos += 4;
|
|
len = read4high(pos);
|
|
if (len != 6) {
|
|
warning("MThd length 6 expected but found %d", (int)len);
|
|
return false;
|
|
}
|
|
|
|
// Verify that this MIDI either is a Type 2
|
|
// or has only 1 track. We do not support
|
|
// multitrack Type 1 files.
|
|
_numTracks = pos[2] << 8 | pos[3];
|
|
midiType = pos[1];
|
|
if (midiType > 2 /*|| (midiType < 2 && _numTracks > 1)*/) {
|
|
warning("No support for a Type %d MIDI with %d tracks", (int)midiType, (int)_numTracks);
|
|
return false;
|
|
}
|
|
_ppqn = pos[4] << 8 | pos[5];
|
|
pos += len;
|
|
} else if (!memcmp(pos, "GMF\x1", 4)) {
|
|
// Older GMD/MUS file with no header info.
|
|
// Assume 1 track, 192 PPQN, and no MTrk headers.
|
|
isGMF = true;
|
|
midiType = 0;
|
|
_numTracks = 1;
|
|
_ppqn = 192;
|
|
pos += 7; // 'GMD\x1' + 3 bytes of useless (translate: unknown) information
|
|
} else {
|
|
warning("Expected MThd or GMD header but found '%c%c%c%c' instead", pos[0], pos[1], pos[2], pos[3]);
|
|
return false;
|
|
}
|
|
|
|
// Now we identify and store the location for each track.
|
|
if (_numTracks > ARRAYSIZE(_tracks)) {
|
|
warning("Can only handle %d tracks but was handed %d", (int)ARRAYSIZE(_tracks), (int)_numTracks);
|
|
return false;
|
|
}
|
|
|
|
totalSize = 0;
|
|
int tracksRead = 0;
|
|
while (tracksRead < _numTracks) {
|
|
if (memcmp(pos, "MTrk", 4) && !isGMF) {
|
|
warning("Position: %p ('%c')", pos, *pos);
|
|
warning("Hit invalid block '%c%c%c%c' while scanning for track locations", pos[0], pos[1], pos[2], pos[3]);
|
|
return false;
|
|
}
|
|
|
|
// If needed, skip the MTrk and length bytes
|
|
_tracks[tracksRead] = pos + (isGMF ? 0 : 8);
|
|
if (!isGMF) {
|
|
pos += 4;
|
|
len = read4high(pos);
|
|
totalSize += len;
|
|
pos += len;
|
|
} else {
|
|
// An SMF End of Track meta event must be placed
|
|
// at the end of the stream.
|
|
data[size++] = 0xFF;
|
|
data[size++] = 0x2F;
|
|
data[size++] = 0x00;
|
|
data[size++] = 0x00;
|
|
}
|
|
++tracksRead;
|
|
}
|
|
|
|
// If this is a Type 1 MIDI, we need to now compress
|
|
// our tracks down into a single Type 0 track.
|
|
free(_buffer);
|
|
_buffer = 0;
|
|
|
|
if (midiType == 1) {
|
|
// FIXME: Doubled the buffer size to prevent crashes with the
|
|
// Inherit the Earth MIDIs. Jamieson630 said something about a
|
|
// better fix, but this will have to do in the meantime.
|
|
_buffer = (byte *)malloc(size * 2);
|
|
compressToType0();
|
|
_numTracks = 1;
|
|
_tracks[0] = _buffer;
|
|
}
|
|
|
|
// Note that we assume the original data passed in
|
|
// will persist beyond this call, i.e. we do NOT
|
|
// copy the data to our own buffer. Take warning....
|
|
resetTracking();
|
|
setTempo(500000);
|
|
setTrack(0);
|
|
return true;
|
|
}
|
|
|
|
void MidiParser_SMF::compressToType0() {
|
|
// We assume that _buffer has been allocated
|
|
// to sufficient size for this operation.
|
|
|
|
// using 0xFF since it could write trackPos[0 to _numTracks] here
|
|
// this would cause some illegal writes and could lead to segfaults
|
|
// (it crashed for some midis for me, they're not used in any game
|
|
// scummvm supports though). *Maybe* handle this in another way,
|
|
// it's at the moment only to be sure, that nothing goes wrong.
|
|
byte *trackPos[0xFF];
|
|
byte runningStatus[0xFF];
|
|
uint32 trackTimer[0xFF];
|
|
uint32 delta;
|
|
int i;
|
|
|
|
for (i = 0; i < _numTracks; ++i) {
|
|
runningStatus[i] = 0;
|
|
trackPos[i] = _tracks[i];
|
|
trackTimer[i] = readVLQ(trackPos[i]);
|
|
runningStatus[i] = 0;
|
|
}
|
|
|
|
int bestTrack;
|
|
uint32 length;
|
|
byte *output = _buffer;
|
|
byte *pos, *pos2;
|
|
byte event;
|
|
uint32 copyBytes;
|
|
bool write;
|
|
byte activeTracks = (byte)_numTracks;
|
|
|
|
while (activeTracks) {
|
|
write = true;
|
|
bestTrack = 255;
|
|
for (i = 0; i < _numTracks; ++i) {
|
|
if (trackPos[i] && (bestTrack == 255 || trackTimer[i] < trackTimer[bestTrack]))
|
|
bestTrack = i;
|
|
}
|
|
if (bestTrack == 255) {
|
|
warning("Premature end of tracks");
|
|
break;
|
|
}
|
|
|
|
// Initial VLQ delta computation
|
|
delta = 0;
|
|
length = trackTimer[bestTrack];
|
|
for (i = 0; length; ++i) {
|
|
delta = (delta << 8) | (length & 0x7F) | (i ? 0x80 : 0);
|
|
length >>= 7;
|
|
}
|
|
|
|
// Process MIDI event.
|
|
bool implicitEvent = false;
|
|
copyBytes = 0;
|
|
pos = trackPos[bestTrack];
|
|
do {
|
|
event = *(pos++);
|
|
if (event < 0x80) {
|
|
event = runningStatus[bestTrack];
|
|
implicitEvent = true;
|
|
}
|
|
} while (_malformedPitchBends && (event & 0xF0) == 0xE0 && pos++);
|
|
runningStatus[bestTrack] = event;
|
|
|
|
if (commandLengths[(event >> 4) - 8] > 0) {
|
|
copyBytes = commandLengths[(event >> 4) - 8];
|
|
} else if (specialLengths[(event & 0x0F)] > 0) {
|
|
copyBytes = specialLengths[(event & 0x0F)];
|
|
} else if (event == 0xF0) {
|
|
// SysEx
|
|
pos2 = pos;
|
|
length = readVLQ(pos);
|
|
copyBytes = 1 + (pos - pos2) + length;
|
|
} else if (event == 0xFF) {
|
|
// META
|
|
event = *(pos++);
|
|
if (event == 0x2F && activeTracks > 1) {
|
|
trackPos[bestTrack] = 0;
|
|
write = false;
|
|
} else {
|
|
pos2 = pos;
|
|
length = readVLQ(pos);
|
|
copyBytes = 2 + (pos - pos2) + length;
|
|
}
|
|
if (event == 0x2F)
|
|
--activeTracks;
|
|
} else {
|
|
warning("Bad MIDI command %02X", (int)event);
|
|
trackPos[bestTrack] = 0;
|
|
}
|
|
|
|
// Update all tracks' deltas
|
|
if (write) {
|
|
for (i = 0; i < _numTracks; ++i) {
|
|
if (trackPos[i] && i != bestTrack)
|
|
trackTimer[i] -= trackTimer[bestTrack];
|
|
}
|
|
}
|
|
|
|
if (trackPos[bestTrack]) {
|
|
if (write) {
|
|
trackTimer[bestTrack] = 0;
|
|
|
|
// Write VLQ delta
|
|
while (delta & 0x80) {
|
|
*output++ = (byte)(delta & 0xFF);
|
|
delta >>= 8;
|
|
}
|
|
*output++ = (byte)(delta & 0xFF);
|
|
|
|
// Write MIDI data
|
|
if (!implicitEvent)
|
|
++trackPos[bestTrack];
|
|
--copyBytes;
|
|
*output++ = runningStatus[bestTrack];
|
|
memcpy(output, trackPos[bestTrack], copyBytes);
|
|
output += copyBytes;
|
|
}
|
|
|
|
// Fetch new VLQ delta for winning track
|
|
trackPos[bestTrack] += copyBytes;
|
|
if (activeTracks)
|
|
trackTimer[bestTrack] += readVLQ(trackPos[bestTrack]);
|
|
}
|
|
}
|
|
|
|
*output++ = 0x00;
|
|
}
|
|
|
|
MidiParser *MidiParser::createParser_SMF() { return new MidiParser_SMF; }
|