// /***************************************************************************
// Aaru Data Preservation Suite
// ----------------------------------------------------------------------------
//
// Filename       : FletcherContext.cs
// Author(s)      : Natalia Portillo <claunia@claunia.com>
//
// Component      : Checksums.
//
// --[ Description ] ----------------------------------------------------------
//
//     Implements Fletcher-32 and Fletcher-16 algorithms.
//
// --[ License ] --------------------------------------------------------------
//
//     This library is free software; you can redistribute it and/or modify
//     it under the terms of the GNU Lesser General Public License as
//     published by the Free Software Foundation; either version 2.1 of the
//     License, or (at your option) any later version.
//
//     This library 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
//     Lesser General Public License for more details.
//
//     You should have received a copy of the GNU Lesser General Public
//     License along with this library; if not, see <http://www.gnu.org/licenses/>.
//
// ----------------------------------------------------------------------------
// Copyright © 2011-2025 Natalia Portillo
// ****************************************************************************/

// Disabled because the speed is abnormally slow

using System;
using System.Diagnostics.CodeAnalysis;
using System.IO;
using System.Runtime.InteropServices;
using System.Runtime.Intrinsics.Arm;
using System.Text;
using Aaru.Checksums.Fletcher32;
using Aaru.CommonTypes.Interfaces;
using Aaru.Helpers;
using Ssse3 = System.Runtime.Intrinsics.X86.Ssse3;

namespace Aaru.Checksums;

/// <inheritdoc />
/// <summary>Implements the Fletcher-32 algorithm</summary>
[SuppressMessage("ReSharper", "UnusedMethodReturnValue.Global")]
[SuppressMessage("ReSharper", "MemberCanBePrivate.Global")]
[SuppressMessage("ReSharper", "UnusedMember.Global")]
public sealed partial class Fletcher32Context : IChecksum
{
    internal const ushort FletcherModule = 0xFFFF;
    internal const uint   Nmax           = 5552;
    readonly       IntPtr _nativeContext;
    readonly       bool   _useNative;
    ushort                _sum1, _sum2;

    /// <summary>Initializes the Fletcher-32 sums</summary>
    public Fletcher32Context()
    {
        _sum1 = 0xFFFF;
        _sum2 = 0xFFFF;

        if(!Native.IsSupported) return;

        _nativeContext = fletcher32_init();
        _useNative     = _nativeContext != IntPtr.Zero;
    }

#region IChecksum Members

    /// <inheritdoc />
    public string Name => Localization.Fletcher32_Name;

    /// <inheritdoc />
    public Guid Id => new("0E51B39F-C5E6-4CED-9E59-BA5A42B3B2F4");

    /// <inheritdoc />
    public string Author => Authors.NataliaPortillo;

    /// <inheritdoc />
    /// <summary>Updates the hash with data.</summary>
    /// <param name="data">Data buffer.</param>
    /// <param name="len">Length of buffer to hash.</param>
    public void Update(byte[] data, uint len) => Step(ref _sum1, ref _sum2, data, len, _useNative, _nativeContext);

    /// <inheritdoc />
    /// <summary>Updates the hash with data.</summary>
    /// <param name="data">Data buffer.</param>
    public void Update(byte[] data) => Update(data, (uint)data.Length);

    /// <inheritdoc />
    /// <summary>Returns a byte array of the hash value.</summary>
    public byte[] Final()
    {
        var finalSum = (uint)(_sum2 << 16 | _sum1);

        if(!_useNative) return BigEndianBitConverter.GetBytes(finalSum);

        fletcher32_final(_nativeContext, ref finalSum);
        fletcher32_free(_nativeContext);

        return BigEndianBitConverter.GetBytes(finalSum);
    }

    /// <inheritdoc />
    /// <summary>Returns a hexadecimal representation of the hash value.</summary>
    public string End()
    {
        var finalSum = (uint)(_sum2 << 16 | _sum1);

        if(_useNative)
        {
            fletcher32_final(_nativeContext, ref finalSum);
            fletcher32_free(_nativeContext);
        }

        var fletcherOutput = new StringBuilder();

        for(var i = 0; i < BigEndianBitConverter.GetBytes(finalSum).Length; i++)
            fletcherOutput.Append(BigEndianBitConverter.GetBytes(finalSum)[i].ToString("x2"));

        return fletcherOutput.ToString();
    }

#endregion

    [LibraryImport("libAaru.Checksums.Native", SetLastError = true)]
    private static partial IntPtr fletcher32_init();

    [LibraryImport("libAaru.Checksums.Native", SetLastError = true)]
    private static partial int fletcher32_update(IntPtr ctx, byte[] data, uint len);

    [LibraryImport("libAaru.Checksums.Native", SetLastError = true)]
    private static partial int fletcher32_final(IntPtr ctx, ref uint crc);

    [LibraryImport("libAaru.Checksums.Native", SetLastError = true)]
    private static partial void fletcher32_free(IntPtr ctx);

    static void Step(ref ushort previousSum1, ref ushort previousSum2, byte[] data, uint len, bool useNative,
                     IntPtr     nativeContext)
    {
        if(useNative)
        {
            fletcher32_update(nativeContext, data, len);

            return;
        }

        if(Ssse3.IsSupported)
        {
            Fletcher32.Ssse3.Step(ref previousSum1, ref previousSum2, data, len);

            return;
        }

        if(AdvSimd.IsSupported)
        {
            Neon.Step(ref previousSum1, ref previousSum2, data, len);

            return;
        }

        uint sum1    = previousSum1;
        uint sum2    = previousSum2;
        var  dataOff = 0;

        switch(len)
        {
            /* in case user likes doing a byte at a time, keep it fast */
            case 1:
            {
                sum1 += data[dataOff];

                if(sum1 >= FletcherModule) sum1 -= FletcherModule;

                sum2 += sum1;

                if(sum2 >= FletcherModule) sum2 -= FletcherModule;

                previousSum1 = (ushort)(sum1 & 0xFFFF);
                previousSum2 = (ushort)(sum2 & 0xFFFF);

                return;
            }
            /* in case short lengths are provided, keep it somewhat fast */
            case < 16:
            {
                while(len-- > 0)
                {
                    sum1 += data[dataOff++];
                    sum2 += sum1;
                }

                if(sum1 >= FletcherModule) sum1 -= FletcherModule;

                sum2         %= FletcherModule; /* only added so many FLETCHER_MODULE's */
                previousSum1 =  (ushort)(sum1 & 0xFFFF);
                previousSum2 =  (ushort)(sum2 & 0xFFFF);

                return;
            }
        }

        /* do length NMAX blocks -- requires just one modulo operation */
        while(len >= Nmax)
        {
            len -= Nmax;
            uint n = Nmax / 16;

            do
            {
                sum1 += data[dataOff];
                sum2 += sum1;
                sum1 += data[dataOff + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 4];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 4];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 4 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 4 + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 4 + 2 + 1];
                sum2 += sum1;

                /* 16 sums unrolled */
                dataOff += 16;
            } while(--n != 0);

            sum1 %= FletcherModule;
            sum2 %= FletcherModule;
        }

        /* do remaining bytes (less than NMAX, still just one modulo) */
        if(len != 0)
        {
            /* avoid modulos if none remaining */
            while(len >= 16)
            {
                len  -= 16;
                sum1 += data[dataOff];
                sum2 += sum1;
                sum1 += data[dataOff + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 4];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 4];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 4 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 4 + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 4 + 2 + 1];
                sum2 += sum1;

                dataOff += 16;
            }

            while(len-- != 0)
            {
                sum1 += data[dataOff++];
                sum2 += sum1;
            }

            sum1 %= FletcherModule;
            sum2 %= FletcherModule;
        }

        previousSum1 = (ushort)(sum1 & 0xFFFF);
        previousSum2 = (ushort)(sum2 & 0xFFFF);
    }

    /// <summary>Gets the hash of a file</summary>
    /// <param name="filename">File path.</param>
    public static byte[] File(string filename)
    {
        File(filename, out byte[] hash);

        return hash;
    }

    /// <summary>Gets the hash of a file in hexadecimal and as a byte array.</summary>
    /// <param name="filename">File path.</param>
    /// <param name="hash">Byte array of the hash value.</param>
    public static string File(string filename, out byte[] hash)
    {
        bool   useNative     = Native.IsSupported;
        IntPtr nativeContext = IntPtr.Zero;

        if(useNative)
        {
            nativeContext = fletcher32_init();

            if(nativeContext == IntPtr.Zero) useNative = false;
        }

        var fileStream = new FileStream(filename, FileMode.Open);

        ushort localSum1 = 0xFFFF;
        ushort localSum2 = 0xFFFF;

        var buffer = new byte[65536];
        int read   = fileStream.EnsureRead(buffer, 0, 65536);

        while(read > 0)
        {
            Step(ref localSum1, ref localSum2, buffer, (uint)read, useNative, nativeContext);

            read = fileStream.EnsureRead(buffer, 0, 65536);
        }

        var finalSum = (uint)(localSum2 << 16 | localSum1);

        if(useNative)
        {
            fletcher32_final(nativeContext, ref finalSum);
            fletcher32_free(nativeContext);
        }

        hash = BigEndianBitConverter.GetBytes(finalSum);

        var fletcherOutput = new StringBuilder();

        foreach(byte h in hash) fletcherOutput.Append(h.ToString("x2"));

        fileStream.Close();

        return fletcherOutput.ToString();
    }

    /// <summary>Gets the hash of the specified data buffer.</summary>
    /// <param name="data">Data buffer.</param>
    /// <param name="len">Length of the data buffer to hash.</param>
    /// <param name="hash">Byte array of the hash value.</param>
    public static string Data(byte[] data, uint len, out byte[] hash)
    {
        bool   useNative     = Native.IsSupported;
        IntPtr nativeContext = IntPtr.Zero;

        if(useNative)
        {
            nativeContext = fletcher32_init();

            if(nativeContext == IntPtr.Zero) useNative = false;
        }

        ushort localSum1 = 0xFFFF;
        ushort localSum2 = 0xFFFF;

        Step(ref localSum1, ref localSum2, data, len, useNative, nativeContext);

        var finalSum = (uint)(localSum2 << 16 | localSum1);

        if(useNative)
        {
            fletcher32_final(nativeContext, ref finalSum);
            fletcher32_free(nativeContext);
        }

        hash = BigEndianBitConverter.GetBytes(finalSum);

        var adlerOutput = new StringBuilder();

        foreach(byte h in hash) adlerOutput.Append(h.ToString("x2"));

        return adlerOutput.ToString();
    }

    /// <summary>Gets the hash of the specified data buffer.</summary>
    /// <param name="data">Data buffer.</param>
    /// <param name="hash">Byte array of the hash value.</param>
    public static string Data(byte[] data, out byte[] hash) => Data(data, (uint)data.Length, out hash);
}

/// <inheritdoc />
/// <summary>Implements the Fletcher-16 algorithm</summary>
[SuppressMessage("ReSharper", "UnusedMember.Global")]
[SuppressMessage("ReSharper", "MemberCanBePrivate.Global")]
[SuppressMessage("ReSharper", "UnusedMethodReturnValue.Global")]
public sealed partial class Fletcher16Context : IChecksum
{
    const byte FLETCHER_MODULE = 0xFF;
    const byte NMAX            = 22;

    readonly IntPtr _nativeContext;
    readonly bool   _useNative;
    byte            _sum1, _sum2;

    /// <summary>Initializes the Fletcher-16 sums</summary>
    public Fletcher16Context()
    {
        _sum1 = 0xFF;
        _sum2 = 0xFF;

        if(!Native.IsSupported) return;

        _nativeContext = fletcher16_init();
        _useNative     = _nativeContext != IntPtr.Zero;
    }

#region IChecksum Members

    /// <inheritdoc />
    public string Name => Localization.Fletcher16_Name;

    /// <inheritdoc />
    public Guid Id => new("80C51F1D-71F8-4741-A0CF-18FA8102EE4B");

    /// <inheritdoc />
    public string Author => Authors.NataliaPortillo;

    /// <inheritdoc />
    /// <summary>Updates the hash with data.</summary>
    /// <param name="data">Data buffer.</param>
    /// <param name="len">Length of buffer to hash.</param>
    public void Update(byte[] data, uint len) => Step(ref _sum1, ref _sum2, data, len, _useNative, _nativeContext);

    /// <inheritdoc />
    /// <summary>Updates the hash with data.</summary>
    /// <param name="data">Data buffer.</param>
    public void Update(byte[] data) => Update(data, (uint)data.Length);

    /// <inheritdoc />
    /// <summary>Returns a byte array of the hash value.</summary>
    public byte[] Final()
    {
        var finalSum = (ushort)(_sum2 << 8 | _sum1);

        if(!_useNative) return BigEndianBitConverter.GetBytes(finalSum);

        fletcher16_final(_nativeContext, ref finalSum);
        fletcher16_free(_nativeContext);

        return BigEndianBitConverter.GetBytes(finalSum);
    }

    /// <inheritdoc />
    /// <summary>Returns a hexadecimal representation of the hash value.</summary>
    public string End()
    {
        var finalSum = (ushort)(_sum2 << 8 | _sum1);

        if(_useNative)
        {
            fletcher16_final(_nativeContext, ref finalSum);
            fletcher16_free(_nativeContext);
        }

        var fletcherOutput = new StringBuilder();

        for(var i = 0; i < BigEndianBitConverter.GetBytes(finalSum).Length; i++)
            fletcherOutput.Append(BigEndianBitConverter.GetBytes(finalSum)[i].ToString("x2"));

        return fletcherOutput.ToString();
    }

#endregion

    [LibraryImport("libAaru.Checksums.Native", SetLastError = true)]
    private static partial IntPtr fletcher16_init();

    [LibraryImport("libAaru.Checksums.Native", SetLastError = true)]
    private static partial int fletcher16_update(IntPtr ctx, byte[] data, uint len);

    [LibraryImport("libAaru.Checksums.Native", SetLastError = true)]
    private static partial int fletcher16_final(IntPtr ctx, ref ushort checksum);

    [LibraryImport("libAaru.Checksums.Native", SetLastError = true)]
    private static partial void fletcher16_free(IntPtr ctx);

    static void Step(ref byte previousSum1, ref byte previousSum2, byte[] data, uint len, bool useNative,
                     IntPtr   nativeContext)
    {
        if(useNative)
        {
            fletcher16_update(nativeContext, data, len);

            return;
        }

        uint sum1    = previousSum1;
        uint sum2    = previousSum2;
        var  dataOff = 0;

        switch(len)
        {
            /* in case user likes doing a byte at a time, keep it fast */
            case 1:
            {
                sum1 += data[dataOff];

                if(sum1 >= FLETCHER_MODULE) sum1 -= FLETCHER_MODULE;

                sum2 += sum1;

                if(sum2 >= FLETCHER_MODULE) sum2 -= FLETCHER_MODULE;

                previousSum1 = (byte)(sum1 & 0xFF);
                previousSum2 = (byte)(sum2 & 0xFF);

                return;
            }
            /* in case short lengths are provided, keep it somewhat fast */
            case < 11:
            {
                while(len-- > 0)
                {
                    sum1 += data[dataOff++];
                    sum2 += sum1;
                }

                if(sum1 >= FLETCHER_MODULE) sum1 -= FLETCHER_MODULE;

                sum2         %= FLETCHER_MODULE; /* only added so many FLETCHER_MODULE's */
                previousSum1 =  (byte)(sum1 & 0xFF);
                previousSum2 =  (byte)(sum2 & 0xFF);

                return;
            }
        }

        /* do length NMAX blocks -- requires just one modulo operation */
        while(len >= NMAX)
        {
            len -= NMAX;
            uint n = NMAX / 11;

            do
            {
                sum1 += data[dataOff];
                sum2 += sum1;
                sum1 += data[dataOff + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 4];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 2];
                sum2 += sum1;

                /* 11 sums unrolled */
                dataOff += 11;
            } while(--n != 0);

            sum1 %= FLETCHER_MODULE;
            sum2 %= FLETCHER_MODULE;
        }

        /* do remaining bytes (less than NMAX, still just one modulo) */
        if(len != 0)
        {
            /* avoid modulos if none remaining */
            while(len >= 11)
            {
                len  -= 11;
                sum1 += data[dataOff];
                sum2 += sum1;
                sum1 += data[dataOff + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 4];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 2];
                sum2 += sum1;
                sum1 += data[dataOff + 4 + 2 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 1];
                sum2 += sum1;
                sum1 += data[dataOff + 8 + 2];
                sum2 += sum1;

                dataOff += 11;
            }

            while(len-- != 0)
            {
                sum1 += data[dataOff++];
                sum2 += sum1;
            }

            sum1 %= FLETCHER_MODULE;
            sum2 %= FLETCHER_MODULE;
        }

        previousSum1 = (byte)(sum1 & 0xFF);
        previousSum2 = (byte)(sum2 & 0xFF);
    }

    /// <summary>Gets the hash of a file</summary>
    /// <param name="filename">File path.</param>
    public static byte[] File(string filename)
    {
        File(filename, out byte[] hash);

        return hash;
    }

    /// <summary>Gets the hash of a file in hexadecimal and as a byte array.</summary>
    /// <param name="filename">File path.</param>
    /// <param name="hash">Byte array of the hash value.</param>
    public static string File(string filename, out byte[] hash)
    {
        bool   useNative     = Native.IsSupported;
        IntPtr nativeContext = IntPtr.Zero;

        if(useNative)
        {
            nativeContext = fletcher16_init();

            if(nativeContext == IntPtr.Zero) useNative = false;
        }

        var fileStream = new FileStream(filename, FileMode.Open);

        byte localSum1 = 0xFF;
        byte localSum2 = 0xFF;

        var buffer = new byte[65536];
        int read   = fileStream.EnsureRead(buffer, 0, 65536);

        while(read > 0)
        {
            Step(ref localSum1, ref localSum2, buffer, (uint)read, useNative, nativeContext);

            read = fileStream.EnsureRead(buffer, 0, 65536);
        }

        var finalSum = (ushort)(localSum2 << 8 | localSum1);

        if(useNative)
        {
            fletcher16_final(nativeContext, ref finalSum);
            fletcher16_free(nativeContext);
        }

        hash = BigEndianBitConverter.GetBytes(finalSum);

        var fletcherOutput = new StringBuilder();

        foreach(byte h in hash) fletcherOutput.Append(h.ToString("x2"));

        fileStream.Close();

        return fletcherOutput.ToString();
    }

    /// <summary>Gets the hash of the specified data buffer.</summary>
    /// <param name="data">Data buffer.</param>
    /// <param name="len">Length of the data buffer to hash.</param>
    /// <param name="hash">Byte array of the hash value.</param>
    public static string Data(byte[] data, uint len, out byte[] hash)
    {
        bool   useNative     = Native.IsSupported;
        IntPtr nativeContext = IntPtr.Zero;

        if(useNative)
        {
            nativeContext = fletcher16_init();

            if(nativeContext == IntPtr.Zero) useNative = false;
        }

        byte localSum1 = 0xFF;
        byte localSum2 = 0xFF;

        Step(ref localSum1, ref localSum2, data, len, useNative, nativeContext);

        var finalSum = (ushort)(localSum2 << 8 | localSum1);

        if(useNative)
        {
            fletcher16_final(nativeContext, ref finalSum);
            fletcher16_free(nativeContext);
        }

        hash = BigEndianBitConverter.GetBytes(finalSum);

        var adlerOutput = new StringBuilder();

        foreach(byte h in hash) adlerOutput.Append(h.ToString("x2"));

        return adlerOutput.ToString();
    }

    /// <summary>Gets the hash of the specified data buffer.</summary>
    /// <param name="data">Data buffer.</param>
    /// <param name="hash">Byte array of the hash value.</param>
    public static string Data(byte[] data, out byte[] hash) => Data(data, (uint)data.Length, out hash);
}