using System.Diagnostics;
using System.Reactive;
using System.Reactive.Disposables;
using System.Reactive.Linq;
using System.Text;
using Microsoft.Extensions.Logging;
using Sharp7.Rx.Basics;
using Sharp7.Rx.Enums;
using Sharp7.Rx.Extensions;
using Sharp7.Rx.Interfaces;
using Sharp7.Rx.Settings;

namespace Sharp7.Rx;

public class Sharp7Plc : IPlc
{
    private readonly CompositeDisposable disposables = new();
    private readonly ConcurrentSubjectDictionary<string, byte[]> multiVariableSubscriptions = new(StringComparer.InvariantCultureIgnoreCase);
    private readonly List<long> performanceCoutner = new(1000);
    private readonly PlcConnectionSettings plcConnectionSettings;
    private readonly IS7VariableNameParser varaibleNameParser = new CacheVariableNameParser(new S7VariableNameParser());
    private bool disposed;
    private Sharp7Connector s7Connector;


    /// <summary>
    /// </summary>
    /// <param name="ipAddress"></param>
    /// <param name="rackNumber"></param>
    /// <param name="cpuMpiAddress"></param>
    /// <param name="port"></param>
    /// <param name="multiVarRequestCycleTime">
    ///     <para>
    ///         Polling interval used to read multi variable requests from PLC.
    ///     </para>
    ///     <para>
    ///         This is the wait time between two successive reads from PLC and determines the
    ///         time resolution for all variable reads reated with CreateNotification.
    ///     </para>
    ///     <para>
    ///         Default is 100 ms. The minimum supported time is 5 ms.
    ///     </para>
    /// </param>
    public Sharp7Plc(string ipAddress, int rackNumber, int cpuMpiAddress, int port = 102, TimeSpan? multiVarRequestCycleTime = null)
    {
        plcConnectionSettings = new PlcConnectionSettings {IpAddress = ipAddress, RackNumber = rackNumber, CpuMpiAddress = cpuMpiAddress, Port = port};
        s7Connector = new Sharp7Connector(plcConnectionSettings, varaibleNameParser);
        ConnectionState = s7Connector.ConnectionState;

        if (multiVarRequestCycleTime != null)
        {
            if (multiVarRequestCycleTime < TimeSpan.FromMilliseconds(5))
                MultiVarRequestCycleTime = TimeSpan.FromMilliseconds(5);
            else
                MultiVarRequestCycleTime = multiVarRequestCycleTime.Value;
        }
    }

    public IObservable<ConnectionState> ConnectionState { get; }

    public ILogger Logger
    {
        get => s7Connector.Logger;
        set => s7Connector.Logger = value;
    }

    public TimeSpan MultiVarRequestCycleTime { get; } = TimeSpan.FromSeconds(0.1);

    public int MultiVarRequestMaxItems { get; set; } = 16;

    public void Dispose()
    {
        Dispose(true);
        GC.SuppressFinalize(this);
    }

    public IObservable<TValue> CreateNotification<TValue>(string variableName, TransmissionMode transmissionMode)
    {
        return Observable.Create<TValue>(observer =>
        {
            var address = varaibleNameParser.Parse(variableName);
            if (address == null) throw new ArgumentException("Input variable name is not valid", nameof(variableName));

            var disposables = new CompositeDisposable();
            var disposeableContainer = multiVariableSubscriptions.GetOrCreateObservable(variableName);
            disposeableContainer.AddDisposableTo(disposables);

            var observable = disposeableContainer.Observable
                .Select(bytes => S7ValueConverter.ConvertToType<TValue>(bytes, address));

            if (transmissionMode == TransmissionMode.OnChange)
                observable = observable.DistinctUntilChanged();

            observable.Subscribe(observer)
                .AddDisposableTo(disposables);

            return disposables;
        });
    }

    public Task<TValue> GetValue<TValue>(string variableName)
    {
        return GetValue<TValue>(variableName, CancellationToken.None);
    }


    public Task SetValue<TValue>(string variableName, TValue value)
    {
        return SetValue(variableName, value, CancellationToken.None);
    }


    public async Task<TValue> GetValue<TValue>(string variableName, CancellationToken token)
    {
        var address = varaibleNameParser.Parse(variableName);
        if (address == null) throw new ArgumentException("Input variable name is not valid", nameof(variableName));

        var data = await s7Connector.ReadBytes(address.Operand, address.Start, address.Length, address.DbNr, token);
        return S7ValueConverter.ConvertToType<TValue>(data, address);
    }

    public async Task<bool> InitializeAsync()
    {
        await s7Connector.InitializeAsync();

#pragma warning disable 4014
        Task.Run(async () =>
        {
            try
            {
                await s7Connector.Connect();
            }
            catch (Exception e)
            {
                Logger?.LogError(e, "Error while connecting to PLC");
            }
        });
#pragma warning restore 4014

        RunNotifications(s7Connector, MultiVarRequestCycleTime)
            .AddDisposableTo(disposables);

        return true;
    }

    public async Task SetValue<TValue>(string variableName, TValue value, CancellationToken token)
    {
        var address = varaibleNameParser.Parse(variableName);
        if (address == null) throw new ArgumentException("Input variable name is not valid", "variableName");

        if (typeof(TValue) == typeof(bool))
        {
            await s7Connector.WriteBit(address.Operand, address.Start, address.Bit, (bool) (object) value, address.DbNr, token);
        }
        else if (typeof(TValue) == typeof(int) || typeof(TValue) == typeof(short))
        {
            byte[] bytes;
            if (address.Length == 4)
                bytes = BitConverter.GetBytes((int) (object) value);
            else
                bytes = BitConverter.GetBytes((short) (object) value);

            Array.Reverse(bytes);

            await s7Connector.WriteBytes(address.Operand, address.Start, bytes, address.DbNr, token);
        }
        else if (typeof(TValue) == typeof(byte) || typeof(TValue) == typeof(char))
        {
            var bytes = new[] {Convert.ToByte(value)};
            await s7Connector.WriteBytes(address.Operand, address.Start, bytes, address.DbNr, token);
        }
        else if (typeof(TValue) == typeof(byte[]))
        {
            await s7Connector.WriteBytes(address.Operand, address.Start, (byte[]) (object) value, address.DbNr, token);
        }
        else if (typeof(TValue) == typeof(float))
        {
            var buffer = new byte[sizeof(float)];
            buffer.SetRealAt(0, (float) (object) value);
            await s7Connector.WriteBytes(address.Operand, address.Start, buffer, address.DbNr, token);
        }
        else if (typeof(TValue) == typeof(string))
        {
            var stringValue = value as string;
            if (stringValue == null) throw new ArgumentException("Value must be of type string", "value");

            var bytes = Encoding.ASCII.GetBytes(stringValue);
            Array.Resize(ref bytes, address.Length);

            if (address.Type == DbType.String)
            {
                var bytesWritten = await s7Connector.WriteBytes(address.Operand, address.Start, new[] {(byte) address.Length, (byte) bytes.Length}, address.DbNr, token);
                token.ThrowIfCancellationRequested();
                if (bytesWritten == 2)
                {
                    var stringStartAddress = (ushort) (address.Start + 2);
                    token.ThrowIfCancellationRequested();
                    await s7Connector.WriteBytes(address.Operand, stringStartAddress, bytes, address.DbNr, token);
                }
            }
            else
            {
                await s7Connector.WriteBytes(address.Operand, address.Start, bytes, address.DbNr, token);
                token.ThrowIfCancellationRequested();
            }
        }
        else
        {
            throw new InvalidOperationException($"type '{typeof(TValue)}' not supported.");
        }
    }

    protected virtual void Dispose(bool disposing)
    {
        if (disposed) return;
        disposed = true;

        if (disposing)
        {
            disposables.Dispose();

            if (s7Connector != null)
            {
                s7Connector.Disconnect().Wait();
                s7Connector.Dispose();
                s7Connector = null;
            }

            multiVariableSubscriptions.Dispose();
        }
    }

    private async Task<Unit> GetAllValues(bool connected, IS7Connector connector)
    {
        if (!connected)
            return Unit.Default;

        if (multiVariableSubscriptions.ExistingKeys.IsEmpty())
            return Unit.Default;

        var stopWatch = Stopwatch.StartNew();
        foreach (var partsOfMultiVarRequest in multiVariableSubscriptions.ExistingKeys.Buffer(MultiVarRequestMaxItems))
        {
            var multiVarRequest = await connector.ExecuteMultiVarRequest(partsOfMultiVarRequest as IReadOnlyList<string>);

            foreach (var pair in multiVarRequest)
                if (multiVariableSubscriptions.TryGetObserver(pair.Key, out var subject))
                    subject.OnNext(pair.Value);
        }

        stopWatch.Stop();
        performanceCoutner.Add(stopWatch.ElapsedMilliseconds);

        PrintAndResetPerformanceStatistik();

        return Unit.Default;
    }

    private void PrintAndResetPerformanceStatistik()
    {
        if (performanceCoutner.Count == performanceCoutner.Capacity)
        {
            var average = performanceCoutner.Average();
            var min = performanceCoutner.Min();
            var max = performanceCoutner.Max();

            Logger?.LogTrace("Performance statistic during {0} elements of plc notification. Min: {1}, Max: {2}, Average: {3}, Plc: '{4}', Number of variables: {5}, Batch size: {6}",
                             performanceCoutner.Capacity, min, max, average, plcConnectionSettings.IpAddress,
                             multiVariableSubscriptions.ExistingKeys.Count(),
                             MultiVarRequestMaxItems);
            performanceCoutner.Clear();
        }
    }

    private IDisposable RunNotifications(IS7Connector connector, TimeSpan cycle)
    {
        return ConnectionState.FirstAsync()
            .Select(states => states == Enums.ConnectionState.Connected)
            .SelectMany(connected => GetAllValues(connected, connector))
            .RepeatAfterDelay(MultiVarRequestCycleTime)
            .LogAndRetryAfterDelay(Logger, cycle, "Error while getting batch notifications from plc")
            .Subscribe();
    }

    ~Sharp7Plc()
    {
        Dispose(false);
    }
}