Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    rfd8dfe7 rc6ecf5c  
    429429                owl_function_debugmsg("Freeing timer %p", t);
    430430                                owl_select_remove_timer(t);
     431
     432MODULE = BarnOwl                PACKAGE = BarnOwl::Editwin
     433
     434int
     435replace(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
     443int
     444point_move(delta)
     445        int delta;
     446        CODE:
     447                RETVAL = owl_editwin_point_move(owl_global_get_typwin(&g), delta);
     448        OUTPUT:
     449                RETVAL
     450
     451int
     452replace_region(string)
     453        char *string;
     454        CODE:
     455                RETVAL = owl_editwin_replace_region(owl_global_get_typwin(&g), string);
     456        OUTPUT:
     457                RETVAL
     458
     459char *
     460get_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
     471SV *
     472save_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
     498int
     499current_column()
     500        CODE:
     501                RETVAL = owl_editwin_current_column(owl_global_get_typwin(&g));
     502        OUTPUT:
     503                RETVAL
     504
     505int
     506point()
     507        CODE:
     508                RETVAL = owl_editwin_get_point(owl_global_get_typwin(&g));
     509        OUTPUT:
     510                RETVAL
     511
     512int
     513mark()
     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.