Mercurial > pidgin

comparison plugins/perl/perl-common.h @ 6531:7c42b8ca3222

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 7048] Added a buddy list API to perl. Untested. Should work, which is why it won't. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Thu, 21 Aug 2003 00:06:15 +0000
parents 2e2593d95121
children f6c2a7b5afa7
comparison
equal deleted inserted replaced
6530:e05a54da64db 6531:7c42b8ca3222
3 3
4 #include <XSUB.h> 4 #include <XSUB.h>
5 #include <EXTERN.h> 5 #include <EXTERN.h>
6 #include <perl.h> 6 #include <perl.h>
7 #include <glib.h> 7 #include <glib.h>
8
9
10 //#define plain_bless(object, stash) \
11 // sv_bless(sv_setref_pv(newRV((object))))
12
13 //#define plain_bless(object, stash) \
14 // ((object) == NULL ? &PL_sv_undef : \
15 // gaim_perl_bless_plain((stash), (object)))
16 8
17 #define is_hvref(o) \ 9 #define is_hvref(o) \
18 ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) 10 ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV))
19 11
20 #define hvref(o) \ 12 #define hvref(o) \