Changeset 77f605d for perlglue.xs

Timestamp:

Jul 11, 2009, 1:14:35 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:

2fc8397

Parents:

3e36085

git-author:

Karl Ramm <kcr@1ts.org> (06/15/09 11:56:08)

git-committer:

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

Message:

Slightly more rope that you require for completion.

New owl_editwin_text_{before,after}_point, exported to perl.  Also,
export owl_editwin_replace and owl_editwin_point_move.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -429 +429 @@
                 owl_function_debugmsg("Freeing timer %p", t);
                                 owl_select_remove_timer(t);
+
+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)
+        int count;
+        char *string;
+        CODE:
+                RETVAL = owl_editwin_replace(owl_global_get_typwin(&g), count, string);
+        OUTPUT:
+                RETVAL
+
+int
+point_move(delta)
+        int delta;
+        CODE:
+                RETVAL = owl_editwin_point_move(owl_global_get_typwin(&g), delta);
+        OUTPUT:
+                RETVAL