Mercurial > pidgin.yaz
annotate plugins/perl/common/Util.xs @ 13099:913e06e4155c
[gaim-migrate @ 15461]
I hate static buffers.
committer: Tailor Script <tailor@pidgin.im>
author | Richard Laager <rlaager@wiktel.com> |
---|---|
date | Thu, 02 Feb 2006 19:15:51 +0000 |
parents | 69b3d5cbd2b1 |
children | e1e5462b7d81 |
rev | line source |
---|---|
11118 | 1 #include "module.h" |
2 | |
11290 | 3 typedef struct { |
4 char *cb; | |
5 } GaimPerlUrlData; | |
6 | |
12412
a88ca6da0b38
[gaim-migrate @ 14719]
Richard Laager <rlaager@wiktel.com>
parents:
11920
diff
changeset
|
7 static void gaim_perl_util_url_cb(void *data, const char *url_data, size_t size) { |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
8 GaimPerlUrlData *gpr = (GaimPerlUrlData *)data; |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
9 dSP; |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
10 ENTER; |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
11 SAVETMPS; |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
12 PUSHMARK(sp); |
11118 | 13 |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
14 XPUSHs(sv_2mortal(newSVpv(url_data, 0))); |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
15 PUTBACK; |
11290 | 16 |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
17 call_pv(gpr->cb, G_EVAL | G_SCALAR); |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
18 SPAGAIN; |
11118 | 19 |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
20 PUTBACK; |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
21 FREETMPS; |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
22 LEAVE; |
11290 | 23 } |
11118 | 24 |
25 MODULE = Gaim::Util PACKAGE = Gaim::Util PREFIX = gaim_ | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
26 PROTOTYPES: ENABLE |
11290 | 27 |
28 void | |
29 gaim_url_fetch(handle, url, full, user_agent, http11, cb) | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
30 Gaim::Plugin handle |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
31 const char *url |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
32 gboolean full |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
33 const char *user_agent |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
34 gboolean http11 |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
35 SV * cb |
11290 | 36 CODE: |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
37 GaimPerlUrlData *gpr; |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
38 STRLEN len; |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
39 char *basename, *package; |
11290 | 40 |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
41 basename = g_path_get_basename(handle->path); |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
42 gaim_perl_normalize_script_name(basename); |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
43 package = g_strdup_printf("Gaim::Script::%s", basename); |
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
44 gpr = g_new(GaimPerlUrlData, 1); |
11290 | 45 |
46 gpr->cb = g_strdup_printf("%s::%s", package, SvPV(cb, len)); | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
47 gaim_url_fetch(url, full, user_agent, http11, gaim_perl_util_url_cb, gpr); |
11118 | 48 |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
49 int |
11118 | 50 gaim_build_dir(path, mode) |
51 const char *path | |
52 int mode | |
53 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
54 gboolean |
11118 | 55 gaim_email_is_valid(address) |
56 const char *address | |
57 | |
58 const char * | |
59 gaim_escape_filename(str) | |
60 const char *str | |
61 | |
62 char * | |
63 gaim_fd_get_ip(fd) | |
64 int fd | |
65 | |
66 const gchar * | |
67 gaim_home_dir() | |
68 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
69 gboolean |
11118 | 70 gaim_markup_extract_info_field(str, len, dest, start_token, skip, end_token, check_value, no_value_token, display_name, is_link, link_prefix) |
71 const char *str | |
72 int len | |
73 GString *dest | |
74 const char *start_token | |
75 int skip | |
76 const char *end_token | |
77 char check_value | |
78 const char *no_value_token | |
79 const char *display_name | |
80 gboolean is_link | |
81 const char *link_prefix | |
82 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
83 gboolean |
11118 | 84 gaim_markup_find_tag(needle, haystack, start, end, attributes) |
85 const char *needle | |
86 const char *haystack | |
87 const char **start | |
88 const char **end | |
89 GData **attributes | |
90 | |
91 char * | |
92 gaim_markup_get_tag_name(tag) | |
93 const char *tag | |
94 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
95 void |
11118 | 96 gaim_markup_html_to_xhtml(html, dest_xhtml, dest_plain) |
97 const char *html | |
98 char **dest_xhtml | |
99 char **dest_plain | |
100 | |
101 char * | |
102 gaim_markup_linkify(str) | |
103 const char *str | |
104 | |
105 char * | |
106 gaim_markup_slice(str, x, y) | |
107 const char *str | |
108 guint x | |
109 guint y | |
110 | |
111 char * | |
112 gaim_markup_strip_html(str) | |
113 const char *str | |
114 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
115 gboolean |
11118 | 116 gaim_message_meify(message, len) |
117 char *message | |
118 size_t len | |
119 | |
120 FILE * | |
121 gaim_mkstemp(path, binary) | |
122 char **path | |
123 gboolean binary | |
124 | |
125 const char * | |
126 gaim_normalize(account, str) | |
127 Gaim::Account account | |
128 const char *str | |
129 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
130 gboolean |
11118 | 131 gaim_program_is_valid(program) |
132 const char *program | |
133 | |
134 char * | |
135 gaim_str_add_cr(str) | |
136 const char *str | |
137 | |
138 char * | |
139 gaim_str_binary_to_ascii(binary, len) | |
140 const unsigned char *binary | |
141 guint len | |
142 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
143 gboolean |
11118 | 144 gaim_str_has_prefix(s, p) |
145 const char *s | |
146 const char *p | |
147 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
148 gboolean |
11118 | 149 gaim_str_has_suffix(s, x) |
150 const char *s | |
151 const char *x | |
152 | |
153 char * | |
154 gaim_str_seconds_to_string(sec) | |
155 guint sec | |
156 | |
157 char * | |
158 gaim_str_size_to_units(size) | |
159 size_t size | |
160 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
161 void |
11920 | 162 gaim_str_strip_char(str, thechar) |
11118 | 163 char *str |
11920 | 164 char thechar |
11118 | 165 |
166 gchar * | |
167 gaim_str_sub_away_formatters(str, name) | |
168 const char *str | |
169 const char *name | |
170 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
171 time_t |
11118 | 172 gaim_str_to_time(timestamp, utc) |
173 const char *timestamp | |
174 gboolean utc | |
175 | |
176 gchar * | |
177 gaim_strcasereplace(string, delimiter, replacement) | |
178 const char *string | |
179 const char *delimiter | |
180 const char *replacement | |
181 | |
182 const char * | |
183 gaim_strcasestr(haystack, needle) | |
184 const char *haystack | |
185 const char *needle | |
186 | |
187 gchar * | |
188 gaim_strdup_withhtml(src) | |
189 const gchar *src | |
190 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
191 size_t |
11118 | 192 gaim_strftime(s, max, format, tm) |
193 char *s | |
194 size_t max | |
195 const char *format | |
196 const struct tm *tm | |
197 | |
198 gchar * | |
199 gaim_strreplace(string, delimiter, replacement) | |
200 const char *string | |
201 const char *delimiter | |
202 const char *replacement | |
203 | |
204 char * | |
205 gaim_text_strip_mnemonic(in) | |
206 const char *in | |
207 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
208 time_t |
11118 | 209 gaim_time_build(year, month, day, hour, min, sec) |
210 int year | |
211 int month | |
212 int day | |
213 int hour | |
214 int min | |
215 int sec | |
216 | |
217 const char * | |
218 gaim_unescape_filename(str) | |
219 const char *str | |
220 | |
221 char * | |
222 gaim_unescape_html(html) | |
223 const char *html | |
224 | |
225 const char * | |
226 gaim_url_decode(str) | |
227 const char *str | |
228 | |
229 const char * | |
230 gaim_url_encode(str) | |
231 const char *str | |
232 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
233 gboolean |
11118 | 234 gaim_url_parse(url, ret_host, ret_port, ret_path, ret_user, ret_passwd) |
235 const char *url | |
236 char **ret_host | |
237 int *ret_port | |
238 char **ret_path | |
239 char **ret_user | |
240 char **ret_passwd | |
241 | |
242 const char * | |
243 gaim_user_dir() | |
244 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
245 void |
11118 | 246 gaim_util_set_user_dir(dir) |
247 const char *dir | |
248 | |
12783
520d9abca2aa
[gaim-migrate @ 15130]
Etan Reisner <pidgin@unreliablesource.net>
parents:
12412
diff
changeset
|
249 gboolean |
11118 | 250 gaim_util_write_data_to_file(filename, data, size) |
251 const char *filename | |
252 const char *data | |
253 size_t size |