release-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change
on this file since bd25f30 was
4fbc7f5,
checked in by Nelson Elhage <nelhage@mit.edu>, 15 years ago
|
complete_flags: Pass the completer the argument number being completed
This is the index of the argument (not flag or flag option) being
completed, for convenience.
|
-
Property mode set to
100644
|
File size:
1.1 KB
|
Line | |
---|
1 | use strict; |
---|
2 | use warnings; |
---|
3 | |
---|
4 | package BarnOwl::Completion::Util; |
---|
5 | |
---|
6 | use base qw(Exporter); |
---|
7 | our @EXPORT_OK = qw(complete_flags); |
---|
8 | |
---|
9 | use Getopt::Long; |
---|
10 | |
---|
11 | sub complete_flags { |
---|
12 | my $ctx = shift; |
---|
13 | my $no_args = shift; |
---|
14 | my $args = shift; |
---|
15 | my $default = shift; |
---|
16 | |
---|
17 | |
---|
18 | my $idx = 1; |
---|
19 | my $flag = undef; |
---|
20 | |
---|
21 | my $argct = 0; |
---|
22 | my $optsdone = 0; |
---|
23 | |
---|
24 | while($idx < $ctx->word) { |
---|
25 | my $word = $ctx->words->[$idx]; |
---|
26 | if($flag) { |
---|
27 | undef $flag; |
---|
28 | } elsif($word =~ m{^--}) { |
---|
29 | if($word eq '--') { |
---|
30 | $optsdone = 1; |
---|
31 | last; |
---|
32 | } |
---|
33 | $flag = $word if(exists $args->{$word}); |
---|
34 | } elsif ($word =~ m{^-}) { |
---|
35 | $word = "-" . substr($word, -1); |
---|
36 | $flag = $word if(exists $args->{$word}); |
---|
37 | } else { |
---|
38 | $argct++; |
---|
39 | } |
---|
40 | $idx++; |
---|
41 | } |
---|
42 | |
---|
43 | if($flag) { |
---|
44 | my $c = $args->{$flag}; |
---|
45 | if($c) { |
---|
46 | return $c->($ctx); |
---|
47 | } |
---|
48 | return; |
---|
49 | } else { |
---|
50 | return ($optsdone ? () : (@$no_args, keys %$args), |
---|
51 | $default ? ($default->($ctx, $argct)) : ()); |
---|
52 | } |
---|
53 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.