Changes in perlglue.xs [fd8dfe7:c6ecf5c]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlglue.xs
rfd8dfe7 rc6ecf5c 429 429 owl_function_debugmsg("Freeing timer %p", t); 430 430 owl_select_remove_timer(t); 431 432 MODULE = BarnOwl PACKAGE = BarnOwl::Editwin 433 434 int 435 replace(count, string) 436 int count; 437 char *string; 438 CODE: 439 RETVAL = owl_editwin_replace(owl_global_get_typwin(&g), count, string); 440 OUTPUT: 441 RETVAL 442 443 int 444 point_move(delta) 445 int delta; 446 CODE: 447 RETVAL = owl_editwin_point_move(owl_global_get_typwin(&g), delta); 448 OUTPUT: 449 RETVAL 450 451 int 452 replace_region(string) 453 char *string; 454 CODE: 455 RETVAL = owl_editwin_replace_region(owl_global_get_typwin(&g), string); 456 OUTPUT: 457 RETVAL 458 459 char * 460 get_region() 461 PREINIT: 462 char *region; 463 CODE: 464 region = owl_editwin_get_region(owl_global_get_typwin(&g)); 465 RETVAL = region; 466 OUTPUT: 467 RETVAL 468 CLEANUP: 469 owl_free(region); 470 471 SV * 472 save_excursion(sub) 473 SV *sub; 474 PROTOTYPE: & 475 PREINIT: 476 int count; 477 owl_editwin_excursion *x; 478 CODE: 479 { 480 x = owl_editwin_begin_excursion(owl_global_get_typwin(&g)); 481 count = call_sv(sub, G_SCALAR|G_EVAL|G_NOARGS); 482 owl_editwin_end_excursion(owl_global_get_typwin(&g), x); 483 484 if(SvTRUE(ERRSV)) { 485 croak(NULL); 486 } 487 488 SPAGAIN; 489 if(count == 1) 490 RETVAL = SvREFCNT_inc(POPs); 491 else 492 XSRETURN_UNDEF; 493 494 } 495 OUTPUT: 496 RETVAL 497 498 int 499 current_column() 500 CODE: 501 RETVAL = owl_editwin_current_column(owl_global_get_typwin(&g)); 502 OUTPUT: 503 RETVAL 504 505 int 506 point() 507 CODE: 508 RETVAL = owl_editwin_get_point(owl_global_get_typwin(&g)); 509 OUTPUT: 510 RETVAL 511 512 int 513 mark() 514 CODE: 515 RETVAL = owl_editwin_get_mark(owl_global_get_typwin(&g)); 516 OUTPUT: 517 RETVAL
Note: See TracChangeset
for help on using the changeset viewer.