2020-06-29 15:24:08 +02:00
|
|
|
#include <SDL.h>
|
2020-04-22 00:33:04 +02:00
|
|
|
#include <stdbool.h>
|
2019-12-28 12:16:32 +01:00
|
|
|
#include <ctype.h>
|
|
|
|
#include <dirent.h>
|
2020-05-17 17:59:19 +02:00
|
|
|
#include <unistd.h>
|
2020-04-22 00:33:04 +02:00
|
|
|
#include <errno.h>
|
2019-12-28 12:16:32 +01:00
|
|
|
#include <sys/stat.h>
|
|
|
|
#include "api.h"
|
2020-05-22 10:00:48 +02:00
|
|
|
#include "rencache.h"
|
2019-12-28 12:16:32 +01:00
|
|
|
#ifdef _WIN32
|
2020-12-02 16:03:31 +01:00
|
|
|
#include <direct.h>
|
2019-12-28 12:16:32 +01:00
|
|
|
#include <windows.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
extern SDL_Window *window;
|
|
|
|
|
|
|
|
|
|
|
|
static const char* button_name(int button) {
|
|
|
|
switch (button) {
|
|
|
|
case 1 : return "left";
|
|
|
|
case 2 : return "middle";
|
|
|
|
case 3 : return "right";
|
|
|
|
default : return "?";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static char* key_name(char *dst, int sym) {
|
|
|
|
strcpy(dst, SDL_GetKeyName(sym));
|
|
|
|
char *p = dst;
|
|
|
|
while (*p) {
|
|
|
|
*p = tolower(*p);
|
|
|
|
p++;
|
|
|
|
}
|
|
|
|
return dst;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static int f_poll_event(lua_State *L) {
|
|
|
|
char buf[16];
|
2020-05-20 11:33:08 +02:00
|
|
|
int mx, my, wx, wy;
|
2019-12-28 12:16:32 +01:00
|
|
|
SDL_Event e;
|
|
|
|
|
|
|
|
top:
|
|
|
|
if ( !SDL_PollEvent(&e) ) {
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
switch (e.type) {
|
|
|
|
case SDL_QUIT:
|
|
|
|
lua_pushstring(L, "quit");
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
case SDL_WINDOWEVENT:
|
|
|
|
if (e.window.event == SDL_WINDOWEVENT_RESIZED) {
|
|
|
|
lua_pushstring(L, "resized");
|
|
|
|
lua_pushnumber(L, e.window.data1);
|
|
|
|
lua_pushnumber(L, e.window.data2);
|
|
|
|
return 3;
|
|
|
|
} else if (e.window.event == SDL_WINDOWEVENT_EXPOSED) {
|
2020-05-22 10:00:48 +02:00
|
|
|
rencache_invalidate();
|
|
|
|
lua_pushstring(L, "exposed");
|
|
|
|
return 1;
|
2019-12-28 12:16:32 +01:00
|
|
|
}
|
2020-11-21 16:36:13 +01:00
|
|
|
if (e.window.event == SDL_WINDOWEVENT_FOCUS_LOST) {
|
|
|
|
lua_pushstring(L, "focuslost");
|
|
|
|
return 1;
|
|
|
|
}
|
2019-12-28 12:16:32 +01:00
|
|
|
/* on some systems, when alt-tabbing to the window SDL will queue up
|
|
|
|
** several KEYDOWN events for the `tab` key; we flush all keydown
|
|
|
|
** events on focus so these are discarded */
|
|
|
|
if (e.window.event == SDL_WINDOWEVENT_FOCUS_GAINED) {
|
|
|
|
SDL_FlushEvent(SDL_KEYDOWN);
|
|
|
|
}
|
|
|
|
goto top;
|
|
|
|
|
|
|
|
case SDL_DROPFILE:
|
2020-05-20 11:33:08 +02:00
|
|
|
SDL_GetGlobalMouseState(&mx, &my);
|
|
|
|
SDL_GetWindowPosition(window, &wx, &wy);
|
2019-12-28 12:16:32 +01:00
|
|
|
lua_pushstring(L, "filedropped");
|
|
|
|
lua_pushstring(L, e.drop.file);
|
2020-05-20 11:33:08 +02:00
|
|
|
lua_pushnumber(L, mx - wx);
|
|
|
|
lua_pushnumber(L, my - wy);
|
2019-12-28 12:16:32 +01:00
|
|
|
SDL_free(e.drop.file);
|
2020-05-20 11:33:08 +02:00
|
|
|
return 4;
|
2019-12-28 12:16:32 +01:00
|
|
|
|
|
|
|
case SDL_KEYDOWN:
|
|
|
|
lua_pushstring(L, "keypressed");
|
|
|
|
lua_pushstring(L, key_name(buf, e.key.keysym.sym));
|
|
|
|
return 2;
|
|
|
|
|
|
|
|
case SDL_KEYUP:
|
|
|
|
lua_pushstring(L, "keyreleased");
|
|
|
|
lua_pushstring(L, key_name(buf, e.key.keysym.sym));
|
|
|
|
return 2;
|
|
|
|
|
|
|
|
case SDL_TEXTINPUT:
|
|
|
|
lua_pushstring(L, "textinput");
|
|
|
|
lua_pushstring(L, e.text.text);
|
|
|
|
return 2;
|
|
|
|
|
|
|
|
case SDL_MOUSEBUTTONDOWN:
|
|
|
|
if (e.button.button == 1) { SDL_CaptureMouse(1); }
|
|
|
|
lua_pushstring(L, "mousepressed");
|
|
|
|
lua_pushstring(L, button_name(e.button.button));
|
|
|
|
lua_pushnumber(L, e.button.x);
|
|
|
|
lua_pushnumber(L, e.button.y);
|
|
|
|
lua_pushnumber(L, e.button.clicks);
|
|
|
|
return 5;
|
|
|
|
|
|
|
|
case SDL_MOUSEBUTTONUP:
|
|
|
|
if (e.button.button == 1) { SDL_CaptureMouse(0); }
|
|
|
|
lua_pushstring(L, "mousereleased");
|
|
|
|
lua_pushstring(L, button_name(e.button.button));
|
|
|
|
lua_pushnumber(L, e.button.x);
|
|
|
|
lua_pushnumber(L, e.button.y);
|
|
|
|
return 4;
|
|
|
|
|
|
|
|
case SDL_MOUSEMOTION:
|
|
|
|
lua_pushstring(L, "mousemoved");
|
|
|
|
lua_pushnumber(L, e.motion.x);
|
|
|
|
lua_pushnumber(L, e.motion.y);
|
|
|
|
lua_pushnumber(L, e.motion.xrel);
|
|
|
|
lua_pushnumber(L, e.motion.yrel);
|
|
|
|
return 5;
|
|
|
|
|
|
|
|
case SDL_MOUSEWHEEL:
|
|
|
|
lua_pushstring(L, "mousewheel");
|
|
|
|
lua_pushnumber(L, e.wheel.y);
|
|
|
|
return 2;
|
|
|
|
|
|
|
|
default:
|
|
|
|
goto top;
|
|
|
|
}
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2020-05-10 22:00:40 +02:00
|
|
|
static int f_wait_event(lua_State *L) {
|
2020-06-16 14:53:01 +02:00
|
|
|
int nargs = lua_gettop(L);
|
|
|
|
if (nargs >= 1) {
|
|
|
|
double n = luaL_checknumber(L, 1);
|
|
|
|
lua_pushboolean(L, SDL_WaitEventTimeout(NULL, n * 1000));
|
|
|
|
} else {
|
|
|
|
lua_pushboolean(L, SDL_WaitEvent(NULL));
|
|
|
|
}
|
2020-05-10 22:00:40 +02:00
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2019-12-28 12:16:32 +01:00
|
|
|
static SDL_Cursor* cursor_cache[SDL_SYSTEM_CURSOR_HAND + 1];
|
|
|
|
|
|
|
|
static const char *cursor_opts[] = {
|
|
|
|
"arrow",
|
|
|
|
"ibeam",
|
|
|
|
"sizeh",
|
|
|
|
"sizev",
|
|
|
|
"hand",
|
|
|
|
NULL
|
|
|
|
};
|
|
|
|
|
|
|
|
static const int cursor_enums[] = {
|
|
|
|
SDL_SYSTEM_CURSOR_ARROW,
|
|
|
|
SDL_SYSTEM_CURSOR_IBEAM,
|
|
|
|
SDL_SYSTEM_CURSOR_SIZEWE,
|
|
|
|
SDL_SYSTEM_CURSOR_SIZENS,
|
|
|
|
SDL_SYSTEM_CURSOR_HAND
|
|
|
|
};
|
|
|
|
|
|
|
|
static int f_set_cursor(lua_State *L) {
|
|
|
|
int opt = luaL_checkoption(L, 1, "arrow", cursor_opts);
|
|
|
|
int n = cursor_enums[opt];
|
|
|
|
SDL_Cursor *cursor = cursor_cache[n];
|
|
|
|
if (!cursor) {
|
|
|
|
cursor = SDL_CreateSystemCursor(n);
|
|
|
|
cursor_cache[n] = cursor;
|
|
|
|
}
|
|
|
|
SDL_SetCursor(cursor);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static int f_set_window_title(lua_State *L) {
|
|
|
|
const char *title = luaL_checkstring(L, 1);
|
|
|
|
SDL_SetWindowTitle(window, title);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2020-04-07 19:48:57 +02:00
|
|
|
static const char *window_opts[] = { "normal", "maximized", "fullscreen", 0 };
|
|
|
|
enum { WIN_NORMAL, WIN_MAXIMIZED, WIN_FULLSCREEN };
|
|
|
|
|
|
|
|
static int f_set_window_mode(lua_State *L) {
|
|
|
|
int n = luaL_checkoption(L, 1, "normal", window_opts);
|
|
|
|
SDL_SetWindowFullscreen(window,
|
|
|
|
n == WIN_FULLSCREEN ? SDL_WINDOW_FULLSCREEN_DESKTOP : 0);
|
|
|
|
if (n == WIN_NORMAL) { SDL_RestoreWindow(window); }
|
|
|
|
if (n == WIN_MAXIMIZED) { SDL_MaximizeWindow(window); }
|
2020-03-25 23:44:59 +01:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2020-12-31 11:25:12 +01:00
|
|
|
static int f_get_window_size(lua_State *L) {
|
|
|
|
int x, y, w, h;
|
|
|
|
SDL_GetWindowSize(window, &w, &h);
|
|
|
|
SDL_GetWindowPosition(window, &x, &y);
|
|
|
|
lua_pushnumber(L, w);
|
|
|
|
lua_pushnumber(L, h);
|
|
|
|
lua_pushnumber(L, x);
|
|
|
|
lua_pushnumber(L, y);
|
|
|
|
return 4;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static int f_set_window_size(lua_State *L) {
|
|
|
|
double w = luaL_checknumber(L, 1);
|
|
|
|
double h = luaL_checknumber(L, 2);
|
|
|
|
double x = luaL_checknumber(L, 3);
|
|
|
|
double y = luaL_checknumber(L, 4);
|
|
|
|
SDL_SetWindowSize(window, w, h);
|
|
|
|
SDL_SetWindowPosition(window, x, y);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2019-12-28 12:16:32 +01:00
|
|
|
static int f_window_has_focus(lua_State *L) {
|
|
|
|
unsigned flags = SDL_GetWindowFlags(window);
|
|
|
|
lua_pushboolean(L, flags & SDL_WINDOW_INPUT_FOCUS);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2021-03-05 10:33:50 +01:00
|
|
|
static int f_show_fatal_error(lua_State *L) {
|
|
|
|
const char *title = luaL_checkstring(L, 1);
|
|
|
|
const char *msg = luaL_checkstring(L, 2);
|
|
|
|
|
|
|
|
#ifdef _WIN32
|
|
|
|
MessageBox(0, msg, title, MB_OK | MB_ICONERROR);
|
|
|
|
|
|
|
|
#else
|
|
|
|
SDL_MessageBoxButtonData buttons[] = {
|
|
|
|
{ SDL_MESSAGEBOX_BUTTON_RETURNKEY_DEFAULT, 0, "Ok" },
|
|
|
|
};
|
|
|
|
SDL_MessageBoxData data = {
|
|
|
|
.title = title,
|
|
|
|
.message = msg,
|
|
|
|
.numbuttons = 1,
|
|
|
|
.buttons = buttons,
|
|
|
|
};
|
|
|
|
int buttonid;
|
|
|
|
SDL_ShowMessageBox(&data, &buttonid);
|
|
|
|
#endif
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2020-05-17 17:59:19 +02:00
|
|
|
static int f_chdir(lua_State *L) {
|
|
|
|
const char *path = luaL_checkstring(L, 1);
|
|
|
|
int err = chdir(path);
|
|
|
|
if (err) { luaL_error(L, "chdir() failed"); }
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2019-12-28 12:16:32 +01:00
|
|
|
static int f_list_dir(lua_State *L) {
|
|
|
|
const char *path = luaL_checkstring(L, 1);
|
|
|
|
|
|
|
|
DIR *dir = opendir(path);
|
2020-04-22 00:33:04 +02:00
|
|
|
if (!dir) {
|
|
|
|
lua_pushnil(L);
|
|
|
|
lua_pushstring(L, strerror(errno));
|
|
|
|
return 2;
|
|
|
|
}
|
2019-12-28 12:16:32 +01:00
|
|
|
|
|
|
|
lua_newtable(L);
|
|
|
|
int i = 1;
|
|
|
|
struct dirent *entry;
|
|
|
|
while ( (entry = readdir(dir)) ) {
|
|
|
|
if (strcmp(entry->d_name, "." ) == 0) { continue; }
|
|
|
|
if (strcmp(entry->d_name, "..") == 0) { continue; }
|
|
|
|
lua_pushstring(L, entry->d_name);
|
|
|
|
lua_rawseti(L, -2, i);
|
|
|
|
i++;
|
|
|
|
}
|
|
|
|
|
|
|
|
closedir(dir);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#ifdef _WIN32
|
|
|
|
#include <windows.h>
|
|
|
|
#define realpath(x, y) _fullpath(y, x, MAX_PATH)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
static int f_absolute_path(lua_State *L) {
|
|
|
|
const char *path = luaL_checkstring(L, 1);
|
|
|
|
char *res = realpath(path, NULL);
|
|
|
|
if (!res) { return 0; }
|
|
|
|
lua_pushstring(L, res);
|
|
|
|
free(res);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static int f_get_file_info(lua_State *L) {
|
|
|
|
const char *path = luaL_checkstring(L, 1);
|
|
|
|
|
|
|
|
struct stat s;
|
|
|
|
int err = stat(path, &s);
|
2020-04-22 00:33:04 +02:00
|
|
|
if (err < 0) {
|
|
|
|
lua_pushnil(L);
|
|
|
|
lua_pushstring(L, strerror(errno));
|
|
|
|
return 2;
|
|
|
|
}
|
2019-12-28 12:16:32 +01:00
|
|
|
|
|
|
|
lua_newtable(L);
|
|
|
|
lua_pushnumber(L, s.st_mtime);
|
|
|
|
lua_setfield(L, -2, "modified");
|
|
|
|
|
|
|
|
lua_pushnumber(L, s.st_size);
|
|
|
|
lua_setfield(L, -2, "size");
|
|
|
|
|
|
|
|
if (S_ISREG(s.st_mode)) {
|
|
|
|
lua_pushstring(L, "file");
|
|
|
|
} else if (S_ISDIR(s.st_mode)) {
|
|
|
|
lua_pushstring(L, "dir");
|
|
|
|
} else {
|
|
|
|
lua_pushnil(L);
|
|
|
|
}
|
|
|
|
lua_setfield(L, -2, "type");
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2020-12-02 16:03:31 +01:00
|
|
|
static int f_mkdir(lua_State *L) {
|
|
|
|
const char *path = luaL_checkstring(L, 1);
|
|
|
|
|
|
|
|
#ifdef _WIN32
|
|
|
|
int err = _mkdir(path);
|
|
|
|
#else
|
|
|
|
int err = mkdir(path, S_IRUSR|S_IWUSR|S_IXUSR|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH);
|
|
|
|
#endif
|
|
|
|
if (err < 0) {
|
|
|
|
lua_pushboolean(L, 0);
|
|
|
|
lua_pushstring(L, strerror(errno));
|
|
|
|
return 2;
|
|
|
|
}
|
|
|
|
|
|
|
|
lua_pushboolean(L, 1);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2019-12-28 12:16:32 +01:00
|
|
|
static int f_get_clipboard(lua_State *L) {
|
|
|
|
char *text = SDL_GetClipboardText();
|
|
|
|
if (!text) { return 0; }
|
|
|
|
lua_pushstring(L, text);
|
|
|
|
SDL_free(text);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static int f_set_clipboard(lua_State *L) {
|
|
|
|
const char *text = luaL_checkstring(L, 1);
|
|
|
|
SDL_SetClipboardText(text);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static int f_get_time(lua_State *L) {
|
|
|
|
double n = SDL_GetPerformanceCounter() / (double) SDL_GetPerformanceFrequency();
|
|
|
|
lua_pushnumber(L, n);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static int f_sleep(lua_State *L) {
|
|
|
|
double n = luaL_checknumber(L, 1);
|
|
|
|
SDL_Delay(n * 1000);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2020-05-13 21:32:53 +02:00
|
|
|
static int f_exec(lua_State *L) {
|
|
|
|
size_t len;
|
|
|
|
const char *cmd = luaL_checklstring(L, 1, &len);
|
2020-05-22 09:11:05 +02:00
|
|
|
char *buf = malloc(len + 32);
|
2020-05-13 21:32:53 +02:00
|
|
|
if (!buf) { luaL_error(L, "buffer allocation failed"); }
|
|
|
|
#if _WIN32
|
2020-05-22 09:11:05 +02:00
|
|
|
sprintf(buf, "cmd /c \"%s\"", cmd);
|
2020-05-13 21:32:53 +02:00
|
|
|
WinExec(buf, SW_HIDE);
|
|
|
|
#else
|
|
|
|
sprintf(buf, "%s &", cmd);
|
|
|
|
int res = system(buf);
|
|
|
|
(void) res;
|
|
|
|
#endif
|
|
|
|
free(buf);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2019-12-28 12:16:32 +01:00
|
|
|
static int f_fuzzy_match(lua_State *L) {
|
|
|
|
const char *str = luaL_checkstring(L, 1);
|
|
|
|
const char *ptn = luaL_checkstring(L, 2);
|
|
|
|
int score = 0;
|
|
|
|
int run = 0;
|
|
|
|
|
|
|
|
while (*str && *ptn) {
|
|
|
|
while (*str == ' ') { str++; }
|
|
|
|
while (*ptn == ' ') { ptn++; }
|
|
|
|
if (tolower(*str) == tolower(*ptn)) {
|
2020-05-23 15:30:24 +02:00
|
|
|
score += run * 10 - (*str != *ptn);
|
2019-12-28 12:16:32 +01:00
|
|
|
run++;
|
|
|
|
ptn++;
|
|
|
|
} else {
|
2020-05-23 15:30:24 +02:00
|
|
|
score -= 10;
|
2019-12-28 12:16:32 +01:00
|
|
|
run = 0;
|
|
|
|
}
|
|
|
|
str++;
|
|
|
|
}
|
|
|
|
if (*ptn) { return 0; }
|
|
|
|
|
|
|
|
lua_pushnumber(L, score - (int) strlen(str));
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
2020-02-07 14:01:56 +01:00
|
|
|
static int f_set_window_opacity(lua_State *L) {
|
|
|
|
double n = luaL_checknumber(L, 1);
|
|
|
|
int r = SDL_SetWindowOpacity(window, n);
|
|
|
|
lua_pushboolean(L, r > -1);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
2019-12-28 12:16:32 +01:00
|
|
|
|
|
|
|
static const luaL_Reg lib[] = {
|
|
|
|
{ "poll_event", f_poll_event },
|
2020-05-10 22:00:40 +02:00
|
|
|
{ "wait_event", f_wait_event },
|
2019-12-28 12:16:32 +01:00
|
|
|
{ "set_cursor", f_set_cursor },
|
|
|
|
{ "set_window_title", f_set_window_title },
|
2020-04-07 19:48:57 +02:00
|
|
|
{ "set_window_mode", f_set_window_mode },
|
2020-12-31 11:25:12 +01:00
|
|
|
{ "get_window_size", f_get_window_size },
|
|
|
|
{ "set_window_size", f_set_window_size },
|
2019-12-28 12:16:32 +01:00
|
|
|
{ "window_has_focus", f_window_has_focus },
|
2021-03-05 10:33:50 +01:00
|
|
|
{ "show_fatal_error", f_show_fatal_error },
|
2020-05-17 17:59:19 +02:00
|
|
|
{ "chdir", f_chdir },
|
2020-12-02 16:03:31 +01:00
|
|
|
{ "mkdir", f_mkdir },
|
2019-12-28 12:16:32 +01:00
|
|
|
{ "list_dir", f_list_dir },
|
|
|
|
{ "absolute_path", f_absolute_path },
|
|
|
|
{ "get_file_info", f_get_file_info },
|
|
|
|
{ "get_clipboard", f_get_clipboard },
|
|
|
|
{ "set_clipboard", f_set_clipboard },
|
|
|
|
{ "get_time", f_get_time },
|
|
|
|
{ "sleep", f_sleep },
|
2020-05-13 21:32:53 +02:00
|
|
|
{ "exec", f_exec },
|
2019-12-28 12:16:32 +01:00
|
|
|
{ "fuzzy_match", f_fuzzy_match },
|
2020-02-07 14:01:56 +01:00
|
|
|
{ "set_window_opacity", f_set_window_opacity },
|
2019-12-28 12:16:32 +01:00
|
|
|
{ NULL, NULL }
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
int luaopen_system(lua_State *L) {
|
|
|
|
luaL_newlib(L, lib);
|
|
|
|
return 1;
|
|
|
|
}
|