Changeset d41294a for editwin.c

Timestamp:

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

c6ecf5c

Parents:

cf26b72

git-author:

Nelson Elhage <nelhage@mit.edu> (06/21/09 01:08:14)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/11/09 13:14:36)

Message:

Export some more functions to perl.

get_region, combined with save_excursion, is a very convenient way for
perl to access a specified piece of the buffer.

In addition, provide methods to get information about the current
point and mark.

File:

• editwin.c (modified) (5 diffs)

editwin.c

@@ -59 +59 @@
 static char *oe_copy_buf(owl_editwin *e, char *buf, int len);
 static int oe_copy_region(owl_editwin *e);
-static int oe_display_column(owl_editwin *e);
 static char *oe_chunk(owl_editwin *e, int start, int end);
 
@@ -1113 +1112 @@
 }
 
-static int oe_display_column(owl_editwin *e)
+int owl_editwin_current_column(owl_editwin *e)
 {
   oe_excursion x;
@@ -1184 +1183 @@
   while(e->index < e->mark) {
     /* if we've travelled too far, linewrap */
-    if (oe_display_column(e) >= e->fillcol)
+    if (owl_editwin_current_column(e) >= e->fillcol)
       _owl_editwin_linewrap_word(e);
     owl_editwin_point_move(e, 1);
@@ -1323 +1322 @@
 }
 
+char *owl_editwin_get_region(owl_editwin *e)
+{
+  int start, end;
+  start = e->index;
+  end   = e->mark;
+  if(start > end) {
+    int tmp = end;
+    end = start;
+    start = tmp;
+  }
+
+  return oe_chunk(e, start, end);
+}
+
 int owl_editwin_get_echochar(owl_editwin *e)
 {
@@ -1347 +1360 @@
 {
   return oe_chunk(e, e->index, e->bufflen);
+}
+
+/*
+ * The only guarantee made about these values is that comparisons
+ * between them, as well as comparison between multiple calls to these
+ * functions without modifying the editwin in-between, are meaningful.
+ */
+
+int owl_editwin_get_point(owl_editwin *e)
+{
+  return e->index;
+}
+
+int owl_editwin_get_mark(owl_editwin *e)
+{
+  return e->mark;
 }