implemented for scheme48.
This commit is contained in:
frese
parent
6455adec4b
commit
42c8c9b37e
690
c/xlib/client.c
690
c/xlib/client.c
|
|
@ -1,390 +1,532 @@
|
||||||
#include "xlib.h"
|
#include "xlib.h"
|
||||||
|
#include "scheme48.h"
|
||||||
|
|
||||||
static s48_value Sym_Wm_Hints, Sym_Size_Hints;
|
s48_value scx_Iconify_Window (s48_value Xdisplay, s48_value w, s48_value scr) {
|
||||||
|
if (!XIconifyWindow (SCX_EXTRACT_DISPLAY(Xdisplay),
|
||||||
static s48_value P_Iconify_Window (w, scr) s48_value w, scr; {
|
SCX_EXTRACT_WINDOW(w),
|
||||||
Check_Type (w, T_Window);
|
s48_extract_integer(scr)))
|
||||||
if (!XIconifyWindow (WINDOW(w)->dpy, WINDOW(w)->win,
|
return S48_FALSE;
|
||||||
Get_Screen_Number (WINDOW(w)->dpy, scr)))
|
else
|
||||||
Primitive_Error ("cannot iconify window");
|
return S48_UNSPECIFIC;
|
||||||
return Void;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Withdraw_Window (w, scr) s48_value w, scr; {
|
s48_value scx_Withdraw_Window (s48_value Xdisplay, s48_value w, s48_value scr) {
|
||||||
Check_Type (w, T_Window);
|
if (!XWithdrawWindow (SCX_EXTRACT_DISPLAY(Xdisplay),
|
||||||
if (!XWithdrawWindow (WINDOW(w)->dpy, WINDOW(w)->win,
|
SCX_EXTRACT_WINDOW(w),
|
||||||
Get_Screen_Number (WINDOW(w)->dpy, scr)))
|
s48_extract_integer(scr)))
|
||||||
Primitive_Error ("cannot withdraw window");
|
return S48_FALSE;
|
||||||
return Void;
|
else
|
||||||
|
return S48_UNSPECIFIC;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Reconfigure_Wm_Window (w, scr, conf) s48_value w, scr, conf; {
|
s48_value scx_Reconfigure_Wm_Window (s48_value dpy, s48_value w, s48_value scr,
|
||||||
unsigned long mask;
|
s48_value conf) {
|
||||||
|
XWindowChanges WC;
|
||||||
|
unsigned long mask = AList_To_XWindowChanges(conf, &WC);
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
if (!XReconfigureWMWindow (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
mask = Vector_To_Record (conf, Conf_Size, Sym_Conf, Conf_Rec);
|
SCX_EXTRACT_WINDOW(w),
|
||||||
if (!XReconfigureWMWindow (WINDOW(w)->dpy, WINDOW(w)->win,
|
s48_extract_integer(scr),
|
||||||
Get_Screen_Number (WINDOW(w)->dpy, scr), mask, &WC))
|
mask, &WC))
|
||||||
Primitive_Error ("cannot reconfigure window");
|
return S48_FALSE;
|
||||||
return Void;
|
else
|
||||||
|
return S48_UNSPECIFIC;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Wm_Command (w) s48_value w; {
|
s48_value scx_Wm_Command (s48_value dpy, s48_value w) {
|
||||||
int i, ac;
|
int i, ac;
|
||||||
char **av;
|
char** av;
|
||||||
s48_value s, ret, t;
|
s48_value ret;
|
||||||
S48_DECLARE_GC_PROTECT(2);
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
// Disable_Interrupts;
|
||||||
Disable_Interrupts;
|
if (!XGetCommand (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
if (!XGetCommand (WINDOW(w)->dpy, WINDOW(w)->win, &av, &ac))
|
SCX_EXTRACT_WINDOW(w),
|
||||||
|
&av, &ac))
|
||||||
ac = 0;
|
ac = 0;
|
||||||
Enable_Interrupts;
|
// Enable_Interrupts;
|
||||||
ret = t = P_Make_List (s48_enter_integer (ac), S48_NULL);
|
ret = s48_make_vector(ac, S48_FALSE);
|
||||||
S48_GC_PROTECT_2 (ret, t);
|
S48_GC_PROTECT_1 (ret);
|
||||||
for (i = 0; i < ac; i++, t = S48_CDR (t)) {
|
for (i = 0; i < ac; i++) {
|
||||||
s = Make_String (av[i], strlen (av[i]));
|
S48_VECTOR_SET(ret, i, s48_enter_string(av[i]));
|
||||||
S48_CAR (t) = s;
|
|
||||||
}
|
}
|
||||||
S48_GC_UNPROTECT;
|
S48_GC_UNPROTECT();
|
||||||
if (ac) XFreeStringList (av);
|
if (ac) XFreeStringList (av);
|
||||||
return ret;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
static String_List_To_Text_Property (x, ret) s48_value x; XTextProperty *ret; {
|
int String_Vector_To_Text_Property (s48_value x, XTextProperty* ret) {
|
||||||
register i, n;
|
s48_value t = S48_FALSE;
|
||||||
register char **s;
|
int i, n = S48_VECTOR_LENGTH(x);
|
||||||
s48_value t;
|
char* s[n];
|
||||||
Alloca_Begin;
|
|
||||||
|
|
||||||
Check_List (x);
|
for (i = 0; i < n; i++) {
|
||||||
n = Fast_Length (x);
|
t = S48_VECTOR_REF(x, i);
|
||||||
Alloca (s, char**, n * sizeof (char *));
|
s[i] = S48_SYMBOL_P(t) ? s48_extract_symbol(t) : s48_extract_string(t);
|
||||||
for (i = 0; i < n; i++, x = S48_CDR (x)) {
|
|
||||||
t = S48_CAR (x);
|
|
||||||
Get_Strsym_Stack (t, s[i]);
|
|
||||||
}
|
}
|
||||||
if (!XStringListToTextProperty (s, n, ret))
|
|
||||||
Primitive_Error ("cannot create text property");
|
return XStringListToTextProperty (s, n, ret);
|
||||||
Alloca_End;
|
// Primitive_Error ("cannot create text property");
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value Text_Property_To_String_List (p) XTextProperty *p; {
|
s48_value Text_Property_To_String_Vector (XTextProperty *p) {
|
||||||
int n;
|
int n, i;
|
||||||
register i;
|
|
||||||
char **s;
|
char **s;
|
||||||
s48_value x, ret, t;
|
s48_value ret;
|
||||||
S48_DECLARE_GC_PROTECT(2);
|
S48_DECLARE_GC_PROTECT(2);
|
||||||
|
|
||||||
if (!XTextPropertyToStringList (p, &s, &n))
|
if (!XTextPropertyToStringList (p, &s, &n))
|
||||||
Primitive_Error ("cannot convert from text property");
|
return S48_FALSE;
|
||||||
ret = t = P_Make_List (s48_enter_integer (n), S48_NULL);
|
// Primitive_Error ("cannot convert from text property");
|
||||||
S48_GC_PROTECT_2 (ret, t);
|
|
||||||
for (i = 0; i < n; i++, t = S48_CDR (t)) {
|
ret = s48_make_vector(n, S48_FALSE);
|
||||||
x = Make_String (s[i], strlen (s[i]));
|
S48_GC_PROTECT_1 (ret);
|
||||||
S48_CAR (t) = x;
|
for (i = 0; i < n; i++) {
|
||||||
|
S48_VECTOR_SET(ret, i, s48_enter_string(s[i]));
|
||||||
}
|
}
|
||||||
S48_GC_UNPROTECT;
|
S48_GC_UNPROTECT();
|
||||||
|
|
||||||
XFreeStringList (s);
|
XFreeStringList (s);
|
||||||
return ret;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Get_Text_Property (w, a) s48_value w, a; {
|
s48_value scx_Get_Text_Property (s48_value dpy, s48_value w, s48_value a) {
|
||||||
XTextProperty ret;
|
XTextProperty ret;
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
// Disable_Interrupts;
|
||||||
Check_Type (a, T_Atom);
|
if (!XGetTextProperty (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
Disable_Interrupts;
|
SCX_EXTRACT_WINDOW(w),
|
||||||
if (!XGetTextProperty (WINDOW(w)->dpy, WINDOW(w)->win, &ret,
|
&ret,
|
||||||
ATOM(a)->atom)) {
|
SCX_EXTRACT_ATOM(a))) {
|
||||||
Enable_Interrupts;
|
//Enable_Interrupts;
|
||||||
return S48_FALSE;
|
return S48_TRUE; // little hack to distinguish between this error and a
|
||||||
|
// possible Text_Pr._To_S._L. error
|
||||||
}
|
}
|
||||||
Enable_Interrupts;
|
//Enable_Interrupts;
|
||||||
return Text_Property_To_String_List (&ret);
|
return Text_Property_To_String_Vector (&ret);
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Set_Text_Property (w, prop, a) s48_value w, prop, a; {
|
s48_value scx_Set_Text_Property (s48_value dpy, s48_value w, s48_value prop,
|
||||||
|
s48_value a) {
|
||||||
XTextProperty p;
|
XTextProperty p;
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
if (!String_Vector_To_Text_Property (prop, &p))
|
||||||
Check_Type (a, T_Atom);
|
return S48_FALSE;
|
||||||
String_List_To_Text_Property (prop, &p);
|
|
||||||
XSetTextProperty (WINDOW(w)->dpy, WINDOW(w)->win, &p, ATOM(a)->atom);
|
XSetTextProperty (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
|
SCX_EXTRACT_WINDOW(w),
|
||||||
|
&p, SCX_EXTRACT_ATOM(a));
|
||||||
XFree ((char *)p.value);
|
XFree ((char *)p.value);
|
||||||
return Void;
|
return S48_UNSPECIFIC;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Wm_Protocols (w) s48_value w; {
|
s48_value scx_Wm_Protocols (s48_value Xdisplay, s48_value w) {
|
||||||
Atom *p;
|
Atom *p;
|
||||||
int i, n;
|
int i, n;
|
||||||
s48_value ret;
|
s48_value ret;
|
||||||
S48_DECLARE_GC_PROTECT(1);
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
//Disable_Interrupts;
|
||||||
Disable_Interrupts;
|
if (!XGetWMProtocols (SCX_EXTRACT_DISPLAY(Xdisplay),
|
||||||
if (!XGetWMProtocols (WINDOW(w)->dpy, WINDOW(w)->win, &p, &n))
|
SCX_EXTRACT_WINDOW(w), &p, &n))
|
||||||
Primitive_Error ("cannot get WM protocols");
|
return S48_FALSE;
|
||||||
Enable_Interrupts;
|
//Enable_Interrupts;
|
||||||
|
|
||||||
ret = s48_make_vector (n, S48_NULL);
|
ret = s48_make_vector (n, S48_NULL);
|
||||||
S48_GC_PROTECT_1 (ret);
|
S48_GC_PROTECT_1 (ret);
|
||||||
for (i = 0; i < n; i++) {
|
for (i = 0; i < n; i++) {
|
||||||
s48_value a;
|
S48_VECTOR_SET(ret, i, SCX_ENTER_ATOM(p[i]));
|
||||||
|
|
||||||
a = Make_Atom (p[i]);
|
|
||||||
S48_VECTOR_SET(ret, i, a;)
|
|
||||||
}
|
}
|
||||||
XFree ((char *)p);
|
XFree ((char *)p);
|
||||||
S48_GC_UNPROTECT;
|
S48_GC_UNPROTECT();
|
||||||
return ret;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Set_Wm_Protocols (w, v) s48_value w, v; {
|
s48_value scx_Set_Wm_Protocols (s48_value Xdisplay, s48_value w, s48_value v) {
|
||||||
Atom *p;
|
int i, n = S48_VECTOR_LENGTH(v);
|
||||||
int i, n;
|
Atom p[n];
|
||||||
Alloca_Begin;
|
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
for (i = 0; i < n; i++)
|
||||||
Check_Type (v, T_Vector);
|
p[i] = SCX_EXTRACT_ATOM(S48_VECTOR_REF(v, i));
|
||||||
n = S48_VECTOR_LENGTH(v);
|
|
||||||
Alloca (p, Atom*, n * sizeof (Atom));
|
if (!XSetWMProtocols (SCX_EXTRACT_DISPLAY(Xdisplay),
|
||||||
for (i = 0; i < n; i++) {
|
SCX_EXTRACT_WINDOW(w),
|
||||||
s48_value a;
|
p, n))
|
||||||
a = S48_VECTOR_REF(v, i);
|
return S48_FALSE;
|
||||||
Check_Type (a, T_Atom);
|
else
|
||||||
p[i] = ATOM(a)->atom;
|
return S48_UNSPECIFIC;
|
||||||
}
|
|
||||||
if (!XSetWMProtocols (WINDOW(w)->dpy, WINDOW(w)->win, p, n))
|
|
||||||
Primitive_Error ("cannot set WM protocols");
|
|
||||||
Alloca_End;
|
|
||||||
return Void;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Wm_Class (w) s48_value w; {
|
s48_value scx_Wm_Class (s48_value Xdisplay, s48_value w) {
|
||||||
s48_value ret, x;
|
s48_value ret, x;
|
||||||
XClassHint c;
|
XClassHint c;
|
||||||
S48_DECLARE_GC_PROTECT(1);
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
// Elk says:
|
||||||
/*
|
// > In X11.2 XGetClassHint() returns either 0 or Success, which happens
|
||||||
* In X11.2 XGetClassHint() returns either 0 or Success, which happens
|
// > to be defined as 0. So until this bug is fixed, we must
|
||||||
* to be defined as 0. So until this bug is fixed, we must
|
// > explicitly check whether the XClassHint structure has been filled.
|
||||||
* explicitly check whether the XClassHint structure has been filled.
|
// but on the other hand, it doesn't even support X11.3, so I think
|
||||||
*/
|
// <this> is fixed!
|
||||||
|
|
||||||
c.res_name = c.res_class = 0;
|
c.res_name = c.res_class = 0;
|
||||||
Disable_Interrupts;
|
// Disable_Interrupts;
|
||||||
(void)XGetClassHint (WINDOW(w)->dpy, WINDOW(w)->win, &c);
|
if (!XGetClassHint (SCX_EXTRACT_DISPLAY(Xdisplay),
|
||||||
Enable_Interrupts;
|
SCX_EXTRACT_WINDOW(w), &c)) {
|
||||||
|
// Enable_Interrupts;
|
||||||
|
return S48_FALSE;
|
||||||
|
}
|
||||||
|
// Enable_Interrupts;
|
||||||
|
|
||||||
ret = s48_cons (S48_FALSE, S48_FALSE);
|
ret = s48_cons (S48_FALSE, S48_FALSE);
|
||||||
S48_GC_PROTECT_1 (ret);
|
S48_GC_PROTECT_1 (ret);
|
||||||
if (c.res_name) {
|
if (c.res_name) {
|
||||||
x = Make_String (c.res_name, strlen (c.res_name));
|
S48_SET_CAR(ret, s48_enter_string(c.res_name));
|
||||||
S48_CAR (ret) = x;
|
|
||||||
XFree (c.res_name);
|
XFree (c.res_name);
|
||||||
}
|
}
|
||||||
if (c.res_class) {
|
if (c.res_class) {
|
||||||
x = Make_String (c.res_class, strlen (c.res_class));
|
S48_SET_CDR(ret, s48_enter_string(c.res_class));
|
||||||
S48_CDR (ret) = x;
|
|
||||||
XFree (c.res_class);
|
XFree (c.res_class);
|
||||||
}
|
}
|
||||||
S48_GC_UNPROTECT;
|
S48_GC_UNPROTECT();
|
||||||
return ret;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Set_Wm_Class (w, name, class) s48_value w, name, class; {
|
s48_value scx_Set_Wm_Class (s48_value dpy, s48_value w, s48_value name,
|
||||||
|
s48_value class) {
|
||||||
XClassHint c;
|
XClassHint c;
|
||||||
|
c.res_name = s48_extract_string(name);
|
||||||
Check_Type (w, T_Window);
|
c.res_class = s48_extract_string(class);
|
||||||
c.res_name = Get_Strsym (name);
|
XSetClassHint (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
c.res_class = Get_Strsym (class);
|
SCX_EXTRACT_WINDOW(dpy),
|
||||||
XSetClassHint (WINDOW(w)->dpy, WINDOW(w)->win, &c);
|
&c);
|
||||||
return Void;
|
return S48_UNSPECIFIC;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Set_Wm_Command (w, cmd) s48_value w, cmd; {
|
s48_value scx_Set_Wm_Command (s48_value dpy, s48_value w, s48_value cmd) {
|
||||||
register i, n;
|
int i, n = S48_VECTOR_LENGTH(cmd);
|
||||||
register char **argv;
|
char *argv[n];
|
||||||
s48_value c;
|
for (i = 0; i < n; i++)
|
||||||
Alloca_Begin;
|
argv[i] = s48_extract_string(S48_VECTOR_REF(cmd, i));
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
XSetCommand (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
Check_List (cmd);
|
SCX_EXTRACT_WINDOW(w),
|
||||||
n = Fast_Length (cmd);
|
argv, n);
|
||||||
Alloca (argv, char**, n * sizeof (char *));
|
return S48_UNSPECIFIC;
|
||||||
for (i = 0; i < n; i++, cmd = S48_CDR (cmd)) {
|
|
||||||
c = S48_CAR (cmd);
|
|
||||||
Get_Strsym_Stack (c, argv[i]);
|
|
||||||
}
|
|
||||||
XSetCommand (WINDOW(w)->dpy, WINDOW(w)->win, argv, n);
|
|
||||||
Alloca_End;
|
|
||||||
return Void;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Wm_Hints (w) s48_value w; {
|
s48_value scx_Wm_Hints (s48_value dpy, s48_value w) {
|
||||||
XWMHints *p;
|
XWMHints* p = (XWMHints*)0;
|
||||||
|
s48_value res;
|
||||||
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
//Disable_Interrupts;
|
||||||
Disable_Interrupts;
|
p = XGetWMHints (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
p = XGetWMHints (WINDOW(w)->dpy, WINDOW(w)->win);
|
SCX_EXTRACT_WINDOW(w));
|
||||||
Enable_Interrupts;
|
//Enable_Interrupts;
|
||||||
|
res = s48_make_vector(9, S48_NULL);
|
||||||
if (p) {
|
if (p) {
|
||||||
WMH = *p;
|
S48_GC_PROTECT_1(res);
|
||||||
XFree ((char *)p);
|
|
||||||
} else {
|
if (p->flags && InputHint)
|
||||||
WMH.flags = 0;
|
S48_VECTOR_SET(res, 0, S48_ENTER_BOOLEAN(p->input));
|
||||||
|
if (p->flags && StateHint)
|
||||||
|
S48_VECTOR_SET(res, 1, Bit_To_Symbol((unsigned long)p->initial_state,
|
||||||
|
Initial_State_Syms));
|
||||||
|
if (p->flags && IconPixmapHint)
|
||||||
|
S48_VECTOR_SET(res, 2, SCX_ENTER_PIXMAP(p->icon_pixmap));
|
||||||
|
if (p->flags && IconWindowHint)
|
||||||
|
S48_VECTOR_SET(res, 3, SCX_ENTER_WINDOW(p->icon_window));
|
||||||
|
if (p->flags && IconPositionHint) {
|
||||||
|
S48_VECTOR_SET(res, 4, s48_enter_integer(p->icon_x));
|
||||||
|
S48_VECTOR_SET(res, 5, s48_enter_integer(p->icon_y));
|
||||||
}
|
}
|
||||||
return Record_To_Vector (Wm_Hints_Rec, Wm_Hints_Size, Sym_Wm_Hints,
|
if (p->flags && IconMaskHint)
|
||||||
WINDOW(w)->dpy, (unsigned long)WMH.flags);
|
S48_VECTOR_SET(res, 6, SCX_ENTER_PIXMAP(p->icon_mask));
|
||||||
|
if (p->flags && WindowGroupHint)
|
||||||
|
// Elk says a window-group is a window...??
|
||||||
|
S48_VECTOR_SET(res, 7, SCX_ENTER_WINDOW(p->window_group));
|
||||||
|
S48_VECTOR_SET(res, 8, S48_ENTER_BOOLEAN(p->flags && XUrgencyHint));
|
||||||
|
// XLib man-pages say this constant is called UrgencyHint !!
|
||||||
|
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
|
}
|
||||||
|
return res;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Set_Wm_Hints (w, h) s48_value w, h; {
|
s48_value scx_Set_Wm_Hints (s48_value dpy, s48_value w, s48_value alist) {
|
||||||
unsigned long mask;
|
unsigned long mask = 0;
|
||||||
|
s48_value l, p, v;
|
||||||
|
XWMHints WMH;
|
||||||
|
char* cname;
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
for (l = alist; !S48_NULL_P(l); l = S48_CDR(l)) {
|
||||||
mask = Vector_To_Record (h, Wm_Hints_Size, Sym_Wm_Hints, Wm_Hints_Rec);
|
p = S48_CAR(l);
|
||||||
WMH.flags = mask;
|
v = S48_CDR(p);
|
||||||
XSetWMHints (WINDOW(w)->dpy, WINDOW(w)->win, &WMH);
|
cname = s48_extract_symbol(S48_CAR(p));
|
||||||
return Void;
|
if (strcmp(cname, "input?") == 0) {
|
||||||
|
mask |= InputHint;
|
||||||
|
WMH.input = !S48_FALSE_P(v);
|
||||||
|
} else if (strcmp(cname, "initial-state") == 0) {
|
||||||
|
mask |= StateHint;
|
||||||
|
WMH.initial_state = Symbol_To_Bit((unsigned long)s48_extract_integer(v),
|
||||||
|
Initial_State_Syms);
|
||||||
|
} else if (strcmp(cname, "icon-pixmap") == 0) {
|
||||||
|
mask |= IconPixmapHint;
|
||||||
|
WMH.icon_pixmap = SCX_EXTRACT_PIXMAP(v);
|
||||||
|
} else if (strcmp(cname, "icon-window") == 0) {
|
||||||
|
mask |= IconWindowHint;
|
||||||
|
WMH.icon_window = SCX_EXTRACT_WINDOW(v);
|
||||||
|
} else if (strcmp(cname, "icon-x") == 0) {
|
||||||
|
mask |= IconPositionHint;
|
||||||
|
WMH.icon_x = (int)s48_extract_integer(v);
|
||||||
|
} else if (strcmp(cname, "icon-y") == 0) {
|
||||||
|
mask |= IconPositionHint;
|
||||||
|
WMH.icon_y = (int)s48_extract_integer(v);
|
||||||
|
} else if (strcmp(cname, "icon-mask") == 0) {
|
||||||
|
mask |= IconMaskHint;
|
||||||
|
WMH.icon_mask = SCX_EXTRACT_PIXMAP(v);
|
||||||
|
} else if (strcmp(cname, "window-group") == 0) {
|
||||||
|
mask |= WindowGroupHint;
|
||||||
|
WMH.window_group = SCX_EXTRACT_WINDOW(v);
|
||||||
|
} else if (strcmp(cname, "urgency") == 0) {
|
||||||
|
mask |= XUrgencyHint;
|
||||||
|
// XLib man-pages say this constant is called UrgencyHint !!
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
XSetWMHints(SCX_EXTRACT_DISPLAY(dpy),
|
||||||
|
SCX_EXTRACT_WINDOW(w),
|
||||||
|
&WMH);
|
||||||
|
return S48_UNSPECIFIC;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Size_Hints (w, a) s48_value w, a; {
|
s48_value scx_Icon_Sizes (s48_value dpy, s48_value w) {
|
||||||
long supplied;
|
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
|
||||||
Check_Type (a, T_Atom);
|
|
||||||
Disable_Interrupts;
|
|
||||||
if (!XGetWMSizeHints (WINDOW(w)->dpy, WINDOW(w)->win, &SZH, &supplied,
|
|
||||||
ATOM(a)->atom))
|
|
||||||
SZH.flags = 0;
|
|
||||||
if (!(supplied & PBaseSize))
|
|
||||||
SZH.flags &= ~PBaseSize;
|
|
||||||
if (!(supplied & PWinGravity))
|
|
||||||
SZH.flags &= ~PWinGravity;
|
|
||||||
Enable_Interrupts;
|
|
||||||
if ((SZH.flags & (PPosition|USPosition)) == (PPosition|USPosition))
|
|
||||||
SZH.flags &= ~PPosition;
|
|
||||||
if ((SZH.flags & (PSize|USSize)) == (PSize|USSize))
|
|
||||||
SZH.flags &= ~PSize;
|
|
||||||
return Record_To_Vector (Size_Hints_Rec, Size_Hints_Size, Sym_Size_Hints,
|
|
||||||
WINDOW(w)->dpy, (unsigned long)SZH.flags);
|
|
||||||
}
|
|
||||||
|
|
||||||
static s48_value P_Set_Size_Hints (w, a, h) s48_value w, a, h; {
|
|
||||||
unsigned long mask;
|
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
|
||||||
Check_Type (a, T_Atom);
|
|
||||||
bzero ((char *)&SZH, sizeof (SZH)); /* Not portable? */
|
|
||||||
mask = Vector_To_Record (h, Size_Hints_Size, Sym_Size_Hints,
|
|
||||||
Size_Hints_Rec);
|
|
||||||
if ((mask & (PPosition|USPosition)) == (PPosition|USPosition))
|
|
||||||
mask &= ~PPosition;
|
|
||||||
if ((mask & (PSize|USSize)) == (PSize|USSize))
|
|
||||||
mask &= ~PSize;
|
|
||||||
SZH.flags = mask;
|
|
||||||
XSetWMSizeHints (WINDOW(w)->dpy, WINDOW(w)->win, &SZH, ATOM(a)->atom);
|
|
||||||
return Void;
|
|
||||||
}
|
|
||||||
|
|
||||||
static s48_value P_Icon_Sizes (w) s48_value w; {
|
|
||||||
XIconSize *p;
|
XIconSize *p;
|
||||||
int i, n;
|
int i, n;
|
||||||
s48_value v;
|
s48_value v;
|
||||||
S48_DECLARE_GC_PROTECT(1);
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
//Disable_Interrupts;
|
||||||
Disable_Interrupts;
|
if (!XGetIconSizes (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
if (!XGetIconSizes (WINDOW(w)->dpy, WINDOW(w)->win, &p, &n))
|
SCX_EXTRACT_WINDOW(w),
|
||||||
|
&p, &n))
|
||||||
n = 0;
|
n = 0;
|
||||||
Enable_Interrupts;
|
//Enable_Interrupts;
|
||||||
|
|
||||||
v = s48_make_vector (n, S48_NULL);
|
v = s48_make_vector (n, S48_NULL);
|
||||||
S48_GC_PROTECT_1 (v);
|
S48_GC_PROTECT_1 (v);
|
||||||
for (i = 0; i < n; i++) {
|
for (i = 0; i < n; i++) {
|
||||||
register XIconSize *q = &p[i];
|
XIconSize* q = &p[i];
|
||||||
s48_value t;
|
s48_value t = s48_make_vector(6, S48_NULL);
|
||||||
|
S48_VECTOR_SET(v, i, t);
|
||||||
|
|
||||||
t = P_Make_List (s48_enter_integer (6), S48_NULL);
|
S48_VECTOR_SET(t, 0, s48_enter_integer (q->min_width));
|
||||||
S48_VECTOR_SET(v, i, t;)
|
S48_VECTOR_SET(t, 1, s48_enter_integer (q->min_height));
|
||||||
S48_CAR (t) = s48_enter_integer (q->min_width); t = S48_CDR (t);
|
S48_VECTOR_SET(t, 2, s48_enter_integer (q->max_width));
|
||||||
S48_CAR (t) = s48_enter_integer (q->min_height); t = S48_CDR (t);
|
S48_VECTOR_SET(t, 3, s48_enter_integer (q->max_height));
|
||||||
S48_CAR (t) = s48_enter_integer (q->max_width); t = S48_CDR (t);
|
S48_VECTOR_SET(t, 4, s48_enter_integer (q->width_inc));
|
||||||
S48_CAR (t) = s48_enter_integer (q->max_height); t = S48_CDR (t);
|
S48_VECTOR_SET(t, 5, s48_enter_integer (q->height_inc));
|
||||||
S48_CAR (t) = s48_enter_integer (q->width_inc); t = S48_CDR (t);
|
|
||||||
S48_CAR (t) = s48_enter_integer (q->height_inc);
|
|
||||||
}
|
}
|
||||||
S48_GC_UNPROTECT;
|
S48_GC_UNPROTECT();
|
||||||
if (n > 0)
|
if (n > 0)
|
||||||
XFree ((char *)p);
|
XFree ((char *)p);
|
||||||
return v;
|
return v;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Set_Icon_Sizes (w, v) s48_value w, v; {
|
s48_value scx_Set_Icon_Sizes (s48_value dpy, s48_value w, s48_value v) {
|
||||||
register i, n;
|
int i, n = S48_VECTOR_LENGTH(v);
|
||||||
XIconSize *p;
|
XIconSize p[n];
|
||||||
Alloca_Begin;
|
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
|
||||||
Check_Type (v, T_Vector);
|
|
||||||
n = S48_VECTOR_LENGTH(v);
|
|
||||||
Alloca (p, XIconSize*, n * sizeof (XIconSize));
|
|
||||||
for (i = 0; i < n; i++) {
|
for (i = 0; i < n; i++) {
|
||||||
register XIconSize *q = &p[i];
|
XIconSize *q = &p[i];
|
||||||
s48_value t;
|
s48_value t = S48_VECTOR_REF(v, i);
|
||||||
|
|
||||||
t = S48_VECTOR_REF(v, i);
|
q->min_width = (int)s48_extract_integer(S48_VECTOR_REF(t, 0));
|
||||||
Check_List (t);
|
q->min_height = (int)s48_extract_integer(S48_VECTOR_REF(t, 1));
|
||||||
if (Fast_Length (t) != 6)
|
q->max_width = (int)s48_extract_integer(S48_VECTOR_REF(t, 2));
|
||||||
Primitive_Error ("invalid argument: ~s", t);
|
q->max_height = (int)s48_extract_integer(S48_VECTOR_REF(t, 3));
|
||||||
q->min_width = (int)s48_extract_integer (S48_CAR (t)); t = S48_CDR (t);
|
q->width_inc = (int)s48_extract_integer(S48_VECTOR_REF(t, 4));
|
||||||
q->min_height = (int)s48_extract_integer (S48_CAR (t)); t = S48_CDR (t);
|
q->height_inc = (int)s48_extract_integer(S48_VECTOR_REF(t, 5));
|
||||||
q->max_width = (int)s48_extract_integer (S48_CAR (t)); t = S48_CDR (t);
|
|
||||||
q->max_height = (int)s48_extract_integer (S48_CAR (t)); t = S48_CDR (t);
|
|
||||||
q->width_inc = (int)s48_extract_integer (S48_CAR (t)); t = S48_CDR (t);
|
|
||||||
q->height_inc = (int)s48_extract_integer (S48_CAR (t));
|
|
||||||
}
|
}
|
||||||
XSetIconSizes (WINDOW(w)->dpy, WINDOW(w)->win, p, n);
|
|
||||||
Alloca_End;
|
XSetIconSizes (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
return Void;
|
SCX_EXTRACT_WINDOW(w),
|
||||||
|
p, n);
|
||||||
|
|
||||||
|
return S48_UNSPECIFIC;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Transient_For (w) s48_value w; {
|
s48_value scx_Transient_For(s48_value dpy, s48_value w) {
|
||||||
Window win;
|
Window win;
|
||||||
|
|
||||||
Disable_Interrupts;
|
//Disable_Interrupts;
|
||||||
if (!XGetTransientForHint (WINDOW(w)->dpy, WINDOW(w)->win, &win))
|
if (!XGetTransientForHint(SCX_EXTRACT_DISPLAY(dpy),
|
||||||
|
SCX_EXTRACT_WINDOW(w),
|
||||||
|
&win))
|
||||||
win = None;
|
win = None;
|
||||||
Enable_Interrupts;
|
//Enable_Interrupts;
|
||||||
return Make_Window (0, WINDOW(w)->dpy, win);
|
return SCX_ENTER_WINDOW(win);
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Set_Transient_For (w, pw) s48_value w, pw; {
|
s48_value scx_Set_Transient_For(s48_value dpy, s48_value w, s48_value pw) {
|
||||||
Check_Type (w, T_Window);
|
XSetTransientForHint (SCX_EXTRACT_DISPLAY(dpy),
|
||||||
XSetTransientForHint (WINDOW(w)->dpy, WINDOW(w)->win, Get_Window (pw));
|
SCX_EXTRACT_WINDOW(w),
|
||||||
return Void;
|
SCX_EXTRACT_WINDOW(pw));
|
||||||
|
return S48_UNSPECIFIC;
|
||||||
}
|
}
|
||||||
|
|
||||||
elk_init_xlib_client () {
|
s48_value scx_Wm_Normal_Hints(s48_value dpy, s48_value win) {
|
||||||
Define_Symbol (&Sym_Wm_Hints, "wm-hints");
|
XSizeHints SH;
|
||||||
Define_Symbol (&Sym_Size_Hints, "size-hints");
|
long supplied;
|
||||||
Define_Primitive (P_Iconify_Window, "iconify-window", 2, 2, EVAL);
|
s48_value v;
|
||||||
Define_Primitive (P_Withdraw_Window, "withdraw-window", 2, 2, EVAL);
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
Define_Primitive (P_Reconfigure_Wm_Window,
|
|
||||||
"xlib-reconfigure-wm-window", 3, 3, EVAL);
|
if (!XGetWMNormalHints(SCX_EXTRACT_DISPLAY(dpy),
|
||||||
Define_Primitive (P_Wm_Command, "wm-command", 1, 1, EVAL);
|
SCX_EXTRACT_WINDOW(win),
|
||||||
Define_Primitive (P_Get_Text_Property,"get-text-property", 2, 2, EVAL);
|
&SH, &supplied))
|
||||||
Define_Primitive (P_Set_Text_Property,"set-text-property!",3, 3, EVAL);
|
SH.flags = 0;
|
||||||
Define_Primitive (P_Wm_Protocols, "wm-protocols", 1, 1, EVAL);
|
|
||||||
Define_Primitive (P_Set_Wm_Protocols, "set-wm-protocols!", 2, 2, EVAL);
|
v = s48_make_vector(19, S48_NULL);
|
||||||
Define_Primitive (P_Wm_Class, "wm-class", 1, 1, EVAL);
|
S48_GC_PROTECT_1(v);
|
||||||
Define_Primitive (P_Set_Wm_Class, "set-wm-class!", 3, 3, EVAL);
|
|
||||||
Define_Primitive (P_Set_Wm_Command, "set-wm-command!", 2, 2, EVAL);
|
if ((SH.flags & PPosition) == PPosition) {
|
||||||
Define_Primitive (P_Wm_Hints, "xlib-wm-hints", 1, 1, EVAL);
|
S48_VECTOR_SET(v, 0, s48_enter_integer(SH.x));
|
||||||
Define_Primitive (P_Set_Wm_Hints, "xlib-set-wm-hints!",2, 2, EVAL);
|
S48_VECTOR_SET(v, 1, s48_enter_integer(SH.y));
|
||||||
Define_Primitive (P_Size_Hints, "xlib-wm-size-hints",2, 2, EVAL);
|
}
|
||||||
Define_Primitive (P_Set_Size_Hints,
|
if ((SH.flags & PSize) == PSize) {
|
||||||
"xlib-set-wm-size-hints!", 3, 3, EVAL);
|
S48_VECTOR_SET(v, 2, s48_enter_integer(SH.width));
|
||||||
Define_Primitive (P_Icon_Sizes, "icon-sizes", 1, 1, EVAL);
|
S48_VECTOR_SET(v, 3, s48_enter_integer(SH.height));
|
||||||
Define_Primitive (P_Set_Icon_Sizes, "set-icon-sizes!", 2, 2, EVAL);
|
}
|
||||||
Define_Primitive (P_Transient_For, "transient-for", 1, 1, EVAL);
|
if ((SH.flags & USPosition) == USPosition) {
|
||||||
Define_Primitive (P_Set_Transient_For,"set-transient-for!",2, 2, EVAL);
|
S48_VECTOR_SET(v, 0, s48_enter_integer(SH.x));
|
||||||
|
S48_VECTOR_SET(v, 1, s48_enter_integer(SH.y));
|
||||||
|
S48_VECTOR_SET(v, 4, S48_TRUE); // us-position -> #t
|
||||||
|
}
|
||||||
|
if ((SH.flags & USSize) == USSize) {
|
||||||
|
S48_VECTOR_SET(v, 2, s48_enter_integer(SH.width));
|
||||||
|
S48_VECTOR_SET(v, 3, s48_enter_integer(SH.height));
|
||||||
|
S48_VECTOR_SET(v, 5, S48_TRUE); // us-size -> #t
|
||||||
|
}
|
||||||
|
if ((SH.flags & PMinSize) == PMinSize) {
|
||||||
|
S48_VECTOR_SET(v, 6, s48_enter_integer(SH.min_width));
|
||||||
|
S48_VECTOR_SET(v, 7, s48_enter_integer(SH.min_height));
|
||||||
|
}
|
||||||
|
if ((SH.flags & PMaxSize) == PMaxSize) {
|
||||||
|
S48_VECTOR_SET(v, 8, s48_enter_integer(SH.max_width));
|
||||||
|
S48_VECTOR_SET(v, 9, s48_enter_integer(SH.max_height));
|
||||||
|
}
|
||||||
|
if ((SH.flags & PResizeInc) == PResizeInc) {
|
||||||
|
S48_VECTOR_SET(v, 10, s48_enter_integer(SH.width_inc));
|
||||||
|
S48_VECTOR_SET(v, 11, s48_enter_integer(SH.height_inc));
|
||||||
|
}
|
||||||
|
if ((SH.flags & PAspect) == PAspect) {
|
||||||
|
S48_VECTOR_SET(v, 12, s48_enter_integer(SH.min_aspect.x));
|
||||||
|
S48_VECTOR_SET(v, 13, s48_enter_integer(SH.min_aspect.y));
|
||||||
|
S48_VECTOR_SET(v, 14, s48_enter_integer(SH.max_aspect.x));
|
||||||
|
S48_VECTOR_SET(v, 15, s48_enter_integer(SH.max_aspect.y));
|
||||||
|
}
|
||||||
|
if ((SH.flags & PBaseSize) == PBaseSize) {
|
||||||
|
S48_VECTOR_SET(v, 16, s48_enter_integer(SH.base_width));
|
||||||
|
S48_VECTOR_SET(v, 17, s48_enter_integer(SH.base_height));
|
||||||
|
}
|
||||||
|
if ((SH.flags & PWinGravity) == PWinGravity) {
|
||||||
|
S48_VECTOR_SET(v, 18, Bit_To_Symbol(SH.win_gravity, Grav_Syms));
|
||||||
|
}
|
||||||
|
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
|
return v;
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scx_Set_Wm_Normal_Hints(s48_value dpy, s48_value win,
|
||||||
|
s48_value alist) {
|
||||||
|
XSizeHints SH;
|
||||||
|
long mask = 0;
|
||||||
|
s48_value l;
|
||||||
|
for (l = alist; !S48_NULL_P(l); l = S48_CDR(l)) {
|
||||||
|
s48_value p = S48_CAR(l);
|
||||||
|
char* name = s48_extract_string(S48_CAR(p));
|
||||||
|
s48_value v = S48_CDR(p);
|
||||||
|
|
||||||
|
if (strcmp(name, "x") == 0) {
|
||||||
|
mask |= PPosition; SH.x = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "y") == 0) {
|
||||||
|
mask |= PPosition; SH.y = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "width") == 0) {
|
||||||
|
mask |= PSize; SH.width = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "height") == 0) {
|
||||||
|
mask |= PSize; SH.height = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "min-width") == 0) {
|
||||||
|
mask |= PMinSize; SH.min_width = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "min-height") == 0) {
|
||||||
|
mask |= PMinSize; SH.min_height = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "max-width") == 0) {
|
||||||
|
mask |= PMaxSize; SH.max_width = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "max-height") == 0) {
|
||||||
|
mask |= PMaxSize; SH.max_height = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "width-inc") == 0) {
|
||||||
|
mask |= PResizeInc; SH.width_inc = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "height-inc") == 0) {
|
||||||
|
mask |= PResizeInc; SH.height_inc = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "min-aspect-x") == 0) {
|
||||||
|
mask |= PAspect; SH.min_aspect.x = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "min-aspect-y") == 0) {
|
||||||
|
mask |= PAspect; SH.min_aspect.y = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "max-aspect-x") == 0) {
|
||||||
|
mask |= PAspect; SH.max_aspect.x = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "max-aspect-y") == 0) {
|
||||||
|
mask |= PAspect; SH.max_aspect.y = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "base-width") == 0) {
|
||||||
|
mask |= PBaseSize; SH.base_width = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "base-height") == 0) {
|
||||||
|
mask |= PBaseSize; SH.base_height = s48_extract_integer(v);
|
||||||
|
}
|
||||||
|
if (strcmp(name, "gravity") == 0) {
|
||||||
|
mask |= PWinGravity; SH.win_gravity = Symbol_To_Bit(v, Grav_Syms);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
SH.flags = mask;
|
||||||
|
|
||||||
|
XSetWMNormalHints(SCX_EXTRACT_DISPLAY(dpy),
|
||||||
|
SCX_EXTRACT_WINDOW(win),
|
||||||
|
&SH);
|
||||||
|
|
||||||
|
return S48_UNSPECIFIC;
|
||||||
|
}
|
||||||
|
|
||||||
|
scx_init_client() {
|
||||||
|
S48_EXPORT_FUNCTION(scx_Iconify_Window);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Withdraw_Window);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Reconfigure_Wm_Window);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Wm_Command);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Get_Text_Property);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Set_Text_Property);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Wm_Protocols);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Set_Wm_Protocols);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Wm_Class);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Set_Wm_Class);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Set_Wm_Command);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Wm_Hints);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Set_Wm_Hints);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Icon_Sizes);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Set_Icon_Sizes);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Transient_For);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Set_Transient_For);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Wm_Normal_Hints);
|
||||||
|
S48_EXPORT_FUNCTION(scx_Set_Wm_Normal_Hints);
|
||||||
}
|
}
|
||||||
|
|
|
||||||
195
c/xlib/key.c
195
c/xlib/key.c
|
|
@ -1,159 +1,126 @@
|
||||||
#include "xlib.h"
|
#include "xlib.h"
|
||||||
|
#include "scheme48.h"
|
||||||
|
|
||||||
#ifdef XLIB_RELEASE_5_OR_LATER
|
//#ifdef XLIB_RELEASE_5_OR_LATER
|
||||||
|
// I don't know if XDisplayKeycodes() was already there in X11R4.
|
||||||
|
// else: dpy->min_keycode dpy->max_keycode
|
||||||
|
|
||||||
/* I don't know if XDisplayKeycodes() was already there in X11R4.
|
s48_value scx_Display_Min_Keycode (s48_value d) {
|
||||||
*/
|
|
||||||
static s48_value P_Display_Min_Keycode (d) s48_value d; {
|
|
||||||
int mink, maxk;
|
int mink, maxk;
|
||||||
|
XDisplayKeycodes(SCX_EXTRACT_DISPLAY(d), &mink, &maxk);
|
||||||
Check_Type (d, T_Display);
|
return s48_enter_integer(mink);
|
||||||
XDisplayKeycodes(DISPLAY(d)->dpy, &mink, &maxk);
|
|
||||||
return s48_enter_integer (mink);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Display_Max_Keycode (d) s48_value d; {
|
s48_value scx_Display_Max_Keycode (s48_value d) {
|
||||||
int mink, maxk;
|
int mink, maxk;
|
||||||
|
XDisplayKeycodes(SCX_EXTRACT_DISPLAY(d), &mink, &maxk);
|
||||||
Check_Type (d, T_Display);
|
return s48_enter_integer(maxk);
|
||||||
XDisplayKeycodes(DISPLAY(d)->dpy, &mink, &maxk);
|
|
||||||
return s48_enter_integer (maxk);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
#else
|
//#ifdef XLIB_RELEASE_5_OR_LATER
|
||||||
static s48_value P_Display_Min_Keycode (d) s48_value d; {
|
// I'm not sure if this works correctly in X11R4:
|
||||||
Check_Type (d, T_Display);
|
|
||||||
return s48_enter_integer (DISPLAY(d)->dpy->min_keycode);
|
|
||||||
}
|
|
||||||
|
|
||||||
static s48_value P_Display_Max_Keycode (d) s48_value d; {
|
s48_value scx_Display_Keysyms_Per_Keycode (s48_value d) {
|
||||||
Check_Type (d, T_Display);
|
|
||||||
return s48_enter_integer (DISPLAY(d)->dpy->max_keycode);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#ifdef XLIB_RELEASE_5_OR_LATER
|
|
||||||
|
|
||||||
/* I'm not sure if this works correctly in X11R4:
|
|
||||||
*/
|
|
||||||
static s48_value P_Display_Keysyms_Per_Keycode (d) s48_value d; {
|
|
||||||
KeySym *ksyms;
|
KeySym *ksyms;
|
||||||
int mink, maxk, ksyms_per_kode;
|
int mink, maxk, ksyms_per_kode;
|
||||||
|
|
||||||
Check_Type (d, T_Display);
|
XDisplayKeycodes(SCX_EXTRACT_DISPLAY(d), &mink, &maxk);
|
||||||
XDisplayKeycodes(DISPLAY(d)->dpy, &mink, &maxk);
|
ksyms = XGetKeyboardMapping(SCX_EXTRACT_DISPLAY(d), (KeyCode)mink,
|
||||||
ksyms = XGetKeyboardMapping(DISPLAY(d)->dpy, (KeyCode)mink,
|
|
||||||
maxk - mink + 1, &ksyms_per_kode);
|
maxk - mink + 1, &ksyms_per_kode);
|
||||||
return s48_enter_integer (ksyms_per_kode);
|
return s48_enter_integer(ksyms_per_kode);
|
||||||
}
|
}
|
||||||
|
|
||||||
#else
|
//#else
|
||||||
static s48_value P_Display_Keysyms_Per_Keycode (d) s48_value d; {
|
//static s48_value P_Display_Keysyms_Per_Keycode (d) s48_value d; {
|
||||||
Check_Type (d, T_Display);
|
// Check_Type (d, T_Display);
|
||||||
/* Force initialization: */
|
// // Force initialization:
|
||||||
Disable_Interrupts;
|
// Disable_Interrupts;
|
||||||
(void)XKeycodeToKeysym (DISPLAY(d)->dpy, DISPLAY(d)->dpy->min_keycode, 0);
|
// (void)XKeycodeToKeysym (DISPLAY(d)->dpy, DISPLAY(d)->dpy->min_keycode, 0);
|
||||||
Enable_Interrupts;
|
// Enable_Interrupts;
|
||||||
return s48_enter_integer (DISPLAY(d)->dpy->keysyms_per_keycode);
|
// return s48_enter_integer (DISPLAY(d)->dpy->keysyms_per_keycode);
|
||||||
}
|
//}
|
||||||
#endif
|
//#endif
|
||||||
|
|
||||||
static s48_value P_String_To_Keysym (s) s48_value s; {
|
s48_value scx_String_To_Keysym (s48_value s) {
|
||||||
KeySym k;
|
KeySym k = XStringToKeysym (s48_extract_string(s));
|
||||||
|
|
||||||
k = XStringToKeysym (Get_Strsym (s));
|
|
||||||
return k == NoSymbol ? S48_FALSE : s48_enter_integer ((unsigned long)k);
|
return k == NoSymbol ? S48_FALSE : s48_enter_integer ((unsigned long)k);
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Keysym_To_String (k) s48_value k; {
|
s48_value scx_Keysym_To_String (s48_value k) {
|
||||||
register char *s;
|
char* s = XKeysymToString ((KeySym)s48_extract_integer(k));
|
||||||
|
return s ? s48_enter_string(s) : S48_FALSE;
|
||||||
s = XKeysymToString ((KeySym)s48_extract_integer (k));
|
|
||||||
return s ? Make_String (s, strlen (s)) : S48_FALSE;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Keycode_To_Keysym (d, k, index) s48_value d, k, index; {
|
s48_value scx_Keycode_To_Keysym (s48_value d, s48_value k, s48_value index) {
|
||||||
s48_value ret;
|
KeySym ks;
|
||||||
|
//Disable_Interrupts;
|
||||||
Check_Type (d, T_Display);
|
ks = XKeycodeToKeysym(SCX_EXTRACT_DISPLAY(d),
|
||||||
Disable_Interrupts;
|
(int)s48_extract_integer (k),
|
||||||
ret = s48_enter_integer ((unsigned long)XKeycodeToKeysym (DISPLAY(d)->dpy,
|
(int)s48_extract_integer (index));
|
||||||
(int)s48_extract_integer (k), (int)s48_extract_integer (index)));
|
//Enable_Interrupts;
|
||||||
Enable_Interrupts;
|
return s48_enter_integer((unsigned long)ks);
|
||||||
return ret;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Keysym_To_Keycode (d, k) s48_value d, k; {
|
s48_value scx_Keysym_To_Keycode (s48_value d, s48_value k) {
|
||||||
s48_value ret;
|
KeyCode kc;
|
||||||
|
//Disable_Interrupts;
|
||||||
Check_Type (d, T_Display);
|
kc = XKeysymToKeycode (SCX_EXTRACT_DISPLAY(d),
|
||||||
Disable_Interrupts;
|
(KeySym)s48_extract_integer(k));
|
||||||
ret = s48_enter_integer (XKeysymToKeycode (DISPLAY(d)->dpy,
|
//Enable_Interrupts;
|
||||||
(KeySym)s48_extract_integer (k)));
|
return s48_enter_integer(kc);
|
||||||
Enable_Interrupts;
|
|
||||||
return ret;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Lookup_String (d, k, mask) s48_value d, k, mask; {
|
s48_value scx_Lookup_String (s48_value d, s48_value k, s48_value mask) {
|
||||||
XKeyEvent e;
|
XKeyEvent e;
|
||||||
char buf[1024];
|
char buf[1024];
|
||||||
register len;
|
int len;
|
||||||
KeySym keysym_return;
|
KeySym keysym_return;
|
||||||
XComposeStatus status_return;
|
XComposeStatus status_return;
|
||||||
|
|
||||||
Check_Type (d, T_Display);
|
e.display = SCX_EXTRACT_DISPLAY(d);
|
||||||
e.display = DISPLAY(d)->dpy;
|
e.keycode = (int)s48_extract_integer(k);
|
||||||
e.keycode = (int)s48_extract_integer (k);
|
e.state = Symbols_To_Bits(mask, State_Syms);
|
||||||
e.state = Symbols_To_Bits (mask, 1, State_Syms);
|
//Disable_Interrupts;
|
||||||
Disable_Interrupts;
|
|
||||||
len = XLookupString (&e, buf, 1024, &keysym_return, &status_return);
|
len = XLookupString (&e, buf, 1024, &keysym_return, &status_return);
|
||||||
Enable_Interrupts;
|
//Enable_Interrupts;
|
||||||
return Make_String (buf, len);
|
return s48_enter_string(buf); //is there a 0 at buf[len] ?
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Rebind_Keysym (d, k, mods, str) s48_value d, k, mods, str; {
|
s48_value scx_Rebind_Keysym (s48_value d, s48_value k, s48_value mods,
|
||||||
KeySym *p;
|
s48_value str) {
|
||||||
register i, n;
|
int i, n = S48_VECTOR_LENGTH(mods);
|
||||||
Alloca_Begin;
|
KeySym p[n];
|
||||||
|
|
||||||
Check_Type (d, T_Display);
|
|
||||||
Check_Type (str, T_String);
|
|
||||||
Check_Type (mods, T_Vector);
|
|
||||||
n = S48_VECTOR_LENGTH(mods);
|
|
||||||
Alloca (p, KeySym*, n * sizeof (KeySym));
|
|
||||||
for (i = 0; i < n; i++)
|
for (i = 0; i < n; i++)
|
||||||
p[i] = (KeySym)s48_extract_integer (VECTOR(mods)->data[i]);
|
p[i] = (KeySym)s48_extract_integer(S48_VECTOR_REF(mods, i));
|
||||||
XRebindKeysym (DISPLAY(d)->dpy, (KeySym)s48_extract_integer (k), p, n,
|
XRebindKeysym (SCX_EXTRACT_DISPLAY(d),
|
||||||
(unsigned char *)STRING(str)->data, STRING(str)->size);
|
(KeySym)s48_extract_integer (k), p, n,
|
||||||
Alloca_End;
|
(unsigned char *)s48_extract_string(str),
|
||||||
return Void;
|
S48_STRING_LENGTH(str));
|
||||||
|
return S48_UNSPECIFIC;
|
||||||
}
|
}
|
||||||
|
|
||||||
static s48_value P_Refresh_Keyboard_Mapping (w, event) s48_value w, event; {
|
s48_value scx_Refresh_Keyboard_Mapping (s48_value d, s48_value w,
|
||||||
|
s48_value event) {
|
||||||
static XMappingEvent fake;
|
static XMappingEvent fake;
|
||||||
|
|
||||||
Check_Type (w, T_Window);
|
|
||||||
fake.type = MappingNotify;
|
fake.type = MappingNotify;
|
||||||
fake.display = WINDOW(w)->dpy;
|
fake.display = SCX_EXTRACT_DISPLAY(d);
|
||||||
fake.window = WINDOW(w)->win;
|
fake.window = SCX_EXTRACT_WINDOW(w);
|
||||||
fake.request = Symbols_To_Bits (event, 0, Mapping_Syms);
|
fake.request = Symbol_To_Bit (event, Mapping_Syms);
|
||||||
XRefreshKeyboardMapping (&fake);
|
XRefreshKeyboardMapping (&fake);
|
||||||
return Void;
|
return S48_UNSPECIFIC;
|
||||||
}
|
}
|
||||||
|
|
||||||
elk_init_xlib_key () {
|
scx_init_key () {
|
||||||
Define_Primitive (P_Display_Min_Keycode, "display-min-keycode",
|
S48_EXPORT_FUNCTION(scx_Display_Min_Keycode);
|
||||||
1, 1, EVAL);
|
S48_EXPORT_FUNCTION(scx_Display_Max_Keycode);
|
||||||
Define_Primitive (P_Display_Max_Keycode, "display-max-keycode",
|
S48_EXPORT_FUNCTION(scx_Display_Keysyms_Per_Keycode);
|
||||||
1, 1, EVAL);
|
S48_EXPORT_FUNCTION(scx_String_To_Keysym);
|
||||||
Define_Primitive (P_Display_Keysyms_Per_Keycode,
|
S48_EXPORT_FUNCTION(scx_Keysym_To_String);
|
||||||
"display-keysyms-per-keycode", 1, 1, EVAL);
|
S48_EXPORT_FUNCTION(scx_Keycode_To_Keysym);
|
||||||
Define_Primitive (P_String_To_Keysym, "string->keysym", 1, 1, EVAL);
|
S48_EXPORT_FUNCTION(scx_Keysym_To_Keycode);
|
||||||
Define_Primitive (P_Keysym_To_String, "keysym->string", 1, 1, EVAL);
|
S48_EXPORT_FUNCTION(scx_Lookup_String);
|
||||||
Define_Primitive (P_Keycode_To_Keysym, "keycode->keysym", 3, 3, EVAL);
|
S48_EXPORT_FUNCTION(scx_Rebind_Keysym);
|
||||||
Define_Primitive (P_Keysym_To_Keycode, "keysym->keycode", 2, 2, EVAL);
|
S48_EXPORT_FUNCTION(scx_Refresh_Keyboard_Mapping);
|
||||||
Define_Primitive (P_Lookup_String, "lookup-string", 3, 3, EVAL);
|
|
||||||
Define_Primitive (P_Rebind_Keysym, "rebind-keysym", 4, 4, EVAL);
|
|
||||||
Define_Primitive (P_Refresh_Keyboard_Mapping,
|
|
||||||
"refresh-keyboard-mapping", 2, 2, EVAL);
|
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue