← Back to branch summary

~ubuntu-branches/ubuntu/hardy/pidgin/hardy

« back to all changes in this revision

Viewing changes to libpurple/plugins/perl/common/Log.xs

  • Committer: Bazaar Package Importer
  • Author(s): Pedro Fragoso
  • Date: 2007-12-21 02:48:06 UTC
  • mfrom: (1.1.7 upstream)
  • Revision ID: james.westby@ubuntu.com-20071221024806-pd44a5k9tiyh12mp
Tags: 1:2.3.1-2ubuntu1
https://launchpad.net/bugs/177811
* Sync with Debian, remaining Ubuntu changes; (LP: #177811)
  - Set Maintainer to Ubuntu Core Developers.
  - Add build-deps on liblaunchpad-integration-dev, intltool,
    libnm-glib-dev (for --enable-nm) (Ubuntu #112720).
  - Drop build-deps on libsilc-1.1-2-dev | libsilc-dev (>= 1.1.1) as 
    this library is in universe.
  - Drop the libpurple0 recommends on libpurple-bin.
  - Add a gaim transitionnal package for upgrades.
  - Ship compatibility symlinks via debian/gaim.links.
  - Pass --enable-nm to configure to enable NetworkManager support.
  - Pass --disable-silc to configure to disable silc support even if 
    it's installed in the build environment.
  - Add X-Ubuntu-Gettext-Domain to the desktop file and update the
    translation templates in common-install-impl::.
   - Update debian/prefs.xml to set the notify plugin prefs
    /plugins/gtk/X11/notify/* and set /pidgin/plugins/loaded to load 
    the notify plugin; Ubuntu: #13389.
  - Add LPI integration patch, 02_lpi.
  - Add patch 04_let_crasher_for_apport to stop catching the SIGSEGV signal
    and let apport handle it.
  - Add patch 05_default_to_irc_ubuntu_com to set the default IRC 
    server to irc.ubuntu.com.
  - Add autoconf patch, 70_autoconf.

Show diffs side-by-side

added added

removed removed

Lines of Context:
libpurple/plugins/perl/common/Log.xs
65
65
        const char *name
66
66
        Purple::Account account
67
67
PREINIT:
68
 
        GList *l;
 
68
        GList *l, *ll;
69
69
PPCODE:
70
 
        for (l = purple_log_get_logs(type, name, account); l != NULL; l = l->next) {
71
 
                XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));
 
70
        ll = purple_log_get_logs(type, name, account);
 
71
        for (l = ll; l != NULL; l = l->next) {
 
72
                XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Log")));
72
73
        }
 
74
        /* We can free the list here but the script needs to free the
 
75
         * Purple::Log 'objects' itself. */
 
76
        g_list_free(ll);
73
77
 
74
78
int
75
79
purple_log_get_size(log)
79
83
purple_log_get_system_logs(account)
80
84
        Purple::Account account
81
85
PREINIT:
82
 
        GList *l;
 
86
        GList *l, *ll;
83
87
PPCODE:
84
 
        for (l = purple_log_get_system_logs(account); l != NULL; l = l->next) {
85
 
                XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));
 
88
        ll = purple_log_get_system_logs(account);
 
89
        for (l = ll; l != NULL; l = l->next) {
 
90
                XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Log")));
86
91
        }
 
92
        /* We can free the list here but the script needs to free the
 
93
         * Purple::Log 'objects' itself. */
 
94
        g_list_free(ll);
87
95
 
88
96
int
89
97
purple_log_get_total_size(type, name, account)
101
109
void
102
110
purple_log_logger_get_options()
103
111
PREINIT:
104
 
        GList *l;
 
112
        GList *l, *ll;
105
113
PPCODE:
106
 
        for (l = purple_log_logger_get_options(); l != NULL; l = l->next) {
107
 
                XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));
 
114
        /* This might want to be massaged to a hash, since that's essentially
 
115
         * what the key/value list is emulating. */
 
116
        for (l = ll = purple_log_logger_get_options(); l != NULL; l = l->next) {
 
117
                XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
108
118
        }
 
119
        g_list_free(ll);
109
120
 
110
121
gchar_own *
111
122
purple_log_read(log, flags)