Mercurial > pidgin3 / annotate

pidgin/plugins/perl/common/Pidgin.xs@7ffb51d133a4 (annotated)

pidgin/plugins/perl/common/Pidgin.xs

Sun, 15 Feb 2009 22:52:47 +0000

author
Elliott Sales de Andrade <qulogic@pidgin.im>
date
Sun, 15 Feb 2009 22:52:47 +0000
changeset 25616
7ffb51d133a4
parent 16623
5d685c111d7b
child 16661
f3d9a3646735
child 18068
b6554e3c8224
child 35312
add13288757e
permissions
-rw-r--r--

Set a NULL statusline and CurrentMedia if the UBX returns an empty payload,
instead of trying to parse the empty text. If only users wouldn't freak out
just because they see the word "error"...

Fixes #8348.

16529
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
1 #define PIDGIN_PERL_BOOT_PROTO(x) \
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
2 void boot_Pidgin__##x(pTHX_ CV *cv)
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
3
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
4 #define PIDGIN_PERL_BOOT(x) \
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
5 purple_perl_callXS(boot_Pidgin__##x, cv, mark)
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
6
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
7 #include "gtkmodule.h"
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
8
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
9 /* Prototypes for the BOOT section below. */
16529
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
10 PIDGIN_PERL_BOOT_PROTO(Account);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
11 PIDGIN_PERL_BOOT_PROTO(BuddyList);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
12 PIDGIN_PERL_BOOT_PROTO(Connection);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
13 PIDGIN_PERL_BOOT_PROTO(Conversation);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
14 PIDGIN_PERL_BOOT_PROTO(Conversation__Window);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
15 PIDGIN_PERL_BOOT_PROTO(Debug);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
16 PIDGIN_PERL_BOOT_PROTO(Dialogs);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
17 PIDGIN_PERL_BOOT_PROTO(IMHtml);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
18 PIDGIN_PERL_BOOT_PROTO(IMHtmlToolbar);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
19 PIDGIN_PERL_BOOT_PROTO(Log);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
20 PIDGIN_PERL_BOOT_PROTO(MenuTray);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
21 PIDGIN_PERL_BOOT_PROTO(Plugin);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
22 PIDGIN_PERL_BOOT_PROTO(PluginPref);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
23 PIDGIN_PERL_BOOT_PROTO(Pounce);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
24 PIDGIN_PERL_BOOT_PROTO(Prefs);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
25 PIDGIN_PERL_BOOT_PROTO(Privacy);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
26 PIDGIN_PERL_BOOT_PROTO(Roomlist);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
27 PIDGIN_PERL_BOOT_PROTO(Status);
14509
e46c4ed7e331 [gaim-migrate @ 17161]
Daniel Atallah <datallah@pidgin.im>
parents: 14478
diff changeset
28 #ifndef _WIN32
16529
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
29 PIDGIN_PERL_BOOT_PROTO(Session);
14509
e46c4ed7e331 [gaim-migrate @ 17161]
Daniel Atallah <datallah@pidgin.im>
parents: 14478
diff changeset
30 #endif
16529
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
31 PIDGIN_PERL_BOOT_PROTO(Sound);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
32 PIDGIN_PERL_BOOT_PROTO(StatusBox);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
33 PIDGIN_PERL_BOOT_PROTO(Themes);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
34 PIDGIN_PERL_BOOT_PROTO(Utils);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
35 PIDGIN_PERL_BOOT_PROTO(Xfer);
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
36
16529
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
37 MODULE = Pidgin PACKAGE = Pidgin PREFIX = pidgin_
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
38 PROTOTYPES: ENABLE
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
39
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
40 BOOT:
16529
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
41 PIDGIN_PERL_BOOT(Account);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
42 PIDGIN_PERL_BOOT(BuddyList);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
43 PIDGIN_PERL_BOOT(Connection);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
44 PIDGIN_PERL_BOOT(Conversation);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
45 PIDGIN_PERL_BOOT(Conversation__Window);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
46 PIDGIN_PERL_BOOT(Debug);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
47 PIDGIN_PERL_BOOT(Dialogs);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
48 PIDGIN_PERL_BOOT(IMHtml);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
49 PIDGIN_PERL_BOOT(IMHtmlToolbar);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
50 PIDGIN_PERL_BOOT(Log);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
51 PIDGIN_PERL_BOOT(MenuTray);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
52 PIDGIN_PERL_BOOT(Plugin);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
53 PIDGIN_PERL_BOOT(PluginPref);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
54 PIDGIN_PERL_BOOT(Pounce);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
55 PIDGIN_PERL_BOOT(Prefs);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
56 PIDGIN_PERL_BOOT(Privacy);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
57 PIDGIN_PERL_BOOT(Roomlist);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
58 PIDGIN_PERL_BOOT(Status);
14509
e46c4ed7e331 [gaim-migrate @ 17161]
Daniel Atallah <datallah@pidgin.im>
parents: 14478
diff changeset
59 #ifndef _WIN32
16529
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
60 PIDGIN_PERL_BOOT(Session);
14509
e46c4ed7e331 [gaim-migrate @ 17161]
Daniel Atallah <datallah@pidgin.im>
parents: 14478
diff changeset
61 #endif
16529
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
62 PIDGIN_PERL_BOOT(Sound);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
63 PIDGIN_PERL_BOOT(StatusBox);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
64 PIDGIN_PERL_BOOT(Themes);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
65 PIDGIN_PERL_BOOT(Utils);
1d0da9270ff9 This is mostly moving Purple::GtkUI:: -> Pidgin:: which has the side effect of
Etan Reisner <deryni@pidgin.im>
parents: 15899
diff changeset
66 PIDGIN_PERL_BOOT(Xfer);

Mercurial Repository: pidgin3

mercurial