comparison: libpurple/plugins/perl/common/Request.xs
libpurple/plugins/perl/common/Request.xs
- changeset 21174
- 8ba833993a11
- parent 21171
- c6934783d152
- child 21175
- c6d76b49c206
- child 21225
- 32d8e16cb7a9
equal
deleted
inserted
replaced
| 21171:c6934783d152 | 21174:8ba833993a11 |
|---|---|
| 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(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); | 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, "blist", 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); | |
| 145 OUTPUT: | 176 OUTPUT: |
| 146 RETVAL | 177 RETVAL |
| 147 | 178 |
| 148 void * | 179 void * |
| 149 purple_request_file(handle, title, filename, savedialog, ok_cb, cancel_cb) | 180 purple_request_file(handle, title, filename, savedialog, ok_cb, cancel_cb) |
| 163 gpr = g_new(PurplePerlRequestData, 1); | 194 gpr = g_new(PurplePerlRequestData, 1); |
| 164 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | 195 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); |
| 165 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); | 196 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); |
| 166 g_free(basename); | 197 g_free(basename); |
| 167 | 198 |
| 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); | 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, "blist", 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); | |
| 169 OUTPUT: | 225 OUTPUT: |
| 170 RETVAL | 226 RETVAL |
| 171 | 227 |
| 172 void * | 228 void * |
| 173 purple_request_fields(handle, title, primary, secondary, fields, ok_text, ok_cb, cancel_text, cancel_cb) | 229 purple_request_fields(handle, title, primary, secondary, fields, ok_text, ok_cb, cancel_text, cancel_cb) |
| 190 gpr = g_new(PurplePerlRequestData, 1); | 246 gpr = g_new(PurplePerlRequestData, 1); |
| 191 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | 247 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); |
| 192 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); | 248 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); |
| 193 g_free(basename); | 249 g_free(basename); |
| 194 | 250 |
| 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); | 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, "blist", 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); | |
| 196 OUTPUT: | 280 OUTPUT: |
| 197 RETVAL | 281 RETVAL |
| 198 | 282 |
| 199 void | 283 void |
| 200 purple_request_close(type, uihandle) | 284 purple_request_close(type, uihandle) |
