Mercurial > pidgin

comparison libpurple/plugins/perl/common/Request.xs @ 19963:b80d3c8097d4

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