src/context.c

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 * Copyright 2023 Mike Becker. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *   1. Redistributions of source code must retain the above copyright
 *      notice, this list of conditions and the following disclaimer.
 *
 *   2. Redistributions in binary form must reproduce the above copyright
 *      notice, this list of conditions and the following disclaimer in the
 *      documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#include "ascension/context.h"

#include <SDL2/SDL.h>
#include <SDL2/SDL_ttf.h>
#include <SDL2/SDL_image.h>

#include <GL/gl.h>

#include <cx/printf.h>

#include <time.h>

AscContext asc_context;

void asc_error_impl(const char* file, unsigned line, char const* fmt, ...) {
    asc_set_flag(asc_context.flags, ASC_FLAG_HAS_ERROR);

    // write to error buffer
    va_list args;
    va_start(args, fmt);
    CxBuffer* buf = &asc_context.error_buffer;
    size_t bufpos = buf->pos;
    int written = cx_vfprintf(buf, cxBufferWriteFunc, fmt, args);
    cxBufferPut(buf, '\n');
    va_end(args);

    // also print to stderr
    // avoid double-formatting, get it directly from the buffer
    fprintf(stderr, "[ERROR %s %u] %.*s\n",
        file, line, written, buf->space+bufpos);
}

bool asc_has_error(void) {
    return asc_test_flag(asc_context.flags, ASC_FLAG_HAS_ERROR);
}

char const* asc_get_error(void) {
    // we zero-terminate the current buffer contents before providing them
    cxBufferPut(&asc_context.error_buffer, 0);
    --asc_context.error_buffer.pos;
    --asc_context.error_buffer.size;
    return asc_context.error_buffer.space;
}

void asc_clear_error(void) {
    cxBufferClear(&asc_context.error_buffer);
    asc_clear_flag(asc_context.flags, ASC_FLAG_HAS_ERROR);
}

void asc_error_gl(unsigned code, const char *message) {
    const char *glerr;
    switch(code) {
        case GL_NO_ERROR:
            return;
        case GL_INVALID_ENUM:
            glerr = "invalid enum";
            break;
        case GL_INVALID_VALUE:
            glerr = "invalid value";
            break;
        case GL_INVALID_OPERATION:
            glerr = "invalid operation";
            break;
        case GL_INVALID_FRAMEBUFFER_OPERATION:
            glerr = "invalid framebuffer operation";
            break;
        case GL_OUT_OF_MEMORY:
            glerr = "out of memory";
            break;
        case GL_STACK_UNDERFLOW:
            glerr = "stack underflow";
            break;
        case GL_STACK_OVERFLOW:
            glerr = "stack overflow";
            break;
        default:
            glerr = "unknown GL error";
    }
    asc_error("%s\nGL Error: %s", message, glerr);
}

int asc_error_catch_all_gl(void) {
    GLenum error;
    int ret = 0;
    while ((error = glGetError()) != GL_NO_ERROR) {
        asc_error_gl(error, "Uncaught");
        ret = 1;
    }
    return ret;
}

static uint64_t asc_nanos(void) {
    struct timespec ts;
    clock_gettime(CLOCK_MONOTONIC, &ts);
    return 1000000000ull*(uint64_t)ts.tv_sec + (uint64_t)ts.tv_nsec;
}

// forward declare non-public font cache functions
void asc_font_cache_init(void);
void asc_font_cache_destroy(void);

void asc_context_initialize(void) {
    if (asc_test_flag(asc_context.flags, ASC_FLAG_INITILIZED))
        return;
    memset(&asc_context, 0, sizeof(AscContext));

    // initialize default paths
    asc_context.font_path = cx_strdup(CX_STR("./fonts"));
    asc_context.shader_path = cx_strdup(CX_STR("./shader"));
    asc_context.texture_path = cx_strdup(CX_STR("./textures"));

    // initialize the font cache
    asc_font_cache_init();

    // set a default font but do not load it
    asc_context.active_font.style = ASC_FONT_REGULAR;
    asc_context.active_font.size = 14;

    // no window, yet
    asc_context.active_window = ASC_MAX_WINDOWS;

    // initialize error buffer
    cxBufferInit(
            &asc_context.error_buffer,
            NULL,
            256,
            NULL,
            CX_BUFFER_AUTO_EXTEND
    );

    // initialize SDL
    const int supported_img_flags = IMG_INIT_PNG | IMG_INIT_JPG;
    if (SDL_Init(SDL_INIT_VIDEO) < 0) {
        asc_error("Failed to initialize SDL: %s", SDL_GetError());
    } else if (TTF_Init() < 0) {
        asc_error("Failed to initialize SDL_ttf: %s", TTF_GetError());
    } else if (IMG_Init(supported_img_flags) != supported_img_flags) {
        asc_error("Failed to initialize SDL_img: %s", IMG_GetError());
    }
    SDL_ClearError();
    asc_context.total_nanos = asc_nanos();
    asc_set_flag(asc_context.flags, ASC_FLAG_INITILIZED);
    asc_dprintf("Ascension context initialized.");
}

void asc_context_destroy(void) {
    // destroy windows
    for (unsigned int i = 0 ; i < ASC_MAX_WINDOWS ; i++) {
        asc_window_destroy(i);
    }

    // destroy the font cache
    asc_font_cache_destroy();

    // quit SDL
    IMG_Quit();
    TTF_Quit();
    SDL_Quit();

    // destroy the error buffer
    cxBufferDestroy(&asc_context.error_buffer);
    asc_context.flags = 0;
    asc_dprintf("Ascension context destroyed.");

    // destroy the path information
    cx_strfree(&asc_context.font_path);
    cx_strfree(&asc_context.shader_path);
    cx_strfree(&asc_context.texture_path);
}

void asc_context_quit(void) {
    asc_set_flag(asc_context.flags, ASC_FLAG_QUIT);
}

AscWindow *asc_active_window_assert() {
    if (asc_context.active_window < ASC_MAX_WINDOWS) {
        return &asc_context.windows[asc_context.active_window];
    } else {
        asc_dprintf("Window access attempted without active window");
        abort();
    }
}

static void asc_event_window_resized(Uint32 id, Sint32 width, Sint32 height) {
    unsigned int i = asc_window_index(id);
    if (i < ASC_MAX_WINDOWS) {
        asc_vec2i dimensions = (asc_vec2i) {width, height};
        asc_context.windows[i].resized = true;
        asc_context.windows[i].dimensions = dimensions;
    }
}

bool asc_loop_next(void) {
    // reset mouse motion
    asc_context.input.mouse_xrel = 0;
    asc_context.input.mouse_yrel = 0;

    // dispatch SDL events
    SDL_Event event;
    while (SDL_PollEvent(&event)) {
        switch (event.type) {
            case SDL_QUIT:
                asc_set_flag(asc_context.flags, ASC_FLAG_QUIT);
                break;
            case SDL_WINDOWEVENT: {
                if (event.window.event == SDL_WINDOWEVENT_RESIZED) {
                    asc_event_window_resized(
                            event.window.windowID,
                            event.window.data1,
                            event.window.data2
                    );
                } else if (event.window.event == SDL_WINDOWEVENT_FOCUS_GAINED) {
                    unsigned int idx = asc_window_index(event.window.windowID);
                    asc_context.windows[idx].focused = true;
                } else if (event.window.event == SDL_WINDOWEVENT_FOCUS_LOST) {
                    unsigned int idx = asc_window_index(event.window.windowID);
                    asc_context.windows[idx].focused = false;
                }
                break;
            }
            case SDL_MOUSEMOTION: {
                // accumulate relative motion
                asc_context.input.mouse_xrel += event.motion.xrel;
                asc_context.input.mouse_yrel += event.motion.yrel;
                // update absolute position
                asc_context.input.mouse_x = event.motion.x;
                asc_context.input.mouse_y = event.motion.y;
                // update which window the mouse was seen in
                asc_context.input.mouse_window =
                        asc_window_index(event.motion.windowID);
                break;
            }
            case SDL_KEYDOWN:
                asc_context.input.keys[event.key.keysym.scancode] = true;
                break;
            case SDL_KEYUP:
                asc_context.input.keys[event.key.keysym.scancode] = false;
                break;
        }
    }

    // sync the windows
    for (unsigned int i = 0 ; i < ASC_MAX_WINDOWS ; i++) {
        asc_window_sync(i);
    }

    // compute frame time
    uint64_t frame_nanos, ns;
    do {
        ns = asc_nanos();
        frame_nanos = ns - asc_context.total_nanos;
    } while (frame_nanos == 0);
    asc_context.frame_nanos = frame_nanos;
    asc_context.total_nanos = ns;

    return !asc_test_flag(asc_context.flags, ASC_FLAG_QUIT);
}

void asc_set_font_path(const char *path) {
    cx_strcpy(&asc_context.font_path, cx_str(path));
}

void asc_set_shader_path(const char *path) {
    cx_strcpy(&asc_context.shader_path, cx_str(path));
}

void asc_set_texture_path(const char *path) {
    cx_strcpy(&asc_context.texture_path, cx_str(path));
}