plugins/perl/perl-common.h@d93670e435c8
plugins/perl/perl-common.h
Sun, 18 Apr 2004 01:37:19 +0000
- author
- Tim Ringenbach <marv@pidgin.im>
- date
- Sun, 18 Apr 2004 01:37:19 +0000
- changeset 8690
- d93670e435c8
- parent 6921
- 3d49b89fc920
- child 11170
- d8941580d87f
- permissions
- -rw-r--r--
[gaim-migrate @ 9443]
(21:31:24) marv: LSchiere2: i have a patch that fixes the extra new lines for system messages
(21:31:29) LSchiere2: cool
(21:32:43) marv: can i just dcc it to you?
(21:33:09) LSchiere2: can gaim recieve dcc?
(21:33:18) marv: yes
(21:33:20) LSchiere2: then yes
(21:33:27) LSchiere2: oh and i miss the empty line ;-)
(21:34:17) marv: heh
(21:35:16) marv: i could bring it back by popular demand
(21:35:35) marv: or just add a bottom margin
(21:36:10) LSchiere2: what did i just accept? i hate that about file transfer. i always forget the name
(21:36:28) marv: you could turn off clear finished transfers :P
(21:36:34) marv: gtkconv.extranewlines.fixed.diff
(21:36:45) LSchiere2: thanks
committer: Luke Schierer <lschiere@pidgin.im>
#ifndef _GAIM_PERL_COMMON_H_ #define _GAIM_PERL_COMMON_H_ #include <glib.h> #ifdef _WIN32 #undef pipe #endif #include <XSUB.h> #include <EXTERN.h> #include <perl.h> #include "value.h" #define is_hvref(o) \ ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) #define hvref(o) \ (is_hvref(o) ? (HV *)SvRV(o) : NULL); #define GAIM_PERL_BOOT(x) \ { \ extern void boot_Gaim__##x(pTHX_ CV *cv); \ gaim_perl_callXS(boot_Gaim__##x, cv, mark); \ } SV *newSVGChar(const char *str); void gaim_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark); void gaim_perl_bless_plain(const char *stash, void *object); SV *gaim_perl_bless_object(void *object, const char *stash); gboolean gaim_perl_is_ref_object(SV *o); void *gaim_perl_ref_object(SV *o); int execute_perl(const char *function, int argc, char **args); #if 0 gboolean gaim_perl_value_from_sv(GaimValue *value, SV *sv); SV *gaim_perl_sv_from_value(const GaimValue *value); #endif void *gaim_perl_data_from_sv(GaimValue *value, SV *sv); SV *gaim_perl_sv_from_vargs(const GaimValue *value, va_list *args, void ***copy_arg); #endif /* _GAIM_PERL_COMMON_H_ */
