Mercurial > pidgin
comparison plugins/perl/common/Request.xs @ 11589:30947631262d
[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 |