#include "components/eventloop.hpp"

#include <cassert>

#include "errors.hpp"

#if !(UV_VERSION_MAJOR == 1 && UV_VERSION_MINOR >= 3)
#error "Polybar requires libuv 1.x and at least version 1.3"
#endif

POLYBAR_NS

/**
 * Closes the given wrapper.
 *
 * We have to have distinct cases for all types because we can't just cast to `UVHandleGeneric` without template
 * arguments.
 */
void close_callback(uv_handle_t* handle) {
  switch (handle->type) {
    case UV_ASYNC:
      static_cast<AsyncHandle*>(handle->data)->cleanup_resources();
      break;
    case UV_FS_EVENT:
      static_cast<FSEventHandle*>(handle->data)->cleanup_resources();
      break;
    case UV_POLL:
      static_cast<PollHandle*>(handle->data)->cleanup_resources();
      break;
    case UV_TIMER:
      static_cast<TimerHandle*>(handle->data)->cleanup_resources();
      break;
    case UV_SIGNAL:
      static_cast<SignalHandle*>(handle->data)->cleanup_resources();
      break;
    case UV_NAMED_PIPE:
      static_cast<PipeHandle*>(handle->data)->cleanup_resources();
      break;
    default:
      assert(false);
  }
}

static void alloc_cb(uv_handle_t*, size_t, uv_buf_t* buf) {
  buf->base = new char[BUFSIZ];
  buf->len = BUFSIZ;
}

// SignalHandle {{{
SignalHandle::SignalHandle(uv_loop_t* loop, function<void(int)> fun) : UVHandle(fun) {
  UV(uv_signal_init, loop, handle);
}

void SignalHandle::start(int signum) {
  UV(uv_signal_start, handle, callback, signum);
}
// }}}

// PollHandle {{{
PollHandle::PollHandle(uv_loop_t* loop, int fd, function<void(uv_poll_event)> fun, function<void(int)> err_cb)
    : UVHandle([this](int status, int events) { poll_cb(status, events); }), func(fun), err_cb(err_cb) {
  UV(uv_poll_init, loop, handle, fd);
}

void PollHandle::start(int events) {
  UV(uv_poll_start, handle, events, callback);
}

void PollHandle::poll_cb(int status, int events) {
  if (status < 0) {
    close();
    err_cb(status);
    return;
  }

  func((uv_poll_event)events);
}
// }}}

// FSEventHandle {{{
FSEventHandle::FSEventHandle(uv_loop_t* loop, function<void(const char*, uv_fs_event)> fun, function<void(int)> err_cb)
    : UVHandle([this](const char* path, int events, int status) { fs_event_cb(path, events, status); })
    , func(fun)
    , err_cb(err_cb) {
  UV(uv_fs_event_init, loop, handle);
}

void FSEventHandle::start(const string& path) {
  UV(uv_fs_event_start, handle, callback, path.c_str(), 0);
}

void FSEventHandle::fs_event_cb(const char* path, int events, int status) {
  if (status < 0) {
    close();
    err_cb(status);
    return;
  }

  func(path, (uv_fs_event)events);
}
// }}}

// PipeHandle {{{
PipeHandle::PipeHandle(uv_loop_t* loop, const string& path, function<void(const string)> fun,
    function<void(void)> eof_cb, function<void(int)> err_cb)
    : UVHandleGeneric([&](ssize_t nread, const uv_buf_t* buf) { read_cb(nread, buf); })
    , func(fun)
    , eof_cb(eof_cb)
    , err_cb(err_cb)
    , path(path) {
  UV(uv_pipe_init, loop, handle, false);
}

void PipeHandle::start() {
  if ((fd = open(path.c_str(), O_RDONLY | O_NONBLOCK)) == -1) {
    throw system_error("Failed to open pipe '" + path + "'");
  }
  UV(uv_pipe_open, handle, fd);
  UV(uv_read_start, (uv_stream_t*)handle, alloc_cb, callback);
}

void PipeHandle::read_cb(ssize_t nread, const uv_buf_t* buf) {
  /*
   * Wrap pointer so that it gets automatically freed once the function returns (even with exceptions)
   */
  auto buf_ptr = unique_ptr<char>(buf->base);
  if (nread > 0) {
    func(string(buf_ptr.get(), nread));
  } else if (nread < 0) {
    if (nread != UV_EOF) {
      close();
      err_cb(nread);
    } else {
      eof_cb();

      /*
       * This is a special case.
       *
       * Once we read EOF, we no longer receive events for the fd, so we close the entire handle and restart it with a
       * new fd.
       *
       * We reuse the memory for the underlying uv handle
       */
      if (!uv_is_closing((uv_handle_t*)handle)) {
        uv_close((uv_handle_t*)handle, [](uv_handle_t* handle) {
          PipeHandle* This = static_cast<PipeHandle*>(handle->data);
          UV(uv_pipe_init, This->loop(), This->handle, false);
          This->start();
        });
      }
    }
  }
}
// }}}

// TimerHandle {{{
TimerHandle::TimerHandle(uv_loop_t* loop, function<void(void)> fun) : UVHandle(fun) {
  UV(uv_timer_init, loop, handle);
}

void TimerHandle::start(uint64_t timeout, uint64_t repeat) {
  UV(uv_timer_start, handle, callback, timeout, repeat);
}
// }}}

// AsyncHandle {{{
AsyncHandle::AsyncHandle(uv_loop_t* loop, function<void(void)> fun) : UVHandle(fun) {
  UV(uv_async_init, loop, handle, callback);
}

void AsyncHandle::send() {
  UV(uv_async_send, handle);
}
// }}}

// eventloop {{{
static void close_walk_cb(uv_handle_t* handle, void*) {
  if (!uv_is_closing(handle)) {
    uv_close(handle, close_callback);
  }
}

/**
 * Completely closes everything in the loop.
 *
 * After this function returns, uv_loop_close can be called.
 */
static void close_loop(uv_loop_t* loop) {
  uv_walk(loop, close_walk_cb, nullptr);
  UV(uv_run, loop, UV_RUN_DEFAULT);
}

eventloop::eventloop() {
  m_loop = std::make_unique<uv_loop_t>();
  UV(uv_loop_init, m_loop.get());
  m_loop->data = this;
}

eventloop::~eventloop() {
  if (m_loop) {
    try {
      close_loop(m_loop.get());
      UV(uv_loop_close, m_loop.get());
    } catch (const std::exception& e) {
      logger::make().err("%s", e.what());
    }

    m_loop.reset();
  }
}

void eventloop::run() {
  UV(uv_run, m_loop.get(), UV_RUN_DEFAULT);
}

void eventloop::stop() {
  uv_stop(m_loop.get());
}

uv_loop_t* eventloop::get() const {
  return m_loop.get();
}

void eventloop::signal_handle(int signum, function<void(int)> fun) {
  m_sig_handles.emplace_back(std::make_unique<SignalHandle>(get(), fun));
  m_sig_handles.back()->start(signum);
}

void eventloop::poll_handle(int events, int fd, function<void(uv_poll_event)> fun, function<void(int)> err_cb) {
  m_poll_handles.emplace_back(std::make_unique<PollHandle>(get(), fd, fun, err_cb));
  m_poll_handles.back()->start(events);
}

void eventloop::fs_event_handle(
    const string& path, function<void(const char*, uv_fs_event)> fun, function<void(int)> err_cb) {
  m_fs_event_handles.emplace_back(std::make_unique<FSEventHandle>(get(), fun, err_cb));
  m_fs_event_handles.back()->start(path);
}

void eventloop::pipe_handle(
    const string& path, function<void(const string)> fun, function<void(void)> eof_cb, function<void(int)> err_cb) {
  m_pipe_handles.emplace_back(std::make_unique<PipeHandle>(get(), path, fun, eof_cb, err_cb));
  m_pipe_handles.back()->start();
}

void eventloop::timer_handle(uint64_t timeout, uint64_t repeat, function<void(void)> fun) {
  m_timer_handles.emplace_back(std::make_unique<TimerHandle>(get(), fun));
  m_timer_handles.back()->start(timeout, repeat);
}

AsyncHandle_t eventloop::async_handle(function<void(void)> fun) {
  m_async_handles.emplace_back(std::make_shared<AsyncHandle>(get(), fun));
  return m_async_handles.back();
}
// }}}

POLYBAR_NS_END