/**

 * DJM-Fix

 * Copyright © 2020 František Kučera (Frantovo.cz, GlobalCode.info)

 *

 * 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, version 3 of the License.

 *

 * 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, see <http://www.gnu.org/licenses/>.

 */

#include <iostream>

#include <stdexcept>

#include <thread>

#include <mutex>

#include <atomic>

#include <regex>

#include <alsa/asoundlib.h>

#include "AlsaBridge.h"

namespace djmfix {

namespace alsa {

class AlsaBridgeImpl : public AlsaBridge, private djmfix::MidiSender {

private:

	djmfix::DJMFix* djmFix;

	snd_rawmidi_t* input;

	snd_rawmidi_t* output;

	std::thread receivingThread;

	std::recursive_mutex midiMutex;

	std::atomic<bool> stopped{false};

	std::string findDeviceName(std::regex cardNamePattern) {

		std::vector<int> cardNumbers;

		std::cerr << "Looking for available cards:" << std::endl; // TODO: do not mess STDIO

		for (int card = -1; snd_card_next(&card) == 0 && card >= 0;) {

			char* longName = nullptr;

			snd_card_get_longname(card, &longName);

			std::cerr << "card: #" << card << ": '" << longName << "'"; // TODO: do not mess STDIO

			if (std::regex_match(longName, cardNamePattern)) {

				cardNumbers.push_back(card);

				std::cerr << " [matches]"; // TODO: do not mess STDIO

			}

			std::cerr << std::endl;

			free(longName);

		}

		if (cardNumbers.size() == 1) {

			std::cerr << "Going to fix card #" << cardNumbers[0] << std::endl; // TODO: do not mess STDIO

			return "hw:" + std::to_string(cardNumbers[0]);

		} else if (cardNumbers.empty()) {

			throw std::invalid_argument("No card with matching name found. Is the card connected? Maybe try to provide different name pattern.");

		} else {

			throw std::invalid_argument("Multiple cards with matching name found. Please provide a name pattern that matches only one card");

		}

	}

	void run() {

		while (!stopped) {

			{

				std::lock_guard<std::recursive_mutex> lock(midiMutex);

				// TODO: poll

				uint8_t buffer[256];

				ssize_t length = snd_rawmidi_read(input, buffer, sizeof (buffer));

				if (length > 0 && length <= sizeof (buffer)) {

					// TODO: multiple messages combined together?

					djmFix->receive(MidiMessage(buffer, buffer + length));

				}

			}

			std::this_thread::sleep_for(std::chrono::milliseconds(100));

		}

	}

public:

	AlsaBridgeImpl(djmfix::DJMFix* djmFix, const std::string& cardNamePattern) : djmFix(djmFix) {

		if (djmFix == nullptr) throw std::invalid_argument("need a djmFix for AlsaBridge");

		std::string deviceName = findDeviceName(std::regex(cardNamePattern));

		int error = snd_rawmidi_open(&input, &output, deviceName.c_str(), SND_RAWMIDI_NONBLOCK);

		if (error) throw std::invalid_argument("unable to open ALSA device");

		djmFix->setMidiSender(this);

	}

	virtual ~AlsaBridgeImpl() {

		// TODO: do not use raw/exclusive access to the device

		snd_rawmidi_close(input);

		snd_rawmidi_close(output);

		std::cerr << "~AlsaBridgeImpl()" << std::endl; // TODO: do not mess STDIO

	}

	virtual void start() override {

		djmFix->start();

		receivingThread = std::thread(&AlsaBridgeImpl::run, this);

	}

	virtual void stop() override {

		stopped = true;

		receivingThread.join();

		djmFix->stop();

	}

	virtual void send(MidiMessage midiMessage) override {

		std::lock_guard<std::recursive_mutex> lock(midiMutex);

		ssize_t length = snd_rawmidi_write(output, midiMessage.data(), midiMessage.size());

		std::cerr << "AlsaBridgeImpl::send(): length = " << length << std::endl; // TODO: do not mess STDIO

	}

};

AlsaBridge* create(djmfix::DJMFix* djmFix, const std::string& deviceName) {

	return new AlsaBridgeImpl(djmFix, deviceName);

}

}

}