source: perl/lib/BarnOwl/Completion/Util.pm @ e711ca7

release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since e711ca7 was e711ca7, checked in by Nelson Elhage <nelhage@mit.edu>, 12 years ago
complete_flags: Don't complete options after --.
  • Property mode set to 100644
File size: 1.0 KB
Line 
1use strict;
2use warnings;
3
4package BarnOwl::Completion::Util;
5
6use base qw(Exporter);
7our @EXPORT_OK = qw(complete_flags);
8
9use Getopt::Long;
10
11sub 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 $word = 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        }
38        $idx++;
39    }
40
41    if($flag) {
42        my $c = $args->{$flag};
43        if($c) {
44            return $c->($ctx);
45        }
46        return;
47    } else {
48        return ($optsdone ? () : (@$no_args, keys %$args),
49                $default ? ($default->($ctx)) : ());
50    }
51}
Note: See TracBrowser for help on using the repository browser.