Changeset c6ecf5c for perlglue.xs


Ignore:
Timestamp:
Jul 11, 2009, 1:14:36 PM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
bd7fb58
Parents:
d41294a
git-author:
Nelson Elhage <nelhage@mit.edu> (06/21/09 01:12:01)
git-committer:
Nelson Elhage <nelhage@mit.edu> (07/11/09 13:14:36)
Message:
Implement text_{before,after)_point in Perl.

These can easily be implemented in perl using save_excursion and
get_region, so there's no need for them in C.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    rd41294a rc6ecf5c  
    432432MODULE = BarnOwl                PACKAGE = BarnOwl::Editwin
    433433
    434 char *
    435 text_before_point()
    436         PREINIT:
    437                 char *p;
    438         CODE:
    439                 p = owl_editwin_text_before_point(owl_global_get_typwin(&g));
    440                 RETVAL = p;
    441         OUTPUT:
    442                 RETVAL
    443         CLEANUP:
    444                 if (p)
    445                         owl_free(p);
    446 
    447 char *
    448 text_after_point()
    449         PREINIT:
    450                 char *p;
    451         CODE:
    452                 p = owl_editwin_text_after_point(owl_global_get_typwin(&g));
    453                 RETVAL = p;
    454         OUTPUT:
    455                 RETVAL
    456         CLEANUP:
    457                 if (p)
    458                         owl_free(p);
    459 
    460434int
    461435replace(count, string)
Note: See TracChangeset for help on using the changeset viewer.