//
// Copyright (c) 2016 Advanced Micro Devices, Inc. All rights reserved.
//

#ifndef WITHOUT_HSA_BACKEND

#include "os/os.hpp"
#include "utils/debug.hpp"
#include "utils/flags.hpp"
#include "device/rocm/rocglinterop.hpp"

#if !defined(_WIN32)
#include <dlfcn.h>
#endif

namespace roc {

#if !defined(_WIN32)
static PFNMESAGLINTEROPGLXQUERYDEVICEINFOPROC GlxInfo = nullptr;
static PFNMESAGLINTEROPGLXEXPORTOBJECTPROC GlxExport = nullptr;
static PFNMESAGLINTEROPEGLQUERYDEVICEINFOPROC EglInfo = nullptr;
static PFNMESAGLINTEROPEGLEXPORTOBJECTPROC EglExport = nullptr;
#endif

std::atomic<uint32_t> MesaInterop::refCount(0);

bool MesaInterop::Supported() {
#ifdef _WIN32
  return false;
#else
  return true;
#endif
}

// Attempt to locate Mesa interop APIs.  Return which of glx/egl are supported.
bool MesaInterop::Bind(MESA_INTEROP_KIND Kind, const DisplayHandle& Display,
                       const ContextHandle& Context) {
#if defined(_WIN32)
  return false;
#else
  if (Kind == MESA_INTEROP_NONE) return false;

  if (kind != MESA_INTEROP_NONE) {
    LogError("Error - MesaInterop Bind while already bound.");
    return false;
  }

  void* glxinfo = dlsym(RTLD_DEFAULT, "MesaGLInteropGLXQueryDeviceInfo");
  void* eglinfo = dlsym(RTLD_DEFAULT, "MesaGLInteropEGLQueryDeviceInfo");

  if (((glxinfo != GlxInfo) || (eglinfo != EglInfo)) && (refCount != 0))
    LogWarning("Warning - Mesa changed while holding interop contexts.");

  GlxInfo = (PFNMESAGLINTEROPGLXQUERYDEVICEINFOPROC)glxinfo;
  EglInfo = (PFNMESAGLINTEROPEGLQUERYDEVICEINFOPROC)eglinfo;

  GlxExport =
      (PFNMESAGLINTEROPGLXEXPORTOBJECTPROC)dlsym(RTLD_DEFAULT, "MesaGLInteropGLXExportObject");
  EglExport =
      (PFNMESAGLINTEROPEGLEXPORTOBJECTPROC)dlsym(RTLD_DEFAULT, "MesaGLInteropEGLExportObject");

  uint32_t ret = MESA_INTEROP_NONE;
  if (GlxInfo && GlxExport) ret |= MESA_INTEROP_GLX;
  if (EglInfo && EglExport) ret |= MESA_INTEROP_EGL;

  kind = MESA_INTEROP_KIND(ret & Kind);
  display = Display;
  context = Context;

  if (kind != MESA_INTEROP_NONE) {
    refCount++;
    return true;
  }
  return false;

#endif
}

bool MesaInterop::GetInfo(mesa_glinterop_device_info& info) const {
#ifdef _WIN32
  return false;
#else
  switch (kind) {
    case MESA_INTEROP_GLX:
      return GlxInfo(display.glxDisplay, context.glxContext, &info) == MESA_GLINTEROP_SUCCESS;
    case MESA_INTEROP_EGL:
      return EglInfo(display.eglDisplay, context.eglContext, &info) == MESA_GLINTEROP_SUCCESS;
    default:
      return false;
  }
#endif
}

bool MesaInterop::Export(mesa_glinterop_export_in& in, mesa_glinterop_export_out& out) const {
#ifdef _WIN32
  return false;
#else
  switch (kind) {
    case MESA_INTEROP_GLX:
      return GlxExport(display.glxDisplay, context.glxContext, &in, &out) == MESA_GLINTEROP_SUCCESS;
    case MESA_INTEROP_EGL:
      return EglExport(display.eglDisplay, context.eglContext, &in, &out) == MESA_GLINTEROP_SUCCESS;
    default:
      return false;
  }
#endif
}
}

#endif  // WITHOUT_HSA_BACKEND