Thu, 30 Oct 2008 22:40:49 +0000
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.)
|
24569
5dbd0617a27d
Build everything with the *_DISABLE_DEPRECATED flags set. This allows us
Richard Laager <rlaager@pidgin.im>
parents:
15899
diff
changeset
|
1 | /* Allow the Perl code to see deprecated functions, so we can continue to |
|
5dbd0617a27d
Build everything with the *_DISABLE_DEPRECATED flags set. This allows us
Richard Laager <rlaager@pidgin.im>
parents:
15899
diff
changeset
|
2 | * export them to Perl plugins. */ |
|
5dbd0617a27d
Build everything with the *_DISABLE_DEPRECATED flags set. This allows us
Richard Laager <rlaager@pidgin.im>
parents:
15899
diff
changeset
|
3 | #undef PIDGIN_DISABLE_DEPRECATED |
|
5dbd0617a27d
Build everything with the *_DISABLE_DEPRECATED flags set. This allows us
Richard Laager <rlaager@pidgin.im>
parents:
15899
diff
changeset
|
4 | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
5 | typedef struct group *Pidgin__Group; |
| 14478 | 6 | |
| 7 | #define group perl_group | |
| 8 | ||
| 9 | #include <glib.h> | |
| 10 | #include <gtk/gtk.h> | |
| 11 | #ifdef _WIN32 | |
| 12 | #undef pipe | |
| 13 | #endif | |
| 14 | #include <EXTERN.h> | |
| 15 | #include <perl.h> | |
| 16 | #include <XSUB.h> | |
| 17 | ||
| 18 | #undef group | |
| 19 | ||
| 20 | #include <plugins/perl/common/module.h> | |
| 21 | ||
| 22 | #include "gtkaccount.h" | |
| 23 | #include "gtkblist.h" | |
| 24 | #include "gtkconn.h" | |
| 25 | #include "gtkconv.h" | |
| 26 | #include "gtkconvwin.h" | |
| 27 | #include "gtkdebug.h" | |
| 28 | #include "gtkdialogs.h" | |
| 29 | #include "gtkft.h" | |
| 30 | #include "gtkimhtml.h" | |
| 31 | #include "gtkimhtmltoolbar.h" | |
| 32 | #include "gtklog.h" | |
| 33 | #include "gtkmenutray.h" | |
| 34 | #include "gtkplugin.h" | |
| 35 | #include "gtkpluginpref.h" | |
| 36 | #include "gtkpounce.h" | |
| 37 | #include "gtkprefs.h" | |
| 38 | #include "gtkprivacy.h" | |
| 39 | #include "gtkroomlist.h" | |
| 40 | #include "gtksavedstatuses.h" | |
| 41 | #include "gtksession.h" | |
| 42 | #include "gtksound.h" | |
| 43 | #include "gtkstatusbox.h" | |
| 44 | #include "gtkthemes.h" | |
| 45 | #include "gtkutils.h" | |
| 46 | ||
| 47 | /* gtkaccount.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
48 | typedef PidginAccountDialogType Pidgin__Account__Dialog__Type; |
| 14478 | 49 | |
| 50 | /* gtkblist.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
51 | typedef PidginBuddyList * Pidgin__BuddyList; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
52 | typedef pidgin_blist_sort_function Pidgin__BuddyList__SortFunction; |
| 14478 | 53 | |
| 54 | /* gtkconv.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
55 | typedef PidginConversation * Pidgin__Conversation; |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15884
diff
changeset
|
56 | typedef PidginUnseenState Pidgin__UnseenState; |
| 14478 | 57 | |
| 58 | /* gtkconvwin.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
59 | typedef PidginWindow * Pidgin__Conversation__Window; |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15884
diff
changeset
|
60 | typedef PidginConvPlacementFunc Pidgin__Conversation__PlacementFunc; |
| 14478 | 61 | |
| 62 | /* gtkft.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
63 | typedef PidginXferDialog * Pidgin__Xfer__Dialog; |
| 14478 | 64 | |
| 65 | /* gtkimhtml.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
66 | typedef GtkIMHtml * Pidgin__IMHtml; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
67 | typedef GtkIMHtmlButtons Pidgin__IMHtml__Buttons; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
68 | typedef GtkIMHtmlFuncs * Pidgin__IMHtml__Funcs; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
69 | typedef GtkIMHtmlScalable * Pidgin__IMHtml__Scalable; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
70 | typedef GtkIMHtmlSmiley * Pidgin__IMHtml__Smiley; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
71 | typedef GtkIMHtmlOptions Pidgin__IMHtml__Options; |
| 14478 | 72 | |
| 73 | /* gtkimhtmltoolbar.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
74 | typedef GtkIMHtmlToolbar * Pidgin__IMHtmlToolbar; |
| 14478 | 75 | |
| 76 | /* gtkmenutray.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
77 | typedef PidginMenuTray * Pidgin__MenuTray; |
| 14478 | 78 | |
| 79 | /* gtkstatusbox.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
80 | typedef PidginStatusBox * Pidgin__StatusBox; |