jachym/dwl
1
0
Fork 0
mirror of https://codeberg.org/dwl/dwl.git synced 2025-10-27 10:14:14 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

wip

Browse Source
This commit is contained in:
Simeon Schaub 2021-06-24 23:53:45 +02:00
parent d0a925a12a
commit 81cad356a7
No known key found for this signature in database
GPG Key ID: EB2EE6B6F3725876
2 changed files with 101 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dwl.c
View File

@ -270,7 +270,7 @@ static void rendermon(struct wl_listener *listener, void *data);
static void resize(Client *c, int x, int y, int w, int h, int interact);
static void run(char *startup_cmd);
static void scalebox(struct wlr_box *box, float scale);
static Client *selclient(void);
Client *selclient(void);
static void setcursor(struct wl_listener *listener, void *data);
static void setpsel(struct wl_listener *listener, void *data);
static void setsel(struct wl_listener *listener, void *data);
@ -310,7 +310,7 @@ static struct wlr_renderer *drw;
static struct wlr_compositor *compositor;
static struct wlr_xdg_shell *xdg_shell;
static struct wl_list clients; /* tiling order */
struct wl_list clients; /* tiling order */
static struct wl_list fstack; /* focus order */
static struct wl_list stack; /* stacking z-order */
static struct wl_list independents;

99
dwl.jl
View File

@ -12,6 +12,86 @@ struct Key
arg::Arg
end
struct wl_list{T}
next::Ptr{wl_list{T}}
prev::Ptr{wl_list{T}}
end
Base.@pure _fieldoffset(T::DataType, member::Symbol) = fieldoffset(T, findfirst(==(member), fieldnames(T)))
function unsafe_foreach(f, start::Ptr{wl_list{T}}; member=:link) where {T}
state = start
while (state = unsafe_load(@show state).next) !== start
ptr::Ptr{T} = state - _fieldoffset(T, member)
f(ptr)
end
end
struct wl_listener
link::wl_list{wl_listener}
notify::Ptr{Cvoid} # function pointer
end
struct wlr_box
x::Cint
y::Cint
width::Cint
height::Cint
end
macro fix_align(ex)
@assert Meta.isexpr(ex, :struct)
@assert Meta.isexpr(ex.args[3], :block)
wl_listener_fields = Symbol[]
return esc(quote
$(Expr(:struct,
ex.args[1], ex.args[2],
Expr(:block, Base.mapany(ex.args[3].args) do ex
Meta.isexpr(ex, :(::)) && ex.args[2] === :wl_listener || return ex
field = ex.args[1]
push!(wl_listener_fields, field)
return quote
$(Symbol(field, :_link))::wl_list{wl_listener}
$(Symbol(field, :_notify))::Ptr{Cvoid} # function pointer
end
end...),
))
function Base.getproperty(x::$(ex.args[2]), s::Symbol)
$(Expr(:block, Base.mapany(wl_listener_fields) do field
:(s === $field && return wl_listener(x.$(Symbol(field, :_link)), x.$(Symbol(field, :_link))))
end...))
return getfield(x, s)
end
end)
end
@fix_align struct Client
link::wl_list{Client}
flink::wl_list{Client}
slink::wl_list{Client}
surface::Ptr{Cvoid} # TODO
commit::wl_listener
map::wl_listener
umap::wl_listener
destroy::wl_listener
set_title::wl_listener
fullscreen::wl_listener
geom::wlr_box
mon::Ptr{Cvoid} # TODO
# ifdef XWAYLAND
type::Cuint
activate::wl_listener
configure::wl_listener
#
bw::Cint
tags::Cuint
isfloating::Cint
resize::UInt32
prevx::Cint
prevy::Cint
prevwidth::Cint
prevheight::Cint
isfullscreen::Cint
end
const clients = cglobal(:clients, wl_list{Client})
keysym(x) = ccall((:XStringToKeysym, "libxkbfile"), xkb_keysym_t, (Cstring,), string(x))
# from wlr_keyboard.h
const WLR_MODIFIER_SHIFT = xkb_keysym_t(1 << 0)
@ -72,6 +152,25 @@ struct Spawn
end
end
function (s::Spawn)()
try
unsafe_foreach(x -> println(x, '\n'), clients)
println()
println()
client = @ccall selclient()::Ptr{wl_list{Client}}
@show client
println()
if client != C_NULL
@show unsafe_load(Ptr{Client}(client))
println()
unsafe_foreach(client) do x
x === clients && continue
println(x, '\n')
end
end
catch e
@show e
end
@ccall spawn(s.ptrs::Vector{Ptr{UInt8}})::Cvoid
GC.@preserve s
end