Mercurial > pidgin.yaz

comparison plugins/perl/common/Request.xs @ 11589:30947631262d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13859] this at least lets the perl plugin compile on my amd64 box i don't really think we need perl funcs that take va_list anyway committer: Tailor Script <tailor@pidgin.im>
author Nathan Walp <nwalp@pidgin.im>
date Sun, 02 Oct 2005 18:28:29 +0000
parents b284c703d398
children a88ca6da0b38
comparison
equal deleted inserted replaced
11588:8cc98a1d5b0f 11589:30947631262d
1 #include "module.h" 1 #include "module.h"
2
3 /* This breaks on faceprint's amd64 box
4 void *
5 gaim_request_action_varg(handle, title, primary, secondary, default_action, user_data, action_count, actions)
6 void * handle
7 const char *title
8 const char *primary
9 const char *secondary
10 unsigned int default_action
11 void *user_data
12 size_t action_count
13 va_list actions
14 */
15
2 16
3 typedef struct { 17 typedef struct {
4 char *cancel_cb; 18 char *cancel_cb;
5 char *ok_cb; 19 char *ok_cb;
6 } GaimPerlRequestData; 20 } GaimPerlRequestData;
130 gaim_perl_normalize_script_name(basename); 144 gaim_perl_normalize_script_name(basename);
131 package = g_strdup_printf("Gaim::Script::%s", basename); 145 package = g_strdup_printf("Gaim::Script::%s", basename);
132 gpr = g_new(GaimPerlRequestData, 1); 146 gpr = g_new(GaimPerlRequestData, 1);
133 gpr->ok_cb = g_strdup_printf("%s::%s", package, SvPV(ok_cb, len)); 147 gpr->ok_cb = g_strdup_printf("%s::%s", package, SvPV(ok_cb, len));
134 gpr->cancel_cb = g_strdup_printf("%s::%s", package, SvPV(cancel_cb, len)); 148 gpr->cancel_cb = g_strdup_printf("%s::%s", package, SvPV(cancel_cb, len));
135 149
136 RETVAL = gaim_request_fields(handle, title, primary, secondary, fields, ok_text, G_CALLBACK(gaim_perl_request_ok_cb), cancel_text, G_CALLBACK(gaim_perl_request_cancel_cb), gpr); 150 RETVAL = gaim_request_fields(handle, title, primary, secondary, fields, ok_text, G_CALLBACK(gaim_perl_request_ok_cb), cancel_text, G_CALLBACK(gaim_perl_request_cancel_cb), gpr);
137 OUTPUT: 151 OUTPUT:
138 RETVAL 152 RETVAL
139 153
140 void * 154 void
141 gaim_request_action_varg(handle, title, primary, secondary, default_action, user_data, action_count, actions)
142 void * handle
143 const char *title
144 const char *primary
145 const char *secondary
146 unsigned int default_action
147 void *user_data
148 size_t action_count
149 va_list actions
150
151 void
152 gaim_request_close(type, uihandle) 155 gaim_request_close(type, uihandle)
153 Gaim::RequestType type 156 Gaim::RequestType type
154 void * uihandle 157 void * uihandle
155 158
156 void 159 void
157 gaim_request_close_with_handle(handle) 160 gaim_request_close_with_handle(handle)
158 void * handle 161 void * handle
159 162
160 Gaim::Account 163 Gaim::Account
161 gaim_request_field_account_get_default_value(field) 164 gaim_request_field_account_get_default_value(field)
162 Gaim::Request::Field field 165 Gaim::Request::Field field
163 166