Mercurial > pidgin

comparison plugins/perl/common/Status.xs @ 11170:0e9e2b923d09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13271] Fixed some bugs and made some additions to the XSUBS. Added some of my test scripts which are incomplete, but mostly functional. GaimPluginPrefs and GaimGtkPluginPrefs--using evals to do the Gtk widgets with gtk2-perl--work. Plugin actions can now be added, but only one for now. committer: Tailor Script <tailor@pidgin.im>
author John H. Kelm <johnkelm@gmail.com>
date Fri, 29 Jul 2005 13:38:00 +0000
parents ece127d56c14
children b4b1be482b4e
comparison
equal deleted inserted replaced
11169:778d5464a9b8 11170:0e9e2b923d09
43 } 43 }
44 gaim_presence_add_list(presence, t_GL); 44 gaim_presence_add_list(presence, t_GL);
45 45
46 */ 46 */
47 47
48 /***************************XS Code Status.xs**************************/
48 MODULE = Gaim::Status PACKAGE = Gaim::Presence PREFIX = gaim_presence_ 49 MODULE = Gaim::Status PACKAGE = Gaim::Presence PREFIX = gaim_presence_
49 PROTOTYPES: ENABLE 50 PROTOTYPES: ENABLE
50 51
51 void 52 void
52 gaim_presence_add_status(presence, status) 53 gaim_presence_add_status(presence, status)
357 358
358 for (i = 0; i < t_len; i++) { 359 for (i = 0; i < t_len; i++) {
359 STRLEN t_sl; 360 STRLEN t_sl;
360 t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(status_types), i, 0), t_sl)); 361 t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(status_types), i, 0), t_sl));
361 } 362 }
362 gaim_status_type_find_with_id(t_GL, id); 363 RETVAL = (GaimStatusType *)gaim_status_type_find_with_id(t_GL, id);
364 OUTPUT:
365 RETVAL
363 366
364 Gaim::StatusAttr 367 Gaim::StatusAttr
365 gaim_status_type_get_attr(status_type, id) 368 gaim_status_type_get_attr(status_type, id)
366 Gaim::StatusType status_type 369 Gaim::StatusType status_type
367 const char *id 370 const char *id