SCM
scm_apply_subr (union scm_vm_stack_element *sp, scm_t_ptrdiff nslots)
{
SCM (*subr)() = SCM_SUBRF (sp[nslots - 1].as_scm);
#define ARG(i) (sp[i].as_scm)
switch (nslots - 1)
{
case 0:
return subr ();
case 1:
return subr (ARG (0));
case 2:
return subr (ARG (1), ARG (0));
case 3:
return subr (ARG (2), ARG (1), ARG (0));
case 4:
return subr (ARG (3), ARG (2), ARG (1), ARG (0));
case 5:
return subr (ARG (4), ARG (3), ARG (2), ARG (1), ARG (0));
case 6:
return subr (ARG (5), ARG (4), ARG (3), ARG (2), ARG (1),
ARG (0));
case 7:
return subr (ARG (6), ARG (5), ARG (4), ARG (3), ARG (2),
ARG (1), ARG (0));
case 8:
return subr (ARG (7), ARG (6), ARG (5), ARG (4), ARG (3),
ARG (2), ARG (1), ARG (0));
case 9:
return subr (ARG (8), ARG (7), ARG (6), ARG (5), ARG (4),
ARG (3), ARG (2), ARG (1), ARG (0));
case 10:
return subr (ARG (9), ARG (8), ARG (7), ARG (6), ARG (5),
ARG (4), ARG (3), ARG (2), ARG (1), ARG (0));
default:
abort ();
}
#undef ARG
}
Bool EWMH_CMD_Style(char *token, window_style *ptmpstyle, int on)
{
int found = False;
if (StrEquals(token, "EWMHDonateIcon"))
{
found = True;
S_SET_DO_EWMH_DONATE_ICON(SCF(*ptmpstyle), on);
S_SET_DO_EWMH_DONATE_ICON(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_DONATE_ICON(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHDonateMiniIcon"))
{
found = True;
S_SET_DO_EWMH_DONATE_MINI_ICON(SCF(*ptmpstyle), on);
S_SET_DO_EWMH_DONATE_MINI_ICON(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_DONATE_MINI_ICON(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHDontDonateIcon"))
{
found = True;
S_SET_DO_EWMH_DONATE_ICON(SCF(*ptmpstyle), !on);
S_SET_DO_EWMH_DONATE_ICON(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_DONATE_ICON(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHDontDonateMiniIcon"))
{
found = True;
S_SET_DO_EWMH_DONATE_MINI_ICON(SCF(*ptmpstyle), !on);
S_SET_DO_EWMH_DONATE_MINI_ICON(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_DONATE_MINI_ICON(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHMaximizeIgnoreWorkingArea"))
{
found = True;
S_SET_EWMH_MAXIMIZE_MODE(
SCF(*ptmpstyle), EWMH_IGNORE_WORKING_AREA);
S_SET_EWMH_MAXIMIZE_MODE(
SCM(*ptmpstyle), EWMH_WORKING_AREA_MASK);
S_SET_EWMH_MAXIMIZE_MODE(
SCC(*ptmpstyle), EWMH_WORKING_AREA_MASK);
}
else if (StrEquals(token, "EWMHMaximizeUseWorkingArea"))
{
found = True;
S_SET_EWMH_MAXIMIZE_MODE(
SCF(*ptmpstyle), EWMH_USE_WORKING_AREA);
S_SET_EWMH_MAXIMIZE_MODE(
SCM(*ptmpstyle), EWMH_WORKING_AREA_MASK);
S_SET_EWMH_MAXIMIZE_MODE(
SCC(*ptmpstyle), EWMH_WORKING_AREA_MASK);
}
else if (StrEquals(token, "EWMHMaximizeUseDynamicWorkingArea"))
{
found = True;
S_SET_EWMH_MAXIMIZE_MODE(
SCF(*ptmpstyle), EWMH_USE_DYNAMIC_WORKING_AREA);
S_SET_EWMH_MAXIMIZE_MODE(
SCM(*ptmpstyle), EWMH_WORKING_AREA_MASK);
S_SET_EWMH_MAXIMIZE_MODE(
SCC(*ptmpstyle), EWMH_WORKING_AREA_MASK);
}
else if (StrEquals(token, "EWMHMiniIconOverride"))
{
found = True;
S_SET_DO_EWMH_MINI_ICON_OVERRIDE(SCF(*ptmpstyle), on);
S_SET_DO_EWMH_MINI_ICON_OVERRIDE(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_MINI_ICON_OVERRIDE(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHNoMiniIconOverride"))
{
found = True;
S_SET_DO_EWMH_MINI_ICON_OVERRIDE(SCF(*ptmpstyle), !on);
S_SET_DO_EWMH_MINI_ICON_OVERRIDE(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_MINI_ICON_OVERRIDE(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHPlacementIgnoreWorkingArea"))
{
found = True;
ptmpstyle->flags.ewmh_placement_mode =
EWMH_IGNORE_WORKING_AREA;
ptmpstyle->flag_mask.ewmh_placement_mode =
EWMH_WORKING_AREA_MASK;
ptmpstyle->change_mask.ewmh_placement_mode =
EWMH_WORKING_AREA_MASK;
}
else if (StrEquals(token, "EWMHPlacementUseWorkingArea"))
{
found = True;
ptmpstyle->flags.ewmh_placement_mode = EWMH_USE_WORKING_AREA;
ptmpstyle->flag_mask.ewmh_placement_mode =
EWMH_WORKING_AREA_MASK;
ptmpstyle->change_mask.ewmh_placement_mode =
EWMH_WORKING_AREA_MASK;
}
else if (StrEquals(token, "EWMHPlacementUseDynamicWorkingArea"))
{
found = True;
ptmpstyle->flags.ewmh_placement_mode =
EWMH_USE_DYNAMIC_WORKING_AREA;
ptmpstyle->flag_mask.ewmh_placement_mode =
EWMH_WORKING_AREA_MASK;
ptmpstyle->change_mask.ewmh_placement_mode =
EWMH_WORKING_AREA_MASK;
}
else if (StrEquals(token, "EWMHUseStackingOrderHints"))
{
found = True;
S_SET_DO_EWMH_USE_STACKING_HINTS(SCF(*ptmpstyle), on);
S_SET_DO_EWMH_USE_STACKING_HINTS(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_USE_STACKING_HINTS(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHIgnoreStackingOrderHints"))
{
found = True;
S_SET_DO_EWMH_USE_STACKING_HINTS(SCF(*ptmpstyle), !on);
S_SET_DO_EWMH_USE_STACKING_HINTS(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_USE_STACKING_HINTS(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHUseStateHints"))
{
found = True;
S_SET_DO_EWMH_IGNORE_STATE_HINTS(SCF(*ptmpstyle), !on);
S_SET_DO_EWMH_IGNORE_STATE_HINTS(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_IGNORE_STATE_HINTS(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHIgnoreStateHints"))
{
found = True;
S_SET_DO_EWMH_IGNORE_STATE_HINTS(SCF(*ptmpstyle), on);
S_SET_DO_EWMH_IGNORE_STATE_HINTS(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_IGNORE_STATE_HINTS(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHUseStrutHints"))
{
found = True;
S_SET_DO_EWMH_IGNORE_STRUT_HINTS(SCF(*ptmpstyle), !on);
S_SET_DO_EWMH_IGNORE_STRUT_HINTS(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_IGNORE_STRUT_HINTS(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHIgnoreStrutHints"))
{
found = True;
S_SET_DO_EWMH_IGNORE_STRUT_HINTS(SCF(*ptmpstyle), on);
S_SET_DO_EWMH_IGNORE_STRUT_HINTS(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_IGNORE_STRUT_HINTS(SCC(*ptmpstyle), 1);
}
else if (StrEquals(token, "EWMHIgnoreWindowType"))
{
found = True;
S_SET_DO_EWMH_IGNORE_WINDOW_TYPE(SCF(*ptmpstyle), on);
S_SET_DO_EWMH_IGNORE_WINDOW_TYPE(SCM(*ptmpstyle), 1);
S_SET_DO_EWMH_IGNORE_WINDOW_TYPE(SCC(*ptmpstyle), 1);
}
return found;
}
