Changeset 6035008 for perl/lib

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:

a3a9eb7

Parents:

76e0e4a

git-author:

David Benjamin <davidben@mit.edu> (09/23/09 00:44:40)

git-committer:

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

Message:

Drop start argument to complete_filter_expr

Use context slicing instead. For now, the private functions will retain
the index for efficiency and to avoid complexity. They're private, so we
don't need to conform to any interface.

Signed-off-by: David Benjamin <davidben@mit.edu>

File:

• perl/lib/BarnOwl/Complete/Client.pm (modified) (3 diffs)

perl/lib/BarnOwl/Complete/Client.pm

@@ -151 +151 @@
 sub complete_filter_expr {
     my $ctx = shift;
-    my $start = shift;
+
     my @completions = ();
-    _complete_filter_expr($ctx, $start, \@completions);
+    _complete_filter_expr($ctx, 0, \@completions);
     # Get rid of duplicates and sort
     my %hash = ();
@@ -202 +202 @@
             # We pass stop_at_nonflag, so we can rewind to the start
             my $idx = $ctx->word - $arg;
-            return complete_filter_expr($ctx, $idx);
+            $ctx = $ctx->shift_words($idx);
+            return complete_filter_expr($ctx);
         },
         stop_at_nonflag => 1
@@ -217 +218 @@
     }
     if ($ctx->words->[1] eq "-d") {
-        return complete_filter_expr($ctx, 2);
+        $ctx = $ctx->shift_words(2);
+        return complete_filter_expr($ctx);
     }
     if ($ctx->words->[1] eq "-s") {