libpurple/plugins/perl/common/Smiley.xs

Wed, 13 May 2009 20:29:03 +0000

author
Marcus Lundblad <malu@pidgin.im>
date
Wed, 13 May 2009 20:29:03 +0000
changeset 27110
05ca719b901b
parent 23329
a3348556c57d
permissions
-rw-r--r--

Support custom smileys in MUCs (when all participants support BoB and a maximum
of 10 participants are in the chat).
Always announce support for BoB, since disable custom smileys will still turn
off fetching them, and BoB can be used for other purposes further on.

23023
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
1 #include "module.h"
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
2
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
3 MODULE = Purple::Smiley PACKAGE = Purple::Smiley PREFIX = purple_smiley_
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
4 PROTOTYPES: ENABLE
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
5
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
6 Purple::Smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
7 purple_smiley_new(img, shortcut)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
8 Purple::StoredImage img
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
9 const char * shortcut
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
10
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
11 Purple::Smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
12 purple_smiley_new_from_file(shortcut, filepath)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
13 const char * shortcut
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
14 const char * filepath
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
15
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
16 void
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
17 purple_smiley_delete(smiley)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
18 Purple::Smiley smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
19
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
20 gboolean
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
21 purple_smiley_set_shortcut(smiley, shortcut)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
22 Purple::Smiley smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
23 const char * shortcut
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
24
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
25 void
23329
a3348556c57d Update the perl bindings for the changed smiley API.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents: 23023
diff changeset
26 purple_smiley_set_data(smiley, data, data_len)
23023
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
27 Purple::Smiley smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
28 guchar * data
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
29 size_t data_len
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
30
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
31 const char *
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
32 purple_smiley_get_shortcut(smiley)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
33 Purple::Smiley smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
34
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
35 const char *
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
36 purple_smiley_get_checksum(smiley)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
37 Purple::Smiley smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
38
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
39 Purple::StoredImage
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
40 purple_smiley_get_stored_image(smiley)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
41 Purple::Smiley smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
42
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
43 gconstpointer
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
44 purple_smiley_get_data(smiley, len)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
45 Purple::Smiley smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
46 size_t * len
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
47
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
48 const char *
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
49 purple_smiley_get_extension(smiley)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
50 Purple::Smiley smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
51
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
52
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
53 gchar_own *
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
54 purple_smiley_get_full_path(smiley)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
55 Purple::Smiley smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
56
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
57
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
58 MODULE = Purple::Smiley PACKAGE = Purple::Smileys PREFIX = purple_smileys_
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
59 PROTOTYPES: ENABLE
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
60
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
61 void
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
62 purple_smileys_get_all()
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
63 PREINIT:
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
64 GList *l;
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
65 PPCODE:
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
66 for (l = purple_smileys_get_all(); l != NULL; l = g_list_delete_link(l, l)) {
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
67 XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Smiley")));
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
68 }
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
69
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
70 Purple::Smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
71 purple_smileys_find_by_shortcut(shortcut)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
72 const char * shortcut
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
73
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
74 Purple::Smiley
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
75 purple_smileys_find_by_checksum(checksum)
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
76 const char * checksum
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
77
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
78 const char *
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
79 purple_smileys_get_storing_dir()
6aeeb2037709 Expose smiley API to perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
diff changeset
80

mercurial