Mercurial > pidgin3 / annotate

gtk/plugins/perl/common/Gtk.xs@e46c4ed7e331 (annotated)

gtk/plugins/perl/common/Gtk.xs

Mon, 04 Sep 2006 23:00:13 +0000

author
Daniel Atallah <datallah@pidgin.im>
date
Mon, 04 Sep 2006 23:00:13 +0000
changeset 14509
e46c4ed7e331
parent 14478
a6b831ab1d13
permissions
-rw-r--r--

[gaim-migrate @ 17161]
Make the Perl GTK+ stuff work in wingaim.

14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
1 #include "gtkmodule.h"
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
2
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
3 /*
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
4 #define GAIM_PERL_BOOT_PROTO(x) \
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
5 void boot_Gaim__##x(pTHX_ CV *cv);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
6
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
7 #define GAIM_PERL_BOOT(x) \
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
8 gaim_perl_callXS(boot_Gaim__##x, cv, mark)
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
9
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
10 static void
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
11 gaim_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark)
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
12 {
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
13 dSP;
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
14
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
15 PUSHMARK(mark);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
16 (*subaddr)(aTHX_ cv);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
17
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
18 PUTBACK;
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
19 }
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
20 */
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
21
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
22 /* Prototypes for the BOOT section below. */
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
23 GAIM_PERL_BOOT_PROTO(Gtk__Account);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
24 GAIM_PERL_BOOT_PROTO(Gtk__BuddyList);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
25 GAIM_PERL_BOOT_PROTO(Gtk__Connection);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
26 GAIM_PERL_BOOT_PROTO(Gtk__Conversation);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
27 GAIM_PERL_BOOT_PROTO(Gtk__Conversation__Window);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
28 GAIM_PERL_BOOT_PROTO(Gtk__Debug);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
29 GAIM_PERL_BOOT_PROTO(Gtk__Dialogs);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
30 GAIM_PERL_BOOT_PROTO(Gtk__IMHtml);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
31 GAIM_PERL_BOOT_PROTO(Gtk__IMHtmlToolbar);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
32 GAIM_PERL_BOOT_PROTO(Gtk__Log);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
33 GAIM_PERL_BOOT_PROTO(Gtk__MenuTray);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
34 GAIM_PERL_BOOT_PROTO(Gtk__Plugin);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
35 GAIM_PERL_BOOT_PROTO(Gtk__PluginPref);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
36 GAIM_PERL_BOOT_PROTO(Gtk__Pounce);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
37 GAIM_PERL_BOOT_PROTO(Gtk__Prefs);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
38 GAIM_PERL_BOOT_PROTO(Gtk__Privacy);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
39 GAIM_PERL_BOOT_PROTO(Gtk__Roomlist);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
40 GAIM_PERL_BOOT_PROTO(Gtk__Status);
14509
e46c4ed7e331 [gaim-migrate @ 17161]
Daniel Atallah <datallah@pidgin.im>
parents: 14478
diff changeset
41 #ifndef _WIN32
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
42 GAIM_PERL_BOOT_PROTO(Gtk__Session);
14509
e46c4ed7e331 [gaim-migrate @ 17161]
Daniel Atallah <datallah@pidgin.im>
parents: 14478
diff changeset
43 #endif
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
44 GAIM_PERL_BOOT_PROTO(Gtk__Sound);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
45 GAIM_PERL_BOOT_PROTO(Gtk__StatusBox);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
46 GAIM_PERL_BOOT_PROTO(Gtk__Themes);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
47 GAIM_PERL_BOOT_PROTO(Gtk__Utils);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
48 GAIM_PERL_BOOT_PROTO(Gtk__Xfer);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
49
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
50 MODULE = Gaim::Gtk PACKAGE = Gaim::Gtk PREFIX = gaim_gtk_
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
51 PROTOTYPES: ENABLE
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
52
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
53 BOOT:
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
54 GAIM_PERL_BOOT(Gtk__Debug);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
55 GAIM_PERL_BOOT(Gtk__Account);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
56 GAIM_PERL_BOOT(Gtk__BuddyList);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
57 GAIM_PERL_BOOT(Gtk__Connection);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
58 GAIM_PERL_BOOT(Gtk__Conversation);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
59 GAIM_PERL_BOOT(Gtk__Conversation__Window);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
60 GAIM_PERL_BOOT(Gtk__Debug);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
61 GAIM_PERL_BOOT(Gtk__Dialogs);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
62 GAIM_PERL_BOOT(Gtk__IMHtml);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
63 GAIM_PERL_BOOT(Gtk__IMHtmlToolbar);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
64 GAIM_PERL_BOOT(Gtk__Log);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
65 GAIM_PERL_BOOT(Gtk__MenuTray);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
66 GAIM_PERL_BOOT(Gtk__Plugin);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
67 GAIM_PERL_BOOT(Gtk__PluginPref);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
68 GAIM_PERL_BOOT(Gtk__Pounce);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
69 GAIM_PERL_BOOT(Gtk__Prefs);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
70 GAIM_PERL_BOOT(Gtk__Privacy);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
71 GAIM_PERL_BOOT(Gtk__Roomlist);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
72 GAIM_PERL_BOOT(Gtk__Status);
14509
e46c4ed7e331 [gaim-migrate @ 17161]
Daniel Atallah <datallah@pidgin.im>
parents: 14478
diff changeset
73 #ifndef _WIN32
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
74 GAIM_PERL_BOOT(Gtk__Session);
14509
e46c4ed7e331 [gaim-migrate @ 17161]
Daniel Atallah <datallah@pidgin.im>
parents: 14478
diff changeset
75 #endif
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
76 GAIM_PERL_BOOT(Gtk__Sound);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
77 GAIM_PERL_BOOT(Gtk__StatusBox);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
78 GAIM_PERL_BOOT(Gtk__Themes);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
79 GAIM_PERL_BOOT(Gtk__Utils);
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
80 GAIM_PERL_BOOT(Gtk__Xfer);

Mercurial Repository: pidgin3

mercurial