Mercurial > pidgin3 / annotate

pidgin/plugins/perl/common/Pidgin.xs@5dbd0617a27d (annotated)

pidgin/plugins/perl/common/Pidgin.xs

Thu, 30 Oct 2008 22:40:49 +0000

author
Richard Laager <rlaager@pidgin.im>
date
Thu, 30 Oct 2008 22:40:49 +0000
changeset 24569
5dbd0617a27d
parent 16623
5d685c111d7b
child 16661
f3d9a3646735
child 18068
b6554e3c8224
child 35312
add13288757e
permissions
-rw-r--r--

Build everything with the *_DISABLE_DEPRECATED flags set. This allows us
to detect when we're still using deprecated functions internally (and by
extension, when we've deprecated something we shouldn't have). In the
course of developing this changeset, I fixed a few such cases.

Given that the plan is to switch from PURPLE_HIDE_STRUCTS to
PURPLE_DISABLE_DEPRECATED as each struct is fully dealt with, this will
also ensure we have no regressions on the struct hiding work.

Deprecated functions are still available to the respective .c file, to
avoid missing prototype errors. Also, Perl and DBus undef the
*_DISABLE_DEPRECATED defines as appropriate so that deprecated functions
will still be exported to Perl plugins and via DBus. (Otherwise, we'd
be breaking backwards compatibility.)

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