Thu, 10 Apr 2014 20:36:21 +0200
Image store: fix build (perl again)
|
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 | |
|
35516
ac827860af1e
Fix more perl warnings
Tomasz Wasilczyk <twasilczyk@pidgin.im>
parents:
35312
diff
changeset
|
14 | |
|
ac827860af1e
Fix more perl warnings
Tomasz Wasilczyk <twasilczyk@pidgin.im>
parents:
35312
diff
changeset
|
15 | #define SILENT_NO_TAINT_SUPPORT 0 |
|
ac827860af1e
Fix more perl warnings
Tomasz Wasilczyk <twasilczyk@pidgin.im>
parents:
35312
diff
changeset
|
16 | #define NO_TAINT_SUPPORT 0 |
|
ac827860af1e
Fix more perl warnings
Tomasz Wasilczyk <twasilczyk@pidgin.im>
parents:
35312
diff
changeset
|
17 | |
| 14478 | 18 | #include <EXTERN.h> |
| 19 | #include <perl.h> | |
| 20 | #include <XSUB.h> | |
| 21 | ||
| 22 | #undef group | |
| 23 | ||
| 24 | #include <plugins/perl/common/module.h> | |
| 25 | ||
| 26 | #include "gtkaccount.h" | |
|
34708
dd67596485ca
Undo renames of UI blist headers back to gntblist.h and gtkblist.h
Ankit Vani <a@nevitus.org>
parents:
34706
diff
changeset
|
27 | #include "gtkblist.h" |
| 14478 | 28 | #include "gtkconn.h" |
| 29 | #include "gtkconv.h" | |
| 30 | #include "gtkconvwin.h" | |
| 31 | #include "gtkdebug.h" | |
| 32 | #include "gtkdialogs.h" | |
|
34910
60502558e400
Replacements for the GObject Xfer API
Ankit Vani <a@nevitus.org>
parents:
34708
diff
changeset
|
33 | #include "gtkxfer.h" |
| 14478 | 34 | #include "gtklog.h" |
| 35 | #include "gtkmenutray.h" | |
| 36 | #include "gtkplugin.h" | |
| 37 | #include "gtkpluginpref.h" | |
| 38 | #include "gtkpounce.h" | |
| 39 | #include "gtkprefs.h" | |
| 40 | #include "gtkprivacy.h" | |
| 41 | #include "gtkroomlist.h" | |
| 42 | #include "gtksavedstatuses.h" | |
| 43 | #include "gtksession.h" | |
| 44 | #include "gtksound.h" | |
| 45 | #include "gtkstatusbox.h" | |
| 46 | #include "gtkutils.h" | |
| 47 | ||
| 48 | /* 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
|
49 | typedef PidginAccountDialogType Pidgin__Account__Dialog__Type; |
| 14478 | 50 | |
|
34708
dd67596485ca
Undo renames of UI blist headers back to gntblist.h and gtkblist.h
Ankit Vani <a@nevitus.org>
parents:
34706
diff
changeset
|
51 | /* 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
|
52 | 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
|
53 | typedef pidgin_blist_sort_function Pidgin__BuddyList__SortFunction; |
| 14478 | 54 | |
| 55 | /* 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
|
56 | typedef PidginConversation * Pidgin__Conversation; |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15884
diff
changeset
|
57 | typedef PidginUnseenState Pidgin__UnseenState; |
| 14478 | 58 | |
| 59 | /* gtkconvwin.h */ | |
|
35610
24b06c5e7760
Renamed PidginWindow to PidginConvWindow so that introspection associates it with pidgin_conv_window_* API
Ankit Vani <a@nevitus.org>
parents:
35516
diff
changeset
|
60 | typedef PidginConvWindow * Pidgin__Conversation__Window; |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15884
diff
changeset
|
61 | typedef PidginConvPlacementFunc Pidgin__Conversation__PlacementFunc; |
| 14478 | 62 | |
|
34910
60502558e400
Replacements for the GObject Xfer API
Ankit Vani <a@nevitus.org>
parents:
34708
diff
changeset
|
63 | /* gtkxfer.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
|
64 | typedef PidginXferDialog * Pidgin__Xfer__Dialog; |
| 14478 | 65 | |
| 66 | /* 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
|
67 | typedef PidginMenuTray * Pidgin__MenuTray; |
| 14478 | 68 | |
| 69 | /* 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
|
70 | typedef PidginStatusBox * Pidgin__StatusBox; |