From 628174c992a5a740feb4dc119adf8dfb1f89f992 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Thu, 1 Jan 2026 18:04:40 -0700 Subject: Have Meson orchestrate the whole build rather than stack. As a part of this, I changed the file layout to: rt/ - the Montis runtime plug/ - the Montis plugin wlroots/ - wlroots --- Setup.hs | 69 -- harness/CMakeLists.txt | 84 -- harness/include/foreign_intf.h | 33 - harness/include/plugin.h | 190 ---- harness/include/plugin_types.h | 9 - harness/include/wl.h | 116 --- harness/src/plugin.c | 266 ------ harness/src/wl.c | 1066 ----------------------- harness/tools/genbuild.pl | 48 - harness/tools/genintf.pl | 42 - package.yaml | 95 -- plug/README.md | 1 + plug/package.yaml | 86 ++ plug/plug.stamp | 0 plug/src/Config.hs | 88 ++ plug/src/Lib.hs | 6 + plug/src/Wetterhorn/Constraints.hs | 13 + plug/src/Wetterhorn/Core.hs | 152 ++++ plug/src/Wetterhorn/Core/ButtonEvent.hs | 15 + plug/src/Wetterhorn/Core/KeyEvent.hs | 22 + plug/src/Wetterhorn/Core/Keys.hs | 239 +++++ plug/src/Wetterhorn/Core/SurfaceEvent.hs | 16 + plug/src/Wetterhorn/Core/W.hs | 379 ++++++++ plug/src/Wetterhorn/Dsl/Bind.hs | 128 +++ plug/src/Wetterhorn/Dsl/Buttons.hsc | 229 +++++ plug/src/Wetterhorn/Dsl/Input.hs | 286 ++++++ plug/src/Wetterhorn/Foreign.hs | 18 + plug/src/Wetterhorn/Foreign/Export.hs | 208 +++++ plug/src/Wetterhorn/Foreign/ForeignInterface.hs | 81 ++ plug/src/Wetterhorn/Foreign/WlRoots.hs | 67 ++ plug/src/Wetterhorn/Keys/Macros.hs | 145 +++ plug/src/Wetterhorn/Keys/MagicModifierKey.hs | 50 ++ plug/src/Wetterhorn/Layout/Combine.hs | 48 + plug/src/Wetterhorn/Layout/Full.hs | 23 + plug/src/Wetterhorn/StackSet.hs | 210 +++++ plug/src/harness_adapter.c | 81 ++ plug/stack.yaml | 67 ++ plug/test/Spec.hs | 2 + rt/CMakeLists.txt | 84 ++ rt/include/foreign_intf.h | 33 + rt/include/plugin.h | 190 ++++ rt/include/plugin_types.h | 9 + rt/include/wl.h | 116 +++ rt/src/plugin.c | 266 ++++++ rt/src/wl.c | 1066 +++++++++++++++++++++++ rt/tools/genbuild.pl | 48 + rt/tools/genintf.pl | 42 + src/Config.hs | 88 -- src/Lib.hs | 6 - src/Wetterhorn/Constraints.hs | 13 - src/Wetterhorn/Core.hs | 152 ---- src/Wetterhorn/Core/ButtonEvent.hs | 15 - src/Wetterhorn/Core/KeyEvent.hs | 22 - src/Wetterhorn/Core/Keys.hs | 239 ----- src/Wetterhorn/Core/SurfaceEvent.hs | 16 - src/Wetterhorn/Core/W.hs | 379 -------- src/Wetterhorn/Dsl/Bind.hs | 128 --- src/Wetterhorn/Dsl/Buttons.hsc | 229 ----- src/Wetterhorn/Dsl/Input.hs | 286 ------ src/Wetterhorn/Foreign.hs | 18 - src/Wetterhorn/Foreign/Export.hs | 208 ----- src/Wetterhorn/Foreign/ForeignInterface.hs | 81 -- src/Wetterhorn/Foreign/WlRoots.hs | 67 -- src/Wetterhorn/Keys/Macros.hs | 145 --- src/Wetterhorn/Keys/MagicModifierKey.hs | 50 -- src/Wetterhorn/Layout/Combine.hs | 48 - src/Wetterhorn/Layout/Full.hs | 23 - src/Wetterhorn/StackSet.hs | 210 ----- src/harness_adapter.c | 81 -- stack.yaml | 67 -- test/Spec.hs | 2 - 71 files changed, 4514 insertions(+), 4591 deletions(-) delete mode 100644 Setup.hs delete mode 100644 harness/CMakeLists.txt delete mode 100644 harness/include/foreign_intf.h delete mode 100644 harness/include/plugin.h delete mode 100644 harness/include/plugin_types.h delete mode 100644 harness/include/wl.h delete mode 100644 harness/src/plugin.c delete mode 100644 harness/src/wl.c delete mode 100644 harness/tools/genbuild.pl delete mode 100644 harness/tools/genintf.pl delete mode 100644 package.yaml create mode 100644 plug/README.md create mode 100644 plug/package.yaml create mode 100644 plug/plug.stamp create mode 100644 plug/src/Config.hs create mode 100644 plug/src/Lib.hs create mode 100644 plug/src/Wetterhorn/Constraints.hs create mode 100644 plug/src/Wetterhorn/Core.hs create mode 100644 plug/src/Wetterhorn/Core/ButtonEvent.hs create mode 100644 plug/src/Wetterhorn/Core/KeyEvent.hs create mode 100644 plug/src/Wetterhorn/Core/Keys.hs create mode 100644 plug/src/Wetterhorn/Core/SurfaceEvent.hs create mode 100644 plug/src/Wetterhorn/Core/W.hs create mode 100644 plug/src/Wetterhorn/Dsl/Bind.hs create mode 100644 plug/src/Wetterhorn/Dsl/Buttons.hsc create mode 100644 plug/src/Wetterhorn/Dsl/Input.hs create mode 100644 plug/src/Wetterhorn/Foreign.hs create mode 100644 plug/src/Wetterhorn/Foreign/Export.hs create mode 100644 plug/src/Wetterhorn/Foreign/ForeignInterface.hs create mode 100644 plug/src/Wetterhorn/Foreign/WlRoots.hs create mode 100644 plug/src/Wetterhorn/Keys/Macros.hs create mode 100644 plug/src/Wetterhorn/Keys/MagicModifierKey.hs create mode 100644 plug/src/Wetterhorn/Layout/Combine.hs create mode 100644 plug/src/Wetterhorn/Layout/Full.hs create mode 100644 plug/src/Wetterhorn/StackSet.hs create mode 100644 plug/src/harness_adapter.c create mode 100644 plug/stack.yaml create mode 100644 plug/test/Spec.hs create mode 100644 rt/CMakeLists.txt create mode 100644 rt/include/foreign_intf.h create mode 100644 rt/include/plugin.h create mode 100644 rt/include/plugin_types.h create mode 100644 rt/include/wl.h create mode 100644 rt/src/plugin.c create mode 100644 rt/src/wl.c create mode 100644 rt/tools/genbuild.pl create mode 100644 rt/tools/genintf.pl delete mode 100644 src/Config.hs delete mode 100644 src/Lib.hs delete mode 100644 src/Wetterhorn/Constraints.hs delete mode 100644 src/Wetterhorn/Core.hs delete mode 100644 src/Wetterhorn/Core/ButtonEvent.hs delete mode 100644 src/Wetterhorn/Core/KeyEvent.hs delete mode 100644 src/Wetterhorn/Core/Keys.hs delete mode 100644 src/Wetterhorn/Core/SurfaceEvent.hs delete mode 100644 src/Wetterhorn/Core/W.hs delete mode 100644 src/Wetterhorn/Dsl/Bind.hs delete mode 100644 src/Wetterhorn/Dsl/Buttons.hsc delete mode 100644 src/Wetterhorn/Dsl/Input.hs delete mode 100644 src/Wetterhorn/Foreign.hs delete mode 100644 src/Wetterhorn/Foreign/Export.hs delete mode 100644 src/Wetterhorn/Foreign/ForeignInterface.hs delete mode 100644 src/Wetterhorn/Foreign/WlRoots.hs delete mode 100644 src/Wetterhorn/Keys/Macros.hs delete mode 100644 src/Wetterhorn/Keys/MagicModifierKey.hs delete mode 100644 src/Wetterhorn/Layout/Combine.hs delete mode 100644 src/Wetterhorn/Layout/Full.hs delete mode 100644 src/Wetterhorn/StackSet.hs delete mode 100644 src/harness_adapter.c delete mode 100644 stack.yaml delete mode 100644 test/Spec.hs diff --git a/Setup.hs b/Setup.hs deleted file mode 100644 index e8a6b6b..0000000 --- a/Setup.hs +++ /dev/null @@ -1,69 +0,0 @@ -import Control.Exception -import Control.Monad (forM_, when) -import Data.Maybe (fromJust) -import Distribution.Simple -import Distribution.Simple.Setup -import Distribution.Types.HookedBuildInfo -import System.Directory -import System.Environment (getArgs) -import System.FilePath -import System.Posix.Files -import System.Process -import Text.Printf - -main = do - putStrLn "Running Setup.hs" - - defaultMainWithHooks $ - simpleUserHooks - { preConf = \_ conf -> do - let buildPath = fromJust (flagToMaybe $ configDistPref conf) - - callCommand $ - printf "cd wlroots && meson setup %s -Dexamples=false -Dbackends=x11,drm,libinput --reconfigure" (wlrootsDir buildPath) - - callCommand $ - printf "cmake -B %s -S harness" (harnessDir buildPath) - - lnF ("../" ++ harnessDir buildPath) "harness/build" - - return emptyHookedBuildInfo, - preBuild = \_ conf -> do - let path = fromJust (flagToMaybe $ buildDistPref conf) - - callCommand $ printf "cd wlroots && ninja -C %s" (wlrootsDir path) - - callCommand $ - printf "make -C %s" (harnessDir path) - - lnF (printf "%s/wtr_harness" (harnessDir path)) "wtr_harness" - - return emptyHookedBuildInfo, - postCopy = \a f pd _ -> do - forM_ (flagToMaybe (copyDistPref f)) $ \copyDest -> do - let pluginFile = copyDest "build" "wtr.so" "wtr.so" - lnF pluginFile "wtr.so" - } - where - wlrootsDir :: String -> String - wlrootsDir = printf "../%s/build/wlroots" - - harnessDir :: String -> String - harnessDir = printf "%s/build/wtr_harness" - - lnF from to = do - printf "%s -> %s\n" from to - flip - when - ( do - printf "Removing %s." to - removeLink to - ) - =<< doesExist to - createSymbolicLink from to - - doesExist f = do - b1 <- doesFileExist f - b2 <- doesDirectoryExist f - b3 <- catch (pathIsSymbolicLink f) (\(e :: SomeException) -> return False) - return (b1 || b2 || b3) diff --git a/harness/CMakeLists.txt b/harness/CMakeLists.txt deleted file mode 100644 index a7a0a77..0000000 --- a/harness/CMakeLists.txt +++ /dev/null @@ -1,84 +0,0 @@ -cmake_minimum_required(VERSION 3.10) -project ( - wtr_harness - VERSION 0.1 - LANGUAGES C) - -set(CMAKE_VERBOSE_MAKEFILE ON) -set(CMAKE_BUILD_TYPE Debug) - -include_directories(include/ ../wlroots/include /usr/include/pixman-1 - ${CMAKE_CURRENT_BINARY_DIR}/ - ${CMAKE_CURRENT_BINARY_DIR}/../wlroots/include - ${CMAKE_CURRENT_BINARY_DIR}/../wlroots/protocol -) - -add_definitions(-DWLR_USE_UNSTABLE) - -execute_process( - COMMAND pkg-config --variable=pkgdatadir wayland-protocols - OUTPUT_VARIABLE WAYLAND_PROTOCOLS - RESULT_VARIABLE ec - OUTPUT_STRIP_TRAILING_WHITESPACE -) -if(${ec} EQUAL 0) -else() - message(FATAL_ERROR "Failed to execute pkg-config") -endif() - -execute_process( - COMMAND pkg-config --variable=wayland_scanner wayland-scanner - OUTPUT_VARIABLE WAYLAND_SCANNER - RESULT_VARIABLE ec - OUTPUT_STRIP_TRAILING_WHITESPACE -) -if(${ec} EQUAL 0) -else() - message(FATAL_ERROR "Failed to execute pkg-config") -endif() - -set(PLUGIN_INTF ${CMAKE_BINARY_DIR}/plugin_interface.h) -add_custom_command( - OUTPUT ${PLUGIN_INTF} - COMMAND perl ${PROJECT_SOURCE_DIR}/tools/genintf.pl < - ${PROJECT_SOURCE_DIR}/include/plugin.h > ${PLUGIN_INTF} - DEPENDS ${PROJECT_SOURCE_DIR}/include/plugin.h - DEPENDS ${PROJECT_SOURCE_DIR}/tools/genintf.pl -) - -set(PLUGIN_LOAD ${CMAKE_BINARY_DIR}/gen_plugin_load.c) -add_custom_command( - OUTPUT ${PLUGIN_LOAD} - COMMAND perl ${PROJECT_SOURCE_DIR}/tools/genbuild.pl < - ${PROJECT_SOURCE_DIR}/include/plugin.h > ${PLUGIN_LOAD} - DEPENDS ${PROJECT_SOURCE_DIR}/include/plugin.h - DEPENDS ${PROJECT_SOURCE_DIR}/tools/genbuild.pl -) - -add_custom_command( - OUTPUT xdg-shell-protocol.h - COMMAND ${WAYLAND_SCANNER} server-header - ${WAYLAND_PROTOCOLS}/stable/xdg-shell/xdg-shell.xml - xdg-shell-protocol.h -) - -add_custom_command( - OUTPUT xdg-shell-protocol.c - COMMAND ${WAYLAND_SCANNER} private-code - ${WAYLAND_PROTOCOLS}/stable/xdg-shell/xdg-shell.xml - xdg-shell-protocol.c - DEPENDS xdg-shell-protocol.h -) - -file (GLOB_RECURSE SOURCES src/*.c) - -set(CMAKE_EXPORT_COMPILE_COMMANDS ON) - -add_executable (wtr_harness ${SOURCES} ${PLUGIN_LOAD} ${PLUGIN_INTF} - xdg-shell-protocol.c) - -target_link_libraries(wtr_harness dl) -target_link_directories(wtr_harness PUBLIC - "${CMAKE_CURRENT_BINARY_DIR}/../wlroots") -target_link_libraries(wtr_harness wlroots-0.18 wayland-server xkbcommon pthread) -target_link_options(wtr_harness PRIVATE -Wl,--wrap=pthread_create) diff --git a/harness/include/foreign_intf.h b/harness/include/foreign_intf.h deleted file mode 100644 index 6558fab..0000000 --- a/harness/include/foreign_intf.h +++ /dev/null @@ -1,33 +0,0 @@ -/* Contains a structure, which contains functions to back-call into - * the harness code. */ - -#ifndef __FOREIGN_INTERFACE -#define __FOREIGN_INTERFACE - -#define EXPORT(a) a - -typedef void *ctx_t; - -typedef struct FOREIGN_INTERFACE { - /* DO NOT ADD ANY UNEXPORTED VARIABLES HERE */ - - /* The context, which needs to be passed to each function. This context is - * opaque to the plugin and should not be changed. */ - EXPORT(ctx_t ctx); - - /* Requests the harness hot reload the current plugin. */ - EXPORT(void (*request_hot_reload)(ctx_t ctx)); - - /* Requests the harness hot reload the current plugin. */ - EXPORT(void (*do_log)(ctx_t ctx, const char *str)); - - /* Requestes that the whole system exit. Exits with the given return code. */ - EXPORT(void (*request_exit)(ctx_t ctx, int rc)); - - /* Returns the seat associated with the server. */ - EXPORT(void *(*get_seat)(ctx_t ctx)); -} foreign_interface_t; - -#undef EXPORT - -#endif /* __FOREIGN_INTERFACE */ diff --git a/harness/include/plugin.h b/harness/include/plugin.h deleted file mode 100644 index 4d69d76..0000000 --- a/harness/include/plugin.h +++ /dev/null @@ -1,190 +0,0 @@ -#ifndef _PLUGIN_H_ -#define _PLUGIN_H_ - -#include -#include -#include -#include -#include -#include -#include -#include - -#include "plugin_types.h" -#include - -/* - * Marker macro to define what functions should be exported. This generates the - * interface which the plugin needs to implement. - */ -#define EXPORT(a) a - -#define EXPORT_INCLUDE(a) - -// clang-format off -EXPORT_INCLUDE() -EXPORT_INCLUDE() -EXPORT_INCLUDE() -EXPORT_INCLUDE() -// clang-format on - -#define MAX_QUEUED_ACTIONS 8 - -typedef void *dlhandle_t; - -/* Opaque state for a plugin. Not to be touched by the harness (not that it - * really can be.) */ - -struct PLUGIN; -/* This structure represents an action requested by the plugin for the harness. - */ -typedef struct { - int (*action)(struct PLUGIN *requester, void *arg); - void (*arg_dtor)(void *arg); - union { - void *ptr_arg; - int int_arg; - char *str_arg; - }; -} requested_action_t; - -/* - * Structure for the plugin. - */ -typedef struct PLUGIN { - /* The argc this plugin is loaded with. Typically the argc from main(). */ - int argc; - - /* The argv this plugin is loaded with. Typically the argv from main(). */ - char **argv; - - /* Filename the plugin is loaded from. */ - char filename[PATH_MAX]; - - /* Interface to the harness that this plugin can use. */ - foreign_interface_t foreign_intf; - - /* Opaque state of this plugin. The state is usually some kind of pointer to - * the plugin state, but all the harness knows is the opaque state is a - * pointer-sized piece of data. - * - * This opaque state is used in a linear pattern where the handlers take the - * opaque state, maybe operate on it, and return a new opaque state, which is - * then passed to the next handler, etc. It is on the plugin to properly - * manager the memory for this state and to destroy it upon teardown. - * - * It's guaranteed that this state is used linearly, meaning the harness gives - * up all ownership to it once passed into a handler. */ - opqst_t state; - - /* This plugin's lock. This avoids potential issues with multiple threads - * trying to change the opaque state at once which can lead to undesireable - * outcomes. */ - pthread_mutex_t lock; - - /** Set to not-zero if this plugin is initialized, otherwise set to zero. */ - int initialized; - - /* The handle to the shared library. */ - dlhandle_t library_handle; - - /* Pointer to the plugin name. This is in the shared library and a - * null-terminated string. If the library does not have a plugin name, this - * will be NULL. */ - const char *plugin_name; - - /** - * Initializes the plugin on the first time, and only the first time, it is - * loaded. This is used to do things like setup a runtime that cannot be - * reliably torn down. It is up to the plugin to ensure this won't interfere - * with hot-reloading. - */ - EXPORT(void (*plugin_metaload)(int argc, char **argv)); - - /** Intializes the plugin with the given argc/argv. This is the first thing - * called on the plugin and is called immediately after the library is loaded. - */ - EXPORT(void (*plugin_load)(int argc, char **argv, foreign_interface_t *intf)); - - /* Start the plugin with the marshalled state from the previous plugin. - * - * This should return the opaque state from the mashalled_state. - * - * This function should not fail if the state cannot be demarshalled, rather a - * default state should be returned. This is because changing the plugin and - * hot-reloading can produce incompatibilities between the old state and the - * new state, and this should not cause a failure. - */ - EXPORT(opqst_t (*plugin_hot_start)(uint8_t *mashalled_state, uint32_t n)); - - /* - * Starts the plugin without a marshalled state. Happens during the first boot - * when there is not state. - */ - EXPORT(opqst_t (*plugin_cold_start)()); - - /* - * Marshals the state to a bytestring. The returned pointer should be malloc'd - * on the heap. The harness takes ownership of the malloc'd pointer. - * - * This is usually called in preparation for a teardown followed by a - * hot-start. - */ - EXPORT(uint8_t *(*plugin_marshal_state)(opqst_t st, uint32_t *szout)); - - /* - * Teardown the plugin in preperation for the library's imminent unloading. - */ - EXPORT(void (*plugin_teardown)(opqst_t)); - - /* - * Handles a keybinding. - */ - EXPORT(opqst_t (*plugin_handle_keybinding)( - struct wlr_keyboard *keyboard, struct wlr_keyboard_key_event *event, - uint32_t modifiers, uint32_t keysym, uint32_t codepoint, int *out_handled, - opqst_t state)); - - EXPORT(opqst_t (*plugin_handle_button)(struct wlr_pointer_button_event *event, - uint32_t modifiers, opqst_t state)); - - /* - * Handles a surface being mapped, unmapped or destroyed. - */ - EXPORT(opqst_t (*plugin_handle_surface)(void *surface, surface_event_t event, - opqst_t)); - - /* List of requested actions by the plugin. Right now there is a maximum of 8 - * allowed at one time. That should be plenty. The actions should be flushed - * after each call to a handler anyway. */ - size_t n_requested_actions; - requested_action_t requested_actions[MAX_QUEUED_ACTIONS]; -} plugin_t; - -#undef EXPORT -#undef EXPORT_INCLUDE - -/* Reloads the plugin. This tears down the existing plugin, marshals the state - * for it and reloads it. - * - * This function will call dlclose on the plugin's library handle. - */ -int plugin_hot_reload(int argc, char **argv, const char *filepath, - plugin_t *plugin); - -/* - * Like hot-reload, but uses the same parameters the plugin was originally - * loaded with. - */ -int plugin_hot_reload_same_state(plugin_t *plugin); - -/* Starts a plugin in a cold state. Called after load_plugin_from_file. */ -void plugin_cold_start(plugin_t *plugin); - -/* Reads a plugin from a filename. */ -int load_plugin_from_file(int argc, char **argv, const char *filename, - plugin_t *plugin); - -void plugin_run_requested_actions(plugin_t *plugin); - -#endif /* _PLUGIN_H_ */ diff --git a/harness/include/plugin_types.h b/harness/include/plugin_types.h deleted file mode 100644 index df1eab5..0000000 --- a/harness/include/plugin_types.h +++ /dev/null @@ -1,9 +0,0 @@ -#pragma once - -typedef void *opqst_t; - -typedef enum { - SURFACE_MAP = 0, - SURFACE_UNMAP, - SURFACE_DELETE, -} surface_event_t; diff --git a/harness/include/wl.h b/harness/include/wl.h deleted file mode 100644 index dc7fe9f..0000000 --- a/harness/include/wl.h +++ /dev/null @@ -1,116 +0,0 @@ -#pragma once - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include - -/* For brevity's sake, struct members are annotated where they are used. */ -enum montis_cursor_mode { - TINYWL_CURSOR_PASSTHROUGH, - TINYWL_CURSOR_MOVE, - TINYWL_CURSOR_RESIZE, -}; - -struct montis_server { - struct wl_display *wl_display; - struct wlr_backend *backend; - struct wlr_renderer *renderer; - struct wlr_allocator *allocator; - struct wlr_scene *scene; - struct wlr_scene_output_layout *scene_layout; - - struct wlr_xdg_shell *xdg_shell; - struct wl_listener new_xdg_toplevel; - struct wl_listener new_xdg_popup; - struct wl_list toplevels; - - struct wlr_cursor *cursor; - struct wlr_xcursor_manager *cursor_mgr; - struct wl_listener cursor_motion; - struct wl_listener cursor_motion_absolute; - struct wl_listener cursor_button; - struct wl_listener cursor_axis; - struct wl_listener cursor_frame; - - struct wlr_seat *seat; - struct wl_listener new_input; - struct wl_listener request_cursor; - struct wl_listener request_set_selection; - struct wl_list keyboards; - enum montis_cursor_mode cursor_mode; - struct montis_toplevel *grabbed_toplevel; - double grab_x, grab_y; - struct wlr_box grab_geobox; - uint32_t resize_edges; - - struct wlr_output_layout *output_layout; - struct wl_list outputs; - struct wl_listener new_output; - - struct wlr_session *session; - plugin_t plugin; -}; - -struct montis_output { - struct wl_list link; - struct montis_server *server; - struct wlr_output *wlr_output; - struct wl_listener frame; - struct wl_listener request_state; - struct wl_listener destroy; -}; - -struct montis_toplevel { - struct wl_list link; - struct montis_server *server; - struct wlr_xdg_toplevel *xdg_toplevel; - struct wlr_scene_tree *scene_tree; - struct wl_listener map; - struct wl_listener unmap; - struct wl_listener destroy; - struct wl_listener commit; - struct wl_listener request_move; - struct wl_listener request_resize; - struct wl_listener request_maximize; - struct wl_listener request_fullscreen; -}; - -struct montis_keyboard { - struct wl_list link; - struct montis_server *server; - struct wlr_keyboard *wlr_keyboard; - - struct wl_listener modifiers; - struct wl_listener key; - struct wl_listener destroy; -}; - -struct montis_popup { - struct wlr_xdg_popup *xdg_popup; - struct wl_listener commit; - struct wl_listener destroy; -}; - diff --git a/harness/src/plugin.c b/harness/src/plugin.c deleted file mode 100644 index 37a6dd3..0000000 --- a/harness/src/plugin.c +++ /dev/null @@ -1,266 +0,0 @@ -#include "plugin.h" -#include "foreign_intf.h" -#include "wl.h" - -#include -#include -#include -#include -#include -#include -#include -#include - -/* Utility function for showing the marshalled states as hex code */ -static void shx(uint8_t *state, uint32_t sz) -{ - uint32_t i = 0; - while (i < sz) { - for (int j = 0; j < 16; ++j) { - if (i < sz) { - printf("%02x ", (unsigned int)state[i]); - } - else { - printf(" "); - } - ++i; - } - - i -= 16; - - printf(" "); - - for (int j = 0; j < 16; ++j) { - if (i < sz) { - if (isprint(state[i]) && !isspace(state[i])) { - printf("%c", state[i]); - } - else { - printf("."); - } - } - else { - printf(" "); - } - ++i; - } - printf("\n"); - } -} - -int load_plugin_from_dl_(dlhandle_t dl, plugin_t *plug); - -static void lock(plugin_t *plugin) { pthread_mutex_lock(&plugin->lock); }; - -static void unlock(plugin_t *plugin) { pthread_mutex_unlock(&plugin->lock); }; - -static int plugin_hot_reload_same_state_action_(plugin_t *plugin, void *ignore) -{ - return plugin_hot_reload_same_state(plugin); -} - -void do_request_hot_reload(void *plugv) -{ - plugin_t *plugin = plugv; - - size_t n = plugin->n_requested_actions++; - if (n < 8) { - plugin->requested_actions[n].action = plugin_hot_reload_same_state_action_; - plugin->requested_actions[n].arg_dtor = NULL; - } -} - -static int plugin_do_log(plugin_t *plugin, void *chrs) -{ - char *str = chrs; - puts(str); - return 0; -} - -void do_request_log(void *plugv, const char *str) -{ - plugin_t *plugin = plugv; - - size_t n = plugin->n_requested_actions++; - if (n < 8) { - plugin->requested_actions[n].action = plugin_do_log; - plugin->requested_actions[n].str_arg = strdup(str); - plugin->requested_actions[n].arg_dtor = free; - } -} - -static int plugin_do_exit(void *plugv, int ec) -{ - exit(ec); - return 0; -} - -void do_request_exit(void *plugv, int ec) -{ - plugin_t *plugin = plugv; - - size_t n = plugin->n_requested_actions++; - if (n < 8) { - plugin->requested_actions[n].action = - (int (*)(plugin_t *, void *))plugin_do_exit; - plugin->requested_actions[n].int_arg = ec; - plugin->requested_actions[n].arg_dtor = NULL; - } -} - -static void* plugin_get_seat(void* ctx) { - struct montis_server* server = wl_container_of(ctx, server, plugin); - return server->seat; -} - -static int load_plugin_from_file_(int argc, char **argv, const char *filename, - plugin_t *plugin) -{ - dlhandle_t lib = dlopen(filename, RTLD_LAZY); - int ec = 0; - - if (!lib) { - fprintf(stderr, "Failed to open library: %s: %s\n", filename, dlerror()); - ec = 1; - goto end; - } - - printf("Loading file.\n"); - ec = load_plugin_from_dl_(lib, plugin); - - if (ec) { - goto end; - } - - strncpy(plugin->filename, filename, sizeof(plugin->filename)); - plugin->argc = argc; - plugin->argv = argv; - - plugin->foreign_intf.ctx = plugin; - plugin->foreign_intf.request_hot_reload = do_request_hot_reload; - plugin->foreign_intf.do_log = do_request_log; - plugin->foreign_intf.request_exit = do_request_exit; - plugin->foreign_intf.get_seat = plugin_get_seat; - - plugin->plugin_load(plugin->argc, plugin->argv, &plugin->foreign_intf); -end: - return ec; -} - -static void maybe_run_metaload(int argc, char **argv, plugin_t *plugin) -{ - static char *loaded_plugins[12]; - int i; - for (i = 0; i < 12 && loaded_plugins[i]; ++i) { - if (strcmp(loaded_plugins[i], plugin->plugin_name) == 0) { - return; // Plugin is already loaded - } - } - loaded_plugins[i] = strdup(plugin->plugin_name); - - printf("First time loading %s, running metaload.\n", plugin->plugin_name); - if (plugin->plugin_metaload) { - plugin->plugin_metaload(argc, argv); - } -} - -int load_plugin_from_file(int argc, char **argv, const char *filename, - plugin_t *plugin) -{ - memset(plugin, 0, sizeof(*plugin)); - - pthread_mutexattr_t attr; - if (pthread_mutexattr_init(&attr)) { - perror("pthread_mutexattr_init"); - return 1; - } - - if (pthread_mutexattr_settype(&attr, PTHREAD_MUTEX_RECURSIVE)) { - perror("pthread_mutexattr_settype"); - return 1; - } - - if (pthread_mutex_init(&plugin->lock, &attr)) { - pthread_mutexattr_destroy(&attr); - perror("pthread_mutexattr_init"); - return 1; - } - pthread_mutexattr_destroy(&attr); - int rc = load_plugin_from_file_(argc, argv, filename, plugin); - - if (rc == 0) { - maybe_run_metaload(argc, argv, plugin); - } - - return rc; -} - -int plugin_hot_reload_same_state(plugin_t *plugin) -{ - char filename_cpy[PATH_MAX]; - strncpy(filename_cpy, plugin->filename, sizeof(filename_cpy)); - return plugin_hot_reload(plugin->argc, plugin->argv, filename_cpy, plugin); -} - -int plugin_hot_reload(int argc, char **argv, const char *filepath, - plugin_t *plugin) -{ - int ec = 0; - uint32_t sz = 0; - uint8_t *marshalled_state = NULL; - - printf("Hot Reloading %s\n", plugin->plugin_name); - lock(plugin); - - printf("Marshalling state ...\n"); - marshalled_state = plugin->plugin_marshal_state(plugin->state, &sz); - - printf("Calling teardown ...\n"); - plugin->plugin_teardown(plugin->state); - - printf("State Marshalled:\n"); - shx(marshalled_state, sz); - - printf("Unloading old library handle.\n"); - if (dlclose(plugin->library_handle)) { - printf("Could not close library handle: %s\n", dlerror()); - } - - if ((ec = load_plugin_from_file_(argc, argv, filepath, plugin))) { - goto fail; - } - - printf("Hot starting plugin ...\n"); - plugin->state = plugin->plugin_hot_start(marshalled_state, sz); - -fail: - free(marshalled_state); - unlock(plugin); - return ec; -} - -void plugin_run_requested_actions(plugin_t *plugin) -{ - lock(plugin); - requested_action_t requested_actions[MAX_QUEUED_ACTIONS]; - size_t n_requested_actions = plugin->n_requested_actions; - memcpy(&requested_actions, plugin->requested_actions, - sizeof(requested_actions)); - plugin->n_requested_actions = 0; - unlock(plugin); - - size_t i; - for (i = 0; i < n_requested_actions; ++i) { - requested_actions[i].action(plugin, requested_actions[i].str_arg); - if (requested_actions[i].arg_dtor) { - requested_actions[i].arg_dtor(requested_actions[i].ptr_arg); - } - } -} - -void plugin_cold_start(plugin_t *plugin) -{ - lock(plugin); - plugin->state = plugin->plugin_cold_start(); - unlock(plugin); -} diff --git a/harness/src/wl.c b/harness/src/wl.c deleted file mode 100644 index 261e082..0000000 --- a/harness/src/wl.c +++ /dev/null @@ -1,1066 +0,0 @@ -#define _POSIX_C_SOURCE 200112L - -#include -#include -#include -#include - -#include - -#include "xdg-decoration-unstable-v1-client-protocol.h" - -// This macro is responsible for calling a handler on a plugin. This macro will -// acquire the plugin's lock, call the member with the arguments and update the -// state. -// -// This only works on function which have the format: -// -// opqst_t function(args ..., opqst_t state); -// -// Note that the state parameter is omitted from this macro. -#define plugin_call_update_state(plugin, member, ...) \ - do { \ - plugin_t *pl__ = &(plugin); \ - pthread_mutex_lock(&pl__->lock); \ - pl__->state = pl__->member(__VA_ARGS__, pl__->state); \ - pthread_mutex_unlock(&pl__->lock); \ - plugin_run_requested_actions(pl__); \ - } while (0) - -static void focus_toplevel(struct montis_toplevel *toplevel, - struct wlr_surface *surface) -{ - /* Note: this function only deals with keyboard focus. */ - if (toplevel == NULL) { - return; - } - struct montis_server *server = toplevel->server; - struct wlr_seat *seat = server->seat; - struct wlr_surface *prev_surface = seat->keyboard_state.focused_surface; - if (prev_surface == surface) { - /* Don't re-focus an already focused surface. */ - return; - } - if (prev_surface) { - /* - * Deactivate the previously focused surface. This lets the client know - * it no longer has focus and the client will repaint accordingly, e.g. - * stop displaying a caret. - */ - struct wlr_xdg_toplevel *prev_toplevel = - wlr_xdg_toplevel_try_from_wlr_surface(prev_surface); - if (prev_toplevel != NULL) { - wlr_xdg_toplevel_set_activated(prev_toplevel, false); - } - } - struct wlr_keyboard *keyboard = wlr_seat_get_keyboard(seat); - /* Move the toplevel to the front */ - wlr_scene_node_raise_to_top(&toplevel->scene_tree->node); - wl_list_remove(&toplevel->link); - wl_list_insert(&server->toplevels, &toplevel->link); - /* Activate the new surface */ - wlr_xdg_toplevel_set_activated(toplevel->xdg_toplevel, true); - /* - * Tell the seat to have the keyboard enter this surface. wlroots will keep - * track of this and automatically send key events to the appropriate - * clients without additional work on your part. - */ - if (keyboard != NULL) { - wlr_seat_keyboard_notify_enter(seat, toplevel->xdg_toplevel->base->surface, - keyboard->keycodes, keyboard->num_keycodes, - &keyboard->modifiers); - } -} - -static void keyboard_handle_modifiers(struct wl_listener *listener, void *data) -{ - /* This event is raised when a modifier key, such as shift or alt, is - * pressed. We simply communicate this to the client. */ - struct montis_keyboard *keyboard = - wl_container_of(listener, keyboard, modifiers); - /* - * A seat can only have one keyboard, but this is a limitation of the - * Wayland protocol - not wlroots. We assign all connected keyboards to the - * same seat. You can swap out the underlying wlr_keyboard like this and - * wlr_seat handles this transparently. - */ - wlr_seat_set_keyboard(keyboard->server->seat, keyboard->wlr_keyboard); - /* Send modifiers to the client. */ - wlr_seat_keyboard_notify_modifiers(keyboard->server->seat, - &keyboard->wlr_keyboard->modifiers); -} - -static void keyboard_handle_key(struct wl_listener *listener, void *data) -{ - /* This event is raised when a key is pressed or released. */ - struct montis_keyboard *keyboard = wl_container_of(listener, keyboard, key); - struct montis_server *server = keyboard->server; - struct wlr_keyboard_key_event *event = data; - struct wlr_seat *seat = server->seat; - - /* Translate libinput keycode -> xkbcommon */ - uint32_t keycode = event->keycode + 8; - /* Get a list of keysyms based on the keymap for this keyboard */ - const xkb_keysym_t *syms; - int nsyms = - xkb_state_key_get_syms(keyboard->wlr_keyboard->xkb_state, keycode, &syms); - - int handled = false; - uint32_t modifiers = wlr_keyboard_get_modifiers(keyboard->wlr_keyboard); - uint32_t codepoint; - int ec; - - if (nsyms > 0 && syms[0] >= XKB_KEY_XF86Switch_VT_1 && - syms[0] <= XKB_KEY_XF86Switch_VT_12) { - /* Escape-hatch to change sessions. These should always be available key - * bindings regardless of what the plugin dictates. This allows an escape - * hatch to edit the plugin in a different vterm and then use the escape - * hatch below to hot-restart the plugin if things get borked. */ - if (event->state == WL_KEYBOARD_KEY_STATE_PRESSED) { - wlr_session_change_vt(server->session, - syms[0] - XKB_KEY_XF86Switch_VT_1 + 1); - } - } - else if (modifiers == - (WLR_MODIFIER_SHIFT | WLR_MODIFIER_CTRL | WLR_MODIFIER_ALT) && - nsyms > 0 && syms[0] == XKB_KEY_Escape) { - /* Escape-hatch to hot-reload the plugin in case the plugin got borked and - * stops accepting keybindings. Ctrl+Shift+Alt+Escape will always reload the - * plugin.*/ - if (event->state == WL_KEYBOARD_KEY_STATE_PRESSED) { - if ((ec = plugin_hot_reload_same_state(&server->plugin)) != 0) { - fprintf(stderr, "Failed to hot reload plugin"); - exit(1); - } - } - } - else { - /* Pass the information along to the plugin for the plugin to handle. The - * plugin will return via 'handled' whether or not the key event was handled - * or not. */ - if (nsyms > 0) { - codepoint = - xkb_state_key_get_utf32(keyboard->wlr_keyboard->xkb_state, keycode); - plugin_call_update_state(server->plugin, plugin_handle_keybinding, - keyboard->wlr_keyboard, event, modifiers, - syms[0], codepoint, &handled); - } - } -} - -static void keyboard_handle_destroy(struct wl_listener *listener, void *data) -{ - /* This event is raised by the keyboard base wlr_input_device to signal - * the destruction of the wlr_keyboard. It will no longer receive events - * and should be destroyed. - */ - struct montis_keyboard *keyboard = - wl_container_of(listener, keyboard, destroy); - wl_list_remove(&keyboard->modifiers.link); - wl_list_remove(&keyboard->key.link); - wl_list_remove(&keyboard->destroy.link); - wl_list_remove(&keyboard->link); - free(keyboard); -} - -static void server_new_keyboard(struct montis_server *server, - struct wlr_input_device *device) -{ - struct wlr_keyboard *wlr_keyboard = wlr_keyboard_from_input_device(device); - - struct montis_keyboard *keyboard = calloc(1, sizeof(*keyboard)); - keyboard->server = server; - keyboard->wlr_keyboard = wlr_keyboard; - - struct xkb_rule_names names = (struct xkb_rule_names){0}; - names.layout = "jr"; - names.variant = "jdvprk"; - names.options = "numpad:mac"; - - /* We need to prepare an XKB keymap and assign it to the keyboard. This - * assumes the defaults (e.g. layout = "us"). */ - struct xkb_context *context = xkb_context_new(XKB_CONTEXT_NO_FLAGS); - struct xkb_keymap *keymap = - xkb_keymap_new_from_names(context, &names, XKB_KEYMAP_COMPILE_NO_FLAGS); - - if (!keymap) { - fprintf(stderr, "Unable to read keymap.\n"); - exit(1); - } - - wlr_keyboard_set_keymap(wlr_keyboard, keymap); - xkb_keymap_unref(keymap); - xkb_context_unref(context); - wlr_keyboard_set_repeat_info(wlr_keyboard, 25, 600); - - /* Here we set up listeners for keyboard events. */ - keyboard->modifiers.notify = keyboard_handle_modifiers; - wl_signal_add(&wlr_keyboard->events.modifiers, &keyboard->modifiers); - keyboard->key.notify = keyboard_handle_key; - wl_signal_add(&wlr_keyboard->events.key, &keyboard->key); - keyboard->destroy.notify = keyboard_handle_destroy; - wl_signal_add(&device->events.destroy, &keyboard->destroy); - - wlr_seat_set_keyboard(server->seat, keyboard->wlr_keyboard); - - /* And add the keyboard to our list of keyboards */ - wl_list_insert(&server->keyboards, &keyboard->link); -} - -static void server_new_pointer(struct montis_server *server, - struct wlr_input_device *device) -{ - /* We don't do anything special with pointers. All of our pointer handling - * is proxied through wlr_cursor. On another compositor, you might take this - * opportunity to do libinput configuration on the device to set - * acceleration, etc. */ - wlr_cursor_attach_input_device(server->cursor, device); -} - -static void server_new_input(struct wl_listener *listener, void *data) -{ - /* This event is raised by the backend when a new input device becomes - * available. */ - struct montis_server *server = wl_container_of(listener, server, new_input); - struct wlr_input_device *device = data; - switch (device->type) { - case WLR_INPUT_DEVICE_KEYBOARD: - server_new_keyboard(server, device); - break; - case WLR_INPUT_DEVICE_POINTER: - server_new_pointer(server, device); - break; - default: - break; - } - /* We need to let the wlr_seat know what our capabilities are, which is - * communiciated to the client. In TinyWL we always have a cursor, even if - * there are no pointer devices, so we always include that capability. */ - uint32_t caps = WL_SEAT_CAPABILITY_POINTER; - if (!wl_list_empty(&server->keyboards)) { - caps |= WL_SEAT_CAPABILITY_KEYBOARD; - } - wlr_seat_set_capabilities(server->seat, caps); -} - -static void seat_request_cursor(struct wl_listener *listener, void *data) -{ - struct montis_server *server = - wl_container_of(listener, server, request_cursor); - /* This event is raised by the seat when a client provides a cursor image */ - struct wlr_seat_pointer_request_set_cursor_event *event = data; - struct wlr_seat_client *focused_client = - server->seat->pointer_state.focused_client; - /* This can be sent by any client, so we check to make sure this one is - * actually has pointer focus first. */ - if (focused_client == event->seat_client) { - /* Once we've vetted the client, we can tell the cursor to use the - * provided surface as the cursor image. It will set the hardware cursor - * on the output that it's currently on and continue to do so as the - * cursor moves between outputs. */ - wlr_cursor_set_surface(server->cursor, event->surface, event->hotspot_x, - event->hotspot_y); - } -} - -static void seat_request_set_selection(struct wl_listener *listener, void *data) -{ - /* This event is raised by the seat when a client wants to set the selection, - * usually when the user copies something. wlroots allows compositors to - * ignore such requests if they so choose, but in montis we always honor - */ - struct montis_server *server = - wl_container_of(listener, server, request_set_selection); - struct wlr_seat_request_set_selection_event *event = data; - wlr_seat_set_selection(server->seat, event->source, event->serial); -} - -static struct montis_toplevel *desktop_toplevel_at(struct montis_server *server, - double lx, double ly, - struct wlr_surface **surface, - double *sx, double *sy) -{ - /* This returns the topmost node in the scene at the given layout coords. - * We only care about surface nodes as we are specifically looking for a - * surface in the surface tree of a montis_toplevel. */ - struct wlr_scene_node *node = - wlr_scene_node_at(&server->scene->tree.node, lx, ly, sx, sy); - if (node == NULL || node->type != WLR_SCENE_NODE_BUFFER) { - return NULL; - } - struct wlr_scene_buffer *scene_buffer = wlr_scene_buffer_from_node(node); - struct wlr_scene_surface *scene_surface = - wlr_scene_surface_try_from_buffer(scene_buffer); - if (!scene_surface) { - return NULL; - } - - *surface = scene_surface->surface; - /* Find the node corresponding to the montis_toplevel at the root of this - * surface tree, it is the only one for which we set the data field. */ - struct wlr_scene_tree *tree = node->parent; - while (tree != NULL && tree->node.data == NULL) { - tree = tree->node.parent; - } - return tree->node.data; -} - -static void reset_cursor_mode(struct montis_server *server) -{ - /* Reset the cursor mode to passthrough. */ - server->cursor_mode = TINYWL_CURSOR_PASSTHROUGH; - server->grabbed_toplevel = NULL; -} - -static void process_cursor_move(struct montis_server *server, uint32_t time) -{ - /* Move the grabbed toplevel to the new position. */ - struct montis_toplevel *toplevel = server->grabbed_toplevel; - wlr_scene_node_set_position(&toplevel->scene_tree->node, - server->cursor->x - server->grab_x, - server->cursor->y - server->grab_y); -} - -static void process_cursor_resize(struct montis_server *server, uint32_t time) -{ - /* - * Resizing the grabbed toplevel can be a little bit complicated, because we - * could be resizing from any corner or edge. This not only resizes the - * toplevel on one or two axes, but can also move the toplevel if you resize - * from the top or left edges (or top-left corner). - * - * Note that some shortcuts are taken here. In a more fleshed-out - * compositor, you'd wait for the client to prepare a buffer at the new - * size, then commit any movement that was prepared. - */ - struct montis_toplevel *toplevel = server->grabbed_toplevel; - double border_x = server->cursor->x - server->grab_x; - double border_y = server->cursor->y - server->grab_y; - int new_left = server->grab_geobox.x; - int new_right = server->grab_geobox.x + server->grab_geobox.width; - int new_top = server->grab_geobox.y; - int new_bottom = server->grab_geobox.y + server->grab_geobox.height; - - if (server->resize_edges & WLR_EDGE_TOP) { - new_top = border_y; - if (new_top >= new_bottom) { - new_top = new_bottom - 1; - } - } - else if (server->resize_edges & WLR_EDGE_BOTTOM) { - new_bottom = border_y; - if (new_bottom <= new_top) { - new_bottom = new_top + 1; - } - } - if (server->resize_edges & WLR_EDGE_LEFT) { - new_left = border_x; - if (new_left >= new_right) { - new_left = new_right - 1; - } - } - else if (server->resize_edges & WLR_EDGE_RIGHT) { - new_right = border_x; - if (new_right <= new_left) { - new_right = new_left + 1; - } - } - - struct wlr_box geo_box; - wlr_xdg_surface_get_geometry(toplevel->xdg_toplevel->base, &geo_box); - wlr_scene_node_set_position(&toplevel->scene_tree->node, new_left - geo_box.x, - new_top - geo_box.y); - - int new_width = new_right - new_left; - int new_height = new_bottom - new_top; - wlr_xdg_toplevel_set_size(toplevel->xdg_toplevel, new_width, new_height); -} - -static void process_cursor_motion(struct montis_server *server, uint32_t time) -{ - /* If the mode is non-passthrough, delegate to those functions. */ - if (server->cursor_mode == TINYWL_CURSOR_MOVE) { - process_cursor_move(server, time); - return; - } - else if (server->cursor_mode == TINYWL_CURSOR_RESIZE) { - process_cursor_resize(server, time); - return; - } - - /* Otherwise, find the toplevel under the pointer and send the event along. */ - double sx, sy; - struct wlr_seat *seat = server->seat; - struct wlr_surface *surface = NULL; - struct montis_toplevel *toplevel = desktop_toplevel_at( - server, server->cursor->x, server->cursor->y, &surface, &sx, &sy); - if (!toplevel) { - /* If there's no toplevel under the cursor, set the cursor image to a - * default. This is what makes the cursor image appear when you move it - * around the screen, not over any toplevels. */ - wlr_cursor_set_xcursor(server->cursor, server->cursor_mgr, "default"); - } - if (surface) { - /* - * Send pointer enter and motion events. - * - * The enter event gives the surface "pointer focus", which is distinct - * from keyboard focus. You get pointer focus by moving the pointer over - * a window. - * - * Note that wlroots will avoid sending duplicate enter/motion events if - * the surface has already has pointer focus or if the client is already - * aware of the coordinates passed. - */ - wlr_seat_pointer_notify_enter(seat, surface, sx, sy); - wlr_seat_pointer_notify_motion(seat, time, sx, sy); - } - else { - /* Clear pointer focus so future button events and such are not sent to - * the last client to have the cursor over it. */ - wlr_seat_pointer_clear_focus(seat); - } -} - -static void server_cursor_motion(struct wl_listener *listener, void *data) -{ - /* This event is forwarded by the cursor when a pointer emits a _relative_ - * pointer motion event (i.e. a delta) */ - struct montis_server *server = - wl_container_of(listener, server, cursor_motion); - struct wlr_pointer_motion_event *event = data; - /* The cursor doesn't move unless we tell it to. The cursor automatically - * handles constraining the motion to the output layout, as well as any - * special configuration applied for the specific input device which - * generated the event. You can pass NULL for the device if you want to move - * the cursor around without any input. */ - wlr_cursor_move(server->cursor, &event->pointer->base, event->delta_x, - event->delta_y); - process_cursor_motion(server, event->time_msec); -} - -static void server_cursor_motion_absolute(struct wl_listener *listener, - void *data) -{ - /* This event is forwarded by the cursor when a pointer emits an _absolute_ - * motion event, from 0..1 on each axis. This happens, for example, when - * wlroots is running under a Wayland window rather than KMS+DRM, and you - * move the mouse over the window. You could enter the window from any edge, - * so we have to warp the mouse there. There is also some hardware which - * emits these events. */ - struct montis_server *server = - wl_container_of(listener, server, cursor_motion_absolute); - struct wlr_pointer_motion_absolute_event *event = data; - wlr_cursor_warp_absolute(server->cursor, &event->pointer->base, event->x, - event->y); - process_cursor_motion(server, event->time_msec); -} - -static void server_cursor_button(struct wl_listener *listener, void *data) -{ - /* This event is forwarded by the cursor when a pointer emits a button - * event. */ - struct montis_server *server = - wl_container_of(listener, server, cursor_button); - struct wlr_pointer_button_event *event = data; - struct wlr_seat *seat = server->seat; - struct wlr_keyboard *keyboard = wlr_seat_get_keyboard(seat); - uint32_t modifiers = wlr_keyboard_get_modifiers(keyboard); - - plugin_call_update_state(server->plugin, plugin_handle_button, event, - modifiers); - - /* Notify the client with pointer focus that a button press has occurred */ - // wlr_seat_pointer_notify_button(server->seat, event->time_msec, - // event->button, - // event->state); - // double sx, sy; - // struct wlr_surface *surface = NULL; - // struct montis_toplevel *toplevel = desktop_toplevel_at( - // server, server->cursor->x, server->cursor->y, &surface, &sx, &sy); - // if (event->state == WLR_BUTTON_RELEASED) { - // /* If you released any buttons, we exit interactive move/resize mode. */ - // reset_cursor_mode(server); - // } - // else { - // /* Focus that client if the button was _pressed_ */ - // focus_toplevel(toplevel, surface); - // } -} - -static void server_cursor_axis(struct wl_listener *listener, void *data) -{ - /* This event is forwarded by the cursor when a pointer emits an axis event, - * for example when you move the scroll wheel. */ - struct montis_server *server = wl_container_of(listener, server, cursor_axis); - struct wlr_pointer_axis_event *event = data; - /* Notify the client with pointer focus of the axis event. */ - wlr_seat_pointer_notify_axis( - server->seat, event->time_msec, event->orientation, event->delta, - event->delta_discrete, event->source, event->relative_direction); -} - -static void server_cursor_frame(struct wl_listener *listener, void *data) -{ - /* This event is forwarded by the cursor when a pointer emits an frame - * event. Frame events are sent after regular pointer events to group - * multiple events together. For instance, two axis events may happen at the - * same time, in which case a frame event won't be sent in between. */ - struct montis_server *server = - wl_container_of(listener, server, cursor_frame); - /* Notify the client with pointer focus of the frame event. */ - wlr_seat_pointer_notify_frame(server->seat); -} - -static void output_frame(struct wl_listener *listener, void *data) -{ - /* This function is called every time an output is ready to display a frame, - * generally at the output's refresh rate (e.g. 60Hz). */ - struct montis_output *output = wl_container_of(listener, output, frame); - struct wlr_scene *scene = output->server->scene; - - struct wlr_scene_output *scene_output = - wlr_scene_get_scene_output(scene, output->wlr_output); - - /* Render the scene if needed and commit the output */ - wlr_scene_output_commit(scene_output, NULL); - - struct timespec now; - clock_gettime(CLOCK_MONOTONIC, &now); - wlr_scene_output_send_frame_done(scene_output, &now); -} - -static void output_request_state(struct wl_listener *listener, void *data) -{ - /* This function is called when the backend requests a new state for - * the output. For example, Wayland and X11 backends request a new mode - * when the output window is resized. */ - struct montis_output *output = - wl_container_of(listener, output, request_state); - const struct wlr_output_event_request_state *event = data; - wlr_output_commit_state(output->wlr_output, event->state); -} - -static void output_destroy(struct wl_listener *listener, void *data) -{ - struct montis_output *output = wl_container_of(listener, output, destroy); - - wl_list_remove(&output->frame.link); - wl_list_remove(&output->request_state.link); - wl_list_remove(&output->destroy.link); - wl_list_remove(&output->link); - free(output); -} - -static void server_new_output(struct wl_listener *listener, void *data) -{ - /* This event is raised by the backend when a new output (aka a display or - * monitor) becomes available. */ - struct montis_server *server = wl_container_of(listener, server, new_output); - struct wlr_output *wlr_output = data; - - /* Configures the output created by the backend to use our allocator - * and our renderer. Must be done once, before commiting the output */ - wlr_output_init_render(wlr_output, server->allocator, server->renderer); - - /* The output may be disabled, switch it on. */ - struct wlr_output_state state; - wlr_output_state_init(&state); - wlr_output_state_set_enabled(&state, true); - - /* Some backends don't have modes. DRM+KMS does, and we need to set a mode - * before we can use the output. The mode is a tuple of (width, height, - * refresh rate), and each monitor supports only a specific set of modes. We - * just pick the monitor's preferred mode, a more sophisticated compositor - * would let the user configure it. */ - struct wlr_output_mode *mode = wlr_output_preferred_mode(wlr_output); - if (mode != NULL) { - wlr_output_state_set_mode(&state, mode); - } - - /* Atomically applies the new output state. */ - wlr_output_commit_state(wlr_output, &state); - wlr_output_state_finish(&state); - - /* Allocates and configures our state for this output */ - struct montis_output *output = calloc(1, sizeof(*output)); - output->wlr_output = wlr_output; - output->server = server; - - /* Sets up a listener for the frame event. */ - output->frame.notify = output_frame; - wl_signal_add(&wlr_output->events.frame, &output->frame); - - /* Sets up a listener for the state request event. */ - output->request_state.notify = output_request_state; - wl_signal_add(&wlr_output->events.request_state, &output->request_state); - - /* Sets up a listener for the destroy event. */ - output->destroy.notify = output_destroy; - wl_signal_add(&wlr_output->events.destroy, &output->destroy); - - wl_list_insert(&server->outputs, &output->link); - - /* Adds this to the output layout. The add_auto function arranges outputs - * from left-to-right in the order they appear. A more sophisticated - * compositor would let the user configure the arrangement of outputs in the - * layout. - * - * The output layout utility automatically adds a wl_output global to the - * display, which Wayland clients can see to find out information about the - * output (such as DPI, scale factor, manufacturer, etc). - */ - struct wlr_output_layout_output *l_output = - wlr_output_layout_add_auto(server->output_layout, wlr_output); - struct wlr_scene_output *scene_output = - wlr_scene_output_create(server->scene, wlr_output); - wlr_scene_output_layout_add_output(server->scene_layout, l_output, - scene_output); -} - -static void xdg_toplevel_map(struct wl_listener *listener, void *data) -{ - /* Called when the surface is mapped, or ready to display on-screen. */ - struct montis_toplevel *toplevel = wl_container_of(listener, toplevel, map); - - wl_list_insert(&toplevel->server->toplevels, &toplevel->link); - - fprintf(stderr, "Surface map ...\n"); - plugin_call_update_state(toplevel->server->plugin, plugin_handle_surface, - toplevel, SURFACE_MAP); - fprintf(stderr, "/ Surface map ...\n"); - - focus_toplevel(toplevel, toplevel->xdg_toplevel->base->surface); -} - -static void xdg_toplevel_unmap(struct wl_listener *listener, void *data) -{ - /* Called when the surface is unmapped, and should no longer be shown. */ - struct montis_toplevel *toplevel = wl_container_of(listener, toplevel, unmap); - - /* Reset the cursor mode if the grabbed toplevel was unmapped. */ - if (toplevel == toplevel->server->grabbed_toplevel) { - reset_cursor_mode(toplevel->server); - } - - fprintf(stderr, "Surface unmap ...\n"); - plugin_call_update_state(toplevel->server->plugin, plugin_handle_surface, - toplevel, SURFACE_UNMAP); - fprintf(stderr, "/ Surface map ...\n"); - - wl_list_remove(&toplevel->link); -} - -static void xdg_toplevel_destroy(struct wl_listener *listener, void *data) -{ - /* Called when the xdg_toplevel is destroyed. */ - struct montis_toplevel *toplevel = - wl_container_of(listener, toplevel, destroy); - - wl_list_remove(&toplevel->map.link); - wl_list_remove(&toplevel->unmap.link); - wl_list_remove(&toplevel->destroy.link); - wl_list_remove(&toplevel->request_move.link); - wl_list_remove(&toplevel->request_resize.link); - wl_list_remove(&toplevel->request_maximize.link); - wl_list_remove(&toplevel->request_fullscreen.link); - - fprintf(stderr, "Surface destroy ...\n"); - plugin_call_update_state(toplevel->server->plugin, plugin_handle_surface, - toplevel, SURFACE_DELETE); - fprintf(stderr, "/ Surface destroy ...\n"); - - free(toplevel); -} - -static void begin_interactive(struct montis_toplevel *toplevel, - enum montis_cursor_mode mode, uint32_t edges) -{ - /* This function sets up an interactive move or resize operation, where the - * compositor stops propegating pointer events to clients and instead - * consumes them itself, to move or resize windows. */ - struct montis_server *server = toplevel->server; - struct wlr_surface *focused_surface = - server->seat->pointer_state.focused_surface; - if (toplevel->xdg_toplevel->base->surface != - wlr_surface_get_root_surface(focused_surface)) { - /* Deny move/resize requests from unfocused clients. */ - return; - } - server->grabbed_toplevel = toplevel; - server->cursor_mode = mode; - - if (mode == TINYWL_CURSOR_MOVE) { - server->grab_x = server->cursor->x - toplevel->scene_tree->node.x; - server->grab_y = server->cursor->y - toplevel->scene_tree->node.y; - } - else { - struct wlr_box geo_box; - wlr_xdg_surface_get_geometry(toplevel->xdg_toplevel->base, &geo_box); - - double border_x = (toplevel->scene_tree->node.x + geo_box.x) + - ((edges & WLR_EDGE_RIGHT) ? geo_box.width : 0); - double border_y = (toplevel->scene_tree->node.y + geo_box.y) + - ((edges & WLR_EDGE_BOTTOM) ? geo_box.height : 0); - server->grab_x = server->cursor->x - border_x; - server->grab_y = server->cursor->y - border_y; - - server->grab_geobox = geo_box; - server->grab_geobox.x += toplevel->scene_tree->node.x; - server->grab_geobox.y += toplevel->scene_tree->node.y; - - server->resize_edges = edges; - } -} - -static void xdg_toplevel_request_move(struct wl_listener *listener, void *data) -{ - /* This event is raised when a client would like to begin an interactive - * move, typically because the user clicked on their client-side - * decorations. Note that a more sophisticated compositor should check the - * provided serial against a list of button press serials sent to this - * client, to prevent the client from requesting this whenever they want. */ - struct montis_toplevel *toplevel = - wl_container_of(listener, toplevel, request_move); - begin_interactive(toplevel, TINYWL_CURSOR_MOVE, 0); -} - -static void xdg_toplevel_request_resize(struct wl_listener *listener, - void *data) -{ - /* This event is raised when a client would like to begin an interactive - * resize, typically because the user clicked on their client-side - * decorations. Note that a more sophisticated compositor should check the - * provided serial against a list of button press serials sent to this - * client, to prevent the client from requesting this whenever they want. */ - struct wlr_xdg_toplevel_resize_event *event = data; - struct montis_toplevel *toplevel = - wl_container_of(listener, toplevel, request_resize); - begin_interactive(toplevel, TINYWL_CURSOR_RESIZE, event->edges); -} - -static void xdg_toplevel_request_maximize(struct wl_listener *listener, - void *data) -{ - /* This event is raised when a client would like to maximize itself, - * typically because the user clicked on the maximize button on - * client-side decorations. montis doesn't support maximization, but - * to conform to xdg-shell protocol we still must send a configure. - * wlr_xdg_surface_schedule_configure() is used to send an empty reply. */ - struct montis_toplevel *toplevel = - wl_container_of(listener, toplevel, request_maximize); - wlr_xdg_surface_schedule_configure(toplevel->xdg_toplevel->base); -} - -static void xdg_toplevel_request_fullscreen(struct wl_listener *listener, - void *data) -{ - /* Just as with request_maximize, we must send a configure here. */ - struct montis_toplevel *toplevel = - wl_container_of(listener, toplevel, request_fullscreen); - wlr_xdg_surface_schedule_configure(toplevel->xdg_toplevel->base); -} - -static void xdg_popup_commit(struct wl_listener *listener, void *data) { - /* Called when a new surface state is committed. */ - struct montis_popup *popup = wl_container_of(listener, popup, commit); - - if (popup->xdg_popup->base->initial_commit) { - /* When an xdg_surface performs an initial commit, the compositor must - * reply with a configure so the client can map the surface. - * montis sends an empty configure. A more sophisticated compositor - * might change an xdg_popup's geometry to ensure it's not positioned - * off-screen, for example. */ - wlr_xdg_surface_schedule_configure(popup->xdg_popup->base); - } -} - -static void xdg_popup_destroy(struct wl_listener *listener, void *data) { - /* Called when the xdg_popup is destroyed. */ - struct montis_popup *popup = wl_container_of(listener, popup, destroy); - - wl_list_remove(&popup->commit.link); - wl_list_remove(&popup->destroy.link); - - free(popup); -} - -static void server_new_xdg_popup(struct wl_listener *listener, void *data) { - /* This event is raised when a client creates a new popup. */ - struct wlr_xdg_popup *xdg_popup = data; - - struct montis_popup *popup = calloc(1, sizeof(*popup)); - popup->xdg_popup = xdg_popup; - - /* We must add xdg popups to the scene graph so they get rendered. The - * wlroots scene graph provides a helper for this, but to use it we must - * provide the proper parent scene node of the xdg popup. To enable this, - * we always set the user data field of xdg_surfaces to the corresponding - * scene node. */ - struct wlr_xdg_surface *parent = wlr_xdg_surface_try_from_wlr_surface(xdg_popup->parent); - assert(parent != NULL); - struct wlr_scene_tree *parent_tree = parent->data; - xdg_popup->base->data = wlr_scene_xdg_surface_create(parent_tree, xdg_popup->base); - - popup->commit.notify = xdg_popup_commit; - wl_signal_add(&xdg_popup->base->surface->events.commit, &popup->commit); - - popup->destroy.notify = xdg_popup_destroy; - wl_signal_add(&xdg_pop