/*
OFDM modem encoder

Copyright 2021 Ahmet Inan <inan@aicodix.de>
*/

#include <iomanip>
#include <iostream>
#include <cstdint>
#include <cassert>
#include <cmath>
#include "common.hh"
#include "xorshift.hh"
#include "complex.hh"
#include "utils.hh"
#include "quick.hh"
#include "bitman.hh"
#include "decibel.hh"
#include "fft.hh"
#include "wav.hh"
#include "pcm.hh"
#include "mls.hh"
#include "psk.hh"
#include "qam.hh"
#include "polar_encoder.hh"

template <typename value, typename cmplx, int rate>
struct Encoder : public Common
{
	typedef int8_t code_type;
	static const int guard_len = rate / 300;
	static const int symbol_len = guard_len * 40;
	DSP::WritePCM<value> *pcm;
	DSP::FastFourierTransform<symbol_len, cmplx, -1> fwd;
	DSP::FastFourierTransform<symbol_len, cmplx, 1> bwd;
	CODE::PolarEncoder<code_type> polar_encoder;
	code_type code[bits_max], perm[bits_max], mesg[bits_max], meta[256];
	cmplx fdom[symbol_len];
	cmplx tdom[symbol_len];
	cmplx test[symbol_len];
	cmplx kern[symbol_len];
	cmplx guard[guard_len];
	cmplx tone[tone_count];
	cmplx temp[tone_count];
	value weight[guard_len];
	value papr[symbols_max];

	static int bin(int carrier)
	{
		return (carrier + symbol_len) % symbol_len;
	}
	static int nrz(bool bit)
	{
		return 1 - 2 * bit;
	}
	void clipping_and_filtering(value scale)
	{
		for (int i = 0; i < symbol_len; ++i) {
			value pwr = norm(tdom[i]);
			if (pwr > value(1))
				tdom[i] /= sqrt(pwr);
		}
		fwd(fdom, tdom);
		for (int i = 0; i < symbol_len; ++i) {
			int j = bin(i + tone_off);
			if (i >= tone_count)
				fdom[j] = 0;
			else
				fdom[j] *= 1 / (scale * symbol_len);
		}
		bwd(tdom, fdom);
		for (int i = 0; i < symbol_len; ++i)
			tdom[i] *= scale;
		auto clamp = [](value v){ return v < value(-1) ? value(-1) : v > value(1) ? value(1) : v; };
		for (int i = 0; i < symbol_len; ++i)
			tdom[i] = cmplx(clamp(tdom[i].real()), clamp(tdom[i].imag()));
	}
	void symbol(int symbol_number)
	{
		value scale = value(0.5) / std::sqrt(value(tone_count));
		if (symbol_number < 0) {
			for (int i = 0; i < symbol_len; ++i)
				fdom[i] = 0;
			for (int i = 0; i < tone_count; ++i)
				fdom[bin(i+tone_off)] = tone[i];
			bwd(tdom, fdom);
			for (int i = 0; i < symbol_len; ++i)
				tdom[i] *= scale;
		} else {
			value best_papr = 1000;
			CODE::XorShiftMask<int, 14, 1, 5, 10, 1> combination;
			for (int trial = 0; trial < 4096; ++trial) {
				for (int i = 0; i < tone_count; ++i)
					temp[i] = tone[i];
				int comb = combination();
				int head_data = trial >> 6;
				hadamard_encoder(head, head_data);
				int tail_data = trial & 63;
				hadamard_encoder(tail, tail_data);
				int poly_index = comb & 15;
				int seed_value = comb >> 4;
				if (seed_value == 0)
					continue;
				CODE::MLS seq(slm_poly[poly_index], seed_value);
				for (int i = 0, m = 0, s = 0; i < tone_count; ++i)
					if (i % block_length == head_off)
						temp[i] *= head[m++];
					else if (i % block_length == tail_off)
						temp[i] *= tail[s++];
					else
						temp[i] *= nrz(seq());
				for (int i = 0; i < symbol_len; ++i)
					fdom[i] = 0;
				for (int i = 0; i < tone_count; ++i)
					fdom[bin(i+tone_off)] = temp[i];
				bwd(test, fdom);
				for (int i = 0; i < symbol_len; ++i)
					test[i] *= scale;
				value peak = 0, mean = 0;
				for (int i = 0; i < symbol_len; ++i) {
					value power(norm(test[i]));
					peak = std::max(peak, power);
					mean += power;
				}
				mean /= symbol_len;
				value test_papr(peak / mean);
				if (test_papr < best_papr) {
					best_papr = test_papr;
					papr[symbol_number] = test_papr;
					for (int i = 0; i < symbol_len; ++i)
						tdom[i] = test[i];
					if (test_papr < 5)
						break;
				}
			}
		}
		clipping_and_filtering(scale);
		if (symbol_number != -1) {
			for (int i = 0; i < guard_len; ++i)
				guard[i] = DSP::lerp(guard[i], tdom[i+symbol_len-guard_len], weight[i]);
			pcm->write(reinterpret_cast<value *>(guard), guard_len, 2);
		}
		for (int i = 0; i < guard_len; ++i)
			guard[i] = tdom[i];
		pcm->write(reinterpret_cast<value *>(tdom), symbol_len, 2);
	}
	void finish()
	{
		for (int i = 0; i < guard_len; ++i)
			guard[i] *= 1 - weight[i];
		pcm->write(reinterpret_cast<value *>(guard), guard_len, 2);
		for (int i = 0; i < guard_len; ++i)
			guard[i] = 0;
	}
	void leading_noise(int num = 1)
	{
		CODE::MLS noise(mls2_poly);
		for (int j = 0; j < num; ++j) {
			for (int i = 0; i < tone_count; ++i)
				tone[i] = nrz(noise());
			symbol(-3);
		}
	}
	void schmidl_cox()
	{
		CODE::MLS seq0(mls0_poly, mls0_seed);
		for (int i = 0; i < tone_count; ++i)
			tone[i] = nrz(seq0());
		symbol(-2);
		symbol(-1);
	}
	void meta_data(uint64_t md)
	{
		for (int i = 0; i < 55; ++i)
			mesg[i] = nrz((md >> i) & 1);
		crc0.reset();
		crc0(md << 9);
		for (int i = 0; i < 16; ++i)
			mesg[i+55] = nrz((crc0() >> i) & 1);
		polar_encoder(code, mesg, frozen_256_71, 8);
		shuffle(meta, code, 8);
	}
	cmplx map_bits(code_type *b, int bits)
	{
		switch (bits) {
		case 1:
			return PhaseShiftKeying<2, cmplx, code_type>::map(b);
		case 2:
			return PhaseShiftKeying<4, cmplx, code_type>::map(b);
		case 3:
			return PhaseShiftKeying<8, cmplx, code_type>::map(b);
		case 4:
			return QuadratureAmplitudeModulation<16, cmplx, code_type>::map(b);
		case 6:
			return QuadratureAmplitudeModulation<64, cmplx, code_type>::map(b);
		case 8:
			return QuadratureAmplitudeModulation<256, cmplx, code_type>::map(b);
		case 10:
			return QuadratureAmplitudeModulation<1024, cmplx, code_type>::map(b);
		case 12:
			return QuadratureAmplitudeModulation<4096, cmplx, code_type>::map(b);
		}
		return 0;
	}
	value mod_distance()
	{
		switch (mod_bits) {
		case 1:
			return PhaseShiftKeying<2, cmplx, code_type>::DIST;
		case 2:
			return PhaseShiftKeying<4, cmplx, code_type>::DIST;
		case 3:
			return PhaseShiftKeying<8, cmplx, code_type>::DIST;
		case 4:
			return QuadratureAmplitudeModulation<16, cmplx, code_type>::DIST;
		case 6:
			return QuadratureAmplitudeModulation<64, cmplx, code_type>::DIST;
		case 8:
			return QuadratureAmplitudeModulation<256, cmplx, code_type>::DIST;
		case 10:
			return QuadratureAmplitudeModulation<1024, cmplx, code_type>::DIST;
		case 12:
			return QuadratureAmplitudeModulation<4096, cmplx, code_type>::DIST;
		}
		return 2;
	}
	void shuffle(code_type *dest, const code_type *src, int order)
	{
		if (order == 8) {
			CODE::XorShiftMask<int, 8, 1, 1, 2, 1> seq;
			dest[0] = src[0];
			for (int i = 1; i < 256; ++i)
				dest[i] = src[seq()];
		} else if (order == 11) {
			CODE::XorShiftMask<int, 11, 1, 3, 4, 1> seq;
			dest[0] = src[0];
			for (int i = 1; i < 2048; ++i)
				dest[i] = src[seq()];
		} else if (order == 12) {
			CODE::XorShiftMask<int, 12, 1, 1, 4, 1> seq;
			dest[0] = src[0];
			for (int i = 1; i < 4096; ++i)
				dest[i] = src[seq()];
		} else if (order == 13) {
			CODE::XorShiftMask<int, 13, 1, 1, 9, 1> seq;
			dest[0] = src[0];
			for (int i = 1; i < 8192; ++i)
				dest[i] = src[seq()];
		} else if (order == 14) {
			CODE::XorShiftMask<int, 14, 1, 5, 10, 1> seq;
			dest[0] = src[0];
			for (int i = 1; i < 16384; ++i)
				dest[i] = src[seq()];
		} else if (order == 15) {
			CODE::XorShiftMask<int, 15, 1, 1, 3, 1> seq;
			dest[0] = src[0];
			for (int i = 1; i < 32768; ++i)
				dest[i] = src[seq()];
		} else if (order == 16) {
			CODE::XorShiftMask<int, 16, 1, 1, 14, 1> seq;
			dest[0] = src[0];
			for (int i = 1; i < 65536; ++i)
				dest[i] = src[seq()];
		}
	}
	void guard_interval_weights()
	{
		for (int i = 0; i < guard_len / 4; ++i)
			weight[i] = 0;
		for (int i = guard_len / 4; i < guard_len / 4 + guard_len / 2; ++i) {
			value x = value(i - guard_len / 4) / value(guard_len / 2 - 1);
			weight[i] = value(0.5) * (value(1) - std::cos(DSP::Const<value>::Pi() * x));
		}
		for (int i = guard_len / 4 + guard_len / 2; i < guard_len; ++i)
			weight[i] = 1;
	}
	Encoder(DSP::WritePCM<value> *pcm, const char *const *input_names, int input_count, int freq_off, int64_t call_sign, int oper_mode) : pcm(pcm)
	{
		if (!setup(oper_mode))
			return;
		int offset = (freq_off * symbol_len) / rate;
		tone_off = offset - tone_count / 2;
		guard_interval_weights();
		meta_data((call_sign << 8) | oper_mode);
		leading_noise();
		for (int input_index = 0; input_index < input_count; ++input_index) {
			const char *input_name = input_names[input_index];
			if (input_count == 1 && input_name[0] == '-' && input_name[1] == 0)
				input_name = "/dev/stdin";
			std::ifstream input_file(input_name, std::ios::binary);
			if (input_file.bad()) {
				std::cerr << "Couldn't open file \"" << input_name << "\" for reading." << std::endl;
				continue;
			}
			for (int i = 0; i < data_bytes; ++i)
				data[i] = std::max(input_file.get(), 0);
			CODE::Xorshift32 scrambler;
			for (int i = 0; i < data_bytes; ++i)
				data[i] ^= scrambler();
			schmidl_cox();
			for (int i = 0; i < data_bits; ++i)
				mesg[i] = nrz(CODE::get_le_bit(data, i));
			crc1.reset();
			for (int i = 0; i < data_bytes; ++i)
				crc1(data[i]);
			for (int i = 0; i < 32; ++i)
				mesg[i+data_bits] = nrz((crc1()>>i)&1);
			polar_encoder(code, mesg, frozen_bits, code_order);
			shuffle(perm, code, code_order);
			CODE::MLS seq1(mls1_poly);
			for (int j = 0, k = 0, m = 0; j < symbol_count + 1; ++j) {
				head_off = (block_skew * j + first_head) % block_length;
				tail_off = (block_skew * j + first_tail) % block_length;
				for (int i = 0; i < tone_count; ++i) {
					if (i % block_length == head_off || i % block_length == tail_off) {
						tone[i] = nrz(seq1());
					} else if (j) {
						int bits = mod_bits;
						if (mod_bits == 3 && k % 32 == 30)
							bits = 2;
						if (mod_bits == 6 && k % 64 == 60)
							bits = 4;
						if (mod_bits == 10 && k % 128 == 120)
							bits = 8;
						if (mod_bits == 12 && k % 128 == 120)
							bits = 8;
						tone[i] = map_bits(perm+k, bits);
						k += bits;
					} else {
						tone[i] = map_bits(meta+m++, 1);
					}
				}
				symbol(j);
			}
			DSP::quick_sort(papr, symbol_count + 1);
			std::cerr << "PAPR (dB): " << DSP::decibel(papr[0]) << " .. " << DSP::decibel(papr[symbol_count/2]) << " .. " << DSP::decibel(papr[symbol_count]) << std::endl;
		}
		finish();
	}
};

int64_t base37_encoder(const char *str)
{
	int64_t acc = 0;
	for (char c = *str++; c; c = *str++) {
		acc *= 37;
		if (c >= '0' && c <= '9')
			acc += c - '0' + 1;
		else if (c >= 'a' && c <= 'z')
			acc += c - 'a' + 11;
		else if (c >= 'A' && c <= 'Z')
			acc += c - 'A' + 11;
		else if (c != ' ')
			return -1;
	}
	return acc;
}

int main(int argc, char **argv)
{
	if (argc < 11) {
		std::cerr << "usage: " << argv[0] << " OUTPUT RATE BITS CHANNELS OFFSET CALLSIGN MODULATION CODERATE FRAMESIZE INPUT.." << std::endl;
		return 1;
	}

	const char *output_name = argv[1];
	if (output_name[0] == '-' && output_name[1] == 0)
		output_name = "/dev/stdout";
	int output_rate = std::atoi(argv[2]);
	int output_bits = std::atoi(argv[3]);
	int output_chan = std::atoi(argv[4]);

	int freq_off = std::atoi(argv[5]);
	if (freq_off % 300) {
		std::cerr << "Frequency offset must be divisible by 300." << std::endl;
		return 1;
	}
	int64_t call_sign = base37_encoder(argv[6]);
	if (call_sign <= 0 || call_sign >= 129961739795077L) {
		std::cerr << "Unsupported call sign." << std::endl;
		return 1;
	}
	int oper_mode = 0;
	char *modulation = argv[7];
	if (!strcmp(modulation, "BPSK")) {
		oper_mode |= 0 << 4;
	} else if (!strcmp(modulation, "QPSK")) {
		oper_mode |= 1 << 4;
	} else if (!strcmp(modulation, "8PSK")) {
		oper_mode |= 2 << 4;
	} else if (!strcmp(modulation, "QAM16")) {
		oper_mode |= 3 << 4;
	} else if (!strcmp(modulation, "QAM64")) {
		oper_mode |= 4 << 4;
	} else if (!strcmp(modulation, "QAM256")) {
		oper_mode |= 5 << 4;
	} else if (!strcmp(modulation, "QAM1024")) {
		oper_mode |= 6 << 4;
	} else if (!strcmp(modulation, "QAM4096")) {
		oper_mode |= 7 << 4;
	} else {
		std::cerr << "Unsupported modulation." << std::endl;
		return 1;
	}
	char *code_rate = argv[8];
	if (!strcmp(code_rate, "1/2")) {
		oper_mode |= 0 << 1;
	} else if (!strcmp(code_rate, "2/3")) {
		oper_mode |= 1 << 1;
	} else if (!strcmp(code_rate, "3/4")) {
		oper_mode |= 2 << 1;
	} else if (!strcmp(code_rate, "5/6")) {
		oper_mode |= 3 << 1;
	} else {
		std::cerr << "Unsupported code rate." << std::endl;
		return 1;
	}
	char *frame_size = argv[9];
	if (!strcmp(frame_size, "short")) {
		oper_mode |= 0;
	} else if (!strcmp(frame_size, "normal")) {
		oper_mode |= 1;
	} else {
		std::cerr << "Unsupported frame size." << std::endl;
		return 1;
	}
	int band_width = 2400;
	if ((output_chan == 1 && freq_off < band_width / 2) || freq_off < band_width / 2 - output_rate / 2 || freq_off > output_rate / 2 - band_width / 2) {
		std::cerr << "Unsupported frequency offset." << std::endl;
		return 1;
	}
	std::cerr << std::fixed << std::setprecision(1);
	typedef float value;
	typedef DSP::Complex<value> cmplx;
	DSP::WriteWAV<value> output_file(output_name, output_rate, output_bits, output_chan);
	output_file.silence(output_rate);
	int input_count = argc - 10;
	switch (output_rate) {
	case 44100:
		delete new Encoder<value, cmplx, 44100>(&output_file, argv + 10, input_count, freq_off, call_sign, oper_mode);
		break;
	case 48000:
		delete new Encoder<value, cmplx, 48000>(&output_file, argv + 10, input_count, freq_off, call_sign, oper_mode);
		break;
	default:
		std::cerr << "Unsupported sample rate." << std::endl;
		return 1;
	}
	output_file.silence(output_rate);

	return 0;
}