//
// midiparser.cpp
//
// mt32-pi - A baremetal MIDI synthesizer for Raspberry Pi
// Copyright (C) 2020-2023 Dale Whinham <daleyo@gmail.com>
//
// This file is part of mt32-pi.
//
// mt32-pi 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 3 of the License, or (at your option) any later
// version.
//
// mt32-pi 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
// mt32-pi. If not, see <http://www.gnu.org/licenses/>.
//

#include <circle/logger.h>

#include "midiparser.h"

LOGMODULE("midiparser");

CMIDIParser::CMIDIParser()
	: m_State(TState::StatusByte),
	  m_MessageBuffer{0},
	  m_nMessageLength(0)
{
}

void CMIDIParser::ParseMIDIBytes(const u8* pData, size_t nSize, bool bIgnoreNoteOns)
{
	// Process MIDI messages
	// See: https://www.midi.org/specifications/item/table-1-summary-of-midi-message
	for (size_t i = 0; i < nSize; ++i)
	{
		u8 nByte = pData[i];

		// System Real-Time message - single byte, handle immediately
		// Can appear anywhere in the stream, even in between status/data bytes
		if (nByte >= 0xF8)
		{
			// Ignore undefined System Real-Time
			if (nByte != 0xF9 && nByte != 0xFD)
				OnShortMessage(nByte);

			continue;
		}

		switch (m_State)
		{
			// Expecting a status byte
			case TState::StatusByte:
				ParseStatusByte(nByte);
				break;

			// Expecting a data byte
			case TState::DataByte:
				// Expected a data byte, but received a status
				if (nByte & 0x80)
				{
					OnUnexpectedStatus();
					ResetState(true);
					ParseStatusByte(nByte);
					break;
				}

				m_MessageBuffer[m_nMessageLength++] = nByte;
				CheckCompleteShortMessage(bIgnoreNoteOns);
				break;

			// Expecting a SysEx data byte or EOX
			case TState::SysExByte:
				// Received a status that wasn't EOX
				if (nByte & 0x80 && nByte != 0xF7)
				{
					OnUnexpectedStatus();
					ResetState(true);
					ParseStatusByte(nByte);
					break;
				}

				// Buffer overflow
				if (m_nMessageLength == sizeof(m_MessageBuffer))
				{
					OnSysExOverflow();
					ResetState(true);
					ParseStatusByte(nByte);
					break;
				}

				m_MessageBuffer[m_nMessageLength++] = nByte;

				// End of SysEx
				if (nByte == 0xF7)
				{
					OnSysExMessage(m_MessageBuffer, m_nMessageLength);
					ResetState(true);
				}

				break;
		}
	}
}

void CMIDIParser::OnUnexpectedStatus()
{
	if (m_State == TState::SysExByte)
		LOGWARN("Received illegal status byte during SysEx message; SysEx ignored");
	else
		LOGWARN("Received illegal status byte when data expected");
}

void CMIDIParser::OnSysExOverflow()
{
	LOGWARN("Buffer overrun when receiving SysEx message; SysEx ignored");
}

void CMIDIParser::ParseStatusByte(u8 nByte)
{
	// Is it a status byte?
	if (nByte & 0x80)
	{
		switch (nByte)
		{
			// Invalid End of SysEx or undefined System Common message; ignore and clear running status
			case 0xF4:
			case 0xF5:
			case 0xF7:
				m_MessageBuffer[0] = 0;
				return;

			// Start of SysEx message
			case 0xF0:
				m_State = TState::SysExByte;
				break;

			// Tune Request - single byte, handle immediately and clear running status
			case 0xF6:
				OnShortMessage(nByte);
				m_MessageBuffer[0] = 0;
				break;

			// Channel or System Common message
			default:
				m_State = TState::DataByte;
				break;
		}

		m_MessageBuffer[m_nMessageLength++] = nByte;
	}

	// Data byte, use Running Status if we've stored a status byte
	else if (m_MessageBuffer[0])
	{
		m_MessageBuffer[1] = nByte;
		m_nMessageLength = 2;

		// We could have a complete 2-byte message, otherwise wait for third byte
		if (!CheckCompleteShortMessage())
			m_State = TState::DataByte;
	}
}

bool CMIDIParser::CheckCompleteShortMessage(bool bIgnoreNoteOns)
{
	const u8 nStatus = m_MessageBuffer[0];

	// MIDI message is complete if we receive 3 bytes,
	// or 2 bytes if it's a Program Change, Channel Pressure/Aftertouch, Time Code Quarter Frame, or Song Select
	if (m_nMessageLength == 3 ||
		(m_nMessageLength == 2 && ((nStatus >= 0xC0 && nStatus <= 0xDF) || nStatus == 0xF1 || nStatus == 0xF3)))
	{
		const bool bIsNoteOn = (nStatus & 0xF0) == 0x90;

		if (!(bIsNoteOn && bIgnoreNoteOns))
			OnShortMessage(PrepareShortMessage());

		// Clear running status if System Common
		ResetState(nStatus >= 0xF1 && nStatus <= 0xF7);
		return true;
	}

	return false;
}

u32 CMIDIParser::PrepareShortMessage() const
{
	assert(m_nMessageLength == 2 || m_nMessageLength == 3);

	u32 nMessage = 0;
	for (size_t i = 0; i < m_nMessageLength; ++i)
		nMessage |= m_MessageBuffer[i] << 8 * i;

	return nMessage;
}

void CMIDIParser::ResetState(bool bClearStatusByte)
{
	if (bClearStatusByte)
		m_MessageBuffer[0] = 0;

	m_nMessageLength = 0;
	m_State = TState::StatusByte;
}