/*************************************************************************
 * ModernUO                                                              *
 * Copyright 2019-2021 - ModernUO Development Team                       *
 * Email: hi@modernuo.com                                                *
 * File: EPollGroup.cs                                                   *
 *                                                                       *
 * 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, either version 3 of the License, or     *
 * (at your option) any later version.                                   *
 *                                                                       *
 * You should have received a copy of the GNU General Public License     *
 * along with this program.  If not, see <http://www.gnu.org/licenses/>. *
 *************************************************************************/

using System;
using System.Net.Sockets;
using System.Runtime.InteropServices;

namespace Server.Network
{
    public sealed class EPollGroup : IPollGroup
    {
        [Flags]
        private enum epoll_flags
        {
            NONE = 0,
            CLOEXEC = 0x02000000,
            NONBLOCK = 0x04000,
        }

        [Flags]
        private enum epoll_events : uint
        {
            EPOLLIN = 0x001,
            EPOLLPRI = 0x002,
            EPOLLOUT = 0x004,
            EPOLLRDNORM = 0x040,
            EPOLLRDBAND = 0x080,
            EPOLLWRNORM = 0x100,
            EPOLLWRBAND = 0x200,
            EPOLLMSG = 0x400,
            EPOLLERR = 0x008,
            EPOLLHUP = 0x010,
            EPOLLRDHUP = 0x2000,
            EPOLLONESHOT = 1 << 30,
            EPOLLET = unchecked((uint)(1 << 31))
        }

        private enum epoll_op
        {
            EPOLL_CTL_ADD = 1,
            EPOLL_CTL_DEL = 2,
            EPOLL_CTL_MOD = 3,
        }

        [StructLayout(LayoutKind.Explicit, Size = 8)]
        private struct epoll_data
        {
            [FieldOffset(0)]
            public int fd;
            [FieldOffset(0)]
            public IntPtr ptr;
            [FieldOffset(0)]
            public uint u32;
            [FieldOffset(0)]
            public ulong u64;
        }

        [StructLayout(LayoutKind.Explicit, Pack = 4)]
        private struct epoll_event
        {
            [FieldOffset(0)]
            public epoll_events events;
            [FieldOffset(4)]
            public epoll_data data;
        }

        private static class Windows
        {
            [DllImport("wepoll.dll", SetLastError = true)]
            public static extern int epoll_create1(epoll_flags flags);

            [DllImport("wepoll.dll", SetLastError = true)]
            public static extern int epoll_close(int epfd);

            [DllImport("wepoll.dll", SetLastError = true)]
            public static extern int epoll_ctl(int epfd, epoll_op op, int fd, ref epoll_event ee);

            [DllImport("wepoll.dll", SetLastError = true)]
            public static extern int epoll_wait(int epfd, [In, Out] epoll_event[] ee, int maxevents, int timeout);
        }

        private static class Linux
        {
            [DllImport("libc", SetLastError = true)]
            public static extern int epoll_create1(epoll_flags flags);

            [DllImport("libc", SetLastError = true)]
            public static extern int epoll_close(int epfd);

            [DllImport("libc", SetLastError = true)]
            public static extern int epoll_ctl(int epfd, epoll_op op, int fd, ref epoll_event ee);

            [DllImport("libc", SetLastError = true)]
            public static extern int epoll_wait(int epfd, [In, Out] epoll_event[] ee, int maxevents, int timeout);
        }

        private readonly int _epHndle;
        private readonly bool _isWindows;

        public EPollGroup()
        {
            _isWindows = Core.IsWindows;
            _epHndle = _isWindows ? Windows.epoll_create1(epoll_flags.NONE) : Linux.epoll_create1(epoll_flags.NONE);

            if (_epHndle == 0)
            {
                throw new Exception("Unable to initialize poll group");
            }
        }

        public void Dispose()
        {
            if (_isWindows)
            {
                Windows.epoll_close(_epHndle);
            }
            else
            {
                Linux.epoll_close(_epHndle);
            }
        }

        public void Add(Socket socket, GCHandle handle)
        {
            var ev = new epoll_event
            {
                events = epoll_events.EPOLLIN | epoll_events.EPOLLERR
            };

            ev.data.ptr = (IntPtr)handle;

            var rc = _isWindows ?
                Windows.epoll_ctl(_epHndle, epoll_op.EPOLL_CTL_ADD, (int)socket.Handle, ref ev) :
                Linux.epoll_ctl(_epHndle, epoll_op.EPOLL_CTL_ADD, (int)socket.Handle, ref ev);


            if (rc != 0)
            {
                throw new Exception($"epoll_ctl failed with error code {Marshal.GetLastWin32Error()}");
            }
        }

        public void Remove(Socket socket)
        {
            var ev = new epoll_event { events = epoll_events.EPOLLIN | epoll_events.EPOLLERR };

            var rc = _isWindows ?
                Windows.epoll_ctl(_epHndle, epoll_op.EPOLL_CTL_DEL, (int)socket.Handle, ref ev) :
                Linux.epoll_ctl(_epHndle, epoll_op.EPOLL_CTL_DEL, (int)socket.Handle, ref ev);

            if (rc != 0)
            {
                throw new Exception($"epoll_ctl failed with error code {Marshal.GetLastWin32Error()}");
            }
        }

        private epoll_event[] _events = new epoll_event[2048];

        public int Poll(ref GCHandle[] handles)
        {
            if (handles.Length > _events.Length)
            {
                var newLength = Math.Max(handles.Length, _events.Length + (_events.Length >> 2));
                _events = new epoll_event[newLength];
            }

            var rc = _isWindows ?
                Windows.epoll_wait(_epHndle, _events, handles.Length, 0) :
                Linux.epoll_wait(_epHndle, _events, handles.Length, 0);

            if (rc <= 0)
            {
                return rc;
            }

            for (int i = 0; i < rc; i++)
            {
                handles[i] = (GCHandle)_events[i].data.ptr;
            }

            return rc;
        }

    }
}