Mercurial > pidgin.yaz

comparison plugins/perl/perl-common.h @ 6520:2e2593d95121

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 7037] Added timeout handler support to perl. It may not work. Probably should, but who knows. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Wed, 20 Aug 2003 10:25:58 +0000
parents cbd24b37350d
children 7c42b8ca3222
comparison
equal deleted inserted replaced
6519:7f0fffa1077b 6520:2e2593d95121
1 #ifndef _GAIM_PERL_COMMON_H_ 1 #ifndef _GAIM_PERL_COMMON_H_
2 #define _GAIM_PERL_COMMON_H_ 2 #define _GAIM_PERL_COMMON_H_
3
4 #include <XSUB.h>
5 #include <EXTERN.h>
6 #include <perl.h>
7 #include <glib.h>
8
3 9
4 //#define plain_bless(object, stash) \ 10 //#define plain_bless(object, stash) \
5 // sv_bless(sv_setref_pv(newRV((object)))) 11 // sv_bless(sv_setref_pv(newRV((object))))
6 12
7 //#define plain_bless(object, stash) \ 13 //#define plain_bless(object, stash) \
24 void gaim_perl_bless_plain(const char *stash, void *object); 30 void gaim_perl_bless_plain(const char *stash, void *object);
25 SV *gaim_perl_bless_object(void *object, const char *stash); 31 SV *gaim_perl_bless_object(void *object, const char *stash);
26 gboolean gaim_perl_is_ref_object(SV *o); 32 gboolean gaim_perl_is_ref_object(SV *o);
27 void *gaim_perl_ref_object(SV *o); 33 void *gaim_perl_ref_object(SV *o);
28 34
35 int execute_perl(const char *function, int argc, char **args);
36
29 #endif /* _GAIM_PERL_COMMON_H_ */ 37 #endif /* _GAIM_PERL_COMMON_H_ */