Changeset e97c5d05 for perl/lib/BarnOwl

Timestamp:

Sep 30, 2009, 1:02:36 AM (15 years ago)

Author:

David Benjamin <davidben@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:

b06a888

Parents:

9e5b5fd

git-author:

Nelson Elhage <nelhage@mit.edu> (09/14/09 09:57:55)

git-committer:

David Benjamin <davidben@mit.edu> (09/30/09 01:02:36)

Message:

Implement a shift_words method on completion contexts.

This allows completion methods to easily pass on the remainder of a
command-line to another completer if appropriate.

File:

• perl/lib/BarnOwl/Completion/Context.pm (modified) (2 diffs)

perl/lib/BarnOwl/Completion/Context.pm

@@ -40 +40 @@
 
 use base qw(Class::Accessor::Fast);
+use Carp qw(croak);
 
 __PACKAGE__->mk_ro_accessors(qw(line point words word word_point
@@ -64 +65 @@
        };
     return bless($self, $class);
+}
+
+=head2 shift_words N
+
+Returns a new C<Context> object, with the leading C<N> words
+stripped. All fields are updated as appopriate. If C<N> > C<<
+$self->word >>, C<croak>s with an error message.
+
+=cut
+
+sub shift_words {
+    my $self = shift;
+    my $n    = shift;
+
+    if($n > $self->word) {
+        croak "Context::shift: Unable to shift $n words";
+    }
+
+    my $before = substr($self->line, 0, $self->point);
+    my $after  = substr($self->line, $self->point);
+
+    return BarnOwl::Completion::Context->new(BarnOwl::skiptokens($before, $n),
+                                             $after);
 }