Changes in perlglue.xs [ce68f23:bcde7926]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlglue.xs
rce68f23 rbcde7926 329 329 all_filters() 330 330 PREINIT: 331 GPtrArray *fl; 332 CODE: 333 { 334 fl = owl_dict_get_keys(&g.filters); 335 RETVAL = owl_new_av(fl, (SV*(*)(const void*))owl_new_sv); 331 owl_list fl; 332 CODE: 333 { 334 owl_list_create(&fl); 335 owl_dict_get_keys(&g.filters, &fl); 336 RETVAL = owl_new_av(&fl, (SV*(*)(const void*))owl_new_sv); 336 337 sv_2mortal((SV*)RETVAL); 337 owl_ ptr_array_free(fl, g_free);338 owl_list_cleanup(&fl, g_free); 338 339 } 339 340 OUTPUT: … … 343 344 all_styles() 344 345 PREINIT: 345 GPtrArray *l; 346 CODE: 347 { 348 l = owl_global_get_style_names(&g); 349 RETVAL = owl_new_av(l, (SV*(*)(const void*))owl_new_sv); 346 owl_list l; 347 CODE: 348 { 349 owl_list_create(&l); 350 owl_global_get_style_names(&g, &l); 351 RETVAL = owl_new_av(&l, (SV*(*)(const void*))owl_new_sv); 350 352 sv_2mortal((SV*)RETVAL); 351 353 } … … 353 355 RETVAL 354 356 CLEANUP: 355 owl_ ptr_array_free(l, g_free);357 owl_list_cleanup(&l, g_free); 356 358 357 359 … … 359 361 all_variables() 360 362 PREINIT: 361 GPtrArray *l; 362 CODE: 363 { 364 l = owl_dict_get_keys(owl_global_get_vardict(&g)); 365 RETVAL = owl_new_av(l, (SV*(*)(const void*))owl_new_sv); 363 owl_list l; 364 CODE: 365 { 366 owl_list_create(&l); 367 owl_dict_get_keys(owl_global_get_vardict(&g), &l); 368 RETVAL = owl_new_av(&l, (SV*(*)(const void*))owl_new_sv); 366 369 sv_2mortal((SV*)RETVAL); 367 370 } … … 369 372 RETVAL 370 373 CLEANUP: 371 owl_ ptr_array_free(l, g_free);374 owl_list_cleanup(&l, g_free); 372 375 373 376 … … 375 378 all_keymaps() 376 379 PREINIT: 377 GPtrArray *l;380 owl_list l; 378 381 const owl_keyhandler *kh; 379 382 CODE: 380 383 { 381 384 kh = owl_global_get_keyhandler(&g); 382 l = owl_keyhandler_get_keymap_names(kh); 383 RETVAL = owl_new_av(l, (SV*(*)(const void*))owl_new_sv); 385 owl_list_create(&l); 386 owl_keyhandler_get_keymap_names(kh, &l); 387 RETVAL = owl_new_av(&l, (SV*(*)(const void*))owl_new_sv); 384 388 sv_2mortal((SV*)RETVAL); 385 389 } … … 387 391 RETVAL 388 392 CLEANUP: 389 owl_ ptr_array_free(l, g_free);393 owl_list_cleanup(&l, g_free); 390 394 391 395 void
Note: See TracChangeset
for help on using the changeset viewer.