1 /* Copyright (c) 2008 Sadrul Habib Chowdhury (sadrul@users.sf.net)
2 * 2009 Rui Guo (firemeteor.guo@gmail.com)
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 3, or (at your option)
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License
15 * along with this program (see the file COPYING); if not, write to the
16 * Free Software Foundation, Inc.,
17 * 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA
19 ****************************************************************
26 /*Binding structure & functions*/
28 struct binding
*bindings
= NULL
;
31 register_binding (struct binding
*new_binding
)
33 if (!new_binding
->registered
)
35 new_binding
->b_next
= bindings
;
36 bindings
= new_binding
;
37 new_binding
->registered
= 1;
42 extern struct binding lua_binding
;
45 extern struct binding py_binding
;
47 void LoadBindings(void)
50 register_binding(&lua_binding
);
53 register_binding(&py_binding
);
57 FinalizeBindings (void)
59 struct binding
*binding
=bindings
;
64 binding
= binding
->b_next
;
69 ScriptSource(int argc
, const char **argv
)
73 const char *bd_select
= 0, *script
;
74 struct binding
*binding
= bindings
;
76 /* Parse the commandline options
77 * sourcescript [-async|-a] [-binding|-b <binding>] script
79 while (*argv
&& **argv
== '-')
81 /* check for (-a | -async) */
82 const char *arg
= *argv
;
83 if ((arg
[1] == 'a' && !arg
[2])
84 || strcmp(arg
, "-async") == 0)
86 /* check for (-b | -binding) */
87 else if ((arg
[1] == 'b' && !arg
[2])
88 || strcmp(arg
, "-binding") == 0) {
97 if (!bd_select
|| strcmp(bd_select
, binding
->name
) == 0) {
98 /*dynamically initialize the binding*/
105 /*and source the script*/
106 if (ret
= binding
->bd_Source(script
, async
))
109 binding
= binding
->b_next
;
112 LMsg(1, "Could not source specified script %s", script
);
116 ScriptCall(const char *func
, const char **argv
)
119 return LuaCall(func
, argv
);
123 ScriptCmd(int argc
, const char **argv
)
125 const char * sub
= *argv
;
127 if (!strcmp(sub
, "call"))
128 ScriptCall(*argv
, argv
+1);
129 else if (!strcmp(sub
, "source"))
130 ScriptSource(argc
, argv
);
133 /* Event notification handling */
135 struct gevents globalevents
;
137 /* To add a new event, introduce a field for that event to the object in
138 * question, and don't forget to put an descriptor here. NOTE: keep the
139 * name field sorted in alphabet order, the searching relies on it.
141 * the params string specifies the expected parameters. The length of the
142 * string equals to the number of parameters. Each char specifies the type of
143 * the parameter, with its meaning similar to those in printf().
146 * S: string array (char **)
151 struct sev_description
{
157 {"global_cmdexecuted", "sS", offsetof(struct gevents
, cmdexecuted
)},
158 {"global_detached", "di", offsetof(struct gevents
, detached
)},
159 /* The command "detach" triggers both 'cmdexecuted' and 'detached' events.
160 However, we need the 'detached' event to trigger callbacks from remote detaches.
164 {"window_resize", "", offsetof(struct win
, w_sev
.resize
)},
165 {"window_can_resize", "", offsetof(struct win
, w_sev
.canresize
)}
168 /* Get the event queue with the given name in the obj. If the obj is NULL,
169 * global events are searched. If no event is found, a NULL is returned.
171 struct script_event
*
172 object_get_event(char *obj
, const char *name
)
176 obj
= (char *)&globalevents
;
179 n
= hi
= sizeof(event_table
) / sizeof(struct sev_description
);
183 half
= (lo
+ hi
) >> 1;
184 cmp
= strcmp(name
, event_table
[half
].name
);
191 if (lo
>= n
|| strcmp(name
, event_table
[lo
].name
))
196 struct script_event
*res
;
197 res
= (struct script_event
*) (obj
+ event_table
[lo
].offset
);
198 /*Setup the parameter record.*/
199 res
->params
= event_table
[lo
].params
;
204 /* Put a listener in a proper position in the chain
205 * according to the privlege.
206 * Not insert duplicate entry. return zero if successful.*/
208 register_listener(struct script_event
*ev
, struct listener
*l
)
210 unsigned int priv
= l
->priv
;
211 struct listener
*p
, *iter
= &ev
->listeners
;
214 while(iter
->chain
&& priv
>= iter
->chain
->priv
)
217 /* return if duplicate found*/
218 if (iter
->handler
== l
->handler
219 && iter
->dispatcher
== l
->dispatcher
)
234 unregister_listener(struct listener
*l
)
236 struct listener
*p
= l
->prev
;
240 l
->chain
= l
->prev
= 0;
245 /* Trigger event with given parameters.*/
247 trigger_sevent(struct script_event
*ev
, VA_DOTS
)
250 struct listener
*chain
;
253 /*invalid or un-registered event structure*/
254 if (!ev
|| !ev
->params
)
257 /*process the chain in order, stop if any of the handler returns true.*/
258 chain
= ev
->listeners
.chain
;
263 res
= chain
->dispatcher(chain
->handler
, params
, va
);
267 chain
= chain
->chain
;
273 #define ALL_SCRIPTS(fn, params, stop) do { \
274 struct binding *iter; \
275 for (iter = bindings; iter; iter = iter->b_next) \
277 if (iter->fns && iter->fns->fn && (ret = (iter->fns->fn params)) && stop) \
282 void ScriptForeWindowChanged(void)
285 ALL_SCRIPTS(sf_ForeWindowChanged
, (), 0);
288 int ScriptProcessCaption(const char *str
, struct win
*win
, int len
)
291 ALL_SCRIPTS(sf_ProcessCaption
, (str
, win
, len
), 1);