Changeset c6ecf5c

Timestamp:

Jul 11, 2009, 1:14:36 PM (14 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.

Files:

• editwin.c (modified) (1 diff)
• perl/lib/BarnOwl/Editwin.pm (modified) (1 diff)
• perlglue.xs (modified) (1 diff)

editwin.c

@@ -1352 +1352 @@
 }
 
-char *owl_editwin_text_before_point(owl_editwin *e)
-{
-  return oe_chunk(e, e->index < e->lock ? 0 : e->lock, e->index);
-}
-
-char *owl_editwin_text_after_point(owl_editwin *e)
-{
-  return oe_chunk(e, e->index, e->bufflen);
-}
-
 /*
  * The only guarantee made about these values is that comparisons

perl/lib/BarnOwl/Editwin.pm

@@ -21 +21 @@
                     save_excursion current_column point mark);
 
+sub text_before_point {
+    save_excursion {
+        BarnOwl::command('edit:set-mark');
+        BarnOwl::command('edit:move-to-buffer-start');
+        get_region();
+    }
+}
+
+sub text_after_point {
+    save_excursion {
+        BarnOwl::command('edit:set-mark');
+        BarnOwl::command('edit:move-to-buffer-end');
+        get_region();
+    }
+}
+
 1;

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)