source: buchla-emu/emu/sdl.c@ 4ed9bfe

/*
 *  Copyright (C) 2017 The Contributors
 *
 *  This program is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or (at
 *  your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful, but
 *  WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 *  General Public License for more details.
 *
 *  A copy of the GNU General Public License can be found in the file
 *  "gpl.txt" in the top directory of this repository.
 */

#include <all.h>

int32_t sdl_verbose = 0;

#define ver(...) _ver(sdl_verbose, 0, __VA_ARGS__)
#define ver2(...) _ver(sdl_verbose, 1, __VA_ARGS__)
#define ver3(...) _ver(sdl_verbose, 2, __VA_ARGS__)

typedef void (*sdl_func_t)(void);

static sdl_func_t sdl_funcs[] = {
        ser_sdl, vid_sdl
};

void sdl_init(void)
{
        if (SDL_Init(SDL_INIT_VIDEO | SDL_INIT_EVENTS | SDL_INIT_TIMER) < 0) {
                fprintf(stderr, "SDL_Init() failed: %s\n", SDL_GetError());
                exit(1);
        }

        SDL_LogSetPriority(SDL_LOG_CATEGORY_APPLICATION, SDL_LOG_PRIORITY_VERBOSE);

        if (SDLNet_Init() < 0) {
                fail("SDLNet_Init() failed: %s", SDLNet_GetError());
        }

        if (TTF_Init() < 0) {
                fail("TTF_Init() failed: %s", TTF_GetError());
        }

        SDL_SetHint(SDL_HINT_RENDER_SCALE_QUALITY, "1");
        SDL_StartTextInput();
}

void sdl_quit(void)
{
        TTF_Quit();
        SDLNet_Quit();
        SDL_Quit();
}

void sdl_loop(void)
{
        inf("entering SDL loop");

#if defined EMU_LINUX
        SDL_Scancode down = SDL_SCANCODE_UNKNOWN;
#endif

        bool rel_mod = false;
        uint32_t win = 0;

        while (SDL_AtomicGet(&run) != 0) {
                for (int32_t i = 0; i < ARRAY_COUNT(sdl_funcs); ++i) {
                        sdl_funcs[i]();
                }

                SDL_Event ev;

                while (SDL_PollEvent(&ev) > 0) {
                        ver2("sdl ev %d", ev.type);

#if defined EMU_LINUX
                        // Work around duplicate key-down events on Linux.

                        if (ev.type == SDL_KEYDOWN) {
                                if (down == ev.key.keysym.scancode) {
                                        ver2("sdl dedup: skip %d", (int32_t)down);
                                        continue;
                                }

                                down = ev.key.keysym.scancode;
                                ver2("sdl dedup: %d", (int32_t)down);
                        }
                        else if (ev.type == SDL_KEYUP) {
                                down = SDL_SCANCODE_UNKNOWN;
                                ver2("sdl dedup: reset");
                        }
#endif

                        if (ev.type == SDL_QUIT ||
                                        (ev.type == SDL_KEYDOWN && ev.key.keysym.sym == SDLK_ESCAPE)) {
                                inf("quit event");
                                SDL_AtomicSet(&run, 0);
                                continue;
                        }

                        if (ev.type == SDL_WINDOWEVENT) {
                                if (ev.window.event == SDL_WINDOWEVENT_FOCUS_GAINED) {
                                        ver("sdl ev win %u", ev.window.windowID);
                                        win = ev.window.windowID;
                                }
                        }

                        if (ev.type == SDL_KEYDOWN && ev.key.keysym.sym == SDLK_DOWN) {
                                ver("sdl ev down-arrow");
                                rel_mod = true;
                                ser_mou_res();
                                continue;
                        }

                        if (ev.type == SDL_KEYDOWN && ev.key.keysym.sym == SDLK_UP) {
                                ver("sdl ev up-arrow");
                                rel_mod = false;
                                continue;
                        }

                        if (rel_mod) {
                                if (ev.type == SDL_MOUSEMOTION) {
                                        ver("sdl ev mousemotion (%d, %d)", ev.motion.xrel, ev.motion.yrel);
                                        ser_mou_mov(&ev.motion);
                                        continue;
                                }

                                if (ev.type == SDL_MOUSEBUTTONDOWN) {
                                        ver("sdl ev mousebuttondown %d", ev.button.button);
                                        ser_mou_dn(&ev.button);
                                        continue;
                                }

                                if (ev.type == SDL_MOUSEBUTTONUP) {
                                        ver("sdl ev mousebuttonup %d", ev.button.button);
                                        ser_mou_up(&ev.button);
                                        continue;
                                }
                        }

                        if (ev.type == SDL_TEXTINPUT) {
                                ver("sdl ev text input %d", ev.text.text[0]);

                                if (win == ser_win) {
                                        ser_text(&ev.text);
                                }
                                else if (win == vid_win) {
                                        kbd_text(&ev.text);
                                }

                                continue;
                        }

                        if (ev.type == SDL_KEYDOWN) {
                                ver("sdl ev key down %d", (int32_t)ev.key.keysym.sym);

                                if (win == ser_win) {
                                        ser_key(&ev.key);
                                }
                                else if (win == vid_win) {
                                        kbd_key(&ev.key);
                                }

                                continue;
                        }
                }

                SDL_Delay(50);

                if (SDL_GetRelativeMouseMode() != rel_mod) {
                        SDL_SetRelativeMouseMode(rel_mod);

                        if (rel_mod) {
                                inf("MOUSE CAPTURED - press UP-ARROW KEY to release");
                        }
                        else {
                                inf("mouse released");
                        }
                }
        }

        inf("leaving SDL loop");
}