pidgin: plugins/perl/perl-common.c annotate

annotate plugins/perl/perl-common.c @ 10849:c203cd637f95

[gaim-migrate @ 12521] sf patch #1185449, from Richard Laager "As the comment in gtkconv.c says, saving a duplicate copy of the entire conversation is completely bogus. Saving a copy of a conversation is a UI thing (if the UI is only showing the last five messages, for example, that's all the user would expect to be saved). Therefore, there's no problem having the UI save its own buffer. The GTK+ UI is already doing this with the imhtml object. This patch removes the history from GaimConversation and uses the buffer in the imhtml object when saving a conversation. It also adds <html>, <head>, <title>, and <body> tags to the file to make it a bit more valid. This patch is extremely likely to break plugins because it changes the size of the GaimConversation struct. As such, if this is committed, I recommend the developers recompile non-default plugins. This broke Gaim-Encryption for me, hence the warning." committer: Tailor Script <tailor@pidgin.im>

author	Mark Doliner <mark@kingant.net>
date	Tue, 19 Apr 2005 04:21:39 +0000
parents	92cbf9713795
children	0e9e2b923d09

rev	line source
6520 2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	1 #include "debug.h"
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	2 #include "value.h"
6508 cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	3
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	4 #include "perl-common.h"
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	5
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	6 extern PerlInterpreter *my_perl;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	7
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	8 static GHashTable *object_stashes = NULL;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	9
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	10 static int
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	11 magic_free_object(pTHX_ SV sv, MAGIC mg)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	12 {
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	13 sv_setiv(sv, 0);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	14
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	15 return 0;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	16 }
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	17
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	18 static MGVTBL vtbl_free_object =
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	19 {
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	20 NULL, NULL, NULL, NULL, magic_free_object
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	21 };
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	22
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	23 static SV *
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	24 create_sv_ptr(void *object)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	25 {
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	26 SV *sv;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	27
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	28 sv = newSViv((IV)object);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	29
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	30 sv_magic(sv, NULL, '~', NULL, 0);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	31
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	32 SvMAGIC(sv)->mg_private = 0x1551; /* HF */
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	33 SvMAGIC(sv)->mg_virtual = &vtbl_free_object;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	34
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	35 return sv;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	36 }
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	37
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	38 SV *
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	39 newSVGChar(const char *str)
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	40 {
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	41 SV *sv;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	42
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	43 if (str == NULL)
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	44 return &PL_sv_undef;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	45
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	46 sv = newSVpv(str, 0);
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	47 SvUTF8_on(sv);
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	48
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	49 return sv;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	50 }
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	51
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	52 SV *
6508 cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	53 gaim_perl_bless_object(void object, const char stash_name)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	54 {
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	55 HV *stash;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	56 HV *hv;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	57
8593 ba075b939aa6 [gaim-migrate @ 9344] Christian Hammond <chipx86@chipx86.com> parents: 7386 diff changeset	58 if (object == NULL)
ba075b939aa6 [gaim-migrate @ 9344] Christian Hammond <chipx86@chipx86.com> parents: 7386 diff changeset	59 return NULL;
ba075b939aa6 [gaim-migrate @ 9344] Christian Hammond <chipx86@chipx86.com> parents: 7386 diff changeset	60
6508 cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	61 if (object_stashes == NULL)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	62 {
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	63 object_stashes = g_hash_table_new(g_direct_hash, g_direct_equal);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	64 }
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	65
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	66 stash = gv_stashpv(stash_name, 1);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	67
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	68 hv = newHV();
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	69 hv_store(hv, "_gaim", 5, create_sv_ptr(object), 0);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	70
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	71 return sv_bless(newRV_noinc((SV *)hv), stash);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	72 }
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	73
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	74 gboolean
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	75 gaim_perl_is_ref_object(SV *o)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	76 {
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	77 SV **sv;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	78 HV *hv;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	79
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	80 hv = hvref(o);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	81
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	82 if (hv != NULL)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	83 {
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	84 sv = hv_fetch(hv, "_gaim", 5, 0);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	85
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	86 if (sv != NULL)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	87 return TRUE;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	88 }
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	89
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	90 return FALSE;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	91 }
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	92
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	93 void *
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	94 gaim_perl_ref_object(SV *o)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	95 {
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	96 SV **sv;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	97 HV *hv;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	98 void *p;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	99
8593 ba075b939aa6 [gaim-migrate @ 9344] Christian Hammond <chipx86@chipx86.com> parents: 7386 diff changeset	100 if (o == NULL)
ba075b939aa6 [gaim-migrate @ 9344] Christian Hammond <chipx86@chipx86.com> parents: 7386 diff changeset	101 return NULL;
ba075b939aa6 [gaim-migrate @ 9344] Christian Hammond <chipx86@chipx86.com> parents: 7386 diff changeset	102
6508 cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	103 hv = hvref(o);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	104
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	105 if (hv == NULL)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	106 return NULL;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	107
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	108 sv = hv_fetch(hv, "_gaim", 5, 0);
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	109
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	110 if (sv == NULL)
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	111 croak("variable is damaged");
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	112
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	113 p = GINT_TO_POINTER(SvIV(*sv));
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	114
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	115 return p;
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	116 }
cbd24b37350d [gaim-migrate @ 7025] Christian Hammond <chipx86@chipx86.com> parents: diff changeset	117
6520 2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	118 /*
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	119 2003/02/06: execute_perl modified by Mark Doliner <mark@kingant.net>
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	120 Pass parameters by pushing them onto the stack rather than
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	121 passing an array of strings. This way, perl scripts can
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	122 modify the parameters and we can get the changed values
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	123 and then shoot ourselves. I mean, uh, use them.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	124
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	125 2001/06/14: execute_perl replaced by Martin Persson <mep@passagen.se>
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	126 previous use of perl_eval leaked memory, replaced with
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	127 a version that uses perl_call instead
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	128
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	129 30/11/2002: execute_perl modified by Eric Timme <timothy@voidnet.com>
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	130 args changed to char** so that we can have preparsed
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	131 arguments again, and many headaches ensued! This essentially
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	132 means we replaced one hacked method with a messier hacked
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	133 method out of perceived necessity. Formerly execute_perl
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	134 required a single char_ptr, and it would insert it into an
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	135 array of character pointers and NULL terminate the new array.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	136 Now we have to pass in pre-terminated character pointer arrays
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	137 to accomodate functions that want to pass in multiple arguments.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	138
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	139 Previously arguments were preparsed because an argument list
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	140 was constructed in the form 'arg one','arg two' and was
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	141 executed via a call like &funcname(arglist) (see .59.x), so
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	142 the arglist was magically pre-parsed because of the method.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	143 With Martin Persson's change to perl_call we now need to
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	144 use a null terminated list of character pointers for arguments
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	145 if we wish them to be parsed. Lacking a better way to allow
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	146 for both single arguments and many I created a NULL terminated
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	147 array in every function that called execute_perl and passed
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	148 that list into the function. In the former version a single
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	149 character pointer was passed in, and was placed into an array
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	150 of character pointers with two elements, with a NULL element
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	151 tacked onto the back, but this method no longer seemed prudent.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	152
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	153 Enhancements in the future might be to get rid of pre-declaring
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	154 the array sizes? I am not comfortable enough with this
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	155 subject to attempt it myself and hope it to stand the test
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	156 of time.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	157 */
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	158 int
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	159 execute_perl(const char function, int argc, char *args)
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	160 {
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	161 int count = 0, i, ret_value = 1;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	162 SV *sv_args[argc];
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	163 STRLEN na;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	164
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	165 /*
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	166 * Set up the perl environment, push arguments onto the
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	167 * perl stack, then call the given function
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	168 */
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	169 dSP;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	170 ENTER;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	171 SAVETMPS;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	172 PUSHMARK(sp);
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	173
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	174 for (i = 0; i < argc; i++) {
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	175 if (args[i]) {
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	176 sv_args[i] = sv_2mortal(newSVpv(args[i], 0));
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	177 XPUSHs(sv_args[i]);
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	178 }
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	179 }
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	180
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	181 PUTBACK;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	182 count = call_pv(function, G_EVAL \| G_SCALAR);
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	183 SPAGAIN;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	184
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	185 /*
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	186 * Check for "die," make sure we have 1 argument, and set our
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	187 * return value.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	188 */
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	189 if (SvTRUE(ERRSV)) {
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	190 gaim_debug(GAIM_DEBUG_ERROR, "perl",
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	191 "Perl function %s exited abnormally: %s\n",
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	192 function, SvPV(ERRSV, na));
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	193 POPs;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	194 }
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	195 else if (count != 1) {
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	196 /*
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	197 * This should NEVER happen. G_SCALAR ensures that we WILL
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	198 * have 1 parameter.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	199 */
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	200 gaim_debug(GAIM_DEBUG_ERROR, "perl",
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	201 "Perl error from %s: expected 1 return value, "
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	202 "but got %d\n", function, count);
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	203 }
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	204 else
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	205 ret_value = POPi;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	206
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	207 /* Check for changed arguments */
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	208 for (i = 0; i < argc; i++) {
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	209 if (args[i] && strcmp(args[i], SvPVX(sv_args[i]))) {
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	210 /*
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	211 * Shizzel. So the perl script changed one of the parameters,
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	212 * and we want this change to affect the original parameters.
8735 92cbf9713795 [gaim-migrate @ 9490] Christian Hammond <chipx86@chipx86.com> parents: 8593 diff changeset	213 * args[i] is just a temporary little list of pointers. We don't
6520 2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	214 * want to free args[i] here because the new parameter doesn't
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	215 * overwrite the data that args[i] points to. That is done by
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	216 * the function that called execute_perl. I'm not explaining this
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	217 * very well. See, it's aggregate... Oh, but if 2 perl scripts
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	218 * both modify the data, _that's_ a memleak. This is really kind
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	219 * of hackish. I should fix it. Look how long this comment is.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	220 * Holy crap.
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	221 */
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	222 args[i] = g_strdup(SvPV(sv_args[i], na));
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	223 }
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	224 }
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	225
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	226 PUTBACK;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	227 FREETMPS;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	228 LEAVE;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	229
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	230 return ret_value;
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	231 }
2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	232
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	233 #if 0
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	234 gboolean
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	235 gaim_perl_value_from_sv(GaimValue value, SV sv)
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	236 {
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	237 switch (gaim_value_get_type(value))
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	238 {
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	239 case GAIM_TYPE_CHAR:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	240 if ((tmp = SvGChar(sv)) != NULL)
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	241 gaim_value_set_char(value, tmp[0]);
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	242 else
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	243 return FALSE;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	244 break;
6520 2e2593d95121 [gaim-migrate @ 7037] Christian Hammond <chipx86@chipx86.com> parents: 6508 diff changeset	245
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	246 case GAIM_TYPE_UCHAR:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	247 if ((tmp = SvPV_nolen(sv)) != NULL)
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	248 gaim_value_set_uchar(value, tmp[0]);
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	249 else
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	250 return FALSE;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	251 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	252
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	253 case GAIM_TYPE_BOOLEAN:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	254 gaim_value_set_boolean(value, SvTRUE(sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	255 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	256
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	257 case GAIM_TYPE_INT:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	258 gaim_value_set_int(value, SvIV(sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	259 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	260
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	261 case GAIM_TYPE_UINT:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	262 gaim_value_set_uint(value, SvIV(sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	263 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	264
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	265 case GAIM_TYPE_LONG:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	266 gaim_value_set_long(value, SvIV(sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	267 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	268
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	269 case GAIM_TYPE_ULONG:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	270 gaim_value_set_ulong(value, SvIV(sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	271 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	272
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	273 case GAIM_TYPE_INT64:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	274 gaim_value_set_int64(value, SvIV(sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	275 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	276
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	277 case GAIM_TYPE_UINT64:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	278 gaim_value_set_uint64(value, SvIV(sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	279 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	280
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	281 case GAIM_TYPE_STRING:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	282 gaim_value_set_string(value, SvGChar(sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	283 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	284
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	285 case GAIM_TYPE_POINTER:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	286 gaim_value_set_pointer(value, (void *)SvIV(sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	287 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	288
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	289 case GAIM_TYPE_BOXED:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	290 if (!strcmp(gaim_value_get_specific_type(value), "SV"))
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	291 gaim_value_set_boxed(value, (sv == &PL_sv_undef ? NULL : sv));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	292 else
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	293 gaim_value_set_boxed(value, sv);
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	294 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	295
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	296 default:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	297 return FALSE;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	298 }
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	299
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	300 return TRUE;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	301 }
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	302
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	303 SV *
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	304 gaim_perl_sv_from_value(const GaimValue *value, va_list list)
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	305 {
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	306 switch (gaim_value_get_type(value))
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	307 {
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	308 case GAIM_TYPE_BOOLEAN:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	309 return newSViv(gaim_value_get_boolean(value));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	310 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	311
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	312 case GAIM_TYPE_INT:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	313 return newSViv(gaim_value_get_int(value));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	314 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	315
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	316 case GAIM_TYPE_UINT:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	317 return newSVuv(gaim_value_get_uint(value));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	318 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	319
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	320 case GAIM_TYPE_LONG:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	321 return newSViv(gaim_value_get_long(value));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	322 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	323
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	324 case GAIM_TYPE_ULONG:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	325 return newSVuv(gaim_value_get_ulong(value));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	326 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	327
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	328 case GAIM_TYPE_INT64:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	329 return newSViv(gaim_value_get_int64(value));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	330 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	331
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	332 case GAIM_TYPE_UINT64:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	333 return newSVuv(gaim_value_get_int64(value));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	334 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	335
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	336 case GAIM_TYPE_STRING:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	337 return newSVGChar(gaim_value_get_string(value));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	338 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	339
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	340 case GAIM_TYPE_POINTER:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	341 return newSViv((IV)gaim_value_get_pointer(value));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	342 break;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	343
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	344 case GAIM_TYPE_BOXED:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	345 if (!strcmp(gaim_value_get_specific_type(value), "SV"))
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	346 {
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	347 SV sv = (SV )gaim_perl_get_boxed(value);
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	348
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	349 return (sv == NULL ? &PL_sv_undef : sv);
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	350 }
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	351
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	352 /* Uh.. I dunno. Try this? */
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	353 return sv_2mortal(gaim_perl_bless_object(
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	354 gaim_perl_get_boxed(value),
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	355 gaim_value_get_specific_type(value)));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	356
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	357 default:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	358 return FALSE;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	359 }
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	360
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	361 return TRUE;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	362 }
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	363 #endif
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	364
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	365 void *
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	366 gaim_perl_data_from_sv(GaimValue value, SV sv)
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	367 {
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	368 STRLEN na;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	369
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	370 switch (gaim_value_get_type(value))
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	371 {
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	372 case GAIM_TYPE_BOOLEAN: return (void *)SvIV(sv);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	373 case GAIM_TYPE_INT: return (void *)SvIV(sv);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	374 case GAIM_TYPE_UINT: return (void *)SvUV(sv);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	375 case GAIM_TYPE_LONG: return (void *)SvIV(sv);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	376 case GAIM_TYPE_ULONG: return (void *)SvUV(sv);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	377 case GAIM_TYPE_INT64: return (void *)SvIV(sv);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	378 case GAIM_TYPE_UINT64: return (void *)SvUV(sv);
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	379 case GAIM_TYPE_STRING: return g_strdup((void *)SvPV(sv, na));
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	380 case GAIM_TYPE_POINTER: return (void *)SvIV(sv);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	381 case GAIM_TYPE_BOXED: return (void *)SvIV(sv);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	382
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	383 default:
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	384 return NULL;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	385 }
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	386
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	387 return NULL;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	388 }
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	389
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	390 static SV *
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	391 gaim_perl_sv_from_subtype(const GaimValue value, void arg)
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	392 {
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	393 const char *stash = NULL;
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	394
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	395 switch (gaim_value_get_subtype(value))
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	396 {
6897 69e0a3e29aa1 [gaim-migrate @ 7444] Christian Hammond <chipx86@chipx86.com> parents: 6566 diff changeset	397 case GAIM_SUBTYPE_ACCOUNT: stash = "Gaim::Account"; break;
69e0a3e29aa1 [gaim-migrate @ 7444] Christian Hammond <chipx86@chipx86.com> parents: 6566 diff changeset	398 case GAIM_SUBTYPE_BLIST: stash = "Gaim::BuddyList"; break;
69e0a3e29aa1 [gaim-migrate @ 7444] Christian Hammond <chipx86@chipx86.com> parents: 6566 diff changeset	399 case GAIM_SUBTYPE_BLIST_BUDDY: stash = "Gaim::BuddyList::Buddy"; break;
69e0a3e29aa1 [gaim-migrate @ 7444] Christian Hammond <chipx86@chipx86.com> parents: 6566 diff changeset	400 case GAIM_SUBTYPE_BLIST_GROUP: stash = "Gaim::BuddyList::Group"; break;
69e0a3e29aa1 [gaim-migrate @ 7444] Christian Hammond <chipx86@chipx86.com> parents: 6566 diff changeset	401 case GAIM_SUBTYPE_BLIST_CHAT: stash = "Gaim::BuddyList::Chat"; break;
69e0a3e29aa1 [gaim-migrate @ 7444] Christian Hammond <chipx86@chipx86.com> parents: 6566 diff changeset	402 case GAIM_SUBTYPE_CONNECTION: stash = "Gaim::Connection"; break;
69e0a3e29aa1 [gaim-migrate @ 7444] Christian Hammond <chipx86@chipx86.com> parents: 6566 diff changeset	403 case GAIM_SUBTYPE_CONVERSATION: stash = "Gaim::Conversation"; break;
69e0a3e29aa1 [gaim-migrate @ 7444] Christian Hammond <chipx86@chipx86.com> parents: 6566 diff changeset	404 case GAIM_SUBTYPE_CONV_WINDOW: stash = "Gaim::ConvWindow"; break;
69e0a3e29aa1 [gaim-migrate @ 7444] Christian Hammond <chipx86@chipx86.com> parents: 6566 diff changeset	405 case GAIM_SUBTYPE_PLUGIN: stash = "Gaim::Plugin"; break;
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	406
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	407 default:
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	408 stash = "Gaim"; /* ? */
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	409 }
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	410
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	411 return sv_2mortal(gaim_perl_bless_object(arg, stash));
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	412 }
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	413
f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	414 SV *
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	415 gaim_perl_sv_from_vargs(const GaimValue value, va_list args,
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	416 void ***copy_arg)
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	417 {
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	418 if (gaim_value_is_outgoing(value))
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	419 {
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	420 switch (gaim_value_get_type(value))
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	421 {
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	422 case GAIM_TYPE_SUBTYPE:
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	423 if ((copy_arg = va_arg(args, void **)) == NULL)
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	424 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	425
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	426 return gaim_perl_sv_from_subtype(value, (void )copy_arg);
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	427
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	428 case GAIM_TYPE_BOOLEAN:
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	429 if ((copy_arg = (void )va_arg(args, gboolean )) == NULL)
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	430 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	431
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	432 return newSViv((gboolean )*copy_arg);
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	433
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	434 case GAIM_TYPE_INT:
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	435 if ((copy_arg = (void )va_arg(args, int )) == NULL)
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	436 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	437
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	438 return newSViv((int )*copy_arg);
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	439
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	440 case GAIM_TYPE_UINT:
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	441 if ((copy_arg = (void )va_arg(args, unsigned int )) == NULL)
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	442 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	443
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	444 return newSVuv((unsigned int )*copy_arg);
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	445
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	446 case GAIM_TYPE_LONG:
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	447 if ((copy_arg = (void )va_arg(args, long )) == NULL)
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	448 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	449
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	450 return newSViv((long )*copy_arg);
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	451
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	452 case GAIM_TYPE_ULONG:
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	453 if ((copy_arg = (void )va_arg(*args,
11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	454 unsigned long *)) == NULL)
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	455 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	456
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	457 return newSVuv((unsigned long )*copy_arg);
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	458
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	459 case GAIM_TYPE_INT64:
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	460 if ((copy_arg = (void )va_arg(args, gint64 )) == NULL)
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	461 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	462
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	463 return newSViv((gint64 )*copy_arg);
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	464
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	465 case GAIM_TYPE_UINT64:
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	466 if ((copy_arg = (void )va_arg(args, guint64 )) == NULL)
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	467 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	468
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	469 return newSVuv((guint64 )*copy_arg);
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	470
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	471 case GAIM_TYPE_STRING:
6921 11d05ddf30a3 [gaim-migrate @ 7468] Christian Hammond <chipx86@chipx86.com> parents: 6920 diff changeset	472 if ((copy_arg = (void )va_arg(args, char *)) == NULL)
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	473 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	474
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	475 return newSVGChar((char )copy_arg);
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	476
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	477 case GAIM_TYPE_POINTER:
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	478 if ((copy_arg = va_arg(args, void **)) == NULL)
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	479 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	480
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	481 return newSViv((IV)(void )copy_arg);
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	482
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	483 case GAIM_TYPE_BOXED:
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	484 /* Uh.. I dunno. Try this? */
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	485 if ((copy_arg = va_arg(args, void **)) == NULL)
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	486 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	487
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	488 return sv_2mortal(gaim_perl_bless_object(
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	489 (void )copy_arg,
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	490 gaim_value_get_specific_type(value)));
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	491
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	492 default:
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	493 /* If this happens, things are going to get screwed up... */
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	494 return NULL;
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	495 }
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	496 }
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	497 else
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	498 {
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	499 switch (gaim_value_get_type(value))
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	500 {
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	501 case GAIM_TYPE_SUBTYPE:
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	502 if ((copy_arg = va_arg(args, void *)) == NULL)
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	503 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	504
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	505 return gaim_perl_sv_from_subtype(value, *copy_arg);
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	506
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	507 case GAIM_TYPE_BOOLEAN:
7386 414c701ef1ff [gaim-migrate @ 7981] Luke Schierer <lschiere@pidgin.im> parents: 7240 diff changeset	508 copy_arg = GINT_TO_POINTER( va_arg(args, gboolean) );
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	509
7386 414c701ef1ff [gaim-migrate @ 7981] Luke Schierer <lschiere@pidgin.im> parents: 7240 diff changeset	510 return newSViv((gboolean)GPOINTER_TO_INT(*copy_arg));
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	511
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	512 case GAIM_TYPE_INT:
7386 414c701ef1ff [gaim-migrate @ 7981] Luke Schierer <lschiere@pidgin.im> parents: 7240 diff changeset	513 copy_arg = GINT_TO_POINTER( va_arg(args, int) );
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	514
7386 414c701ef1ff [gaim-migrate @ 7981] Luke Schierer <lschiere@pidgin.im> parents: 7240 diff changeset	515 return newSViv(GPOINTER_TO_INT(*copy_arg));
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	516
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	517 case GAIM_TYPE_UINT:
7386 414c701ef1ff [gaim-migrate @ 7981] Luke Schierer <lschiere@pidgin.im> parents: 7240 diff changeset	518 copy_arg = GUINT_TO_POINTER(va_arg(args, unsigned int));
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	519
7386 414c701ef1ff [gaim-migrate @ 7981] Luke Schierer <lschiere@pidgin.im> parents: 7240 diff changeset	520 return newSVuv(GPOINTER_TO_UINT(*copy_arg));
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	521
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	522 case GAIM_TYPE_LONG:
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	523 copy_arg = (void )va_arg(*args, long);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	524
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	525 return newSViv((long)*copy_arg);
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	526
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	527 case GAIM_TYPE_ULONG:
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	528 copy_arg = (void )va_arg(*args, unsigned long);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	529
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	530 return newSVuv((unsigned long)*copy_arg);
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	531
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	532 case GAIM_TYPE_INT64:
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	533 #if 0
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	534 /* XXX This yells and complains. */
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	535 copy_arg = va_arg(args, gint64);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	536
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	537 return newSViv(*copy_arg);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	538 #endif
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	539 break;
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	540
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	541 case GAIM_TYPE_UINT64:
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	542 /* XXX This also yells and complains. */
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	543 #if 0
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	544 copy_arg = (void )va_arg(*args, guint64);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	545
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	546 return newSVuv(*copy_arg);
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	547 #endif
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	548 break;
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	549
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	550 case GAIM_TYPE_STRING:
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	551 if ((copy_arg = (void )va_arg(args, char )) == NULL)
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	552 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	553
7240 d3a7ff6a91bb [gaim-migrate @ 7815] Christian Hammond <chipx86@chipx86.com> parents: 7239 diff changeset	554 return newSVGChar((char )copy_arg);
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	555
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	556 case GAIM_TYPE_POINTER:
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	557 if ((copy_arg = (void )va_arg(args, void )) == NULL)
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	558 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	559
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	560 return newSViv((IV)*copy_arg);
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	561
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	562 case GAIM_TYPE_BOXED:
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	563 /* Uh.. I dunno. Try this? */
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	564 if ((copy_arg = (void )va_arg(args, void )) == NULL)
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	565 return &PL_sv_undef;
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	566
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	567 return sv_2mortal(gaim_perl_bless_object(*copy_arg,
6898 806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	568 gaim_value_get_specific_type(value)));
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	569
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	570 default:
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	571 /* If this happens, things are going to get screwed up... */
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	572 return NULL;
806f6e950e76 [gaim-migrate @ 7445] Christian Hammond <chipx86@chipx86.com> parents: 6897 diff changeset	573 }
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	574 }
6920 13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	575
13f78c350cd3 [gaim-migrate @ 7467] Christian Hammond <chipx86@chipx86.com> parents: 6898 diff changeset	576 return NULL;
6566 f6c2a7b5afa7 [gaim-migrate @ 7088] Christian Hammond <chipx86@chipx86.com> parents: 6531 diff changeset	577 }

Mercurial > pidgin

annotate plugins/perl/perl-common.c @ 10849:c203cd637f95