Mercurial > pidgin
comparison libgaim/plugins/perl/common/Log.xs @ 15103:53f7a4a8ad2a
[gaim-migrate @ 17889]
Fix some leakage in the perl loader bindings by using a special typedef to handle functions that return g_malloc()-ed values. Thanks to the Gtk-Perl folks for any easy way to do this.
Fix gaim_gtk_sound_get_event_label() to correctly indicate that the retval is a constant.
committer: Tailor Script <tailor@pidgin.im>
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Mon, 04 Dec 2006 03:49:34 +0000 |
parents | 60b1bc8dbf37 |
children |
comparison
equal
deleted
inserted
replaced
15102:37a792fc9800 | 15103:53f7a4a8ad2a |
---|---|
19 | 19 |
20 void | 20 void |
21 gaim_log_free(log) | 21 gaim_log_free(log) |
22 Gaim::Log log | 22 Gaim::Log log |
23 | 23 |
24 char * | 24 gchar_own * |
25 gaim_log_get_log_dir(type, name, account) | 25 gaim_log_get_log_dir(type, name, account) |
26 Gaim::LogType type | 26 Gaim::LogType type |
27 const char *name | 27 const char *name |
28 Gaim::Account account | 28 Gaim::Account account |
29 | 29 |
81 PPCODE: | 81 PPCODE: |
82 for (l = gaim_log_logger_get_options(); l != NULL; l = l->next) { | 82 for (l = gaim_log_logger_get_options(); l != NULL; l = l->next) { |
83 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry"))); | 83 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry"))); |
84 } | 84 } |
85 | 85 |
86 char * | 86 gchar_own * |
87 gaim_log_read(log, flags) | 87 gaim_log_read(log, flags) |
88 Gaim::Log log | 88 Gaim::Log log |
89 Gaim::Log::ReadFlags flags | 89 Gaim::Log::ReadFlags flags |
90 | 90 |
91 gint | 91 gint |