lite-xl/src/main.c

283 lines
7.8 KiB
C
Raw Normal View History

2019-12-28 12:16:32 +01:00
#include <stdio.h>
#include <stdlib.h>
2020-06-29 15:24:08 +02:00
#include <SDL.h>
2019-12-28 12:16:32 +01:00
#include "api/api.h"
#include "rencache.h"
2019-12-28 12:16:32 +01:00
#include "renderer.h"
#include <signal.h>
2019-12-28 12:16:32 +01:00
#ifdef _WIN32
#include <windows.h>
#elif defined(__linux__)
#include <unistd.h>
#elif defined(__APPLE__)
#include <mach-o/dyld.h>
#elif defined(__FreeBSD__)
#include <sys/sysctl.h>
2019-12-28 12:16:32 +01:00
#endif
static SDL_Window *window;
2019-12-28 12:16:32 +01:00
static double get_scale(void) {
#ifndef __APPLE__
float dpi;
if (SDL_GetDisplayDPI(0, NULL, &dpi, NULL) == 0)
return dpi / 96.0;
#endif
return 1.0;
}
2020-05-17 10:36:46 +02:00
static void get_exe_filename(char *buf, int sz) {
#if _WIN32
int len;
wchar_t *buf_w = malloc(sizeof(wchar_t) * sz);
if (buf_w) {
len = GetModuleFileNameW(NULL, buf_w, sz - 1);
buf_w[len] = L'\0';
// if the conversion failed we'll empty the string
if (!WideCharToMultiByte(CP_UTF8, 0, buf_w, -1, buf, sz, NULL, NULL))
buf[0] = '\0';
free(buf_w);
} else {
buf[0] = '\0';
}
#elif __linux__
2021-10-12 09:06:37 +02:00
char path[] = "/proc/self/exe";
2023-01-05 21:59:45 +01:00
ssize_t len = readlink(path, buf, sz - 1);
if (len > 0)
buf[len] = '\0';
#elif __APPLE__
/* use realpath to resolve a symlink if the process was launched from one.
** This happens when Homebrew installs a cack and creates a symlink in
** /usr/loca/bin for launching the executable from the command line. */
unsigned size = sz;
char exepath[size];
_NSGetExecutablePath(exepath, &size);
realpath(exepath, buf);
#elif __FreeBSD__
size_t len = sz;
const int mib[4] = { CTL_KERN, KERN_PROC, KERN_PROC_PATHNAME, -1 };
sysctl(mib, 4, buf, &len, NULL, 0);
#else
*buf = 0;
#endif
}
2020-05-06 20:49:34 +02:00
static void init_window_icon(void) {
#if !defined(_WIN32) && !defined(__APPLE__)
2021-06-20 17:37:08 +02:00
#include "../resources/icons/icon.inl"
2020-05-06 20:49:34 +02:00
(void) icon_rgba_len; /* unused */
SDL_Surface *surf = SDL_CreateRGBSurfaceFrom(
icon_rgba, 64, 64,
32, 64 * 4,
0x000000ff,
0x0000ff00,
0x00ff0000,
0xff000000);
SDL_SetWindowIcon(window, surf);
SDL_FreeSurface(surf);
#endif
}
#ifdef _WIN32
#define LITE_OS_HOME "USERPROFILE"
#define LITE_PATHSEP_PATTERN "\\\\"
#define LITE_NONPATHSEP_PATTERN "[^\\\\]+"
#else
#define LITE_OS_HOME "HOME"
#define LITE_PATHSEP_PATTERN "/"
#define LITE_NONPATHSEP_PATTERN "[^/]+"
#endif
2021-04-19 09:52:00 +02:00
#ifdef __APPLE__
void enable_momentum_scroll();
#ifdef MACOS_USE_BUNDLE
void set_macos_bundle_resources(lua_State *L);
#endif
2021-04-19 09:52:00 +02:00
#endif
#ifndef LITE_ARCH_TUPLE
// https://learn.microsoft.com/en-us/cpp/preprocessor/predefined-macros?view=msvc-140
#if defined(__x86_64__) || defined(_M_AMD64) || defined(__MINGW64__)
#define ARCH_PROCESSOR "x86_64"
#elif defined(__i386__) || defined(_M_IX86) || defined(__MINGW32__)
#define ARCH_PROCESSOR "x86"
#elif defined(__aarch64__) || defined(_M_ARM64) || defined (_M_ARM64EC)
#define ARCH_PROCESSOR "aarch64"
#elif defined(__arm__) || defined(_M_ARM)
#define ARCH_PROCESSOR "arm"
#endif
#if _WIN32
#define ARCH_PLATFORM "windows"
#elif __linux__
#define ARCH_PLATFORM "linux"
#elif __FreeBSD__
#define ARCH_PLATFORM "freebsd"
#elif __APPLE__
#define ARCH_PLATFORM "darwin"
#endif
#if !defined(ARCH_PROCESSOR) || !defined(ARCH_PLATFORM)
#error "Please define -DLITE_ARCH_TUPLE."
#endif
#define LITE_ARCH_TUPLE ARCH_PROCESSOR "-" ARCH_PLATFORM
#endif
2019-12-28 12:16:32 +01:00
int main(int argc, char **argv) {
#ifndef _WIN32
signal(SIGPIPE, SIG_IGN);
2019-12-28 12:16:32 +01:00
#endif
if (SDL_Init(SDL_INIT_VIDEO | SDL_INIT_EVENTS) != 0) {
fprintf(stderr, "Error initializing sdl: %s", SDL_GetError());
exit(1);
}
2019-12-28 12:16:32 +01:00
SDL_EnableScreenSaver();
SDL_EventState(SDL_DROPFILE, SDL_ENABLE);
atexit(SDL_Quit);
#ifdef SDL_HINT_VIDEO_X11_NET_WM_BYPASS_COMPOSITOR /* Available since 2.0.8 */
SDL_SetHint(SDL_HINT_VIDEO_X11_NET_WM_BYPASS_COMPOSITOR, "0");
#endif
2019-12-28 12:16:32 +01:00
#if SDL_VERSION_ATLEAST(2, 0, 5)
SDL_SetHint(SDL_HINT_MOUSE_FOCUS_CLICKTHROUGH, "1");
#endif
2022-10-16 01:58:51 +02:00
#if SDL_VERSION_ATLEAST(2, 0, 18)
SDL_SetHint(SDL_HINT_IME_SHOW_UI, "1");
#endif
#if SDL_VERSION_ATLEAST(2, 0, 22)
SDL_SetHint(SDL_HINT_IME_SUPPORT_EXTENDED_TEXT, "1");
#endif
2019-12-28 12:16:32 +01:00
#if SDL_VERSION_ATLEAST(2, 0, 8)
/* This hint tells SDL to respect borderless window as a normal window.
** For example, the window will sit right on top of the taskbar instead
** of obscuring it. */
SDL_SetHint("SDL_BORDERLESS_WINDOWED_STYLE", "1");
#endif
#if SDL_VERSION_ATLEAST(2, 0, 12)
/* This hint tells SDL to allow the user to resize a borderless windoow.
** It also enables aero-snap on Windows apparently. */
SDL_SetHint("SDL_BORDERLESS_RESIZABLE_STYLE", "1");
#endif
#if SDL_VERSION_ATLEAST(2, 0, 9)
SDL_SetHint("SDL_MOUSE_DOUBLE_CLICK_RADIUS", "4");
#endif
2019-12-28 12:16:32 +01:00
SDL_DisplayMode dm;
SDL_GetCurrentDisplayMode(0, &dm);
window = SDL_CreateWindow(
"", SDL_WINDOWPOS_UNDEFINED, SDL_WINDOWPOS_UNDEFINED, dm.w * 0.8, dm.h * 0.8,
SDL_WINDOW_RESIZABLE | SDL_WINDOW_ALLOW_HIGHDPI | SDL_WINDOW_HIDDEN);
2020-05-06 20:49:34 +02:00
init_window_icon();
if (!window) {
fprintf(stderr, "Error creating lite-xl window: %s", SDL_GetError());
exit(1);
}
2019-12-28 12:16:32 +01:00
ren_init(window);
lua_State *L;
init_lua:
L = luaL_newstate();
2019-12-28 12:16:32 +01:00
luaL_openlibs(L);
api_load_libs(L);
lua_newtable(L);
for (int i = 0; i < argc; i++) {
lua_pushstring(L, argv[i]);
lua_rawseti(L, -2, i + 1);
}
lua_setglobal(L, "ARGS");
2020-04-23 21:03:14 +02:00
lua_pushstring(L, SDL_GetPlatform());
lua_setglobal(L, "PLATFORM");
2019-12-28 12:16:32 +01:00
lua_pushstring(L, LITE_ARCH_TUPLE);
lua_setglobal(L, "ARCH");
lua_pushnumber(L, get_scale());
lua_setglobal(L, "SCALE");
2019-12-28 12:16:32 +01:00
2020-05-17 10:36:46 +02:00
char exename[2048];
get_exe_filename(exename, sizeof(exename));
if (*exename) {
lua_pushstring(L, exename);
} else {
// get_exe_filename failed
lua_pushstring(L, argv[0]);
}
2020-05-17 10:36:46 +02:00
lua_setglobal(L, "EXEFILE");
#ifdef __APPLE__
enable_momentum_scroll();
#ifdef MACOS_USE_BUNDLE
set_macos_bundle_resources(L);
#endif
#endif
SDL_EventState(SDL_TEXTINPUT, SDL_ENABLE);
SDL_EventState(SDL_TEXTEDITING, SDL_ENABLE);
const char *init_lite_code = \
2019-12-28 12:16:32 +01:00
"local core\n"
"local os_exit = os.exit\n"
"os.exit = function(code, close)\n"
" os_exit(code, close == nil and true or close)\n"
"end\n"
2019-12-28 12:16:32 +01:00
"xpcall(function()\n"
" local match = require('utf8extra').match\n"
" HOME = os.getenv('" LITE_OS_HOME "')\n"
" local exedir = match(EXEFILE, '^(.*)" LITE_PATHSEP_PATTERN LITE_NONPATHSEP_PATTERN "$')\n"
" local prefix = os.getenv('LITE_PREFIX') or match(exedir, '^(.*)" LITE_PATHSEP_PATTERN "bin$')\n"
" dofile((MACOS_RESOURCES or (prefix and prefix .. '/share/lite-xl' or exedir .. '/data')) .. '/core/start.lua')\n"
" core = require(os.getenv('LITE_XL_RUNTIME') or 'core')\n"
2019-12-28 12:16:32 +01:00
" core.init()\n"
" core.run()\n"
"end, function(err)\n"
" local error_path = 'error.txt'\n"
" io.stdout:write('Error: '..tostring(err)..'\\n')\n"
" io.stdout:write(debug.traceback(nil, 2)..'\\n')\n"
2019-12-28 12:16:32 +01:00
" if core and core.on_error then\n"
" error_path = USERDIR .. PATHSEP .. error_path\n"
2019-12-28 12:16:32 +01:00
" pcall(core.on_error, err)\n"
" else\n"
" local fp = io.open(error_path, 'wb')\n"
" fp:write('Error: ' .. tostring(err) .. '\\n')\n"
" fp:write(debug.traceback(nil, 2)..'\\n')\n"
" fp:close()\n"
" error_path = system.absolute_path(error_path)\n"
2019-12-28 12:16:32 +01:00
" end\n"
" system.show_fatal_error('Lite XL internal error',\n"
" 'An internal error occurred in a critical part of the application.\\n\\n'..\n"
" 'Error: '..tostring(err)..'\\n\\n'..\n"
" 'Details can be found in \\\"'..error_path..'\\\"')\n"
2019-12-28 12:16:32 +01:00
" os.exit(1)\n"
"end)\n"
"return core and core.restart_request\n";
2019-12-28 12:16:32 +01:00
if (luaL_loadstring(L, init_lite_code)) {
fprintf(stderr, "internal error when starting the application\n");
exit(1);
}
lua_pcall(L, 0, 1, 0);
if (lua_toboolean(L, -1)) {
lua_close(L);
rencache_invalidate();
goto init_lua;
}
2019-12-28 12:16:32 +01:00
// This allows the window to be destroyed before lite-xl is done with
// reaping child processes
ren_free_window_resources(&window_renderer);
lua_close(L);
2019-12-28 12:16:32 +01:00
return EXIT_SUCCESS;
}