Mercurial > pidgin.yaz

comparison plugins/perl/common/Status.xs @ 11290:b284c703d398

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13490] Did some house cleaning on the code finished up some of the "TODO" stuff that was left over from when I originally did the XSUBs. Furthermore, the dynamically loaded Perl package problems should be corrected now that the context is set before one of the concurrent perl interpreters is run. committer: Tailor Script <tailor@pidgin.im>
author John H. Kelm <johnkelm@gmail.com>
date Thu, 18 Aug 2005 01:35:14 +0000
parents ecbbe6d18b0d
children 30947631262d
comparison
equal deleted inserted replaced
11289:b633879e23f9 11290:b284c703d398
1
2 #include "module.h" 1 #include "module.h"
3 2
4 /* TODO 3 /* TODO
5 4
6 5
24 const char *attr_id 23 const char *attr_id
25 const char *attr_name 24 const char *attr_name
26 Gaim::Value attr_value 25 Gaim::Value attr_value
27 ... 26 ...
28 27
28 */
29
30 MODULE = Gaim::Status PACKAGE = Gaim::Presence PREFIX = gaim_presence_
31 PROTOTYPES: ENABLE
32
29 void 33 void
30 gaim_presence_add_list(presence, source_list) 34 gaim_presence_add_list(presence, source_list)
31 Gaim::Presence presence 35 Gaim::Presence presence
32 SV *source_list 36 SV *source_list
33 PREINIT: 37 PREINIT:
41 STRLEN t_sl; 45 STRLEN t_sl;
42 t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(source_list), i, 0), t_sl)); 46 t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(source_list), i, 0), t_sl));
43 } 47 }
44 gaim_presence_add_list(presence, t_GL); 48 gaim_presence_add_list(presence, t_GL);
45 49
46 */
47
48 /***************************XS Code Status.xs**************************/
49 MODULE = Gaim::Status PACKAGE = Gaim::Presence PREFIX = gaim_presence_
50 PROTOTYPES: ENABLE
51
52 void 50 void
53 gaim_presence_add_status(presence, status) 51 gaim_presence_add_status(presence, status)
54 Gaim::Presence presence 52 Gaim::Presence presence
55 Gaim::Status status 53 Gaim::Status status
56 54