Changeset d41294a for perlglue.xs

Timestamp:

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

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -483 +483 @@
                 RETVAL
 
+char *
+get_region()
+        PREINIT:
+                char *region;
+        CODE:
+                region = owl_editwin_get_region(owl_global_get_typwin(&g));
+                RETVAL = region;
+        OUTPUT:
+                RETVAL
+        CLEANUP:
+                owl_free(region);
+
 SV *
 save_excursion(sub)
@@ -509 +521 @@
         OUTPUT:
                 RETVAL
+
+int
+current_column()
+        CODE:
+                RETVAL = owl_editwin_current_column(owl_global_get_typwin(&g));
+        OUTPUT:
+                RETVAL
+
+int
+point()
+        CODE:
+                RETVAL = owl_editwin_get_point(owl_global_get_typwin(&g));
+        OUTPUT:
+                RETVAL
+
+int
+mark()
+        CODE:
+                RETVAL = owl_editwin_get_mark(owl_global_get_typwin(&g));
+        OUTPUT:
+                RETVAL