Mercurial > pidgin
comparison libpurple/plugins/perl/common/Request.xs @ 19963:b80d3c8097d4
Updating Request.xs
author | Gabriel Schulhof <nix@go-nix.ca> |
---|---|
date | Sat, 18 Aug 2007 19:39:31 +0000 |
parents | ab6d2763b8d8 |
children | 9baac8e81b3e |
comparison
equal
deleted
inserted
replaced
19962:ce7569c8aa0d | 19963:b80d3c8097d4 |
---|---|
1 #include "module.h" | 1 #include "module.h" |
2 | 2 |
3 /* This breaks on faceprint's amd64 box | 3 /* This breaks on faceprint's amd64 box |
4 void * | 4 void * |
5 purple_request_action_varg(handle, title, primary, secondary, default_action, user_data, action_count, actions) | 5 purple_request_action_varg(handle, title, primary, secondary, default_action, ui_hint, user_data, action_count, actions) |
6 void * handle | 6 void * handle |
7 const char *title | 7 const char *title |
8 const char *primary | 8 const char *primary |
9 const char *secondary | 9 const char *secondary |
10 unsigned int default_action | 10 unsigned int default_action |
11 const char * ui_hint | |
11 void *user_data | 12 void *user_data |
12 size_t action_count | 13 size_t action_count |
13 va_list actions | 14 va_list actions |
14 */ | 15 */ |
15 | 16 |
114 for (civ = request_field_const_iv + sizeof(request_field_const_iv) / sizeof(request_field_const_iv[0]); civ-- > request_field_const_iv; ) | 115 for (civ = request_field_const_iv + sizeof(request_field_const_iv) / sizeof(request_field_const_iv[0]); civ-- > request_field_const_iv; ) |
115 newCONSTSUB(request_field_stash, (char *)civ->name, newSViv(civ->iv)); | 116 newCONSTSUB(request_field_stash, (char *)civ->name, newSViv(civ->iv)); |
116 } | 117 } |
117 | 118 |
118 void * | 119 void * |
119 purple_request_input(handle, title, primary, secondary, default_value, multiline, masked, hint, ok_text, ok_cb, cancel_text, cancel_cb) | 120 purple_request_input(handle, title, primary, secondary, default_value, multiline, masked, hint, ok_text, ok_cb, cancel_text, cancel_cb, ui_hint) |
120 Purple::Plugin handle | 121 Purple::Plugin handle |
121 const char * title | 122 const char * title |
122 const char * primary | 123 const char * primary |
123 const char * secondary | 124 const char * secondary |
124 const char * default_value | 125 const char * default_value |
127 gchar * hint | 128 gchar * hint |
128 const char * ok_text | 129 const char * ok_text |
129 SV * ok_cb | 130 SV * ok_cb |
130 const char * cancel_text | 131 const char * cancel_text |
131 SV * cancel_cb | 132 SV * cancel_cb |
133 const char * ui_hint | |
132 CODE: | 134 CODE: |
133 PurplePerlRequestData *gpr; | 135 PurplePerlRequestData *gpr; |
134 STRLEN len; | 136 STRLEN len; |
135 char *basename; | 137 char *basename; |
136 | 138 |
139 gpr = g_new(PurplePerlRequestData, 1); | 141 gpr = g_new(PurplePerlRequestData, 1); |
140 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | 142 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)); | 143 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); |
142 g_free(basename); | 144 g_free(basename); |
143 | 145 |
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); | 146 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, ui_hint, gpr); |
145 OUTPUT: | 147 OUTPUT: |
146 RETVAL | 148 RETVAL |
147 | 149 |
148 void * | 150 void * |
149 purple_request_file(handle, title, filename, savedialog, ok_cb, cancel_cb) | 151 purple_request_file(handle, title, filename, savedialog, ok_cb, cancel_cb, ui_hint) |
150 Purple::Plugin handle | 152 Purple::Plugin handle |
151 const char * title | 153 const char * title |
152 const char * filename | 154 const char * filename |
153 gboolean savedialog | 155 gboolean savedialog |
154 SV * ok_cb | 156 SV * ok_cb |
155 SV * cancel_cb | 157 SV * cancel_cb |
158 const char * ui_hint | |
156 CODE: | 159 CODE: |
157 PurplePerlRequestData *gpr; | 160 PurplePerlRequestData *gpr; |
158 STRLEN len; | 161 STRLEN len; |
159 char *basename; | 162 char *basename; |
160 | 163 |
163 gpr = g_new(PurplePerlRequestData, 1); | 166 gpr = g_new(PurplePerlRequestData, 1); |
164 gpr->ok_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(ok_cb, len)); | 167 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)); | 168 gpr->cancel_cb = g_strdup_printf("Purple::Script::%s::%s", basename, SvPV(cancel_cb, len)); |
166 g_free(basename); | 169 g_free(basename); |
167 | 170 |
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); | 171 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, ui_hint, gpr); |
169 OUTPUT: | 172 OUTPUT: |
170 RETVAL | 173 RETVAL |
171 | 174 |
172 void * | 175 void * |
173 purple_request_fields(handle, title, primary, secondary, fields, ok_text, ok_cb, cancel_text, cancel_cb) | 176 purple_request_fields(handle, title, primary, secondary, fields, ok_text, ok_cb, cancel_text, cancel_cb, ui_hint) |
174 Purple::Plugin handle | 177 Purple::Plugin handle |
175 const char * title | 178 const char * title |
176 const char * primary | 179 const char * primary |
177 const char * secondary | 180 const char * secondary |
178 Purple::Request::Fields fields | 181 Purple::Request::Fields fields |
179 const char * ok_text | 182 const char * ok_text |
180 SV * ok_cb | 183 SV * ok_cb |
181 const char * cancel_text | 184 const char * cancel_text |
182 SV * cancel_cb | 185 SV * cancel_cb |
186 const char *ui_hint | |
183 CODE: | 187 CODE: |
184 PurplePerlRequestData *gpr; | 188 PurplePerlRequestData *gpr; |
185 STRLEN len; | 189 STRLEN len; |
186 char *basename; | 190 char *basename; |
187 | 191 |
190 gpr = g_new(PurplePerlRequestData, 1); | 194 gpr = g_new(PurplePerlRequestData, 1); |
191 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)); |
192 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)); |
193 g_free(basename); | 197 g_free(basename); |
194 | 198 |
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); | 199 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, ui_hint, gpr); |
196 OUTPUT: | 200 OUTPUT: |
197 RETVAL | 201 RETVAL |
198 | 202 |
199 void | 203 void |
200 purple_request_close(type, uihandle) | 204 purple_request_close(type, uihandle) |