Mercurial > pidgin

comparison libpurple/plugins/perl/common/Request.xs @ 21570:dccfd999ffe7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)