Mercurial > pidgin
comparison libpurple/plugins/perl/common/Request.xs @ 21570:dccfd999ffe7
merge of '76c07fcb434a2a7aa289734bb221c171a376d73b'
and 'bad7c4c4e108d186fa8527e487d174e67ae7c0c1'
author | Evan Schoenberg <evan.s@dreskin.net> |
---|---|
date | Sat, 17 Nov 2007 17:27:48 +0000 |
parents | 93afdb7548cd |
children | 3a41eb457605 |
comparison
equal
deleted
inserted
replaced
21325:d7a43e142c6e | 21570:dccfd999ffe7 |
---|---|
139 gpr = g_new(PurplePerlRequestData, 1); | 139 gpr = g_new(PurplePerlRequestData, 1); |
140 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | 140 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); |
141 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); | 141 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); |
142 g_free(basename); | 142 g_free(basename); |
143 | 143 |
144 RETVAL = purple_request_input_with_hint(handle, title, primary, secondary, default_value, multiline, masked, hint, ok_text, G_CALLBACK(purple_perl_request_ok_cb), cancel_text, G_CALLBACK(purple_perl_request_cancel_cb), NULL, NULL, NULL, PURPLE_REQUEST_UI_HINT_BLIST, gpr); | 144 RETVAL = purple_request_input(handle, title, primary, secondary, default_value, multiline, masked, hint, ok_text, G_CALLBACK(purple_perl_request_ok_cb), cancel_text, G_CALLBACK(purple_perl_request_cancel_cb), NULL, NULL, NULL, gpr); |
145 OUTPUT: | |
146 RETVAL | |
147 | |
148 void * | |
149 purple_request_input_with_hint(handle, title, primary, secondary, default_value, multiline, masked, hint, ok_text, ok_cb, cancel_text, cancel_cb, ui_hint) | |
150 Purple::Plugin handle | |
151 const char * title | |
152 const char * primary | |
153 const char * secondary | |
154 const char * default_value | |
155 gboolean multiline | |
156 gboolean masked | |
157 gchar * hint | |
158 const char * ok_text | |
159 SV * ok_cb | |
160 const char * cancel_text | |
161 SV * cancel_cb | |
162 const char * ui_hint | |
163 CODE: | |
164 PurplePerlRequestData *gpr; | |
165 STRLEN len; | |
166 char *basename; | |
167 | |
168 basename = g_path_get_basename(handle->path); | |
169 purple_perl_normalize_script_name(basename); | |
170 gpr = g_new(PurplePerlRequestData, 1); | |
171 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | |
172 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); | |
173 g_free(basename); | |
174 | |
175 RETVAL = purple_request_input_with_hint(handle, title, primary, secondary, default_value, multiline, masked, hint, ok_text, G_CALLBACK(purple_perl_request_ok_cb), cancel_text, G_CALLBACK(purple_perl_request_cancel_cb), NULL, NULL, NULL, ui_hint, gpr); | |
176 OUTPUT: | 145 OUTPUT: |
177 RETVAL | 146 RETVAL |
178 | 147 |
179 void * | 148 void * |
180 purple_request_file(handle, title, filename, savedialog, ok_cb, cancel_cb) | 149 purple_request_file(handle, title, filename, savedialog, ok_cb, cancel_cb) |
194 gpr = g_new(PurplePerlRequestData, 1); | 163 gpr = g_new(PurplePerlRequestData, 1); |
195 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | 164 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); |
196 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); | 165 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); |
197 g_free(basename); | 166 g_free(basename); |
198 | 167 |
199 RETVAL = purple_request_file_with_hint(handle, title, filename, savedialog, G_CALLBACK(purple_perl_request_ok_cb), G_CALLBACK(purple_perl_request_cancel_cb), NULL, NULL, NULL, PURPLE_REQUEST_UI_HINT_BLIST, gpr); | 168 RETVAL = purple_request_file(handle, title, filename, savedialog, G_CALLBACK(purple_perl_request_ok_cb), G_CALLBACK(purple_perl_request_cancel_cb), NULL, NULL, NULL, gpr); |
200 OUTPUT: | |
201 RETVAL | |
202 | |
203 void * | |
204 purple_request_file_with_hint(handle, title, filename, savedialog, ok_cb, cancel_cb, ui_hint) | |
205 Purple::Plugin handle | |
206 const char * title | |
207 const char * filename | |
208 gboolean savedialog | |
209 SV * ok_cb | |
210 SV * cancel_cb | |
211 const char * ui_hint | |
212 CODE: | |
213 PurplePerlRequestData *gpr; | |
214 STRLEN len; | |
215 char *basename; | |
216 | |
217 basename = g_path_get_basename(handle->path); | |
218 purple_perl_normalize_script_name(basename); | |
219 gpr = g_new(PurplePerlRequestData, 1); | |
220 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | |
221 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); | |
222 g_free(basename); | |
223 | |
224 RETVAL = purple_request_file_with_hint(handle, title, filename, savedialog, G_CALLBACK(purple_perl_request_ok_cb), G_CALLBACK(purple_perl_request_cancel_cb), NULL, NULL, NULL, ui_hint, gpr); | |
225 OUTPUT: | 169 OUTPUT: |
226 RETVAL | 170 RETVAL |
227 | 171 |
228 void * | 172 void * |
229 purple_request_fields(handle, title, primary, secondary, fields, ok_text, ok_cb, cancel_text, cancel_cb) | 173 purple_request_fields(handle, title, primary, secondary, fields, ok_text, ok_cb, cancel_text, cancel_cb) |
246 gpr = g_new(PurplePerlRequestData, 1); | 190 gpr = g_new(PurplePerlRequestData, 1); |
247 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | 191 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); |
248 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); | 192 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); |
249 g_free(basename); | 193 g_free(basename); |
250 | 194 |
251 RETVAL = purple_request_fields_with_hint(handle, title, primary, secondary, fields, ok_text, G_CALLBACK(purple_perl_request_ok_cb), cancel_text, G_CALLBACK(purple_perl_request_cancel_cb), NULL, NULL, NULL, PURPLE_REQUEST_UI_HINT_BLIST, gpr); | 195 RETVAL = purple_request_fields(handle, title, primary, secondary, fields, ok_text, G_CALLBACK(purple_perl_request_ok_cb), cancel_text, G_CALLBACK(purple_perl_request_cancel_cb), NULL, NULL, NULL, gpr); |
252 OUTPUT: | |
253 RETVAL | |
254 | |
255 void * | |
256 purple_request_fields_with_hint(handle, title, primary, secondary, fields, ok_text, ok_cb, cancel_text, cancel_cb, ui_hint) | |
257 Purple::Plugin handle | |
258 const char * title | |
259 const char * primary | |
260 const char * secondary | |
261 Purple::Request::Fields fields | |
262 const char * ok_text | |
263 SV * ok_cb | |
264 const char * cancel_text | |
265 SV * cancel_cb | |
266 const char *ui_hint | |
267 CODE: | |
268 PurplePerlRequestData *gpr; | |
269 STRLEN len; | |
270 char *basename; | |
271 | |
272 basename = g_path_get_basename(handle->path); | |
273 purple_perl_normalize_script_name(basename); | |
274 gpr = g_new(PurplePerlRequestData, 1); | |
275 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | |
276 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); | |
277 g_free(basename); | |
278 | |
279 RETVAL = purple_request_fields_with_hint(handle, title, primary, secondary, fields, ok_text, G_CALLBACK(purple_perl_request_ok_cb), cancel_text, G_CALLBACK(purple_perl_request_cancel_cb), NULL, NULL, NULL, ui_hint, gpr); | |
280 OUTPUT: | 196 OUTPUT: |
281 RETVAL | 197 RETVAL |
282 | 198 |
283 void | 199 void |
284 purple_request_close(type, uihandle) | 200 purple_request_close(type, uihandle) |