comparison: libpurple/plugins/perl/common/Request.xs
libpurple/plugins/perl/common/Request.xs
- changeset 21175
- c6d76b49c206
- parent 21174
- 8ba833993a11
- child 21352
- e10c4ea18f7c
equal
deleted
inserted
replaced
| 21174:8ba833993a11 | 21175:c6d76b49c206 |
|---|---|
| 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, "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, "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, "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) |
