Changeset c6ecf5c for perlglue.xs

Timestamp:

Jul 11, 2009, 1:14:36 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, 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:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -432 +432 @@
 MODULE = BarnOwl                PACKAGE = BarnOwl::Editwin
 
-char *
-text_before_point()
-        PREINIT:
-                char *p;
-        CODE:
-                p = owl_editwin_text_before_point(owl_global_get_typwin(&g));
-                RETVAL = p;
-        OUTPUT:
-                RETVAL
-        CLEANUP:
-                if (p)
-                        owl_free(p);
-
-char *
-text_after_point()
-        PREINIT:
-                char *p;
-        CODE:
-                p = owl_editwin_text_after_point(owl_global_get_typwin(&g));
-                RETVAL = p;
-        OUTPUT:
-                RETVAL
-        CLEANUP:
-                if (p)
-                        owl_free(p);
-
 int
 replace(count, string)