Mercurial > pidgin
annotate libpurple/plugins/perl/common/Util.xs @ 23656:907f5f41e32a
Remove a bunch of *_init() and *_uninit() functions that don't make sense for
Perl plugins to call.
Plug a couple leaks.
Mark a couple functions that need to be fixed.
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Thu, 07 Aug 2008 03:10:44 +0000 |
parents | af603a54ae5a |
children | f441a38932a2 |
rev | line source |
---|---|
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
1 #include "module.h" |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
2 |
22687
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
3 static void |
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
4 purple_perl_util_url_cb(PurpleUtilFetchUrlData *url_data, void *user_data, |
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
5 const gchar *url_text, size_t size, |
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
6 const gchar *error_message) |
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
7 { |
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
8 SV *sv = (SV *)user_data; |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
9 dSP; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
10 ENTER; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
11 SAVETMPS; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
12 PUSHMARK(SP); |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
13 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
14 XPUSHs(sv_2mortal(newSVpvn(url_text, size))); |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
15 PUTBACK; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
16 |
22687
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
17 call_sv(sv, G_EVAL | G_SCALAR); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
18 SPAGAIN; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
19 |
22687
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
20 /* XXX Make sure this destroys it correctly and that we don't want |
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
21 * something like sv_2mortal(sv) or something else here instead. */ |
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
22 SvREFCNT_dec(sv); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
23 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
24 PUTBACK; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
25 FREETMPS; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
26 LEAVE; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
27 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
28 |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
29 static void markup_find_tag_foreach(GQuark key_id, char *data, HV *hv) { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
30 const char *key = NULL; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
31 key = g_quark_to_string(key_id); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
32 hv_store(hv, key, strlen(key), newSVpv(data, 0), 0); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
33 } |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
34 |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
35 MODULE = Purple::Util PACKAGE = Purple::Util PREFIX = purple_ |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
36 PROTOTYPES: ENABLE |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
37 |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
38 gboolean |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
39 purple_running_gnome() |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
40 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
41 gboolean |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
42 purple_running_kde() |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
43 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
44 gboolean |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
45 purple_running_osx() |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
46 |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
47 int |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
48 purple_build_dir(path, mode) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
49 const char *path |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
50 int mode |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
51 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
52 gboolean |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
53 purple_email_is_valid(address) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
54 const char *address |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
55 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
56 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
57 purple_escape_filename(str) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
58 const char *str |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
59 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
60 gchar_own * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
61 purple_fd_get_ip(fd) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
62 int fd |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
63 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
64 const gchar * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
65 purple_home_dir() |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
66 |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
67 gchar_own* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
68 purple_message_meify(SV *msg) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
69 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
70 char *message = NULL; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
71 gboolean ret; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
72 gssize len; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
73 CODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
74 message = SvPV(msg, len); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
75 message = g_strndup(message, len); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
76 ret = purple_message_meify(message, len); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
77 if(ret) { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
78 /* message will get g_free()'d later on, since RETVAL is gchar_own* */ |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
79 RETVAL = message; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
80 } else { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
81 RETVAL = NULL; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
82 g_free(message); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
83 } |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
84 OUTPUT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
85 RETVAL |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
86 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
87 FILE * |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
88 purple_mkstemp(OUTLIST gchar_own *path, binary) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
89 gboolean binary |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
90 PROTOTYPE: $ |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
91 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
92 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
93 purple_normalize(account, str) |
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
94 Purple::Account account |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
95 const char *str |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
96 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
97 gboolean |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
98 purple_program_is_valid(program) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
99 const char *program |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
100 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
101 gchar_own * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
102 purple_strcasereplace(string, delimiter, replacement) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
103 const char *string |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
104 const char *delimiter |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
105 const char *replacement |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
106 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
107 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
108 purple_strcasestr(haystack, needle) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
109 const char *haystack |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
110 const char *needle |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
111 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
112 gchar_own * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
113 purple_strdup_withhtml(src) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
114 const gchar *src |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
115 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
116 gchar_own * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
117 purple_strreplace(string, delimiter, replacement) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
118 const char *string |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
119 const char *delimiter |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
120 const char *replacement |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
121 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
122 gchar_own * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
123 purple_text_strip_mnemonic(in) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
124 const char *in |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
125 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
126 time_t |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
127 purple_time_build(year, month, day, hour, min, sec) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
128 int year |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
129 int month |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
130 int day |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
131 int hour |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
132 int min |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
133 int sec |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
134 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
135 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
136 purple_time_format(tm) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
137 const struct tm *tm |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
138 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
139 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
140 purple_unescape_filename(str) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
141 const char *str |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
142 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
143 gchar_own * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
144 purple_unescape_html(html) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
145 const char *html |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
146 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
147 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
148 purple_url_decode(str) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
149 const char *str |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
150 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
151 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
152 purple_url_encode(str) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
153 const char *str |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
154 |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
155 # XXX: this made perl assert()... |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
156 # |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
157 #gboolean |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
158 #purple_url_parse(url, OUTLIST gchar_own *ret_host, OUTLIST int ret_port, OUTLIST gchar_own *ret_path, OUTLIST gchar_own *ret_user, OUTLIST gchar_own *ret_passwd) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
159 # const char *url |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
160 # PROTOTYPE: $ |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
161 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
162 void |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
163 purple_url_parse(url) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
164 const char *url |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
165 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
166 char *ret_host; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
167 int ret_port; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
168 char *ret_path; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
169 char *ret_user; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
170 char *ret_passwd; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
171 gboolean ret; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
172 PPCODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
173 ret = purple_url_parse(url, &ret_host, &ret_port, &ret_path, &ret_user, &ret_passwd); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
174 XPUSHs(sv_2mortal(newSViv(ret))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
175 XPUSHs(ret_host ? sv_2mortal(newSVpv(ret_host, 0)) : sv_2mortal(newSV(0))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
176 XPUSHs(sv_2mortal(newSViv(ret_port))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
177 XPUSHs(ret_path ? sv_2mortal(newSVpv(ret_path, 0)) : sv_2mortal(newSV(0))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
178 XPUSHs(ret_user ? sv_2mortal(newSVpv(ret_user, 0)) : sv_2mortal(newSV(0))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
179 XPUSHs(ret_passwd ? sv_2mortal(newSVpv(ret_passwd, 0)) : sv_2mortal(newSV(0))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
180 g_free(ret_host); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
181 g_free(ret_path); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
182 g_free(ret_user); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
183 g_free(ret_passwd); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
184 |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
185 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
186 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
187 purple_user_dir() |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
188 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
189 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
190 purple_utf8_strftime(const char *format, const struct tm *tm); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
191 |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
192 gboolean |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
193 purple_utf8_has_word(haystack, needle) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
194 const char* haystack |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
195 const char* needle |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
196 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
197 gchar_own* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
198 purple_utf8_ncr_decode(in) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
199 const char* in |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
200 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
201 gchar_own* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
202 purple_utf8_ncr_encode(in) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
203 const char* in |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
204 |
23656
907f5f41e32a
Remove a bunch of *_init() and *_uninit() functions that don't make sense for
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23655
diff
changeset
|
205 gchar_own* |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
206 purple_utf8_salvage(str) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
207 const char* str |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
208 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
209 int |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
210 purple_utf8_strcasecmp(a, b) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
211 const char* a |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
212 const char* b |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
213 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
214 gchar_own* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
215 purple_utf8_try_convert(str) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
216 const char* str |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
217 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
218 gboolean |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
219 purple_ip_address_is_valid(ip) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
220 const char* ip |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
221 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
222 const char* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
223 purple_normalize_nocase(account, str) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
224 Purple::Account account |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
225 const char* str |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
226 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
227 const gchar* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
228 purple_gai_strerror(errnum) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
229 gint errnum |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
230 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
231 void |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
232 purple_got_protocol_handler_uri(uri) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
233 const char* uri |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
234 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
235 gchar_own* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
236 purple_base16_encode(const guchar *data, gsize length(data)) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
237 PROTOTYPE: $ |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
238 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
239 gchar_own* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
240 purple_base16_encode_chunked(const guchar *data, gsize length(data)) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
241 PROTOTYPE: $ |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
242 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
243 gchar_own* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
244 purple_base64_encode(const guchar *data, gsize length(data)) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
245 PROTOTYPE: $ |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
246 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
247 void |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
248 purple_restore_default_signal_handlers() |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
249 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
250 SV * |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
251 purple_base16_decode(str) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
252 const char* str |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
253 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
254 gsize len; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
255 guchar *ret; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
256 CODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
257 ret = purple_base16_decode(str, &len); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
258 if(len) { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
259 RETVAL = newSVpv(ret, len); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
260 } else { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
261 g_free(ret); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
262 XSRETURN_UNDEF; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
263 } |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
264 g_free(ret); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
265 OUTPUT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
266 RETVAL |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
267 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
268 SV* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
269 purple_base64_decode(str) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
270 const char* str |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
271 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
272 gsize len; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
273 guchar *ret; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
274 CODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
275 ret = purple_base64_decode(str, &len); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
276 if(len) { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
277 RETVAL = newSVpv(ret, len); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
278 } else { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
279 g_free(ret); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
280 XSRETURN_UNDEF; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
281 } |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
282 g_free(ret); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
283 OUTPUT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
284 RETVAL |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
285 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
286 SV* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
287 purple_quotedp_decode(str) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
288 const char* str |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
289 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
290 gsize len; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
291 guchar *ret; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
292 CODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
293 ret = purple_quotedp_decode(str, &len); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
294 if(len) { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
295 RETVAL = newSVpv(ret, len); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
296 } else { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
297 g_free(ret); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
298 XSRETURN_UNDEF; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
299 } |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
300 g_free(ret); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
301 OUTPUT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
302 RETVAL |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
303 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
304 void |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
305 purple_uri_list_extract_uris(uri_list) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
306 const gchar* uri_list |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
307 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
308 GList *l = NULL, *gl = NULL; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
309 PPCODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
310 gl = purple_uri_list_extract_uris(uri_list); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
311 for(l = gl; l; l = l->next) { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
312 XPUSHs(sv_2mortal(newSVpv(l->data, 0))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
313 g_free(l->data); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
314 } |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
315 g_list_free(gl); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
316 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
317 void |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
318 purple_uri_list_extract_filenames(uri_list) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
319 const gchar* uri_list |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
320 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
321 GList *l = NULL, *gl = NULL; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
322 PPCODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
323 gl = purple_uri_list_extract_filenames(uri_list); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
324 for(l = gl; l; l = l->next) { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
325 XPUSHs(sv_2mortal(newSVpv(l->data, 0))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
326 g_free(l->data); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
327 } |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
328 g_list_free(gl); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
329 |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
330 MODULE = Purple::Util PACKAGE = Purple::Util::Str PREFIX = purple_str_ |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
331 PROTOTYPES: ENABLE |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
332 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
333 gchar_own * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
334 purple_str_add_cr(str) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
335 const char *str |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
336 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
337 gchar_own * |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
338 purple_str_binary_to_ascii(const unsigned char *binary, guint length(binary)) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
339 PROTOTYPE: $ |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
340 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
341 gboolean |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
342 purple_str_has_prefix(s, p) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
343 const char *s |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
344 const char *p |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
345 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
346 gboolean |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
347 purple_str_has_suffix(s, x) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
348 const char *s |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
349 const char *x |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
350 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
351 gchar_own * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
352 purple_str_seconds_to_string(sec) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
353 guint sec |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
354 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
355 gchar_own * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
356 purple_str_size_to_units(size) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
357 size_t size |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
358 |
23656
907f5f41e32a
Remove a bunch of *_init() and *_uninit() functions that don't make sense for
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23655
diff
changeset
|
359 #TODO: Fix this to handle str being modified in-place |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
360 void |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
361 purple_str_strip_char(str, thechar) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
362 char *str |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
363 char thechar |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
364 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
365 time_t |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
366 purple_str_to_time(timestamp, utc = FALSE, tm = NULL, OUTLIST long tz_off, OUTLIST const char *rest) |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
367 const char *timestamp |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
368 gboolean utc |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
369 struct tm *tm |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
370 PROTOTYPE: $;$$ |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
371 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
372 MODULE = Purple::Util PACKAGE = Purple::Util::Date PREFIX = purple_date_ |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
373 PROTOTYPES: ENABLE |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
374 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
375 const char * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
376 purple_date_format_full(tm) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
377 const struct tm *tm |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
378 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
379 const char * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
380 purple_date_format_long(tm) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
381 const struct tm *tm |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
382 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
383 const char * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
384 purple_date_format_short(tm) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
385 const struct tm *tm |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
386 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
387 MODULE = Purple::Util PACKAGE = Purple::Util::Markup PREFIX = purple_markup_ |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
388 PROTOTYPES: ENABLE |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
389 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
390 gboolean |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
391 purple_markup_extract_info_field(str, len, user_info, start_token, skip, end_token, check_value, no_value_token, display_name, is_link, link_prefix, format_cb) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
392 const char *str |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
393 int len |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
394 Purple::NotifyUserInfo user_info |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
395 const char *start_token |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
396 int skip |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
397 const char *end_token |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
398 char check_value |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
399 const char *no_value_token |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
400 const char *display_name |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
401 gboolean is_link |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
402 const char *link_prefix |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
403 Purple::Util::InfoFieldFormatCallback format_cb |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
404 |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
405 # XXX: returning start/end to perl doesn't make a lot of sense... |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
406 # XXX: the actual tag data can be gotten with $start =~ s/$end//g; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
407 void |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
408 purple_markup_find_tag(needle, haystack) |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
409 const char *needle |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
410 const char *haystack |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
411 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
412 const char *start = NULL; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
413 const char *end = NULL; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
414 GData *attributes; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
415 gboolean ret; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
416 HV *hv = NULL; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
417 PPCODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
418 ret = purple_markup_find_tag(needle, haystack, &start, &end, &attributes); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
419 if(!ret) XSRETURN_UNDEF; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
420 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
421 hv = newHV(); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
422 g_datalist_foreach(&attributes, (GDataForeachFunc) markup_find_tag_foreach, hv); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
423 g_datalist_clear(&attributes); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
424 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
425 XPUSHs(sv_2mortal(newSVpv(start, 0))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
426 XPUSHs(sv_2mortal(newSVpv(end, 0))); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
427 XPUSHs(sv_2mortal(newRV_noinc((SV *) hv))); |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
428 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
429 gchar_own * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
430 purple_markup_get_tag_name(tag) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
431 const char *tag |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
432 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
433 void |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
434 purple_markup_html_to_xhtml(html, OUTLIST gchar_own *dest_xhtml, OUTLIST gchar_own *dest_plain) |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
435 const char *html |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
436 PROTOTYPE: $ |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
437 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
438 gchar_own * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
439 purple_markup_linkify(str) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
440 const char *str |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
441 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
442 gchar_own * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
443 purple_markup_slice(str, x, y) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
444 const char *str |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
445 guint x |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
446 guint y |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
447 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
448 gchar_own * |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
449 purple_markup_strip_html(str) |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
450 const char *str |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
451 |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
452 gchar_own * |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
453 purple_markup_get_css_property(style, opt) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
454 const gchar* style |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
455 const gchar* opt |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
456 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
457 SV* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
458 purple_markup_unescape_entity(text) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
459 const char* text |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
460 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
461 int length; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
462 CODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
463 { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
464 const char *str = purple_markup_unescape_entity(text, &length); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
465 if(length) { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
466 RETVAL = newSVpv(str, length); |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
467 } else { |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
468 XSRETURN_UNDEF; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
469 } |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
470 } |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
471 OUTPUT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
472 RETVAL |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
473 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
474 |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
475 MODULE = Purple::Util PACKAGE = Purple::Util PREFIX = purple_util_ |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
476 PROTOTYPES: ENABLE |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
477 |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
478 #XXX: expand... |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
479 void |
22687
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
480 purple_util_fetch_url(plugin, url, full, user_agent, http11, cb) |
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
481 Purple::Plugin plugin |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
482 const char *url |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
483 gboolean full |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
484 const char *user_agent |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
485 gboolean http11 |
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
486 SV * cb |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
487 PREINIT: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
488 PurpleUtilFetchUrlData *data; |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
489 PPCODE: |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
490 /* XXX: i don't like this... only plugins can use it... */ |
22696
3a41eb457605
Use the same fix for Purple::Util::fetch_url (from 4b6378d5e) for
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
22687
diff
changeset
|
491 SV *sv = purple_perl_sv_from_fun(plugin, cb); |
22687
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
492 |
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
493 if (sv != NULL) { |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
494 data = purple_util_fetch_url(url, full, user_agent, http11, |
22687
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
495 purple_perl_util_url_cb, sv); |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
496 XPUSHs(sv_2mortal(purple_perl_bless_object(data, "Purple::Util::FetchUrlData"))); |
22696
3a41eb457605
Use the same fix for Purple::Util::fetch_url (from 4b6378d5e) for
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
22687
diff
changeset
|
497 } else { |
3a41eb457605
Use the same fix for Purple::Util::fetch_url (from 4b6378d5e) for
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
22687
diff
changeset
|
498 purple_debug_warning("perl", "Callback not a valid type, only strings and coderefs allowed in purple_util_fetch_url.\n"); |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
499 XSRETURN_UNDEF; |
22687
4d968d8be5d2
Fix Purple::Util::fetch_url to correctly accept a callback in any of the
Etan Reisner <pidgin@unreliablesource.net>
parents:
16740
diff
changeset
|
500 } |
16740
8e54f40a60f3
Clean up a bunch of the perl api stuff. Eventually I'll dump the entire list
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
501 |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
502 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
503 purple_util_set_user_dir(dir) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
504 const char *dir |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
505 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
506 gboolean |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
507 purple_util_write_data_to_file(filename, const char *data, size_t length(data)) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
508 const char *filename |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
509 PROTOTYPE: $$ |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
510 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
511 void |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
512 purple_util_set_current_song(title, artist, album) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
513 const char *title |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
514 const char *artist |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
515 const char *album |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
516 |
23656
907f5f41e32a
Remove a bunch of *_init() and *_uninit() functions that don't make sense for
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23655
diff
changeset
|
517 #TODO: Fix this to handle str being modified in-place |
23655
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
518 void |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
519 purple_util_chrreplace(string, delimiter, replacement) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
520 char* string |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
521 char delimiter |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
522 char replacement |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
523 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
524 gchar_own* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
525 purple_util_format_song_info(title, artist, album, unused) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
526 const char* title |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
527 const char* artist |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
528 const char* album |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
529 gpointer unused |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
530 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
531 const char* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
532 purple_util_get_image_extension(gconstpointer data, size_t length(data)) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
533 PROTOTYPE: $ |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
534 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
535 gchar_own* |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
536 purple_util_get_image_filename(gconstpointer image_data, size_t length(image_data)) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
537 PROTOTYPE: $ |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
538 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
539 Purple::XMLNode |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
540 purple_util_read_xml_from_file(filename, description) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
541 const char* filename |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
542 const char* description |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
543 |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
544 gboolean |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
545 purple_util_write_data_to_file_absolute(filename_full, char *data, gssize length(data)) |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
546 const char* filename_full |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
547 PROTOTYPE: $$ |
af603a54ae5a
Some Perl bindings fixes and additions from Zsombor Welker.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22696
diff
changeset
|
548 |