#ifndef GDK_PC_INFO_H

#define GDK_PC_INFO_H

#include <windows.h>

// Function signatures for Dynamic Loading

typedef HRESULT (WINAPI* PFN_D3D11_CREATE_DEVICE)(void*, int, void*, UINT, void*, UINT, UINT, void**, void*, void**);

typedef HRESULT (WINAPI* PFN_D3D12_CREATE_DEVICE)(void*, int, const GUID&, void**);

typedef const unsigned char* (WINAPI* PFN_GL_GET_STRING)(unsigned int);

#define DLLEXPORT extern "C" __declspec(dllexport)

static int g_modes[10];

static int g_versions[10];

// Internal helper for OpenGL

void CheckOpenGL(int* major, int* minor) {

    HMODULE hGL = LoadLibraryA("opengl32.dll");

    if (!hGL) return;

    auto pglGetString = (PFN_GL_GET_STRING)GetProcAddress(hGL, "glGetString");

    auto pwglCreateContext = (void* (WINAPI*)(void*))GetProcAddress(hGL, "wglCreateContext");

    auto pwglMakeCurrent = (int (WINAPI*)(void*, void*))GetProcAddress(hGL, "wglMakeCurrent");

    auto pwglDeleteContext = (int (WINAPI*)(void*))GetProcAddress(hGL, "wglDeleteContext");

    // Create a dummy window to initialize a context

    HWND dummyW = CreateWindowA("STATIC", "GDK_GL_PROBE", 0, 0, 0, 0, 0, NULL, NULL, NULL, NULL);

    HDC hdc = GetDC(dummyW);

    PIXELFORMATDESCRIPTOR pfd = { sizeof(pfd), 1, PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER, 32 };

    SetPixelFormat(hdc, ChoosePixelFormat(hdc, &pfd), &pfd);

    void* hrc = pwglCreateContext(hdc);

    if (hrc) {

        pwglMakeCurrent(hdc, hrc);

        const char* verStr = (const char*)pglGetString(0x1F02); // 0x1F02 = GL_VERSION

        if (verStr) {

            sscanf(verStr, "%d.%d", major, minor);

        }

        pwglMakeCurrent(NULL, NULL);

        pwglDeleteContext(hrc);

    }

    ReleaseDC(dummyW, hdc);

    DestroyWindow(dummyW);

    FreeLibrary(hGL);

}

DLLEXPORT void GDK_Scan_System() {

    for(int i=0; i<10; i++) { g_modes[i] = 0; g_versions[i] = 0; }

    // --- Index 0: OpenGL ---

    int glMaj = 0, glMin = 0;

    CheckOpenGL(&glMaj, &glMin);

    if (glMaj > 0) {

        g_modes[0] = 1;

        g_versions[0] = (glMaj * 100) + (glMin * 10); // e.g., 4.6 becomes 460

    }

    // --- Index 1: DX11 ---

    HMODULE hD3D11 = LoadLibraryA("d3d11.dll");

    if (hD3D11) {

        auto pD3D11CreateDevice = (PFN_D3D11_CREATE_DEVICE)GetProcAddress(hD3D11, "D3D11CreateDevice");

        void* device = nullptr; int fl = 0;

        if (pD3D11CreateDevice && SUCCEEDED(pD3D11CreateDevice(NULL, 1, NULL, 0, NULL, 0, 7, &device, &fl, NULL))) {

            g_modes[1] = 1;

            g_versions[1] = fl;

        }

        FreeLibrary(hD3D11);

    }

    // --- Index 2: DX12 ---

    HMODULE hD3D12 = LoadLibraryA("d3d12.dll");

    if (hD3D12) {

        auto pD3D12CreateDevice = (PFN_D3D12_CREATE_DEVICE)GetProcAddress(hD3D12, "D3D12CreateDevice");

        void* device = nullptr;

        GUID iid_dx12 = {0x189819f1, 0x1db6, 0x4b5e, {0x85, 0x46, 0x7b, 0x8d, 0x1d, 0x6e, 0x8a, 0x1f}};

        if (pD3D12CreateDevice && SUCCEEDED(pD3D12CreateDevice(NULL, 0x3000, iid_dx12, &device))) {

            g_modes[2] = 1;

        }

        FreeLibrary(hD3D12);

    }

    // --- Index 3: Vulkan ---

    HMODULE hVK = LoadLibraryA("vulkan-1.dll");

    if (hVK) { g_modes[3] = 1; FreeLibrary(hVK); }

}

DLLEXPORT int GDK_Get_Mode_Supported(int index) {

    return (index >= 0 && index < 10) ? g_modes[index] : 0;

}

DLLEXPORT int GDK_Get_Version_Data(int index) {

    return (index >= 0 && index < 10) ? g_versions[index] : 0;

}

#endif

' Note the casing matches the file on disk exactly

DECLARE LIBRARY "GDK_PC_Info"

  SUB GDK_Scan_System ()

  FUNCTION GDK_Get_Mode_Supported% (BYVAL index AS LONG)

  FUNCTION GDK_Get_Version_Data% (BYVAL index AS LONG)

END DECLARE



CLS

PRINT "Scanning ATI/AMD Hardware..."

GDK_Scan_System



' Display Results



IF GDK_Get_Mode_Supported%(0) THEN

  PRINT "OpenGL: Supported (Version Data: "; GDK_Get_Version_Data%(0); ")"

END IF



IF GDK_Get_Mode_Supported%(1) THEN PRINT "DirectX 11: Supported"

IF GDK_Get_Mode_Supported%(2) THEN PRINT "DirectX 12: Supported"

IF GDK_Get_Mode_Supported%(5) THEN PRINT " -> Hardware RayTracing: ENABLED"

IF GDK_Get_Mode_Supported%(3) THEN PRINT "Vulkan: Supported (Driver Found)"



PRINT: PRINT "Scan Complete."