#include "stdafx.h"
#include "Emu/Cell/PPUModule.h"
#include "Emu/Cell/lv2/sys_rsxaudio.h"
#include "Emu/IdManager.h"
#include "Emu/System.h"
#include "Loader/PSF.h"

#include "cellAudioOut.h"
#include "cellAudio.h"

LOG_CHANNEL(cellSysutil);

template<>
void fmt_class_string<CellAudioOutError>::format(std::string& out, u64 arg)
{
	format_enum(out, arg, [](auto error)
	{
		switch (error)
		{
			STR_CASE(CELL_AUDIO_OUT_ERROR_NOT_IMPLEMENTED);
			STR_CASE(CELL_AUDIO_OUT_ERROR_ILLEGAL_CONFIGURATION);
			STR_CASE(CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER);
			STR_CASE(CELL_AUDIO_OUT_ERROR_PARAMETER_OUT_OF_RANGE);
			STR_CASE(CELL_AUDIO_OUT_ERROR_DEVICE_NOT_FOUND);
			STR_CASE(CELL_AUDIO_OUT_ERROR_UNSUPPORTED_AUDIO_OUT);
			STR_CASE(CELL_AUDIO_OUT_ERROR_UNSUPPORTED_SOUND_MODE);
			STR_CASE(CELL_AUDIO_OUT_ERROR_CONDITION_BUSY);
		}

		return unknown;
	});
}

audio_out_configuration::audio_out_configuration()
{
	CellAudioOutSoundMode mode{};

	audio_out& primary_output = out.at(CELL_AUDIO_OUT_PRIMARY);
	audio_out& secondary_output = out.at(CELL_AUDIO_OUT_SECONDARY);

	std::vector<CellAudioOutSoundMode>& primary_modes = primary_output.sound_modes;
	std::vector<CellAudioOutSoundMode>& secondary_modes = secondary_output.sound_modes;

	s32 sound_format = (1 << 0); // Linear PCM 2 Ch.

	const psf::registry psf = psf::load_object(fs::file(Emu.GetSfoDir() + "/PARAM.SFO"));
	if (psf.contains("SOUND_FORMAT")) sound_format = psf.at("SOUND_FORMAT").as_integer();

	const bool supports_lpcm_2   = (sound_format & (1 << 0)); // Linear PCM 2 Ch.
	const bool supports_lpcm_5_1 = (sound_format & (1 << 2)); // Linear PCM 5.1 Ch.
	const bool supports_lpcm_7_1 = (sound_format & (1 << 4)); // Linear PCM 7.1 Ch.
	const bool supports_dts      = (sound_format & (1 << 8)); // DTS 5.1 Ch.
	const bool supports_ac3      = (sound_format & (1 << 9)); // Dolby Digital 5.1 Ch.

	if (supports_lpcm_2)   cellSysutil.notice("cellAudioOut: found support for Linear PCM 2 Ch.");
	if (supports_lpcm_5_1) cellSysutil.notice("cellAudioOut: found support for Linear PCM 5.1 Ch.");
	if (supports_lpcm_7_1) cellSysutil.notice("cellAudioOut: found support for Linear PCM 7.1 Ch.");
	if (supports_dts)      cellSysutil.notice("cellAudioOut: found support for DTS 5.1 Ch.");
	if (supports_ac3)      cellSysutil.notice("cellAudioOut: found support for Dolby Digital 5.1 Ch.");

	// TODO: audio_format should be a bitmap, but we'll keep it simple for now (Linear PCM 2 Ch. 48 kHz should always exist)
	// TODO: more formats:
	// - Each LPCM with other sample frequencies (we currently only support 48 kHz)
	// - AAC
	// - Dolby Digital Plus
	// - Dolby TrueHD
	// - DTS-HD High Resolution Audio
	// - DTS-HD Master Audio
	// - ...
	switch (g_cfg.audio.format)
	{
	case audio_format::automatic: // Automatic based on supported formats
	{
		if (supports_lpcm_2) // Linear PCM 2 Ch.
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_LPCM;
			mode.channel = CELL_AUDIO_OUT_CHNUM_2;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_2CH;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}

		if (supports_lpcm_5_1) // Linear PCM 5.1 Ch.
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_LPCM;
			mode.channel = CELL_AUDIO_OUT_CHNUM_6;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_6CH_LREClr;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}

		if (supports_lpcm_7_1) // Linear PCM 7.1 Ch.
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_LPCM;
			mode.channel = CELL_AUDIO_OUT_CHNUM_8;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_8CH_LREClrxy;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}

		if (supports_dts) // DTS 5.1 Ch.
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_DTS;
			mode.channel = CELL_AUDIO_OUT_CHNUM_6;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_6CH_LREClr;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}

		if (supports_ac3) // Dolby Digital 5.1 Ch.
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_AC3;
			mode.channel = CELL_AUDIO_OUT_CHNUM_6;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_6CH_LREClr;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}

		break;
	}
	case audio_format::lpcm_2_48khz: // Linear PCM 2 Ch. 48 kHz
	{
		if (supports_lpcm_2)
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_LPCM;
			mode.channel = CELL_AUDIO_OUT_CHNUM_2;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_2CH;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}
		break;
	}
	case audio_format::lpcm_5_1_48khz: // Linear PCM 5.1 Ch. 48 kHz
	{
		if (supports_lpcm_5_1)
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_LPCM;
			mode.channel = CELL_AUDIO_OUT_CHNUM_6;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_6CH_LREClr;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}
		break;
	}
	case audio_format::lpcm_7_1_48khz: // Linear PCM 7.1 Ch. 48 kHz
	{
		if (supports_lpcm_7_1)
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_LPCM;
			mode.channel = CELL_AUDIO_OUT_CHNUM_8;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_8CH_LREClrxy;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}
		break;
	}
	case audio_format::dts: // DTS 5.1 Ch.
	{
		if (supports_dts)
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_DTS;
			mode.channel = CELL_AUDIO_OUT_CHNUM_6;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_6CH_LREClr;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}
		break;
	}
	case audio_format::ac3: // Dolby Digital 5.1 Ch.
	{
		if (supports_ac3)
		{
			mode.type = CELL_AUDIO_OUT_CODING_TYPE_AC3;
			mode.channel = CELL_AUDIO_OUT_CHNUM_6;
			mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
			mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_6CH_LREClr;

			primary_modes.push_back(mode);
			secondary_modes.push_back(mode);
		}
		break;
	}
	}

	// Fallback to default sound mode if none was found
	if (primary_modes.empty() || secondary_modes.empty())
	{
		mode.type = CELL_AUDIO_OUT_CODING_TYPE_LPCM;
		mode.channel = CELL_AUDIO_OUT_CHNUM_2;
		mode.fs = CELL_AUDIO_OUT_FS_48KHZ;
		mode.layout = CELL_AUDIO_OUT_SPEAKER_LAYOUT_2CH;

		if (primary_modes.empty())
		{
			primary_modes.push_back(mode);
			cellSysutil.warning("cellAudioOut: using Linear PCM 2 Ch. fallback sound mode for primary output");
		}

		if (secondary_modes.empty())
		{
			secondary_modes.push_back(mode);
			cellSysutil.warning("cellAudioOut: using Linear PCM 2 Ch. fallback sound mode for secondary output");
		}
	}

	// Pre-select the first available sound mode
	primary_output.channels   = primary_modes.front().channel;
	primary_output.encoder    = primary_modes.front().type;
	secondary_output.channels = secondary_modes.front().channel;
	secondary_output.encoder  = secondary_modes.front().type;

	cellSysutil.notice("cellAudioOut: initial primary output configuration: channels=%d, encoder=%d, downmixer=%d", primary_output.channels, primary_output.encoder, primary_output.downmixer);
	cellSysutil.notice("cellAudioOut: initial secondary output configuration: channels=%d, encoder=%d, downmixer=%d", secondary_output.channels, secondary_output.encoder, secondary_output.downmixer);
}

error_code cellAudioOutGetNumberOfDevice(u32 audioOut);

error_code cellAudioOutGetSoundAvailability(u32 audioOut, u32 type, u32 fs, u32 option)
{
	cellSysutil.warning("cellAudioOutGetSoundAvailability(audioOut=%d, type=%d, fs=0x%x, option=%d)", audioOut, type, fs, option);

	switch (audioOut)
	{
	case CELL_AUDIO_OUT_PRIMARY: break;
	default: return not_an_error(0);
	}

	s32 available = 0;

	// Check if the requested audio parameters are available and find the max supported channel count
	audio_out_configuration& cfg = g_fxo->get<audio_out_configuration>();
	std::lock_guard lock(cfg.mtx);
	audio_out_configuration::audio_out& out = cfg.out.at(audioOut);

	for (const CellAudioOutSoundMode& mode : out.sound_modes)
	{
		if (mode.type == type && static_cast<u32>(mode.fs) == fs)
		{
			available = std::max<u32>(available, mode.channel);
		}
	}

	return not_an_error(available);
}

error_code cellAudioOutGetSoundAvailability2(u32 audioOut, u32 type, u32 fs, u32 ch, u32 option)
{
	cellSysutil.warning("cellAudioOutGetSoundAvailability2(audioOut=%d, type=%d, fs=0x%x, ch=%d, option=%d)", audioOut, type, fs, ch, option);

	switch (audioOut)
	{
	case CELL_AUDIO_OUT_PRIMARY: break;
	default: return not_an_error(0);
	}

	// Check if the requested audio parameters are available
	audio_out_configuration& cfg = g_fxo->get<audio_out_configuration>();
	std::lock_guard lock(cfg.mtx);
	audio_out_configuration::audio_out& out = cfg.out.at(audioOut);

	for (const CellAudioOutSoundMode& mode : out.sound_modes)
	{
		if (mode.type == type && static_cast<u32>(mode.fs) == fs && mode.channel == ch)
		{
			return not_an_error(ch);
		}
	}

	return not_an_error(0);
}

error_code cellAudioOutGetState(u32 audioOut, u32 deviceIndex, vm::ptr<CellAudioOutState> state)
{
	cellSysutil.warning("cellAudioOutGetState(audioOut=0x%x, deviceIndex=0x%x, state=*0x%x)", audioOut, deviceIndex, state);

	if (!state)
	{
		return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
	}


	const auto num = cellAudioOutGetNumberOfDevice(audioOut);

	if (num < 0)
	{
		return num;
	}

	CellAudioOutState _state{};

	if (deviceIndex >= num + 0u)
	{
		if (audioOut == CELL_AUDIO_OUT_SECONDARY)
		{
			// Error codes are not returned here
			// Random (uninitialized) data from the stack seems to be returned here
			// Although it was constant on my tests so let's write that
			_state.state = 0x10;
			_state.soundMode.layout = 0xD00C1680;
			*state = _state;
			return CELL_OK;
		}

		return CELL_AUDIO_OUT_ERROR_PARAMETER_OUT_OF_RANGE;
	}

	switch (audioOut)
	{
	case CELL_AUDIO_OUT_PRIMARY:
	case CELL_AUDIO_OUT_SECONDARY:
	{
		const AudioChannelCnt channels = AudioBackend::get_channel_count();

		audio_out_configuration& cfg = g_fxo->get<audio_out_configuration>();
		std::lock_guard lock(cfg.mtx);
		audio_out_configuration::audio_out& out = cfg.out.at(audioOut);

		const auto it = std::find_if(out.sound_modes.cbegin(), out.sound_modes.cend(), [&channels, &out](const CellAudioOutSoundMode& mode)
		{
			return mode.type == out.encoder && mode.channel == static_cast<u8>(channels);
		});

		ensure(it != out.sound_modes.cend());

		_state.state = out.state;
		_state.encoder = out.encoder;
		_state.downMixer = out.downmixer;
		_state.soundMode = *it;
		break;
	}
	default:
		return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
	}

	*state = _state;
	return CELL_OK;
}

error_code cellAudioOutConfigure(u32 audioOut, vm::ptr<CellAudioOutConfiguration> config, vm::ptr<CellAudioOutOption> option, u32 waitForEvent)
{
	cellSysutil.warning("cellAudioOutConfigure(audioOut=%d, config=*0x%x, option=*0x%x, waitForEvent=%d)", audioOut, config, option, waitForEvent);

	if (!config)
	{
		return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
	}

	switch (audioOut)
	{
	case CELL_AUDIO_OUT_PRIMARY:
		break;
	case CELL_AUDIO_OUT_SECONDARY:
		return CELL_AUDIO_OUT_ERROR_UNSUPPORTED_AUDIO_OUT;
	default:
		return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
	}

	audio_out_configuration::audio_out out_old;
	audio_out_configuration::audio_out out_new;

	audio_out_configuration& cfg = g_fxo->get<audio_out_configuration>();
	{
		std::lock_guard lock(cfg.mtx);

		audio_out_configuration::audio_out& out = cfg.out.at(audioOut);

		if (out.sound_modes.cend() == std::find_if(out.sound_modes.cbegin(), out.sound_modes.cend(), [&config](const CellAudioOutSoundMode& mode)
			{
				return mode.channel == config->channel && mode.type == config->encoder && config->downMixer <= CELL_AUDIO_OUT_DOWNMIXER_TYPE_B;
			}))
		{
			return CELL_AUDIO_OUT_ERROR_ILLEGAL_CONFIGURATION; // TODO: confirm
		}

		out_old = out;

		out.channels = config->channel;
		out.encoder = config->encoder;
		out.downmixer = config->downMixer;

		out_new = out;
	}

	if (std::memcmp(&out_old, &out_new, sizeof(audio_out_configuration::audio_out)) != 0)
	{
		const auto reset_audio = [audioOut]() -> void
		{
			audio_out_configuration& cfg = g_fxo->get<audio_out_configuration>();
			{
				std::lock_guard lock(cfg.mtx);
				cfg.out.at(audioOut).state = CELL_AUDIO_OUT_OUTPUT_STATE_DISABLED;
			}

			audio::configure_audio();
			audio::configure_rsxaudio();

			{
				std::lock_guard lock(cfg.mtx);
				cfg.out.at(audioOut).state = CELL_AUDIO_OUT_OUTPUT_STATE_ENABLED;
			}
		};

		if (waitForEvent)
		{
			reset_audio();
		}
		else
		{
			Emu.CallFromMainThread(reset_audio);
		}
	}

	cellSysutil.notice("cellAudioOutConfigure: channels=%d, encoder=%d, downMixer=%d", config->channel, config->encoder, config->downMixer);

	return CELL_OK;
}

error_code cellAudioOutGetConfiguration(u32 audioOut, vm::ptr<CellAudioOutConfiguration> config, vm::ptr<CellAudioOutOption> option)
{
	cellSysutil.warning("cellAudioOutGetConfiguration(audioOut=%d, config=*0x%x, option=*0x%x)", audioOut, config, option);

	if (!config)
	{
		return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
	}

	switch (audioOut)
	{
	case CELL_AUDIO_OUT_PRIMARY:
		break;
	case CELL_AUDIO_OUT_SECONDARY:
		return CELL_AUDIO_OUT_ERROR_UNSUPPORTED_AUDIO_OUT;
	default:
		return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
	}

	audio_out_configuration& cfg = g_fxo->get<audio_out_configuration>();
	std::lock_guard lock(cfg.mtx);

	CellAudioOutConfiguration _config{};

	audio_out_configuration::audio_out& out = cfg.out.at(audioOut);
	_config.channel = out.channels;
	_config.encoder = out.encoder;
	_config.downMixer = out.downmixer;

	*config = _config;
	return CELL_OK;
}

error_code cellAudioOutGetNumberOfDevice(u32 audioOut)
{
	cellSysutil.warning("cellAudioOutGetNumberOfDevice(audioOut=%d)", audioOut);

	switch (audioOut)
	{
	case CELL_AUDIO_OUT_PRIMARY:
		return not_an_error(1);
	case CELL_AUDIO_OUT_SECONDARY:
		return not_an_error(0);
	default:
		break;
	}

	return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
}

error_code cellAudioOutGetDeviceInfo(u32 audioOut, u32 deviceIndex, vm::ptr<CellAudioOutDeviceInfo> info)
{
	cellSysutil.todo("cellAudioOutGetDeviceInfo(audioOut=%d, deviceIndex=%d, info=*0x%x)", audioOut, deviceIndex, info);

	if (!info)
	{
		return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
	}

	const auto num = cellAudioOutGetNumberOfDevice(audioOut);

	if (num < 0)
	{
		return num;
	}

	if (deviceIndex >= num + 0u)
	{
		if (audioOut == CELL_AUDIO_OUT_SECONDARY)
		{
			// Error codes are not returned here
			*info = {};
			return CELL_OK;
		}

		return CELL_AUDIO_OUT_ERROR_PARAMETER_OUT_OF_RANGE;
	}

	audio_out_configuration& cfg = g_fxo->get<audio_out_configuration>();
	std::lock_guard lock(cfg.mtx);
	ensure(audioOut < cfg.out.size());
	audio_out_configuration::audio_out& out = cfg.out.at(audioOut);
	ensure(out.sound_modes.size() <= 16);

	CellAudioOutDeviceInfo _info{};

	_info.portType = CELL_AUDIO_OUT_PORT_HDMI;
	_info.availableModeCount = ::narrow<u8>(out.sound_modes.size());
	_info.state = CELL_AUDIO_OUT_DEVICE_STATE_AVAILABLE;
	_info.latency = 1000;

	for (usz i = 0; i < out.sound_modes.size(); i++)
	{
		_info.availableModes[i] = out.sound_modes.at(i);
	}

	*info = _info;
	return CELL_OK;
}

error_code cellAudioOutSetCopyControl(u32 audioOut, u32 control)
{
	cellSysutil.warning("cellAudioOutSetCopyControl(audioOut=%d, control=%d)", audioOut, control);

	if (control > CELL_AUDIO_OUT_COPY_CONTROL_COPY_NEVER)
	{
		return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
	}

	switch (audioOut)
	{
	case CELL_AUDIO_OUT_PRIMARY:
		break;
	case CELL_AUDIO_OUT_SECONDARY:
		return CELL_AUDIO_OUT_ERROR_UNSUPPORTED_AUDIO_OUT;
	default:
		return CELL_AUDIO_OUT_ERROR_ILLEGAL_PARAMETER;
	}

	audio_out_configuration& cfg = g_fxo->get<audio_out_configuration>();
	std::lock_guard lock(cfg.mtx);

	cfg.out.at(audioOut).copy_control = control;

	return CELL_OK;
}

error_code cellAudioOutRegisterCallback()
{
	cellSysutil.todo("cellAudioOutRegisterCallback()");
	return CELL_OK;
}

error_code cellAudioOutUnregisterCallback()
{
	cellSysutil.todo("cellAudioOutUnregisterCallback()");
	return CELL_OK;
}


void cellSysutil_AudioOut_init()
{
	REG_FUNC(cellSysutil, cellAudioOutGetState);
	REG_FUNC(cellSysutil, cellAudioOutConfigure);
	REG_FUNC(cellSysutil, cellAudioOutGetSoundAvailability);
	REG_FUNC(cellSysutil, cellAudioOutGetSoundAvailability2);
	REG_FUNC(cellSysutil, cellAudioOutGetDeviceInfo);
	REG_FUNC(cellSysutil, cellAudioOutGetNumberOfDevice);
	REG_FUNC(cellSysutil, cellAudioOutGetConfiguration);
	REG_FUNC(cellSysutil, cellAudioOutSetCopyControl);
	REG_FUNC(cellSysutil, cellAudioOutRegisterCallback);
	REG_FUNC(cellSysutil, cellAudioOutUnregisterCallback);
}