112ac1d3 |
1 | /* Common Lisp bindings for GTK+ v2.x |
2 | * Copyright 1999-2005 Espen S. Johnsen <espen@users.sf.net> |
ab0ddec3 |
3 | * |
112ac1d3 |
4 | * Permission is hereby granted, free of charge, to any person obtaining |
5 | * a copy of this software and associated documentation files (the |
6 | * "Software"), to deal in the Software without restriction, including |
7 | * without limitation the rights to use, copy, modify, merge, publish, |
8 | * distribute, sublicense, and/or sell copies of the Software, and to |
9 | * permit persons to whom the Software is furnished to do so, subject to |
10 | * the following conditions: |
ab0ddec3 |
11 | * |
112ac1d3 |
12 | * The above copyright notice and this permission notice shall be |
13 | * included in all copies or substantial portions of the Software. |
ab0ddec3 |
14 | * |
112ac1d3 |
15 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, |
16 | * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
17 | * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. |
18 | * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY |
19 | * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, |
20 | * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE |
21 | * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
ab0ddec3 |
22 | */ |
23 | |
112ac1d3 |
24 | /* $Id: callback.c,v 1.5 2005-04-23 16:48:51 espen Exp $ */ |
ab0ddec3 |
25 | |
26 | #include <glib-object.h> |
27 | |
7ea6e842 |
28 | /* #ifdef CMUCL */ |
29 | /* #include "lisp.h" */ |
ab0ddec3 |
30 | |
7ea6e842 |
31 | /* void (*log_handler) (gchar*, guint, gchar*); */ |
32 | /* #endif */ |
ab0ddec3 |
33 | |
34 | |
ab0ddec3 |
35 | |
36 | GClosure* |
34f9e1d4 |
37 | clg_callback_closure_new (gpointer callback_id, gpointer callback, |
38 | gpointer destroy_notify) |
ab0ddec3 |
39 | { |
40 | GClosure *closure; |
41 | |
42 | closure = g_closure_new_simple (sizeof (GClosure), (gpointer)callback_id); |
34f9e1d4 |
43 | g_closure_set_meta_marshal (closure, callback_id, callback); |
44 | g_closure_add_finalize_notifier (closure, callback_id, destroy_notify); |
ab0ddec3 |
45 | |
46 | return closure; |
47 | } |
48 | |
49 | |
7ea6e842 |
50 | /* void */ |
51 | /* g_logv (const gchar *log_domain, */ |
52 | /* GLogLevelFlags log_level, */ |
53 | /* const gchar *format, */ |
54 | /* va_list args1) */ |
55 | /* { */ |
56 | /* gchar *msg = g_strdup_vprintf (format, args1); */ |
57 | /* log_handler (log_domain, log_level, msg); */ |
34f9e1d4 |
58 | |
7ea6e842 |
59 | /* /\* Normally log_handler won't return, so we will be leaking this memory *\/ */ |
60 | /* g_free (msg); */ |
61 | /* } */ |