Mercurial > pidgin

comparison libpurple/plugins/perl/common/Util.xs @ 32672:3828a61c44da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
A boring and large patch so I can merge heads.
author Elliott Sales de Andrade <qulogic@pidgin.im>
date Fri, 23 Dec 2011 08:21:58 +0000
parents 943fce8ef142
children
comparison
equal deleted inserted replaced
32671:0e69949b3e61 32672:3828a61c44da
200 200
201 gboolean 201 gboolean
202 purple_ip_address_is_valid(ip) 202 purple_ip_address_is_valid(ip)
203 const char* ip 203 const char* ip
204 204
205 gboolean
206 purple_ipv4_address_is_valid(ip)
207 const char* ip
208
209 gboolean
210 purple_ipv6_address_is_valid(ip)
211 const char* ip
212
205 const char* 213 const char*
206 purple_normalize_nocase(account, str) 214 purple_normalize_nocase(account, str)
207 Purple::Account account 215 Purple::Account account
208 const char* str 216 const char* str
209 217
452 MODULE = Purple::Util PACKAGE = Purple::Util PREFIX = purple_util_ 460 MODULE = Purple::Util PACKAGE = Purple::Util PREFIX = purple_util_
453 PROTOTYPES: ENABLE 461 PROTOTYPES: ENABLE
454 462
455 #XXX: expand... 463 #XXX: expand...
456 void 464 void
457 purple_util_fetch_url(plugin, url, full, user_agent, http11, cb) 465 purple_util_fetch_url(plugin, url, full, user_agent, http11, max_len, cb)
458 Purple::Plugin plugin 466 Purple::Plugin plugin
459 const char *url 467 const char *url
460 gboolean full 468 gboolean full
461 const char *user_agent 469 const char *user_agent
462 gboolean http11 470 gboolean http11
471 gssize max_len
463 SV * cb 472 SV * cb
464 PREINIT: 473 PREINIT:
465 PurpleUtilFetchUrlData *data; 474 PurpleUtilFetchUrlData *data;
466 PPCODE: 475 PPCODE:
467 /* XXX: i don't like this... only plugins can use it... */ 476 /* XXX: i don't like this... only plugins can use it... */
468 SV *sv = purple_perl_sv_from_fun(plugin, cb); 477 SV *sv = purple_perl_sv_from_fun(plugin, cb);
469 478
470 if (sv != NULL) { 479 if (sv != NULL) {
471 data = purple_util_fetch_url(url, full, user_agent, http11, 480 data = purple_util_fetch_url(url, full, user_agent, http11, max_len,
472 purple_perl_util_url_cb, sv); 481 purple_perl_util_url_cb, sv);
473 XPUSHs(sv_2mortal(purple_perl_bless_object(data, "Purple::Util::FetchUrlData"))); 482 XPUSHs(sv_2mortal(purple_perl_bless_object(data, "Purple::Util::FetchUrlData")));
474 } else { 483 } else {
475 purple_debug_warning("perl", "Callback not a valid type, only strings and coderefs allowed in purple_util_fetch_url.\n"); 484 purple_debug_warning("perl", "Callback not a valid type, only strings and coderefs allowed in purple_util_fetch_url.\n");
476 XSRETURN_UNDEF; 485 XSRETURN_UNDEF;