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