#include <SFML/Copyright.hpp> // LICENSE AND COPYRIGHT (C) INFORMATION

////////////////////////////////////////////////////////////
// Headers
////////////////////////////////////////////////////////////
#include "SFML/Window/Unix/ClipboardImpl.hpp"
#include "SFML/Window/Unix/Display.hpp"

#include "SFML/System/Clock.hpp"
#include "SFML/System/Err.hpp"
#include "SFML/System/StringUtfUtils.hpp"
#include "SFML/System/Time.hpp"

#include <X11/Xatom.h>

#include <vector>


namespace
{
// Filter the events received by windows (only allow those matching a specific window)
// NOLINTNEXTLINE(readability-non-const-parameter)
Bool checkEvent(::Display*, XEvent* event, XPointer userData)
{
    // Just check if the event matches the window
    return event->xany.window == reinterpret_cast<::Window>(userData);
}
} // namespace

namespace sf::priv
{

////////////////////////////////////////////////////////////
String ClipboardImpl::getString()
{
    return getInstance().getStringImpl();
}


////////////////////////////////////////////////////////////
void ClipboardImpl::setString(const String& text)
{
    getInstance().setStringImpl(text);
}


////////////////////////////////////////////////////////////
void ClipboardImpl::processEvents()
{
    getInstance().processEventsImpl();
}


////////////////////////////////////////////////////////////
ClipboardImpl::ClipboardImpl()
{
    // Open a connection with the X server
    m_display = openDisplay();

    // Get the atoms we need to make use of the clipboard
    m_clipboard      = getAtom("CLIPBOARD", false);
    m_targets        = getAtom("TARGETS", false);
    m_text           = getAtom("TEXT", false);
    m_utf8String     = getAtom("UTF8_STRING", true);
    m_targetProperty = getAtom("SFML_CLIPBOARD_TARGET_PROPERTY", false);

    // Create a hidden window that will broker our clipboard interactions with X
    m_window = XCreateSimpleWindow(m_display.get(), DefaultRootWindow(m_display.get()), 0, 0, 1, 1, 0, 0, 0);

    // Register the events we are interested in
    XSelectInput(m_display.get(), m_window, SelectionNotify | SelectionClear | SelectionRequest);
}


////////////////////////////////////////////////////////////
ClipboardImpl::~ClipboardImpl()
{
    // Destroy the window
    if (m_window)
    {
        XDestroyWindow(m_display.get(), m_window);
        XFlush(m_display.get());
    }
}


////////////////////////////////////////////////////////////
ClipboardImpl& ClipboardImpl::getInstance()
{
    static ClipboardImpl instance;
    return instance;
}


////////////////////////////////////////////////////////////
String ClipboardImpl::getStringImpl()
{
    // Check if anybody owns the current selection
    if (XGetSelectionOwner(m_display.get(), m_clipboard) == None)
    {
        m_clipboardContents.clear();

        return m_clipboardContents;
    }

    // Process any already pending events
    processEvents();

    m_requestResponded = false;

    // Request the current selection to be converted to UTF-8 (or STRING
    // if UTF-8 is not available) and written to our window property
    XConvertSelection(m_display.get(),
                      m_clipboard,
                      (m_utf8String != None) ? m_utf8String : XA_STRING,
                      m_targetProperty,
                      m_window,
                      CurrentTime);

    const Clock clock;

    // Wait for a response for up to 1 second
    while (!m_requestResponded && (clock.getElapsedTime() < sf::seconds(1)))
        processEvents();

    // If no response was received within the time period, clear our clipboard contents
    if (!m_requestResponded)
        m_clipboardContents.clear();

    return m_clipboardContents;
}


////////////////////////////////////////////////////////////
void ClipboardImpl::setStringImpl(const String& text)
{
    m_clipboardContents = text;

    // Set our window as the current owner of the selection
    XSetSelectionOwner(m_display.get(), m_clipboard, m_window, CurrentTime);

    // Check if setting the selection owner was successful
    if (XGetSelectionOwner(m_display.get(), m_clipboard) != m_window)
        priv::err() << "Cannot set clipboard string: Unable to get ownership of X selection";
}


////////////////////////////////////////////////////////////
void ClipboardImpl::processEventsImpl()
{
    XEvent event;

    // Pick out the events that are interesting for this window
    while (XCheckIfEvent(m_display.get(), &event, &checkEvent, reinterpret_cast<XPointer>(m_window)))
        m_events.push_back(event);

    // Handle the events for this window that we just picked out
    while (!m_events.empty())
    {
        event = m_events.front();
        m_events.pop_front();
        processEvent(event);
    }
}


////////////////////////////////////////////////////////////
void ClipboardImpl::processEvent(XEvent& windowEvent)
{
    switch (windowEvent.type)
    {
        case SelectionClear:
        {
            // We don't have any resources we need to clean up
            // when losing selection ownership so we don't do
            // anything when we receive SelectionClear
            // We will still respond to any future SelectionRequest
            // events since doing so doesn't really do any harm
            break;
        }
        case SelectionNotify:
        {
            // Notification that the current selection owner
            // has responded to our request

            const XSelectionEvent& selectionEvent = windowEvent.xselection;

            m_clipboardContents.clear();

            // If retrieving the selection fails or conversion is unsuccessful
            // we leave the contents of the clipboard empty since we don't
            // own it and we don't know what it could currently be
            if ((selectionEvent.property == None) || (selectionEvent.selection != m_clipboard))
                break;

            Atom           type           = 0;
            int            format         = 0;
            unsigned long  items          = 0;
            unsigned long  remainingBytes = 0;
            unsigned char* data           = nullptr;

            // The selection owner should have wrote the selection
            // data to the specified window property
            const int result = XGetWindowProperty(m_display.get(),
                                                  m_window,
                                                  m_targetProperty,
                                                  0,
                                                  0x7fffffff,
                                                  False,
                                                  AnyPropertyType,
                                                  &type,
                                                  &format,
                                                  &items,
                                                  &remainingBytes,
                                                  &data);

            if (result == Success)
            {
                // We don't support INCR for now
                // It is very unlikely that this will be returned
                // for purely text data transfer anyway
                if (type != getAtom("INCR", false))
                {
                    // Only copy the data if the format is what we expect
                    if ((type == m_utf8String) && (format == 8))
                    {
                        m_clipboardContents = StringUtfUtils::fromUtf8(data, data + items);
                    }
                    else if ((type == XA_STRING) && (format == 8))
                    {
                        // Convert from ANSI std::string to sf::String
                        m_clipboardContents = std::string(data, data + items);
                    }
                }

                XFree(data);

                // The selection requestor must always delete the property themselves
                XDeleteProperty(m_display.get(), m_window, m_targetProperty);
            }

            m_requestResponded = true;

            break;
        }
        case SelectionRequest:
        {
            // Respond to a request for our clipboard contents
            const XSelectionRequestEvent& selectionRequestEvent = windowEvent.xselectionrequest;

            // Our reply
            XSelectionEvent selectionEvent;

            selectionEvent.type      = SelectionNotify;
            selectionEvent.requestor = selectionRequestEvent.requestor;
            selectionEvent.selection = selectionRequestEvent.selection;
            selectionEvent.property  = selectionRequestEvent.property;
            selectionEvent.time      = selectionRequestEvent.time;

            if (selectionRequestEvent.selection == m_clipboard)
            {
                if (selectionRequestEvent.target == m_targets)
                {
                    // Respond to a request for our valid conversion targets
                    std::vector<Atom> targets;

                    targets.push_back(m_targets);
                    targets.push_back(m_text);
                    targets.push_back(XA_STRING);

                    if (m_utf8String != None)
                        targets.push_back(m_utf8String);

                    XChangeProperty(m_display.get(),
                                    selectionRequestEvent.requestor,
                                    selectionRequestEvent.property,
                                    XA_ATOM,
                                    32,
                                    PropModeReplace,
                                    reinterpret_cast<unsigned char*>(targets.data()),
                                    static_cast<int>(targets.size()));

                    // Notify the requestor that they can read the targets from their window property
                    selectionEvent.target = m_targets;

                    XSendEvent(m_display.get(),
                               selectionRequestEvent.requestor,
                               True,
                               NoEventMask,
                               reinterpret_cast<XEvent*>(&selectionEvent));

                    break;
                }
                if ((selectionRequestEvent.target == XA_STRING) ||
                    ((m_utf8String == None) && (selectionRequestEvent.target == m_text)))
                {
                    // Respond to a request for conversion to a Latin-1 string
                    const std::string data = m_clipboardContents.toAnsiString();

                    XChangeProperty(m_display.get(),
                                    selectionRequestEvent.requestor,
                                    selectionRequestEvent.property,
                                    XA_STRING,
                                    8,
                                    PropModeReplace,
                                    reinterpret_cast<const unsigned char*>(data.c_str()),
                                    static_cast<int>(data.size()));

                    // Notify the requestor that they can read the data from their window property
                    selectionEvent.target = XA_STRING;

                    XSendEvent(m_display.get(),
                               selectionRequestEvent.requestor,
                               True,
                               NoEventMask,
                               reinterpret_cast<XEvent*>(&selectionEvent));

                    break;
                }
                if ((m_utf8String != None) &&
                    ((selectionRequestEvent.target == m_utf8String) || (selectionRequestEvent.target == m_text)))
                {
                    // Respond to a request for conversion to a UTF-8 string
                    // or an encoding of our choosing (we always choose UTF-8)
                    const auto data = m_clipboardContents.toUtf8();

                    XChangeProperty(m_display.get(),
                                    selectionRequestEvent.requestor,
                                    selectionRequestEvent.property,
                                    m_utf8String,
                                    8,
                                    PropModeReplace,
                                    reinterpret_cast<const unsigned char*>(data.c_str()),
                                    static_cast<int>(data.size()));

                    // Notify the requestor that they can read the data from their window property
                    selectionEvent.target = m_utf8String;

                    XSendEvent(m_display.get(),
                               selectionRequestEvent.requestor,
                               True,
                               NoEventMask,
                               reinterpret_cast<XEvent*>(&selectionEvent));

                    break;
                }
            }

            // Notify the requestor that we could not respond to their request
            selectionEvent.target   = selectionRequestEvent.target;
            selectionEvent.property = None;

            XSendEvent(m_display.get(),
                       selectionRequestEvent.requestor,
                       True,
                       NoEventMask,
                       reinterpret_cast<XEvent*>(&selectionEvent));

            break;
        }
        default:
            break;
    }
}

} // namespace sf::priv
