Changeset a88f35a 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:

cf26b72

Parents:

0190c4d

git-author:

Nelson Elhage <nelhage@mit.edu> (06/20/09 23:45:56)

git-committer:

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

Message:

Give perl code more rope with respect to the editwin.

In particular, implement save_excursion and replace_region.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -474 +474 @@
         OUTPUT:
                 RETVAL
+
+int
+replace_region(string)
+        char *string;
+        CODE:
+                RETVAL = owl_editwin_replace_region(owl_global_get_typwin(&g), string);
+        OUTPUT:
+                RETVAL
+
+SV *
+save_excursion(sub)
+        SV *sub;
+        PROTOTYPE: &
+        PREINIT:
+                int count;
+                owl_editwin_excursion *x;
+        CODE:
+        {
+                x = owl_editwin_begin_excursion(owl_global_get_typwin(&g));
+                count = call_sv(sub, G_SCALAR|G_EVAL|G_NOARGS);
+                owl_editwin_end_excursion(owl_global_get_typwin(&g), x);
+
+                if(SvTRUE(ERRSV)) {
+                        croak(NULL);
+                }
+
+                SPAGAIN;
+                if(count == 1)
+                        RETVAL = SvREFCNT_inc(POPs);
+                else
+                        XSRETURN_UNDEF;
+
+        }
+        OUTPUT:
+                RETVAL