using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading;
using System.Threading.Tasks;

namespace DK_DC_Tool
{
    public class ToolDataDomain
    {
        public string pid;
        public List<string> data;
    }

    public class ToolPacket:ICloneable
    {
        const byte head = 0x02;
        const byte tail = 0x03;
        const byte min_length = 11;

        public int type; //0: TCP 报文格式  1: 串口报文格式
        public UInt32 data_packet_length;
        public char op;
        public string mid;
        public string data_domain_str;
        public List<ToolDataDomain> data_domains;

        public object Clone()
        {
            ToolPacket packet = (ToolPacket)this.MemberwiseClone();
            return packet;
        }

        static List<ToolDataDomain> get_data_domains(string str)
        {
            List<ToolDataDomain> tds = new List<ToolDataDomain>();

            string[] rs = str.Split(new char[1] { ';' }, StringSplitOptions.RemoveEmptyEntries);
            foreach (string s in rs)
            {
                s.Trim();
                string[] ds = s.Split(new char[1] { '=' }, StringSplitOptions.RemoveEmptyEntries);
                if (ds.Length != 2)
                    continue;

                ToolDataDomain data_domain = new ToolDataDomain();
                data_domain.pid = ds[0].Trim();
                string[] cs = ds[1].Split(new char[1] { ',' }, StringSplitOptions.RemoveEmptyEntries);
                foreach (string cs2 in cs)
                {
                    cs2.Trim();
                }

                data_domain.data = new List<string>(cs);
                tds.Add(data_domain);
            }

            return tds;
        }

        public void update_data_domain_str()
        {
            this.data_domain_str = "";

            foreach (ToolDataDomain domain in this.data_domains)
            {
                this.data_domain_str += domain.pid + "=";
                for (int i = 0; i < domain.data.Count; i++)
                {
                    this.data_domain_str += domain.data[i];
                    if (i != domain.data.Count - 1)
                        this.data_domain_str += ",";
                }
                this.data_domain_str += ";";
            }
        }

        public virtual byte[] compose_protocol()
        {
            List<byte> data_list = new List<byte>();
            byte[] tmp = new byte[100];

            data_list.Add(head);

            int data_len = 5 + this.data_domain_str.Length;
            Array.Clear(tmp, 0, tmp.Length);
            tmp[0] = (byte)(data_len >> 24);
            tmp[1] = (byte)(data_len >> 16);
            tmp[2] = (byte)(data_len >> 8);
            tmp[3] = (byte)(data_len);
            data_list.AddRange(tmp.Take(4));
            data_list.Add((byte)this.op);
            byte[] mid_buf = Encoding.UTF8.GetBytes(this.mid);
            Array.Clear(tmp, 0, tmp.Length);
            Array.Copy(mid_buf, tmp, (mid_buf.Length > 4) ? 4 : mid_buf.Length);
            data_list.AddRange(tmp.Take(4));
            data_list.AddRange(Encoding.UTF8.GetBytes(this.data_domain_str).ToList());
            data_list.Add(tail);

            this.type = 0;
            this.data_domains = get_data_domains(this.data_domain_str);
            this.data_packet_length = (UInt32)data_list.Count;

            return data_list.ToArray();
        }

        public static int decompose_protocol(byte[] buf, ToolPacket packet)
        {
            int rc = 0;

            do
            {
                if (buf.Length - min_length < 0)
                    break;
                if (buf[0] != head)
                    break;
                UInt32 _data_packet_len = (((UInt32)buf[1] << 24) +
                                          ((UInt32)buf[2] << 16) +
                                          ((UInt32)buf[3] << 8) +
                                          (UInt32)buf[4]);
                if ((buf.Length - (min_length + _data_packet_len - 5)) < 0)
                    break;
                if (buf[5 + _data_packet_len] != tail)
                    break;
                if (_data_packet_len < 5)
                    break;

                try
                {
                    packet.type = 0;
                    packet.data_packet_length = _data_packet_len;
                    packet.op = (char)buf[5];
                    packet.mid = Encoding.UTF8.GetString(buf, 6, 4);
                    packet.data_domain_str = Encoding.UTF8.GetString(buf, 10, (int)_data_packet_len - 5);
                    packet.data_domains = get_data_domains(packet.data_domain_str);
                }
                catch
                {
                    break;
                }
                
                rc = 6 + (int)_data_packet_len;
            } while (false);

            return rc;
        }
    }

    internal class ToolSerialPacket : ToolPacket
    {
        const byte head = 0x55;
        const byte min_length = 7;

        public byte addr;
        public byte protocol;

        /* Table of CRC values for high-order byte */
        static Byte[] table_crc_hi = {
    0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0,
    0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41,
    0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0,
    0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40,
    0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1,
    0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0, 0x80, 0x41,
    0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1,
    0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41,
    0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0,
    0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40,
    0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1,
    0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40,
    0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0,
    0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40,
    0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0,
    0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40,
    0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0,
    0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41,
    0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0,
    0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41,
    0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0,
    0x80, 0x41, 0x00, 0xC1, 0x81, 0x40, 0x00, 0xC1, 0x81, 0x40,
    0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1,
    0x81, 0x40, 0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41,
    0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41, 0x01, 0xC0,
    0x80, 0x41, 0x00, 0xC1, 0x81, 0x40
};

        /* Table of CRC values for low-order byte */
        static Byte[] table_crc_lo = {
    0x00, 0xC0, 0xC1, 0x01, 0xC3, 0x03, 0x02, 0xC2, 0xC6, 0x06,
    0x07, 0xC7, 0x05, 0xC5, 0xC4, 0x04, 0xCC, 0x0C, 0x0D, 0xCD,
    0x0F, 0xCF, 0xCE, 0x0E, 0x0A, 0xCA, 0xCB, 0x0B, 0xC9, 0x09,
    0x08, 0xC8, 0xD8, 0x18, 0x19, 0xD9, 0x1B, 0xDB, 0xDA, 0x1A,
    0x1E, 0xDE, 0xDF, 0x1F, 0xDD, 0x1D, 0x1C, 0xDC, 0x14, 0xD4,
    0xD5, 0x15, 0xD7, 0x17, 0x16, 0xD6, 0xD2, 0x12, 0x13, 0xD3,
    0x11, 0xD1, 0xD0, 0x10, 0xF0, 0x30, 0x31, 0xF1, 0x33, 0xF3,
    0xF2, 0x32, 0x36, 0xF6, 0xF7, 0x37, 0xF5, 0x35, 0x34, 0xF4,
    0x3C, 0xFC, 0xFD, 0x3D, 0xFF, 0x3F, 0x3E, 0xFE, 0xFA, 0x3A,
    0x3B, 0xFB, 0x39, 0xF9, 0xF8, 0x38, 0x28, 0xE8, 0xE9, 0x29,
    0xEB, 0x2B, 0x2A, 0xEA, 0xEE, 0x2E, 0x2F, 0xEF, 0x2D, 0xED,
    0xEC, 0x2C, 0xE4, 0x24, 0x25, 0xE5, 0x27, 0xE7, 0xE6, 0x26,
    0x22, 0xE2, 0xE3, 0x23, 0xE1, 0x21, 0x20, 0xE0, 0xA0, 0x60,
    0x61, 0xA1, 0x63, 0xA3, 0xA2, 0x62, 0x66, 0xA6, 0xA7, 0x67,
    0xA5, 0x65, 0x64, 0xA4, 0x6C, 0xAC, 0xAD, 0x6D, 0xAF, 0x6F,
    0x6E, 0xAE, 0xAA, 0x6A, 0x6B, 0xAB, 0x69, 0xA9, 0xA8, 0x68,
    0x78, 0xB8, 0xB9, 0x79, 0xBB, 0x7B, 0x7A, 0xBA, 0xBE, 0x7E,
    0x7F, 0xBF, 0x7D, 0xBD, 0xBC, 0x7C, 0xB4, 0x74, 0x75, 0xB5,
    0x77, 0xB7, 0xB6, 0x76, 0x72, 0xB2, 0xB3, 0x73, 0xB1, 0x71,
    0x70, 0xB0, 0x50, 0x90, 0x91, 0x51, 0x93, 0x53, 0x52, 0x92,
    0x96, 0x56, 0x57, 0x97, 0x55, 0x95, 0x94, 0x54, 0x9C, 0x5C,
    0x5D, 0x9D, 0x5F, 0x9F, 0x9E, 0x5E, 0x5A, 0x9A, 0x9B, 0x5B,
    0x99, 0x59, 0x58, 0x98, 0x88, 0x48, 0x49, 0x89, 0x4B, 0x8B,
    0x8A, 0x4A, 0x4E, 0x8E, 0x8F, 0x4F, 0x8D, 0x4D, 0x4C, 0x8C,
    0x44, 0x84, 0x85, 0x45, 0x87, 0x47, 0x46, 0x86, 0x82, 0x42,
    0x43, 0x83, 0x41, 0x81, 0x80, 0x40
};

        static UInt16 crc16(Byte[] buffer, int buffer_length)
        {
            Byte crc_hi = 0xFF; /* high CRC byte initialized */
            Byte crc_lo = 0xFF; /* low CRC byte initialized */
            UInt32 i; /* will index into CRC lookup */
            UInt32 j = 0;

            /* pass through message buffer */
            while (buffer_length-- > 0)
            {
                i = (UInt32)(crc_hi ^ buffer[j++]); /* calculate the CRC  */
                crc_hi = (Byte)(crc_lo ^ table_crc_hi[i]);
                crc_lo = table_crc_lo[i];
            }

            return (UInt16)(crc_hi << 8 | crc_lo);
        }

        public override byte[] compose_protocol()
        {
            byte[] packet_data = base.compose_protocol();
            this.type = 1;

            List<byte> data_list = new List<byte>();
            data_list.Add(head);
            data_list.Add(this.addr);
            data_list.Add(this.protocol);
            int data_len = packet_data.Length;
            data_list.Add((byte)(data_len >> 8));
            data_list.Add((byte)data_len);
            data_list.AddRange(packet_data.ToList());
            UInt16 crc_calculated = crc16(data_list.ToArray(), data_list.Count);
            data_list.Add((byte)(crc_calculated >> 8));
            data_list.Add((byte)crc_calculated);

            return data_list.ToArray();
        }

        public static int decompose_protocol(byte[] buf, ToolSerialPacket packet)
        {
            int rc = 0;

            do
            {
                if (buf.Length - min_length < 0)
                    break;

                if (buf[0] != head)
                    break;

                UInt32 _data_packet_len = ((UInt32)buf[3] << 8) + (UInt32)buf[4];
                if ((buf.Length - (min_length + _data_packet_len)) < 0)
                    break;

                UInt16 crc_recv = (UInt16)((buf[5 + _data_packet_len] << 8) + buf[6 + _data_packet_len]);
                UInt16 crc_calc = crc16(buf, 5 + (int)_data_packet_len);
                if (crc_recv != crc_calc)
                    break;

                if (ToolPacket.decompose_protocol(buf.Skip(5).Take((int)_data_packet_len).ToArray(), packet) <= 0)
                    break;

                packet.type = 1;
                packet.addr = buf[1];
                packet.protocol = buf[2];

                rc = min_length + (int)_data_packet_len;
            } while (false);

            return rc;
        }
    }
}